VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form CZYGHMM 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "操作員更改口令"
   ClientHeight    =   2100
   ClientLeft      =   3990
   ClientTop       =   3390
   ClientWidth     =   5370
   Icon            =   "CZYGHMM.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1240.749
   ScaleMode       =   0  'User
   ScaleWidth      =   5042.14
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOK 
      Caption         =   "確認"
      Enabled         =   0   'False
      Height          =   390
      Left            =   4200
      TabIndex        =   3
      Top             =   240
      Width           =   1020
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Default         =   -1  'True
      Height          =   390
      Left            =   4200
      TabIndex        =   4
      Top             =   720
      Width           =   1020
   End
   Begin VB.Frame Frame1 
      Height          =   1875
      Left            =   120
      TabIndex        =   5
      Top             =   60
      Width           =   3915
      Begin VB.TextBox Text1 
         Height          =   300
         IMEMode         =   3  'DISABLE
         Left            =   1800
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   360
         Width           =   1815
      End
      Begin DevPowerTransImg.TransImg TransImg1 
         Height          =   495
         Left            =   210
         TabIndex        =   9
         Top             =   300
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   873
         AutoSize        =   0   'False
         MaskColor       =   16777215
         Transparent     =   -1  'True
         Picture         =   "CZYGHMM.frx":0442
      End
      Begin VB.TextBox Text2 
         Height          =   300
         IMEMode         =   3  'DISABLE
         Left            =   1800
         Locked          =   -1  'True
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1320
         Width           =   1815
      End
      Begin VB.TextBox txtPassword 
         Height          =   300
         IMEMode         =   3  'DISABLE
         Left            =   1800
         Locked          =   -1  'True
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   840
         Width           =   1815
      End
      Begin VB.Label lblLabels 
         Caption         =   "舊口令:"
         Height          =   270
         Index           =   0
         Left            =   1080
         TabIndex        =   10
         Top             =   440
         Width           =   1080
      End
      Begin VB.Label Label2 
         Caption         =   "確  認:"
         Height          =   315
         Left            =   1080
         TabIndex        =   8
         Top             =   1380
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "操作員"
         Height          =   195
         Left            =   240
         TabIndex        =   7
         Top             =   840
         Width           =   555
      End
      Begin VB.Label lblLabels 
         Caption         =   "新口令:"
         Height          =   270
         Index           =   1
         Left            =   1080
         TabIndex        =   6
         Top             =   900
         Width           =   1080
      End
   End
End
Attribute VB_Name = "CZYGHMM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public LoginSucceeded As Boolean
Public CZYXM As String
Dim DATJDGL As Database
Dim RECCZY As Recordset
Dim STRPASSWORD As String

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()    '檢查正確的密碼
    Dim DATZT As Database
    Dim RECZT As Recordset
    If txtPassword.Text = "" Then
       MsgBox "操作員口令字不能為空!", vbInformation, "提示信息"
       txtPassword.SetFocus
       Exit Sub
    End If
    If txtPassword.Text <> Text2.Text Then
       MsgBox "確認錯誤,口令無效!", vbInformation, "提示信息"
       txtPassword.SetFocus
       Exit Sub
       Else
         RECCZY.Edit
         RECCZY("密碼") = txtPassword.Text
         RECCZY.Update
    End If
    Unload Me
End Sub
Private Sub Form_Load()
    Dim STRCZY As String
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECCZY = DATJDGL.OpenRecordset("操作員", dbOpenDynaset)
    RECCZY.FindFirst ("姓名='" & frmLogin.CZYXM & "'")
    If RECCZY.NoMatch Then
       MsgBox "非法操作員!", vbCritical, "錯誤"
       End
    End If
    Label1.Caption = frmLogin.CZYXM
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text = IIf(Not IsNull(RECCZY("密碼")), RECCZY("密碼"), " ") Then
       txtPassword.Locked = False
       Text2.Locked = False
       cmdOK.Enabled = True
    End If

End Sub

Private Sub Text2_GotFocus()
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)

End Sub
Private Sub txtPassword_GotFocus()
    txtPassword.SelStart = 0
    txtPassword.SelLength = Len(txtPassword.Text)

End Sub