酒店人事工資管理系統(tǒng)—免費畢業(yè)設(shè)計論文-免費閱讀

　　

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