酒店人事工資管理系統—畢業設計論文(留存版)

　　

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