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