【正文】 。 39。 SQL = SQL amp。 amp。 End If If = 1 Then SQL, Cnndb, 3, 2 31 酒店人事工資管理系統(tǒng) 第 31 頁 If Then MsgBox 密碼不正確 !, vbInformation i = i + 1 If i = 5 Then End End If Exit Sub Else DLYongHuMing = (用戶名 ).Value DLQuanXian = (權(quán)限 ).Value If (權(quán)限 ).Value = 管理員 Then QuanXian = (管理員 ) End If If (權(quán)限 ).Value = 操作員 Then QuanXian = (操作員 ) 主窗體 . = False 主窗體 . = False End If If (權(quán)限 ).Value = 一般用戶 Then QuanXian = (一般用戶 ) 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 主窗體 . = False 32 酒店人事工資管理系統(tǒng) 第 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 酒店人事工資管理系統(tǒng) 第 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 控制由“用戶登錄”界面控制。 and 密碼 =39。 or 密碼 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用戶名 =39。 ,39。 values ( SQL = SQL amp。能對所有用戶進(jìn)行用戶名、密碼、權(quán)限修改，不但能更改而且還能進(jìn)行用戶添加和刪除。 2瀏覽職工信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。 39。 order by 部門編號 asc 39。 Trim() amp。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。定義記錄集變量 If = 1 Then ‘判斷當(dāng)前表的狀態(tài)是否打開，是則關(guān)閉 SQL, Cnndb, 3, 2 ‘打開當(dāng)前表 用戶登錄模塊設(shè)計 設(shè)計思路 每個用戶登錄系統(tǒng)都須經(jīng)過身份驗證。 *對其提供的人職工資資料情況進(jìn)行添加、計算、查詢、修改和刪除操作，并可按工資月份進(jìn)行分類。 *對其提供的職工資資料情況進(jìn)行添加、計算、查詢、修改和刪除操作，并可按工資月份進(jìn)行分類。 本次畢業(yè)設(shè)計 —— 酒店人事工資管理系統(tǒng)是運用 ADO 技術(shù)設(shè)計開發(fā)的，使用大量地 SQL 語句進(jìn)行添加、查詢、刪除等操作。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中我們將以開發(fā)一套酒店人事工資管 理系統(tǒng)為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)。這在一定程度上能夠節(jié)省人力物力，同時也大大加強了對數(shù)據(jù)處理的及時性和準(zhǔn)確性。這在一定程度上能夠節(jié)省人力物力，同時也大大加強了對數(shù)據(jù)處理的及時性和準(zhǔn)確性。本次設(shè)計選擇了 Access 2021 作為后臺數(shù)據(jù)庫，利用 Visual Basic 6 提供的數(shù)據(jù)庫開發(fā)平臺開發(fā)前臺部分。 根據(jù)系統(tǒng)模塊結(jié)構(gòu)，建立系統(tǒng)主界面?；謴?fù)當(dāng)前各個輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁 (2)數(shù)據(jù)查詢 當(dāng)操作員需要對某個部門進(jìn)行查詢時，可以在編輯部門信息窗體下部中找到查詢按鈕。 Trim() amp。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的部門記錄，并提示是否刪除滿足條件的全部部門記錄，也可以一條一條刪除部門記錄，只要在數(shù)據(jù)表格中選中要刪除的部門記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。 39。并能根據(jù)部門名稱、考勤日期進(jìn)行職工考勤信息查詢。 圖 29 酒店人事工資管理系統(tǒng) 第 29 頁 源代碼： 1 用戶登陸 Dim rc As New 39。 SQL = SQL amp。 ) (SQL) End Sub Private Sub DataFind() 39。 39。 Dim Cmdsize As Integer 39。 39。39。 SQL = SQL amp。 ) SQL = SQL amp。 2 用戶管理 28 酒店人事工資管理系統(tǒng) 第 28 頁 該功能只針對管理員有效，用于對所有權(quán)限用戶口令的管理。在此窗體中輸入的信息都進(jìn)過合法性檢測，判斷職工編號是否出現(xiàn)重復(fù)，位數(shù)是否為 6 位（前兩位為部門編號，后四位為職工自25 酒店人事工資管理系統(tǒng) 第 25 頁 身編號）等。 Trim() amp。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。 amp。保存當(dāng)前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。確定數(shù)據(jù)庫位置 Dim rc As New 39。 *對其提供的人員考勤資料情況進(jìn)行添加、查詢、修改和刪除操作，并可按考勤月份進(jìn)行分類 。 *對其提供的人員考勤資料情況進(jìn)行添加、查詢、修改和刪除 操作，并可按考勤月份進(jìn)行分類。 Visual Basic 提供了強有力的數(shù)據(jù)庫存取能力，將 Windows 的各種先進(jìn)特性與強大的數(shù)據(jù)庫管理功能有機地結(jié)合在一起。這些優(yōu)點能夠極大地提高人事管理的效率 ,也是酒店的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。 論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。 本次的開發(fā)內(nèi)容 —— 酒店人事工資管理系統(tǒng)就是信息管理與現(xiàn)代化辦公設(shè)備相結(jié)合的例子。 本次的開發(fā)內(nèi)容 —— 酒店人事工資管理系統(tǒng)就是信息管理與現(xiàn)代化辦公設(shè)備相結(jié)合的例子。 用戶登陸 是否管理員 是否錄入數(shù)據(jù) 是否修改數(shù)據(jù) 錄入數(shù)據(jù) 修改數(shù)據(jù) 是否進(jìn)行 查詢 輸入查詢條件 是否刪 除數(shù)據(jù) 刪除數(shù)據(jù) 退出系統(tǒng) 12 酒店人事工資管理系統(tǒng) 第 12 頁 、數(shù)據(jù)庫設(shè)計 在 Access 2021 數(shù)據(jù)庫中創(chuàng)建表 ： 根據(jù)設(shè)計要求，需要 5 個數(shù)據(jù)表：部門基本情況表 、 職工基本信息表 、 職工考勤信息表 、 職工工資信息表 、 口令信息表。用戶登錄到系統(tǒng)后進(jìn)入的就是該界面，所有功能一目了然。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的部門記錄，并列到數(shù)據(jù)表格中，無滿足條件的部門記錄時，則彈出對話框提示“查無此記錄！”。 39。 23 酒店人事工資管理系統(tǒng) 第 23 頁 刪除數(shù)據(jù)代碼： Private Sub DataDel() 39。 If DelSQL Then DelSQL = delete from 部門基本情況 where 部門編號 39。 1編輯工資信息 作為編輯工資信息這一項，所實現(xiàn)的功能是對公司職工工資信息的存儲、計算與編輯，方便對職工工資的管理。定義記錄集變量 Dim i As Integer 39。 ,39。數(shù)據(jù)查找 Dim SQL As String If = Then 30 酒店人事工資管理系統(tǒng) 第 30 頁 SQL = select * from 口令信息 where 用戶名 =39。 ElseIf TxtYhm A