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