酒店人事工資管理系統(tǒng)—畢業(yè)設(shè)計(jì)論文(完整版)

　　

【正文】 主窗體 . = 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 控制由“用戶登錄”界面控制。 or 密碼 is null) Else SQL = select * from 口令信息 where 用戶名 =39。 amp。 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。 SQL = SQL amp。 amp。 39。 ,登陸時(shí)間 SQL = SQL amp。在此系統(tǒng)中只從軟盤中恢復(fù)數(shù)據(jù)庫文件。當(dāng)一般 用戶和操作員進(jìn)入時(shí)，菜單欄中無該項(xiàng)。 26 酒店人事工資管理系統(tǒng) 第 26 頁 2瀏覽 考勤 信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。并能從此窗體中了解各部門現(xiàn)有人數(shù)，這是在編輯部門信息中無法獲得的信息。 Trim() amp。 If Then DelSQL = DelSQL amp。恢復(fù)當(dāng)前各個(gè)輸入框的值 = FBmmc = FBz End Sub (4)數(shù)據(jù)刪 除 當(dāng)操作員需要對(duì)某個(gè)或多個(gè)部門進(jìn)行刪除時(shí)，可以在編輯部門信息窗體下部中找到刪除按鈕。 修改信息代碼： Private Sub DataFresh(SQL As String) 39。 amp。 39。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。再 點(diǎn)擊添加按鈕，用戶可再次添部門信息記錄。登錄者是操作員可 以使用所有對(duì)數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時(shí)只能利用系統(tǒng)進(jìn)行資料查詢功能。data source = amp。登陸系統(tǒng)時(shí)對(duì)用戶的請(qǐng)求進(jìn)行身份驗(yàn)證，經(jīng)驗(yàn)證合法后允許用戶登陸系統(tǒng)，進(jìn)行相應(yīng)權(quán)限 對(duì)數(shù)據(jù)的處理，本系統(tǒng)能對(duì)用戶進(jìn)行管理，能進(jìn)行數(shù)據(jù)庫備份和恢復(fù)，確保數(shù)據(jù)的安全。 9 酒店人事工資管理系統(tǒng) 第 9 頁 系統(tǒng)設(shè)計(jì) 系統(tǒng)功能分析 *按不同權(quán)限登錄系統(tǒng)。通過這樣的管理方式，酒店的管理人員、技術(shù)人員、統(tǒng)計(jì)人員等各部門職工就能從大量 煩瑣的資料和數(shù)據(jù)中解脫出來，只需對(duì)自己需要的數(shù)據(jù)和內(nèi)容進(jìn)行必須的處理，而不用對(duì)每個(gè)環(huán)節(jié)都了如指掌。 7 酒店人事工資管理系統(tǒng) 第 7 頁 、系統(tǒng)功能分析 熱網(wǎng)管理系統(tǒng)主要有以下幾項(xiàng)功能要求： *按不同權(quán)限登錄系統(tǒng)。通過這樣的管理方式，酒店的管理人員、技術(shù)人員、統(tǒng)計(jì)人員等各部門職 工就能從大量煩瑣的資料和數(shù)據(jù)中解脫出來，只需對(duì)自己需要的數(shù)據(jù)和內(nèi)容進(jìn)行必須的處理，而不用對(duì)每個(gè)環(huán)節(jié)都了如指掌。 作為 Microsoft 的 office 套件產(chǎn)品之一 ,Access 已經(jīng)賣出了近 700 萬份 ,成為世界上最流行的桌面數(shù)據(jù)庫系統(tǒng)。 經(jīng)過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這 對(duì)于查找、更新和維護(hù)都帶來了不少的困難。 摘要 酒店人事工資管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。數(shù)據(jù)庫技術(shù)是計(jì)算機(jī)應(yīng)用技術(shù)中的一個(gè)重要組成部分，對(duì)于大量的數(shù)據(jù)，使用數(shù)據(jù)庫來存儲(chǔ)管理將比通過文件來存儲(chǔ)管理更高效。本系統(tǒng)使用 Access 2021 作為后臺(tái)數(shù)據(jù)庫，利用 Visual Basic 提供的數(shù)據(jù)庫開發(fā)平臺(tái)開發(fā)前臺(tái)部分。本系統(tǒng) 一次錄入信息后，就可以反復(fù)多次在不同的 信息庫中使用。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。本系統(tǒng) 一次錄入信息后，就可以反復(fù)多次在不同的信息庫中使用 。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。 在程序模塊中定義記錄集，并在各個(gè)窗體中定義記錄集變量，使輸入數(shù)據(jù)能與數(shù)據(jù)庫連接，并都用程序進(jìn)行控制，這樣不用數(shù)據(jù)控件都用代碼控制大大提高了程序運(yùn)行效率。只有用戶名和密碼相對(duì)應(yīng)才能進(jìn)入系統(tǒng)。部門編號(hào)與部門名稱都具有唯一性，不能重復(fù)。 order by 部門編號(hào) asc 39。 and 部門編號(hào) =39。 39。 amp。向表格控件輸入數(shù)據(jù) PrintSQL = SQL If = 1 Then SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 22 酒店人事工資管理系統(tǒng) 第 22 頁 = j = amp。 amp。 If Then DelSQL = DelSQL amp。 DelSQL (DelSQL) Call DataFresh( select * from 部門基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門基本情況 ) End If End If 24 酒店人事工資管理系統(tǒng) 第 24 頁 End Sub (5)清空 清空按鈕的作用可使所有文本框清空，方便用戶進(jìn)行其它操作。并能根據(jù)部門名稱、出生日期、來到公司工作的時(shí)間進(jìn)行職工信息查詢。并能根據(jù)部門名稱、 工資計(jì)發(fā) 日期進(jìn)行職工 工資 信息查詢。 3 數(shù)據(jù)備份 數(shù)據(jù)備 份就是復(fù)制數(shù)據(jù)庫的數(shù)據(jù)文件到其他地方，一面在數(shù)據(jù)庫遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫，從而減少破壞造成的損失。 Space$(1) SQL = SQL amp。 39。 39。 amp。 amp。39。 39。 amp。 QuanXian End Sub Private Sub Men_Llbmxx_Click() 瀏覽部門信息 .Height = 5715 瀏覽部門信息 .Width = 7510 瀏覽部門信息 .Show 瀏覽部門信息 .SetFocus (1).Text = 狀態(tài)：瀏覽部門信息 amp。 39。39。 amp。 39。 39。 ,39。 Date amp。 登陸日期 SQL = SQL amp。 圖 4 數(shù)據(jù)恢復(fù) 數(shù)據(jù)恢復(fù)就是將數(shù)據(jù)庫備份文件復(fù)制到當(dāng)前數(shù)據(jù)庫上，一面在數(shù)據(jù)庫遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫，從而減少破壞造成的損失。用戶管理功能只對(duì)管理員開放，管理員能在用戶管理窗體中添加新的用戶，對(duì)已有的用戶進(jìn)行用戶名和密碼修改，或者將原有用戶刪除。對(duì)職工進(jìn)行按月考勤，考核職工出勤、加班、遲到和早退等一些信息。 清空輸入信息代碼： Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 amp。 39。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對(duì)要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門記錄，便把21 酒店人事工資管理系統(tǒng) 第 21 頁 此部門記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完