【正文】 是否管理員 是否錄入數(shù)據(jù) 是否修改數(shù)據(jù) 錄入數(shù)據(jù) 修改數(shù)據(jù) 是否進行 查詢 輸入查詢條件 是否刪除數(shù)據(jù) 刪除數(shù)據(jù) 退出系統(tǒng) 12 酒店人事工資管理系統(tǒng) 第 12 頁 、數(shù)據(jù)庫設(shè)計 在 Access 2021 數(shù)據(jù)庫中創(chuàng)建表 ： 根據(jù)設(shè)計要求，需要 5 個數(shù)據(jù)表：部門基本情況表 、 職工基本信息表 、 職工考勤信息表 、 職工工資信息表 、 口令信息表。因此，在設(shè)計時，我選擇使用ADO 來控制管理數(shù)據(jù)庫。 部分有關(guān)代碼如下： Dim rc As New 39。data source = amp。 \酒店人事工資管理系統(tǒng) .mdb 39。定義記錄集變量 If = 1 Then ‘判斷當前表的狀態(tài)是否打開，是則關(guān)閉 SQL, Cnndb, 3, 2 ‘打開當前表 用戶登錄模塊設(shè)計 設(shè)計思路 每個用戶登錄系統(tǒng)都須經(jīng)過身份驗證。因為在系統(tǒng)設(shè)置中已經(jīng)對系統(tǒng)使用權(quán)限進行了規(guī)定，所以，在用戶登錄的同時也決定了用戶對系統(tǒng)使用的權(quán)限。登錄者是操作員可 以使用所有對數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時只能利用系統(tǒng)進行資料查詢功能。用戶登錄到系統(tǒng)后進入的就是該界面，所有功能一目了然。 在此界面中對用戶的權(quán)限進行了設(shè)置，若是以一般用戶登錄時只能修改自己的密碼且只能瀏覽所有的人事管理信息，以管理員身份進入時可以對所有一般用戶的密碼進行設(shè)置，還可刪除一般用戶！能對人事信息進行編輯刪除，修改等操作 具體精彩代碼如下： 16 酒店人事工資管理系統(tǒng) 第 16 頁 Private Sub Command4_Click() Cmdsize = 4 = False = False = False = False = False = False = False = False = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else 17 酒店人事工資管理系統(tǒng) 第 17 頁 = True = True = True = True End If = 0 = = * 2 = * 3 End Sub 1編輯部門信息 作為編輯部門信息這一項，所實現(xiàn)的功能是對公司各部門資料信息的存儲與編輯，部門信息包 括：部門編號（兩位）、部門名稱、備注。作為部門信息與職工信息有著密切的關(guān)系，每一名職工都從屬一個部門。再 點擊添加按鈕，用戶可再次添部門信息記錄。進行數(shù)據(jù)表格控件的更新 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。寫入表頭標題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。向表格控件輸入數(shù)據(jù) PrintSQL = SQL If = 1 Then 19 酒店人事工資管理系統(tǒng) 第 19 頁 SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 = j = amp。清除表格控件最左邊的選定當前行標志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。先在對應(yīng)的文本框中輸入要進行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點擊查詢按鈕進行確定，系統(tǒng)便會查詢出滿足條件的部門記錄，并列到數(shù)據(jù)表格中，無滿足條件的部門記錄時，則彈出對話框提示“查無此記錄！”。數(shù)據(jù)查找 Dim M As Integer Dim SQL As String SQL = If Then SQL = SQL amp。 amp。 39。 and 部門名稱 =39。 Trim() amp。 If Then SQL = SQL amp。 amp。 39。39。 SQL If = 1 Then SQL, Cnndb, 3, 2 If Then M = MsgBox(查無此記錄 , vbInformation) Exit Sub End If Call DataFresh(SQL) End If End Sub (3)數(shù)據(jù)修改 當操作員需要對某個部門進行修改時，可以在編輯部門信息窗體下部中找到修改按鈕。 修改信息代碼： Private Sub DataFresh(SQL As String) 39。保存當前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 order by 部門編號 asc 39。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。恢復(fù)當前各個輸入框的值 = FBmmc = FBz End Sub (4)數(shù)據(jù)刪 除 當操作員需要對某個或多個部門進行刪除時，可以在編輯部門信息窗體下部中找到刪除按鈕。 23 酒店人事工資管理系統(tǒng) 第 23 頁 刪除數(shù)據(jù)代碼： Private Sub DataDel() 39。 and 部門編號 =39。 Trim() amp。 If Then DelSQL = DelSQL amp。 amp。 39。 and 備注 =39。 Trim() amp。 If DelSQL Then DelSQL = delete from 部門基本情況 where 部門編號 39。 amp。 在下面各界面設(shè)置操作與上相同不再重復(fù)說明。并能從此窗體中了解各部門現(xiàn)有人數(shù)，這是在編輯部門信息中無法獲得的信息。職工編號具有唯一性，不能重復(fù)。 2瀏覽職工信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。 1編輯考勤信息 作為編輯考勤信息這一項，所實現(xiàn)的功能是對公司職工考勤資料信息的存儲與編輯，方 便對職工工作的考察。 26 酒店人事工資管理系統(tǒng) 第 26 頁 2瀏覽 考勤 信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。 1編輯工資信息 作為編輯工資信息這一項，所實現(xiàn)的功能是對公司職工工資信息的存儲、計算與編輯，方便對職工工資的管理。 27 酒店人事工資管理系統(tǒng) 第 27 頁 2瀏覽工資信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。 系統(tǒng)維護 系統(tǒng)維護選項里包括密碼設(shè)置、用戶管理、數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)四個選項。當一般 用戶和操作員進入時，菜單欄中無該項。一進入此窗體便會顯示此用戶名，在舊密碼框中輸入原始密碼，在新密碼框中輸入想更改的新密碼，再在密碼確定中進行新密碼確認，按更改按鈕便可修改用戶密碼。能對所有用戶進行用戶名、密碼、權(quán)限修改，不但能更改而且還能進行用戶添加和刪除。在此系統(tǒng)中只把數(shù)據(jù)庫備份到軟盤中。在此系統(tǒng)中只從軟盤中恢復(fù)數(shù)據(jù)庫文件。定義記錄集變量 Dim i As Integer 39。數(shù)據(jù)存儲 Dim SQL As String SQL = SQL = insert into 登陸日志 amp。 ( SQL = SQL amp。 ,登陸時間 SQL = SQL amp。 ,權(quán)限 SQL = SQL amp。 values ( SQL = SQL amp。 amp。 39。 ,39。 Time amp。 SQL = SQL amp。 amp。 39。 ,39。 DLQuanXian amp。 SQL = SQL amp。數(shù)據(jù)查找 Dim SQL As String If = Then 30 酒店人事工資管理系統(tǒng) 第 30 頁 SQL = select * from 口令信息 where 用戶名 =39。 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。 or 用戶名 is null) and (密碼 = 39。 or 密碼 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用戶名 =39。 or 用戶名 is