酒店人事工資管理系統—畢業(yè)設計論文(文件)

　

【正文】 能重復。 添加代碼設置如下： Private Sub DataFresh(SQL As String) 39。 order by 部門編號 asc 39。恢復當前各個輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統 第 20 頁 (2)數據查詢 當操作員需要對某個部門進行查詢時，可以在編輯部門信息窗體下部中找到查詢按鈕。 and 部門編號 =39。 If Then SQL = SQL amp。 39。 Trim() amp。 amp。進行數據表格控件的修改 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。向表格控件輸入數據 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。 and 部門名稱 =39。 If Then DelSQL = DelSQL amp。 39。 DelSQL (DelSQL) Call DataFresh( select * from 部門基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門基本情況 ) End If End If 24 酒店人事工資管理系統 第 24 頁 End Sub (5)清空 清空按鈕的作用可使所有文本框清空，方便用戶進行其它操作。 1編輯職工信息 作為編輯職工信息這一項，所實現的功能是對 公司職工資料信息的存儲與編輯，方便對職工的分類與管理。并能根據部門名稱、出生日期、來到公司工作的時間進行職工信息查詢。并能根據部門名稱、考勤日期進行職工考勤信息查詢。并能根據部門名稱、 工資計發(fā) 日期進行職工 工資 信息查詢。 1 密碼設置 該界面比較簡單，能讓登陸的用戶修改自己的密碼，但不能更改用戶名，此項對所有權限的用戶都適用。 3 數據備份 數據備 份就是復制數據庫的數據文件到其他地方，一面在數據庫遇到意外破壞的時候能夠恢復數據庫，從而減少破壞造成的損失。 圖 29 酒店人事工資管理系統 第 29 頁 源代碼： 1 用戶登陸 Dim rc As New 39。 Space$(1) SQL = SQL amp。 ,用戶名 SQL = SQL amp。 39。 SQL = SQL amp。 39。 DLYongHuMing amp。 amp。 ) (SQL) End Sub Private Sub DataFind() 39。 amp。39。39。 39。 39。 amp。 amp。 Dim Cmdsize As Integer 39。 QuanXian End Sub Private Sub Men_Llbmxx_Click() 瀏覽部門信息 .Height = 5715 瀏覽部門信息 .Width = 7510 瀏覽部門信息 .Show 瀏覽部門信息 .SetFocus (1).Text = 狀態(tài)：瀏覽部門信息 amp。 QuanXian End Sub Private Sub Men_Bjkqxx_Click() 編輯考勤信息 .Height = 8685 編輯考勤信息 .Width = 10290 編輯考勤信息 .Show 編輯考勤信息 .SetFocus (1).Text = 狀態(tài)：編輯考勤信息 amp。 39。 39。39。 amp。 amp。39。 39。39。 39。 SQL = SQL amp。 ,39。 amp。 Date amp。 ) SQL = SQL amp。 登陸日期 SQL = SQL amp。檢測輸入口令的次數 Dim DLYongHuMing As String Dim DLQuanXian As String Private Sub DataSave() 39。 圖 4 數據恢復 數據恢復就是將數據庫備份文件復制到當前數據庫上，一面在數據庫遇到意外破壞的時候能夠恢復數據庫，從而減少破壞造成的損失。 2 用戶管理 28 酒店人事工資管理系統 第 28 頁 該功能只針對管理員有效，用于對所有權限用戶口令的管理。用戶管理功能只對管理員開放，管理員能在用戶管理窗體中添加新的用戶，對已有的用戶進行用戶名和密碼修改，或者將原有用戶刪除。對職工 工資進行按月分組，計算職工各種工資項目和個人所得稅款等一些信息。對職工進行按月考勤，考核職工出勤、加班、遲到和早退等一些信息。在此窗體中輸入的信息都進過合法性檢測，判斷職工編號是否出現重復，位數是否為 6 位（前兩位為部門編號，后四位為職工自25 酒店人事工資管理系統 第 25 頁 身編號）等。 清空輸入信息代碼： Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。39。 amp。 Trim() amp。 39。數據刪除 Dim DelSQL As String Dim YesNo As Integer Dim SQL As String SQL = select * from 部門基本情況 If = 1 Then SQL, Cnndb, 3, 2 If 0 Then YesNo = MsgBox(真的要刪除表格里滿足條件的所有記錄嗎？ , vbYesNo + vbQuestion) If YesNo = vbYes Then DelSQL = If Then DelSQL = DelSQL amp。清除表格控件最左邊的選定當前行標志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。寫入表頭標題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。由于修改記錄不可能在大量的數據中盲目的尋找，因此數據修改應該與數據添加按鈕結合使用，先用查詢功能進行對要修改記錄的搜索，再在數據表格中選中要修改的部門記錄，便把21 酒店人事工資管理系統 第 21 頁 此部門記錄讀入文本框中，只需在文本框中直接進行數據修改便可，修改完后按修改按鈕進行確定，系統并對修改后的數據進行合法性檢測，合法則修改成功。 If SQL Then SQL = select * from 部門基本情況 where 部門編號 39。 and 備注 =39。 amp。 Trim() amp。 查詢代碼： Private Sub DataFind() 39。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。保存當前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 18 酒店人事工資管理系統 第 18 頁 (1)數據添加 當操作員進入系統，根據設計要求，需要添加新的 部門信息 時，在編輯部門信息窗體上按添加按鈕，便進入添加狀態(tài)，文本框自動清空，添加按鈕變?yōu)榇_定按鈕，光標會停留在部門編號文本框上，此時系統已自動生成一個新的部門編號，只需輸入部門名稱和備注信息即可完成部門信息編輯操作，在按窗體上的確定按鈕即可檢查該部門信息是否合法并存入數據庫，否則按取消按鈕。當不同權限的用戶登錄到該界面時功能有所不同，其控制由“用戶登錄”界面控制。當登錄者是管理員身份時，他可以使用系統提供的所有功能，并能對所有用戶15 酒店人事工資管理系統 第 15 頁 進行管理。確定數據庫位置 Dim rc As New 39。定義記錄集變量 provider=。這 5 個數據表的結構如下各表： (1)部門基本情況表 字段名稱 數據類型 長度 主鍵 允許空 部門編號 文本 6 True 否 部門 名稱 文本 30 是 備注 文本 255 是 (2)職工基本信息表 字段名稱 數據類型 長度 主鍵 允許空 職工編號 文本 6 否 職工姓名 文本 10 否 性別 文本 2 是 出生日期 日期 /時間 短日期 否 民族 文本 10 是 政治面貌 文本 10 是 最后學歷 文本 10 是 所學專業(yè) 文本 20 是 聯系電話 文本 20 是 畢業(yè)學校 文本 30 是 籍貫 文本 50 是 家庭住址 文本 50 是 進入公司時間 日期 /時間 短日期 否 部門名稱