酒店人事工資管理系統—免費畢業設計論文(完整版)

　　

【正文】 主窗體 . = 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 控制由“用戶登錄”界面控制。 or 密碼 is null) Else SQL = select * from 口令信息 where 用戶名 =39。 amp。 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 If = And = Then SQL = select * from 口令信息 where (用戶名 =39。 SQL = SQL amp。 amp。 39。 ,登陸時間 SQL = SQL amp。在此系統中只從軟盤中恢復數據庫文件。當一般 用戶和操作員進入時，菜單欄中無該項。 26 酒店人事工資管理系統 第 26 頁 2瀏覽 考勤 信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。并能從此窗體中了解各部門現有人數，這是在編輯部門信息中無法獲得的信息。 Trim() amp。 If Then DelSQL = DelSQL amp。恢復當前各個輸入框的值 = FBmmc = FBz End Sub (4)數據刪 除 當操作員需要對某個或多個部門進行刪除時，可以在編輯部門信息窗體下部中找到刪除按鈕。 修改信息代碼： Private Sub DataFresh(SQL As String) 39。 amp。 39。清除表格控件最左邊的選定當前行標志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。再 點擊添加按鈕，用戶可再次添部門信息記錄。登錄者是操作員可 以使用所有對數據的編輯功能，而如果登錄者是一般用戶時只能利用系統進行資料查詢功能。data source = amp。登陸系統時對用戶的請求進行身份驗證，經驗證合法后允許用戶登陸系統，進行相應權限 對數據的處理，本系統能對用戶進行管理，能進行數據庫備份和恢復，確保數據的安全。 9 酒店人事工資管理系統 第 9 頁 系統設計 系統功能分析 *按不同權限登錄系統。通過這樣的管理方式，酒店的管理人員、技術人員、統計人員等各部門職工就能從大量 煩瑣的資料和數據中解脫出來，只需對自己需要的數據和內容進行必須的處理，而不用對每個環節都了如指掌。 7 酒店人事工資管理系統 第 7 頁 、系統功能分析 熱網管理系統主要有以下幾項功能要求： *按不同權限登錄系統。通過這樣的管理方式，酒店的管理人員、技術人員、統計人員等各部門職 工就能從大量煩瑣的資料和數據中解脫出來，只需對自己需要的數據和內容進行必須的處理，而不用對每個環節都了如指掌。 作為 Microsoft 的 office 套件產品之一 ,Access 已經賣出了近 700 萬份 ,成為世界上最流行的桌面數據庫系統。 經過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開發工具 ,利用其提供的各種面向對象的開發工具 ,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象 ,首先在短時間內建立系統應用原型 ,然后 ,對初始原型系統進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統。但一直以來人們使用傳統人工的方式管理文件信息，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產生大量的文件和數據 ,這 對于查找、更新和維護都帶來了不少的困難。 摘要 酒店人事工資管理系統是典型的信息管理系統 (MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。數據庫技術是計算機應用技術中的一個重要組成部分，對于大量的數據，使用數據庫來存儲管理將比通過文件來存儲管理更高效。本系統使用 Access 2021 作為后臺數據庫，利用 Visual Basic 提供的數據庫開發平臺開發前臺部分。本系統 一次錄入信息后，就可以反復多次在不同的 信息庫中使用。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。本系統 一次錄入信息后，就可以反復多次在不同的信息庫中使用 。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。 在程序模塊中定義記錄集，并在各個窗體中定義記錄集變量，使輸入數據能與數據庫連接，并都用程序進行控制，這樣不用數據控件都用代碼控制大大提高了程序運行效率。只有用戶名和密碼相對應才能進入系統。部門編號與部門名稱都具有唯一性，不能重復。 order by 部門編號 asc 39。 and 部門編號 =39。 39。 amp。向表格控件輸入數據 PrintSQL = SQL If = 1 Then SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 22 酒店人事工資管理系統 第 22 頁 = j = amp。 amp。 If Then DelSQL = DelSQL amp。 DelSQL (DelSQL) Call DataFresh( select * from 部門基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門基本情況 ) End If End If 24 酒店人事工資管理系統 第 24 頁 End Sub (5)清空 清空按鈕的作用可使所有文本框清空，方便用戶進行其它操作。并能根據部門名稱、出生日期、來到公司工作的時間進行職工信息查詢。并能根據部門名稱、 工資計發 日期進行職工 工資 信息查詢。 3 數據備份 數據備 份就是復制數據庫的數據文件到其他地方，一面在數據庫遇到意外破壞的時候能夠恢復數據庫，從而減少破壞造成的損失。 Space$(1) SQL = SQL amp。 39。 39。 amp。 amp。39。 39。 amp。 QuanXian End Sub Private Sub Men_Llbmxx_Click() 瀏覽部門信息 .Height = 5715 瀏覽部門信息 .Width = 7510 瀏覽部門信息 .Show 瀏覽部門信息 .SetFocus (1).Text = 狀態：瀏覽部門信息 amp。 39。39。 amp。 39。 39。 ,39。 Date amp。 登陸日期 SQL = SQL amp。 圖 4 數據恢復 數據恢復就是將數據庫備份文件復制到當前數據庫上，一面在數據庫遇到意外破壞的時候能夠恢復數據庫，從而減少破壞造成的損失。用戶管理功能只對管理員開放，管理員能在用戶管理窗體中添加新的用戶，對已有的用戶進行用戶名和密碼修改，或者將原有用戶刪除。對職工進行按月考勤，考核職工出勤、加班、遲到和早退等一些信息。 清空輸入信息代碼： Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。 amp。 39。清除表格控件最左邊的選定當前行標志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。由于修改記錄不可能在大量的數據中盲目的尋找，因此數據修改應該與數據添加按鈕結合使用，先用查詢功能進行對要修改記錄的搜索，再在數據表格中選中要修改的部門記錄，便把21 酒店人事工資管理系統 第 21 頁 此部門記錄讀入文本框中，只需在文本框中直接進行數據修改便可，修改完后按修