【正文】 用戶名 =39。 amp。 amp。 39。 and 密碼 =39。 amp。 amp。 39。 End If If = 1 Then SQL, Cnndb, 3, 2 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 第 24 頁 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = 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 第 25 頁 Case vbKeyF2 CmdExit_Click End Select End Sub Private Sub Form_Load() = ( ) / 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 控制由“用戶登錄”界面控制。 第 26 頁 Dim Cmdsize As Integer 39。按鈕位置變化標志參數(shù) Private Sub Command1_Click() Cmdsize = 1 If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True 第 27 頁 End If = 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 第 28 頁 = False = 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 第 29 頁 = False = 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 第 30 頁 = False = 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 第 31 頁 Dim M As Single YesNo = MsgBox(真的要退出公司人事管理系統(tǒng)嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me 結(jié)束界面 .Show Else Cancel = 1 End If End Sub