酒店人事工資管理系統—畢業設計論文-資料下載頁

【導讀】供充足的信息和快捷的查詢手段。但一直以來人們使用傳統人工的方式管理文件。生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。識,它已進入人類社會的各個領域并發揮著越來越重要的作用。好、壽命長、成本低等。這些優點能夠極大地提高人事管理的效率,也是酒店的。科學化、正規化管理,與世界接軌的重要條件。臺數據庫的建立和維護以及前端應用程序的開發兩個方面。數據一致性和完整性強、數據安全性好的庫。備,易使用等特點。求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。整個系統從符合操作簡便、界面友好、靈活、實用、安全的要求出發。論文主要介紹了本課題的開發背景，所要完成的功能和開發的過程。明了系統設計的重點、設計思想、難點技術和解決方案。

　　

【正文】 第 31 頁 If Then MsgBox 密碼不正確 !, vbInformation i = i + 1 If i = 5 Then End End If Exit Sub Else DLYongHuMing = (用戶名 ).Value DLQuanXian = (權限 ).Value If (權限 ).Value = 管理員 Then QuanXian = (管理員 ) End If If (權限 ).Value = 操作員 Then QuanXian = (操作員 ) 主窗體 . = False 主窗體 . = False End If If (權限 ).Value = 一般用戶 Then QuanXian = (一般用戶 ) 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 32 酒店人事工資管理系統 第 32 頁 主窗體 . = 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 酒店人事工資管理系統 第 33 頁 = ( ) / 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 控制由“用戶登錄”界面控制。 Dim Cmdsize As Integer 39。按鈕位置變化標志參數 Private Sub Command1_Click() Cmdsize = 1 If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If 34 酒店人事工資管理系統 第 34 頁 = 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 酒店人事工資管理系統 第 35 頁 = 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 酒店人事工資管理系統 第 36 頁 = 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 酒店人事工資管理系統 第 37 頁 = 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 酒店人事工資管理系統 第 38 頁 YesNo = MsgBox(真的要退出酒店人事工資管理系統嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me 結束界面 .Show Else Cancel = 1 End If End Sub Private Sub Men_Bjgzxx_Click() 編輯工資信息 .Width = 11340 編輯工資信息 .Height = 8685 編輯工資信息 .Show 編輯工資信息 .SetFocus (1).Text = 狀態：編輯工資信息 amp。 QuanXian End Sub Private Sub Men_Bjkqxx_Click() 編輯考勤信息 .Height = 8685 編輯考勤信息 .Width = 10290 編輯考勤信息 .Show 編輯考勤信息 .SetFocus (1).Text = 狀態：編輯考勤信息 amp。 QuanXian End Sub Private Sub Men_Dlrz_Click() 登陸日志 .Height = 4650 39 酒店人事工資管理系統 第 39 頁 登陸日志 .Width = 4350 登陸日志 .Show 登陸日志 .SetFocus (1).Text = 狀態：登陸日志 amp。 QuanXian End Sub Private Sub Men_Llbmxx_Click() 瀏覽部門信息 .Height = 5715 瀏覽部門信息 .Width = 7510 瀏覽部門信息 .Show 瀏覽部門信息 .SetFocus (1).Text = 狀態：瀏覽部門信息 amp。 QuanXian End Sub Private Sub Men_Llgzxx_Click() 瀏覽工資信息 .Height = 7170 瀏覽工資信息 .Width = 12070 瀏覽工資信息 .Show 瀏覽工資信息 .SetFocus (1).Text =