酒店人事工資管理系統—畢業設計論文-wenkub.com

　 　

【正文】 QuanXian End Sub Private Sub Men_Dlrz_Click() 登陸日志 .Height = 4650 39 酒店人事工資管理系統 第 39 頁 登陸日志 .Width = 4350 登陸日志 .Show 登陸日志 .SetFocus (1).Text = 狀態：登陸日志 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) Else SQL = select * from 口令信息 where 用戶名 =39。 amp。 amp。 or 密碼 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用戶名 =39。 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 Else SQL = select * from 口令信息 where 用戶名 =39。 SQL = SQL amp。 ,39。 amp。 Time amp。 39。 values ( SQL = SQL amp。 ,登陸時間 SQL = SQL amp。數據存儲 Dim SQL As String SQL = SQL = insert into 登陸日志 amp。在此系統中只從軟盤中恢復數據庫文件。能對所有用戶進行用戶名、密碼、權限修改，不但能更改而且還能進行用戶添加和刪除。當一般 用戶和操作員進入時，菜單欄中無該項。 27 酒店人事工資管理系統 第 27 頁 2瀏覽工資信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。 26 酒店人事工資管理系統 第 26 頁 2瀏覽 考勤 信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。 2瀏覽職工信息 此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權限。并能從此窗體中了解各部門現有人數，這是在編輯部門信息中無法獲得的信息。 amp。 Trim() amp。 39。 If Then DelSQL = DelSQL amp。 and 部門編號 =39。恢復當前各個輸入框的值 = FBmmc = FBz End Sub (4)數據刪 除 當操作員需要對某個或多個部門進行刪除時，可以在編輯部門信息窗體下部中找到刪除按鈕。 order by 部門編號 asc 39。 修改信息代碼： Private Sub DataFresh(SQL As String) 39。39。 amp。 Trim() amp。 39。數據查找 Dim M As Integer Dim SQL As String SQL = If Then SQL = SQL amp。清除表格控件最左邊的選定當前行標志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。寫入表頭標題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。再 點擊添加按鈕，用戶可再次添部門信息記錄。 在此界面中對用戶的權限進行了設置，若是以一般用戶登錄時只能修改自己的密碼且只能瀏覽所有的人事管理信息，以管理員身份進入時可以對所有一般用戶的密碼進行設置，還可刪除一般用戶！能對人事信息進行編輯刪除，修改等操作 具體精彩代碼如下： 16 酒店人事工資管理系統 第 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 酒店人事工資管理系統 第 17 頁 = True = True = True = True End If = 0 = = * 2 = * 3 End Sub 1編輯部門信息 作為編輯部門信息這一項，所實現的功能是對公司各部門資料信息的存儲與編輯，部門信息包 括：部門編號（兩位）、部門名稱、備注。登錄者是操作員可 以使用所有對數據的編輯功能，而如果登錄者是一般用戶時只能利用系統進行資料查詢功能。定義記錄集變量 If = 1 Then ‘判斷當前表的狀態是否打開，是則關閉 SQL, Cnndb, 3, 2 ‘打開當前表 用戶登錄模塊設計 設計思路 每個用戶登錄系統都須經過身份驗證。data source = amp。因此，在設計時，我選擇使用ADO 來控制管理數據庫。登陸系統時對用戶的請求進行身份驗證，經驗證合法后允許用戶登陸系統，進行相應權限 對數據的處理，本系統能對用戶進行管理，能進行數據庫備份和恢復，確保數據的安全。 *對其提供的人職工資資料情況進行添加、計算、查詢、修改和刪除操作，并可按工資月份進行分類。 9 酒店人事工資管理系統 第 9 頁 系統設計 系統功能分析