VERSION 5.00
Begin VB.Form Password_Information 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Password information"
   ClientHeight    =   1875
   ClientLeft      =   2790
   ClientTop       =   3390
   ClientWidth     =   4065
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1875
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmd_Ignore 
      Caption         =   "Ignore"
      Height          =   372
      Left            =   2940
      TabIndex        =   2
      Top             =   1260
      Width           =   732
   End
   Begin VB.CommandButton cmd_Change 
      Caption         =   "Change"
      Height          =   372
      Left            =   1680
      TabIndex        =   1
      Top             =   1260
      Width           =   732
   End
   Begin VB.TextBox txt_Information 
      Height          =   1032
      Left            =   60
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   60
      Width           =   3912
   End
End
Attribute VB_Name = "Password_Information"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Change_Click()
MouseOn
If gut_Param.Str1 > 94 Then
    gut_Param.Str2 = "NOT FREE"
Else
    gut_Param.Str2 = "FREE"
End If
Change_Password.Show 1
Unload Me
MouseOff
End Sub

Private Sub cmd_Ignore_Click()
MouseOff
Unload Me
MouseOn
End Sub

Private Sub Form_Load()
MouseOff

If gl_CodePage <> 1252 And gl_CodePage <> 0 Then ChangeCharSet Me

GetScCsts
If gut_Param.Str1 > 94 Then
    cmd_Ignore.Visible = KO
End If
MouseOn
End Sub
Private Sub GetScCsts()
Dim ls_Field As String
Dim ls_Text As String
Dim ll_statement As Long
Dim li_status As Integer
Dim ls_req As String

On Error GoTo suite

ls_req = "EXEC Screen_Csts password_info,'" & gut_LangLogin.Code & "'"
If SQLSubmit(gl_Environment, gl_Database, ll_statement, ls_req) Then
    li_status = SQL_SUCCESS
Else
    li_status = SQL_ERROR
End If
Do While li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO
    li_status = SQLFetch(ll_statement)
    If li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO Then
        ls_Field = ODBCData(ll_statement, 1)
        ls_Text = ODBCData(ll_statement, 2)
        Select Case ls_Field
            Case "title": Caption = ls_Text
            Case "change": cmd_Change.Caption = ls_Text
            Case "ignore": cmd_Ignore.Caption = ls_Text
            Case "more90": If gut_Param.Str1 < 95 Then txt_Information = ls_Text
            Case "more95": If gut_Param.Str1 > 94 Then txt_Information = ls_Text
        End Select
    End If
Loop
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
Exit Sub

suite:
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
StdError
End Sub
