【文章內(nèi)容簡(jiǎn)介】 gFile = amp。 \職工工資管理系統(tǒng) .mdb Set gX = CreateObject() End Sub 調(diào)用主界面中的各個(gè)窗體，如調(diào)用“人員管理”窗體： Private Sub HRManage_Click() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 19 End Sub 其他窗體同上方法。 人員管理模塊的 設(shè)計(jì)與實(shí)現(xiàn) 人員管理窗體的功能主要實(shí)現(xiàn)人員的增改刪功能。如圖 所示： 圖 4 . 6 人 員 管 理 窗 體 用戶(hù)重新選擇 DataGrid1 控件中的行列，則記錄用戶(hù)所在的行。用戶(hù)單擊“添加員工”按鈕，則顯示添加員工窗體。用戶(hù)單擊“刪除員工”按鈕，則彈出對(duì)話(huà)框確認(rèn)，無(wú)誤之后執(zhí)行 SQL語(yǔ)句，刪除員工。然后刷新 ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫(kù)和 DataGrid 控件中的數(shù)據(jù)一致性。用戶(hù)單擊“修改員工”按鈕，則顯示 修改員工窗體，并將相關(guān)的用戶(hù)選定信息傳遞給修改員工窗體。操作完畢，用戶(hù)單擊“取消”按鈕，可以退出本窗體。 編寫(xiě)窗體代碼：首先定義窗體的成員變量，為了讓其他窗體使用這個(gè)變量，設(shè)置其屬性為 Public: 39。當(dāng)前選定行號(hào) Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實(shí)現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的 ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。首先新建一個(gè)窗體，添加員工窗體包含兩個(gè)控件數(shù)組， lblField 是一個(gè) Label 控件數(shù)組，用于顯示字段名稱(chēng)， txtValue 用于輸入這些字段的值；另外還有一個(gè)“添加”按鈕和“取消”按鈕，分別實(shí)現(xiàn)添加員工和退出窗體的功能。如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 20 圖 添加員工窗體 創(chuàng)建修改員工窗體 在窗體顯示的時(shí)候，保證窗體上面的數(shù)據(jù)與在人員管理窗體上選定的行的數(shù)據(jù)一致，同時(shí)保證職工 ID 不可改動(dòng)。當(dāng)用戶(hù)單擊“修改”按鈕時(shí)，生成并執(zhí)行對(duì)應(yīng)的修改語(yǔ)句。窗體初始化時(shí)，會(huì)把“人員管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中，用戶(hù)修改 txtValue控件數(shù)組中的文字內(nèi)容。單擊“修改”按鈕，則生成并執(zhí)行ＳＱＬ語(yǔ)句，實(shí) 現(xiàn)修改功能。單擊“取消”按鈕，退出該窗體。如圖４ .7 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 21 圖 修改員工窗體 職位管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 點(diǎn)擊主窗口“職位”菜單后，顯示職位信息管理窗口。該模塊實(shí)現(xiàn)職位信息的添加、刪除、修改功能。如圖 所示： 圖 職位管理窗體 用戶(hù)重新選擇 DataGrid1 控件中的行列，則記錄用戶(hù)所在的行。用戶(hù)單擊“添加職位”按鈕，則顯示添加職位窗體。用戶(hù)單擊“刪除職位”按鈕，則彈出對(duì)話(huà)框確認(rèn)，無(wú)誤之后執(zhí)行 SQL 語(yǔ)句，刪除職位，然后刷新 ADO 數(shù)據(jù)控件，保 證數(shù)據(jù)一致性。用戶(hù)單擊“修改職位”按鈕，則顯示修改職位窗體，并將相關(guān)用戶(hù)選定信息傳遞給修改職位窗體。操作完畢，用戶(hù)單擊“取消”按 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 22 鈕，可以退出本窗體。 其中為了保證數(shù)據(jù)庫(kù)和 DataGrid 控件中的數(shù)據(jù)一致性，實(shí)現(xiàn) DataGrid 控件的數(shù)據(jù)顯示要進(jìn)行以下操作： SQL = SELECT * FROM 職位 = Provider=。Data Source= amp。 gFile amp。 。Mode=ReadWrite。Persist Security Info=False = SQL Set = Adodc1 創(chuàng)建添加職位窗體 本窗體實(shí)現(xiàn)添加一條記錄到職位表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。在窗體初始化的時(shí)候，初始化為 1b1Field 控件數(shù)組。用戶(hù)對(duì) txtValue 控件數(shù)組的屬性進(jìn)行修改，當(dāng)用戶(hù)單擊“添加”時(shí)，生成 SQL 語(yǔ)句并執(zhí)行，同時(shí)刷 新職位管理窗體的數(shù)據(jù)。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時(shí)候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時(shí)保證職位不可改動(dòng)。窗體初始化時(shí)，會(huì)把“職位管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶(hù)單擊“修改”按鈕，則生成并執(zhí)行 SQL 語(yǔ)句，實(shí)現(xiàn)修改的功能。用戶(hù)單擊“取畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 23 消”按鈕，退出該窗體。如圖 所示： 圖 修改職位窗體 特殊項(xiàng)管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 點(diǎn)擊主界面“特殊項(xiàng)管理”菜單后，顯示特殊項(xiàng)窗口。 該窗口實(shí)現(xiàn)對(duì)特殊項(xiàng)的添加，刪除和修改功能。其界面如下圖所示： 圖 特殊項(xiàng)管理界面 初始進(jìn)入界面時(shí)，界面左側(cè)顯示表所有查詢(xún)記錄，右側(cè)設(shè)有 4 個(gè)按鈕，分別實(shí)現(xiàn)增改刪的功能。用戶(hù)單擊“添加特殊項(xiàng)”按鈕，則顯示添加特殊項(xiàng)窗體。用戶(hù)單擊“刪除特殊項(xiàng)”按鈕，則彈出對(duì)話(huà)框確認(rèn)，無(wú)誤后執(zhí)行 SQL 語(yǔ)句，刪除特殊項(xiàng)，刷新 ADO 數(shù)據(jù)控件，保證數(shù)據(jù)的一致性。用戶(hù)單擊“修改特殊項(xiàng)”按鈕，則顯示修改特殊項(xiàng)窗體，并將相關(guān)的用戶(hù)選定信息傳遞給修畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 24 改特殊項(xiàng)窗體。操作完畢，用戶(hù)單擊“取消”按鈕，可以退出本窗體。 創(chuàng)建添加特 殊項(xiàng)窗體 本窗體實(shí)現(xiàn)添加一條記錄到特殊項(xiàng)表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。在窗體初始化的時(shí)候，初始化 1b1Field 控件數(shù)組。用戶(hù)選擇對(duì)應(yīng)的員工姓名，程序能夠自動(dòng)查找到對(duì)應(yīng)的職工 ID： 響應(yīng) cmbName 的單擊事件，單擊姓名的時(shí)候會(huì)自動(dòng)查找相對(duì)應(yīng)的職工 ID。 39。保證姓名與 ID 一致 Private Sub cmbName_Click() = () End Sub 如圖 所示： 圖 添加特殊項(xiàng)窗體 創(chuàng)建修改特殊項(xiàng)窗體 窗體初始化時(shí)，會(huì)把“特殊項(xiàng)管理”窗體中選種的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶(hù)單擊“修改”按鈕，則生成并執(zhí)行 SQL 語(yǔ)句，實(shí)現(xiàn)修改的功能。用戶(hù)單擊“取消”按鈕，退出該窗體。如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 25 圖 修改特殊項(xiàng)窗體 工資發(fā)放管理模塊的 設(shè)計(jì)與實(shí)現(xiàn) 用戶(hù)點(diǎn)擊主界面“工資”菜單，顯示發(fā)放工資窗口。本窗體實(shí)現(xiàn)的具體功能如下：動(dòng)態(tài)生成當(dāng)月的工資表，查詢(xún)指定員工的工資信息，發(fā)放工資，打印工資憑條。如圖 所示： 圖 工 資發(fā)放界面 用戶(hù)進(jìn)入界面，首先選擇要發(fā)工資的月份和職工的姓名，點(diǎn)擊“生成月表”按鈕，系統(tǒng)便畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 26 將生成的工資記錄顯示在界面左側(cè)的數(shù)據(jù)柵格中。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為 1。 編寫(xiě)窗體代碼，首先要聲明兩個(gè)窗體變量。分別是月表的名稱(chēng)和員工的工資總額： Option Explicit 39。月表的名稱(chēng) 39。動(dòng)態(tài)生成 39。在 cmbMonth 中用戶(hù)可以填入 20216, 202106, 20210601 等格式 39。而月表的名稱(chēng)都會(huì)變?yōu)?202106 Public mTableName As String 39。員工工資總額 39。計(jì)算得到 Public mSum As Double 統(tǒng)計(jì)報(bào)表模塊的 設(shè)計(jì)與實(shí)現(xiàn) 用戶(hù)點(diǎn)擊主界面“報(bào)表”菜單，系統(tǒng)顯示報(bào)表。如下圖所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 27 圖 統(tǒng)計(jì)報(bào)表運(yùn)行時(shí)界面 本系統(tǒng)中只實(shí)現(xiàn)了前 3 個(gè)按鈕的功能。本窗體的工作流程就是在用戶(hù)單擊需要的按鈕，顯示相應(yīng)的窗體。窗體的代碼如下： Private Sub cmdMonthAll_Click() End Sub Private Sub cmdMonthSpecial_Click() End Sub Private Sub cmdThisMonthSalary_Click() End Sub Private Sub cmdYears_Click() End Sub Private Sub Form_Load() End Sub 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 28 5. 結(jié)束語(yǔ) 本系統(tǒng)從開(kāi)始到完成用了幾個(gè)月的時(shí)間，其中包括熟悉環(huán)境，設(shè)計(jì)編程與程序 調(diào)試，最后撰寫(xiě)畢業(yè)論文。通過(guò)這次畢業(yè)設(shè)計(jì)的實(shí)際“練兵”，使我對(duì)管理信息系統(tǒng)和數(shù)據(jù)庫(kù)有了更深刻更直觀(guān)的認(rèn)識(shí)。平時(shí)課堂上的理論經(jīng)過(guò)自己的親身實(shí)踐，我對(duì)管理系統(tǒng)的開(kāi)發(fā)過(guò)程包括需求分析、概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)、代碼編寫(xiě)、測(cè)試等都有深刻的體驗(yàn)和全面的認(rèn)識(shí)。 經(jīng)過(guò)這段時(shí)間的設(shè)計(jì)和開(kāi)發(fā)，工資管理系統(tǒng)基本開(kāi)發(fā)完畢。其功能基本符合用戶(hù)需求，能夠完成公司人員檔案的存儲(chǔ)和工資的查詢(xún)。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶(hù)界面不夠美觀(guān)， 出錯(cuò)處理不夠等多方面問(wèn)題。這些都有待在以后的版本中進(jìn)一步改善。 致 謝 首先我要感謝我的指導(dǎo)老師王貴珍。其次，我還要感謝我的同事，當(dāng)我遇到難題時(shí)他們幫助我一起解決，使我能在最短的時(shí)間里解決這些難題。在此，對(duì)于這些給予我?guī)椭娜藗儽磉_(dá)我深深地謝意！并祝他們永遠(yuǎn)快樂(lè)！ 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 29 參考文獻(xiàn) 【 數(shù)據(jù)庫(kù)開(kāi)發(fā)典型實(shí)例】作者：王興晶，出版社：電子工業(yè)出版社，出版日期： 【數(shù)據(jù)庫(kù)設(shè)計(jì)】作者： Ryan ,Ronald ，何玉潔 武欣 鄧一凡 等譯，出版社：機(jī)械工業(yè)出版社，出版時(shí)間： 【 Visual Basic 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)從基礎(chǔ)到實(shí)踐】作者：李長(zhǎng)林 張麗華 王紅，出版社：電子工業(yè)出版社，出版時(shí)間： 【 VB 中文版教程 】 作者： 新智工作室編著 ，出版社： 電子工業(yè)出版社 ，出版時(shí)間： 【 數(shù)據(jù)庫(kù)應(yīng)用基礎(chǔ) Access 2021】 作者： 張平主編 ，出版社： 人民郵電出版社 ，出版時(shí)間： 【 數(shù)據(jù)庫(kù)原理與系統(tǒng)開(kāi)發(fā)教程 】 作者： 伍俊良主編 ，出版社： 清華大學(xué)出 版社 ，出畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 30 版時(shí)間： 【 VB 語(yǔ)言程序設(shè)計(jì) 】 作者： 林卓然編著 ，出版社： 電子工業(yè)出版社 ，出版時(shí)間： 【 程序設(shè)計(jì)實(shí)訓(xùn)教程 】 作者： 楊克玉主編 ，出版社： 機(jī)械工業(yè)出版社 ，出版時(shí)間： 【 程序設(shè)計(jì)教程 】 作者： 羅朝盛主編 ，出版社： 人民郵電出版社 ，出版時(shí)間： 【 Scot Hillier39。s COM+ Programming with Visual Basic】 作者： Scot Hillier，出版社：Sams，出版時(shí)間： 1 畢業(yè)設(shè)計(jì)過(guò)程中查閱的網(wǎng)站： 附錄 源程序清單 一、標(biāo)準(zhǔn)模塊 39。變量要求聲明 Option Explicit 39。Access 數(shù)據(jù)庫(kù)文件的名稱(chēng) Public gFile As String 39。數(shù)據(jù)庫(kù)連接對(duì)象 Public gCon As New 39。數(shù)據(jù)庫(kù)集合對(duì)象 Public gRst As New 39。Excel 程 序?qū)ο? Public gX As 39。打開(kāi)數(shù)據(jù)庫(kù)文件 Public Sub OpenDBFile() 39。打開(kāi)錯(cuò)誤處理陷阱 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 31 Dim intErrFileNo As Integer 39。自由文件號(hào) On Error GoTo ErrGoto 39。 Provider=。Data Source= amp。 gFile amp。 。Mode=ReadWrite。Persist Security Info=False 39。 Exit Sub 39。 ErrGoto: 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。關(guān)閉數(shù)據(jù)庫(kù)連