酒店人事工資管理系統—畢業設計論文-免費閱讀

　　

【正文】 按鈕位置變化標志參數 Private Sub Command1_Click() Cmdsize = 1 If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If 34 酒店人事工資管理系統 第 34 頁 = False = False = False = False = False = False = False = False = False = False = False = False = 0 = = = * 2 End Sub Private Sub Command2_Click() Cmdsize = 2 = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False 35 酒店人事工資管理系統 第 35 頁 = True Else = True = True = True = True End If = False = False = False = False = False = False = False = False = 0 = = = End Sub Private Sub Command3_Click() Cmdsize = 3 = False = False = False = False = False = False = False 36 酒店人事工資管理系統 第 36 頁 = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If = False = False = False = False = 0 = = * 2 = End Sub Private Sub Command4_Click() Cmdsize = 4 = False = False = False = False 37 酒店人事工資管理系統 第 37 頁 = False = False = False = False = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else = True = True = True = True End If = 0 = = * 2 = * 3 End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single 38 酒店人事工資管理系統 第 38 頁 YesNo = MsgBox(真的要退出酒店人事工資管理系統嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me 結束界面 .Show Else Cancel = 1 End If End Sub Private Sub Men_Bjgzxx_Click() 編輯工資信息 .Width = 11340 編輯工資信息 .Height = 8685 編輯工資信息 .Show 編輯工資信息 .SetFocus (1).Text = 狀態：編輯工資信息 amp。 amp。 ElseIf TxtYhm And TxtMm = Then SQL = select * from 口令信息 where 用戶名 =39。 or 用戶名 is null) and (密碼 = 39。數據查找 Dim SQL As String If = Then 30 酒店人事工資管理系統 第 30 頁 SQL = select * from 口令信息 where 用戶名 =39。 39。 ,39。 ,權限 SQL = SQL amp。定義記錄集變量 Dim i As Integer 39。一進入此窗體便會顯示此用戶名，在舊密碼框中輸入原始密碼，在新密碼框中輸入想更改的新密碼，再在密碼確定中進行新密碼確認，按更改按鈕便可修改用戶密碼。 1編輯工資信息 作為編輯工資信息這一項，所實現的功能是對公司職工工資信息的存儲、計算與編輯，方便對職工工資的管理。職工編號具有唯一性，不能重復。 If DelSQL Then DelSQL = delete from 部門基本情況 where 部門編號 39。 amp。 23 酒店人事工資管理系統 第 23 頁 刪除數據代碼： Private Sub DataDel() 39。保存當前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 39。 and 部門名稱 =39。先在對應的文本框中輸入要進行數據查詢的條件，輸入完查詢條件后，點擊查詢按鈕進行確定，系統便會查詢出滿足條件的部門記錄，并列到數據表格中，無滿足條件的部門記錄時，則彈出對話框提示“查無此記錄！”。進行數據表格控件的更新 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。用戶登錄到系統后進入的就是該界面，所有功能一目了然。 \酒店人事工資管理系統 .mdb 39。 用戶登陸 是否管理員 是否錄入數據 是否修改數據 錄入數據 修改數據 是否進行 查詢 輸入查詢條件 是否刪除數據 刪除數據 退出系統 12 酒店人事工資管理系統 第 12 頁 、數據庫設計 在 Access 2021 數據庫中創建表 ： 根據設計要求，需要 5 個數據表：部門基本情況表 、 職工基本信息表 、 職工考勤信息表 、 職工工資信息表 、 口令信息表。 *對其提供的人員資料情況進行添加、查詢、修改和刪除操作。 本次的開發內容 —— 酒店人事工資管理系統就是信息管理與現代化辦公設備相結合的例子。 *對其提供的人員資料情況進行添加、查詢、修改和刪除操作。 本次的開發內容 —— 酒店人事工資管理系統就是信息管理與現代化辦公設備相結合的例子。 Visual Basic作為應用程序的開發 “ 利器 ” 也表現在數據庫應用程序的開發上，它良好的界面和強大的控件功能使數據庫編程變得簡單多了。 論文主要介紹了本課題的開發背景，所要完成的功能和開發的過程。 作為計算機應用的一部分 ,使用計算機對人事信息進行管理 ,具有著手工管理所無法比擬的優點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高人事管理的效率 ,也是酒店的科學化、正規化管理 ,與世界接軌的重要條件。重點的說明了系統設計的重點、設計思想、難點技術和解決方案。 Visual Basic 提供了強有力的數據庫存取能力，將 Windows 的各種先進特性與強大的數據庫管理功能有機地結合在一起。開發本系統希望使人事管理人員可以從年復一年的輸入、計算、統計等工作中解脫出來，由于人事方面的數據眾多，輸入、統計極為不便，輸入量大，計算量大。 *對其提供的人員考勤資料情況進行添加、查詢、修改和刪除 操作，并可按考勤月份進行分類。開發本系統希望使人事管理人員可以從年復一年的輸入、計算、統計等工作中解脫出來，由于人事方面的數據眾多，輸入、統計極為不便，輸入量大，計算量大。 *對其提供的人員考勤資料情況進行添加、查詢、修改和刪除操作，并可按考勤月份進行分類 。這 5 個數據表的結構如下各表： (1)部門基本情況表 字段名稱 數據類型 長度 主鍵 允許空 部門編號 文本 6 True 否 部門 名稱 文本 30 是 備注 文本 255 是 (2)職工基本信息表 字段名稱 數據類型 長度 主鍵 允許空 職工編號 文本 6 否 職工姓名 文本 10 否 性別 文本 2 是 出生日期 日期 /時間 短日期 否 民族 文本 10 是 政治面貌 文本 10 是 最后學歷 文本 10 是 所學專業 文本 20 是 聯系電話 文本 20 是 畢業學校 文本 30 是 籍貫 文本 50 是 家庭住址 文本 50 是 進入公司時間 日期 /時間 短日期 否 部門名稱 文本 30 是