【正文】 l) and 密碼 =39。 amp。 ElseIf TxtYhm And TxtMm = Then SQL = select * from 口令信息 where 用戶名 =39。 amp。 and (密碼 = 39。 or 密碼 is null) Else SQL = select * from 口令信息 where 用戶名 =39。 amp。 and 密碼 =39。 amp。 End If If = 1 Then SQL, Cnndb, 3, 2 31 酒店人事工資管理系統(tǒng) 第 31 頁(yè) If Then MsgBox 密碼不正確 !, vbInformation i = i + 1 If i = 5 Then End End If Exit Sub Else DLYongHuMing = (用戶名 ).Value DLQuanXian = (權(quán)限 ).Value If (權(quán)限 ).Value = 管理員 Then QuanXian = (管理員 ) End If If (權(quán)限 ).Value = 操作員 Then QuanXian = (操作員 ) 主窗體 . = False 主窗體 . = False End If If (權(quán)限 ).Value = 一般用戶 Then QuanXian = (一般用戶 ) 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 32 酒店人事工資管理系統(tǒng) 第 32 頁(yè) 主窗體 . = False End If YongHuMing = MiMa = Call DataSave Unload Me 主窗體 .Show End If End If End Sub Private Sub CmdAdd_Click() Call DataFind End Sub Private Sub CmdExit_Click() End End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 CmdAdd_Click Case vbKeyF2 CmdExit_Click End Select End Sub Private Sub Form_Load() 33 酒店人事工資管理系統(tǒng) 第 33 頁(yè) = ( ) / 2 = ( ) / 2 End Sub Private Sub Txtmm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End Sub Private Sub TxtYhm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End Sub 控制由“用戶登錄”界面控制。按鈕位置變化標(biāo)志參數(shù) Private Sub Command1_Click() Cmdsize = 1 If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If 34 酒店人事工資管理系統(tǒng) 第 34 頁(yè) = False = False = False = False = False = False = False = False = False = False = False = False = 0 = = = * 2 End Sub Private Sub Command2_Click() Cmdsize = 2 = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False 35 酒店人事工資管理系統(tǒng) 第 35 頁(yè) = True Else = True = True = True = True End If = False = False = False = False = False = False = False = False = 0 = = = End Sub Private Sub Command3_Click() Cmdsize = 3 = False = False = False = False = False = False = False 36 酒店人事工資管理系統(tǒng) 第 36 頁(yè) = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If = False = False = False = False = 0 = = * 2 = End Sub Private Sub Command4_Click() Cmdsize = 4 = False = False = False = False 37 酒店人事工資管理系統(tǒng) 第 37 頁(yè) = False = False = False = False = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If = 0 = = * 2 = * 3 End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single 38 酒店人事工資管理系統(tǒng) 第 38 頁(yè) YesNo = MsgBox(真的要退出酒店人事工資管理系統(tǒng)嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me 結(jié)束界面 .Show Else Cancel = 1 End If End Sub Private Sub Men_Bjgzxx_Click() 編輯工資信息 .Width = 11340 編輯工資信息 .Height = 8685 編輯工資信息 .Show 編輯工資信息 .SetFocus (1).Text = 狀態(tài)：編輯工資信息 amp。 QuanXian End Sub Private Sub Men_Dlrz_Click() 登陸日志 .Height = 4650 39 酒店人事工資管理系統(tǒng) 第 39 頁(yè) 登陸日志 .Width = 4350 登陸日志 .Show 登陸日志 .SetFocus (1).Text = 狀態(tài)：登陸日志 amp。 QuanXian End Sub Private Sub Men_Llgzxx_Click() 瀏覽工資信息 .Height = 7170 瀏覽工資信息 .Width = 12070 瀏覽工資信息 .Show 瀏覽工資信息 .SetFocus (1).Text =