ghmm.frm

小型酒店管理系统

VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form GHMM 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "主管更改操作员口令"
   ClientHeight    =   2475
   ClientLeft      =   3990
   ClientTop       =   3390
   ClientWidth     =   4170
   Icon            =   "GHMM.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1462.311
   ScaleMode       =   0  'User
   ScaleWidth      =   3915.405
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认"
      Height          =   390
      Left            =   840
      TabIndex        =   2
      Top             =   1920
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Default         =   -1  'True
      Height          =   390
      Left            =   2400
      TabIndex        =   3
      Top             =   1920
      Width           =   1140
   End
   Begin VB.Frame Frame1 
      Height          =   1755
      Left            =   120
      TabIndex        =   4
      Top             =   60
      Width           =   3915
      Begin DevPowerTransImg.TransImg TransImg1 
         Height          =   495
         Left            =   210
         TabIndex        =   8
         Top             =   300
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   873
         AutoSize        =   0   'False
         MaskColor       =   16777215
         Transparent     =   -1  'True
         Picture         =   "GHMM.frx":0442
      End
      Begin VB.TextBox Text2 
         Height          =   300
         IMEMode         =   3  'DISABLE
         Left            =   1860
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   1020
         Width           =   1815
      End
      Begin VB.TextBox txtPassword 
         Height          =   300
         IMEMode         =   3  'DISABLE
         Left            =   1860
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   540
         Width           =   1815
      End
      Begin VB.Label Label2 
         Caption         =   "确  认:"
         Height          =   315
         Left            =   1005
         TabIndex        =   7
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "操作员"
         Height          =   195
         Left            =   240
         TabIndex        =   6
         Top             =   840
         Width           =   555
      End
      Begin VB.Label lblLabels 
         Caption         =   "新口令:"
         Height          =   270
         Index           =   1
         Left            =   1005
         TabIndex        =   5
         Top             =   600
         Width           =   1080
      End
   End
End
Attribute VB_Name = "GHMM"
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_Activate()
    RECCZY.FindFirst ("姓名='" & CZQX.TreeView1.SelectedItem.Text & "'")
    If RECCZY.NoMatch Then
       MsgBox "非法操作员!", vbCritical, "错误"
       Unload GHMM
       Exit Sub
    End If
    Label1.Caption = CZQX.TreeView1.SelectedItem.Text

End Sub

Private Sub Form_Load()
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECCZY = DATJDGL.OpenRecordset("操作员", dbOpenDynaset)
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
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