【正文】 是 否 否 是 是 圖 說明 本次設(shè)計(jì)主要利 ADO 技術(shù)，界面友好。登陸系統(tǒng)時(shí)對(duì)用戶的請求進(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ù)的安全。 據(jù)庫設(shè)計(jì) 在 Access 2021 數(shù)據(jù)庫中創(chuàng)建表： 用戶登陸 是否管理員 是否錄入數(shù)據(jù) 是否修改數(shù)據(jù) 錄入數(shù)據(jù) 修改數(shù)據(jù) 是否進(jìn)行 查詢 輸入查詢條件 是否刪除數(shù)據(jù) 刪除數(shù)據(jù) 退出系統(tǒng) 第 8 頁 根據(jù)設(shè)計(jì)要求，需要 5 個(gè)數(shù)據(jù)表：部門基本情況表 、 員工基本信息表 、 員工考勤信息表 、 員工工資信息表 、 口令信息表。因此，在設(shè)計(jì)時(shí)，我選 擇使用 ADO 來控制管理數(shù)據(jù)庫。 部分有關(guān)代碼如下： Dim rc As New 39。data source = amp。 \公司人事管理系統(tǒng) .mdb 39。定義記錄集變量 If = 1 Then ‘判斷當(dāng)前表的狀態(tài)是否打開，是則關(guān)閉 SQL, Cnndb, 3, 2 ‘打開當(dāng)前表 用戶登錄模塊設(shè)計(jì) (1) 設(shè)計(jì)思路 每個(gè)用戶登錄系統(tǒng)都須經(jīng)過身份驗(yàn)證。因?yàn)樵谙到y(tǒng)設(shè)置中已經(jīng)對(duì)系統(tǒng)使用權(quán)限進(jìn)行了規(guī)定，所以，在用戶登錄的同時(shí)也決定了用戶對(duì)系統(tǒng)使用的權(quán)限。登錄者是操作員可以使用所有對(duì)數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時(shí)只能利用系統(tǒng)進(jìn)行資料查詢功能。用戶登錄到系統(tǒng)后進(jìn)入的就是該界面，所有功能一目了然。 第 11 頁 圖 在此界面中對(duì)用戶的權(quán)限進(jìn)行了設(shè)置，若是以一般用戶登錄時(shí)只能修改自己的密碼且只能瀏覽所有的人事管理信息，以 管理員身份進(jìn)入時(shí)可以對(duì)所有一般用戶的密碼進(jìn)行設(shè)置，還可刪除一般用戶！能對(duì)人事信息進(jìn)行編輯刪除，修改等操作 信息管理 添加 、 查詢、修改 、 刪除的實(shí)現(xiàn) 1編輯部門信息 作為編輯部門信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對(duì)公司各部門資料信息的存儲(chǔ)與編輯，部門信息包括：部門編號(hào)（兩位）、部門名稱、備注。作為部門信息與員工信息有著密切的關(guān)系，每一名員工都從屬一個(gè)部門。再點(diǎn)擊添加按鈕，用戶可再次添部門信息記錄。先在對(duì)應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會(huì)查詢出滿足條件 的部門記錄，并列到數(shù)據(jù)表格中，無滿足條件的部門記錄時(shí)，則彈出對(duì)話框提示“查無此記錄！”。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對(duì)要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門記錄，便把此部門記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對(duì)修改后的數(shù)據(jù)進(jìn)行合法性檢測，合法則修改成功。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對(duì)應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會(huì)列出滿足刪除條件的部門記錄，并提示是否刪除滿足條件的全部部門記錄，也可以一條一條刪除部門記錄，只要在數(shù)據(jù)表格中選中要?jiǎng)h除的部門記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。 在下面各界面設(shè)置操作與上相同不再重復(fù)說明。并能從此窗體中了解各部門現(xiàn)有人數(shù)，這是在編 輯部門信息中無法獲得的信息。員工編號(hào)具有唯一性，不能重復(fù)。 圖 2瀏覽員工信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 圖 勤信息管理 添加 、 查詢、修改 、 刪除的實(shí)現(xiàn) 1編輯考勤信息 作為編輯考勤信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對(duì)公司員工考勤資料信息的存儲(chǔ)與編輯，方便對(duì)員工工作的考察。 第 14 頁 圖 2瀏覽 考勤 信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 圖 工工資管理 添加 、 查詢、修改 、 刪除的實(shí)現(xiàn) 1編輯工資信息 作為編輯工資信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對(duì)公司員工工資信息的存儲(chǔ)、計(jì)算與編輯，方便對(duì)員工工資的管理。 第 15 頁 圖 2瀏覽工資信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 圖 系統(tǒng)維護(hù) 系統(tǒng)維護(hù)選項(xiàng)里包括密碼設(shè)置、用戶管理、數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)四個(gè)選項(xiàng)。當(dāng)一般用戶和操作員進(jìn)入時(shí)，菜單欄中無該項(xiàng)。一進(jìn)入此窗體便會(huì)顯示此用戶名，在舊密碼框中輸入原始密碼，在新密碼框中輸入想更改的新密碼，再在密碼確定中進(jìn)行新密碼確認(rèn)，按 更改按鈕便可修改用戶密碼。能對(duì)所有用戶進(jìn)行用戶名、密碼、權(quán)限修改，不但能更改而且還能進(jìn)行用戶添加和刪除。在此系統(tǒng)中只把數(shù)據(jù)庫備份到軟盤中。在此系統(tǒng)中只從軟盤中恢復(fù)數(shù)據(jù)庫文件。 第 19 頁 結(jié)束語 本次的公司人事管理系統(tǒng)是基于 Visual Basic 的 ADO 技術(shù)設(shè)計(jì)的。在該系統(tǒng)開發(fā)中我通過建立數(shù)據(jù)庫，以及對(duì)各種信息 庫的開發(fā)（如：添加、查詢、修改、刪除資料）及設(shè)計(jì)系統(tǒng)維護(hù)安全部分，完成了此次對(duì)公司人事管理系統(tǒng)的設(shè)計(jì)。在需求分析結(jié)束以后，我們對(duì)一個(gè)系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認(rèn)識(shí)，而如何以一個(gè)簡潔、合理的系統(tǒng)結(jié)構(gòu)去實(shí)現(xiàn)用戶要求的功能就成為系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)。由于有些急于求成，在對(duì) ADO 技術(shù)不是很了解的情況下就開始著手程序開發(fā)，所以當(dāng)有時(shí)間靜下來仔細(xì)理一下思路的時(shí)候發(fā)現(xiàn)走了很大的彎路，可以說是 整個(gè)思路和設(shè)計(jì)要求有著非常大的差異。因此，通過這次公司人事管理系統(tǒng)的開發(fā)，我深刻認(rèn)識(shí)到系統(tǒng)分析，以及對(duì)整個(gè)系統(tǒng)的總體設(shè)計(jì)的重要性。 同時(shí)，在這次的系統(tǒng)開發(fā)中我也看到了自己在新知識(shí)的學(xué)習(xí)，新工具的應(yīng)用方面的不足。系統(tǒng)的開發(fā)過程也就成為我對(duì)這兩種開發(fā)工具的深入透徹學(xué)習(xí)的過 程。在原地徘徊了一段時(shí)間后，我通過查找參考資料，和同學(xué)交流，利用互聯(lián)網(wǎng)向有經(jīng)驗(yàn)的編程人員請教等各種方式試著克服在設(shè)計(jì)過程中遇到的困難。 總之，這次的公司人事管理系統(tǒng)開發(fā)過程對(duì)我來說不僅僅是一次畢業(yè)設(shè)計(jì)，這也是我一次有意義的學(xué)習(xí)、提高的過程。 我想，在今后的學(xué)習(xí)和工作中，我將針對(duì)這些發(fā)現(xiàn)的問題，不斷努力和提高自身各方面的素質(zhì)，為社會(huì)作出自己應(yīng)有的貢獻(xiàn) 本人事管理系統(tǒng)的順利完成，還要感謝老師的大力幫助與細(xì)心指導(dǎo)！ 第 20 頁 參考文獻(xiàn) [1] 襲沛曾 陸慰民 楊志強(qiáng)編著 . Visual Basic 程序設(shè)計(jì)教程（ 版） [M].北京 :高等教育出版社 .2021 年 [2] 肖建 薛鳳武 吳靜編著 . Visual Basic 基礎(chǔ)教程 [M].北京 :中國電力出版社 .2021年 [3] 張大年 廖智勇 劉檢鋒編著 . Visual Basic 數(shù)據(jù)庫應(yīng)用開發(fā)與 實(shí)例 [M].北京：清華大學(xué)出版社 .2021 年 [4] 楊宗志編著 . Visual Basic 數(shù)據(jù)庫程序設(shè) [M]. 北京：清華大學(xué)出版社 .2021 年 [5] 陳豫龍 何旭洪編著 . Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例導(dǎo)航 [M].上海：人民郵電出版 .2021 年 [6] 黃明 梁旭編著 . Visual Basic 時(shí)尚編程百例 [M].重慶：機(jī)械工業(yè)出版社 2021 年 [7] 飛思科技產(chǎn)品研發(fā)中心 Access 2021 數(shù)據(jù)處理技術(shù) [M]. 北京 : 電子工業(yè)出版 .2021年 第 21 頁 附錄 部分窗體程序代碼 : 1 用戶登陸 Dim rc As New 39。檢測輸入口令的次數(shù) Dim DLYongHuMing As String Dim DLQuanXian As String Private Sub DataSave() 39。 Space$(1) SQL = SQL amp。 登陸日期 SQL = SQL amp。 ,用戶名 SQL = SQL amp。 ) SQL = SQL amp。 39。 Date amp。 SQL = SQL amp。 amp。 39。 ,39。 DLYongHuMing amp。 SQL = SQL amp。 amp。 39。 ) (SQL) End Sub Private Sub DataFind() 39。39。 amp。 39。39。39。39。 amp。 39。 amp。 39。39。 amp。 39。 amp。 39。 第 26 頁 Dim Cmdsize As Integer 39