【文章內(nèi)容簡(jiǎn)介】 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 人 員 管 理 窗 體 用戶重新選擇 DataGrid1 控件中的行列，則記錄用戶所在的行。用戶單擊“添加員工”按鈕，則顯示添加員工窗體。用戶單擊“刪除員工”按鈕，則彈出對(duì)話框確認(rèn)，無(wú)誤之后執(zhí)行 SQL語(yǔ)句，刪除員工。然后刷新 ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫(kù)和 DataGrid 控件中的數(shù)據(jù)一致性。用戶單擊“修改員工”按鈕，則顯示 修改員工窗體，并將相關(guān)的用戶選定信息傳遞給修改員工窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。 編寫(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ù)組，用于顯示字段名稱， txtValue 用于輸入這些字段的值；另外還有一個(gè)“添加”按鈕和“取消”按鈕，分別實(shí)現(xiàn)添加員工和退出窗體的功能。如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 20 圖 添加員工窗體 創(chuàng)建修改員工窗體 在窗體顯示的時(shí)候，保證窗體上面的數(shù)據(jù)與在人員管理窗體上選定的行的數(shù)據(jù)一致，同時(shí)保證職工 ID 不可改動(dòng)。當(dāng)用戶單擊“修改”按鈕時(shí)，生成并執(zhí)行對(duì)應(yīng)的修改語(yǔ)句。窗體初始化時(shí)，會(huì)把“人員管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中，用戶修改 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)職位信息的添加、刪除、修改功能。如圖 所示： 圖 職位管理窗體 用戶重新選擇 DataGrid1 控件中的行列，則記錄用戶所在的行。用戶單擊“添加職位”按鈕，則顯示添加職位窗體。用戶單擊“刪除職位”按鈕，則彈出對(duì)話框確認(rèn)，無(wú)誤之后執(zhí)行 SQL 語(yǔ)句，刪除職位，然后刷新 ADO 數(shù)據(jù)控件，保 證數(shù)據(jù)一致性。用戶單擊“修改職位”按鈕，則顯示修改職位窗體，并將相關(guān)用戶選定信息傳遞給修改職位窗體。操作完畢，用戶單擊“取消”按 畢業(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ù)組。用戶對(duì) txtValue 控件數(shù)組的屬性進(jìn)行修改，當(dāng)用戶單擊“添加”時(shí)，生成 SQL 語(yǔ)句并執(zhí)行，同時(shí)刷 新職位管理窗體的數(shù)據(jù)。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時(shí)候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時(shí)保證職位不可改動(dòng)。窗體初始化時(shí)，會(huì)把“職位管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語(yǔ)句，實(shí)現(xiàn)修改的功能。用戶單擊“取畢業(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è)顯示表所有查詢記錄，右側(cè)設(shè)有 4 個(gè)按鈕，分別實(shí)現(xiàn)增改刪的功能。用戶單擊“添加特殊項(xiàng)”按鈕，則顯示添加特殊項(xiàng)窗體。用戶單擊“刪除特殊項(xiàng)”按鈕，則彈出對(duì)話框確認(rèn)，無(wú)誤后執(zhí)行 SQL 語(yǔ)句，刪除特殊項(xiàng)，刷新 ADO 數(shù)據(jù)控件，保證數(shù)據(jù)的一致性。用戶單擊“修改特殊項(xiàng)”按鈕，則顯示修改特殊項(xiàng)窗體，并將相關(guān)的用戶選定信息傳遞給修畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 24 改特殊項(xiàng)窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。 創(chuàng)建添加特 殊項(xiàng)窗體 本窗體實(shí)現(xiàn)添加一條記錄到特殊項(xiàng)表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。在窗體初始化的時(shí)候，初始化 1b1Field 控件數(shù)組。用戶選擇對(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ù)組中。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語(yǔ)句，實(shí)現(xiàn)修改的功能。用戶單擊“取消”按鈕，退出該窗體。如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 25 圖 修改特殊項(xiàng)窗體 工資發(fā)放管理模塊的 設(shè)計(jì)與實(shí)現(xiàn) 用戶點(diǎn)擊主界面“工資”菜單，顯示發(fā)放工資窗口。本窗體實(shí)現(xiàn)的具體功能如下：動(dòng)態(tài)生成當(dāng)月的工資表，查詢指定員工的工資信息，發(fā)放工資，打印工資憑條。如圖 所示： 圖 工 資發(fā)放界面 用戶進(jìn)入界面，首先選擇要發(fā)工資的月份和職工的姓名，點(diǎn)擊“生成月表”按鈕，系統(tǒng)便畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 26 將生成的工資記錄顯示在界面左側(cè)的數(shù)據(jù)柵格中。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為 1。 編寫(xiě)窗體代碼，首先要聲明兩個(gè)窗體變量。分別是月表的名稱和員工的工資總額： Option Explicit 39。月表的名稱 39。動(dòng)態(tài)生成 39。在 cmbMonth 中用戶可以填入 20206, 202006, 20200601 等格式 39。而月表的名稱都會(huì)變?yōu)?202020 Public mTableName As String 39。員工工資總額 39。計(jì)算得到 Public mSum As Double 統(tǒng)計(jì)報(bào)表模塊的 設(shè)計(jì)與實(shí)現(xiàn) 用戶點(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è)按鈕的功能。本窗體的工作流程就是在用戶單擊需要的按鈕，顯示相應(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ù)有了更深刻更直觀的認(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ā)完畢。其功能基本符合用戶需求，能夠完成公司人員檔案的存儲(chǔ)和工資的查詢。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀， 出錯(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 2020】 作者： 張平主編 ，出版社： 人民郵電出版社 ，出版時(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)站： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 31 They both knew it. And if she hadn39。t won an ecology essay petition and a prize of places for two aboard Sea Shepherd, neither of them would be here. She rested her hand on Gary39。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。m glad you39。re ing with me. As Southampton slid astern, Sea Shepherd nosed into the thumping waters of the English Channel. At that moment the sun squinted through a crack in the cloud. On the horizon the sky39。s grey paint was peeling, revealing blue. A good omen? Gary followed Susan down the panionway. See you at dinner, he said, before entering the cabin he shared with Norman. As one of the girls, Susan had Vanessa for a roommate. Next door were Yves and Darren. Susan hesitated outside her cabin, fiddled with her cardigan, ran a b through her hair. Then, head held high, she made her entrance. Vanessa wasn39。t there. Susan relaxed, smiling a