【正文】 )、遠(yuǎn)程數(shù)據(jù)對(duì)象 (RDO) 和數(shù)據(jù)訪問對(duì)象(DAO)。 后臺(tái)數(shù)據(jù)庫的選擇 Access 是 Office 軟件包的成員之一， 擅長對(duì)數(shù)據(jù)進(jìn)行處理，例如建立，排序，分類及匯總數(shù)據(jù)等操作。在 Visual Basic 中進(jìn)行部件編程是通過微軟的部件對(duì)象模型（ COM， Compo Object Model） 實(shí)現(xiàn)的。 技術(shù)要求 前臺(tái)開發(fā)語言的選擇 Visual Basic 繼承了 BASIC 語言簡單易學(xué)的優(yōu)點(diǎn)，又增加了許多新的功能，它采用面向?qū)ο笈c事件驅(qū)動(dòng)的程序設(shè)計(jì)思想，使編程變得更加方便、快捷。需求分析是在用戶調(diào)查的基礎(chǔ)上，通過分 析，逐步明確用戶對(duì)系統(tǒng)的需求，包括數(shù)據(jù)需求和圍繞這些數(shù)據(jù)的業(yè)務(wù)需求 。所開發(fā)的軟件系統(tǒng)應(yīng)該滿足如下基本要求： 1) 功能：管理員工基本信息、 績效考核、職位管理和工資發(fā)放記錄。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 第三階段：（ 1970 年至今）管理信息系統(tǒng)（ MIS）階段。 第一階段：（ 1953 年至 1965 年）單項(xiàng)數(shù)據(jù)處理階段，也稱電子數(shù)據(jù)處理（ EDP）階段。對(duì)于數(shù)據(jù)庫要求具有數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的特點(diǎn)；而對(duì)于應(yīng)用程序，則要求系統(tǒng)功能完備、易操作、界面友好等特點(diǎn)。 該系統(tǒng)是典型的信息管理系統(tǒng) ,其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立、維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。從工業(yè)發(fā)達(dá)國家來看，管理信息系統(tǒng)的發(fā)展經(jīng)歷了以下幾個(gè)階段。這個(gè)階 段的處理方式已發(fā)展為面向終端的聯(lián) 機(jī)實(shí)時(shí)處理。另外時(shí)間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。 基本表字段的設(shè)計(jì)只取其重點(diǎn)，初始版本將重點(diǎn)放在系統(tǒng)的實(shí)現(xiàn)上，后續(xù)版本才能最終適用。 4) 系統(tǒng)根據(jù)職位和考核成績自動(dòng)生成工資單 需求分析是對(duì)系統(tǒng)開發(fā)提出明確要求的過程，其結(jié)果是后續(xù)系統(tǒng)開發(fā)工作的基礎(chǔ)。這是也是需要說明的業(yè)務(wù)規(guī)則。 畢業(yè)設(shè)計(jì)（論文） 第 頁 9 ：基于部件的編程方法是分布式構(gòu)架 思想體系的具體化。在數(shù)據(jù)庫應(yīng)用系統(tǒng)的創(chuàng)建過程中， Visual Basic 能夠出色地承擔(dān)起前端界面層和中間連接層的創(chuàng)建任務(wù)。 在 使用 Visual Basic 進(jìn)行數(shù)據(jù)庫程序的開發(fā)時(shí) ， 必須建立與數(shù)據(jù)庫的連接。主要員工基本檔案信息的管理。主要完成查看歷史工資發(fā)放信息。管理人員可以根據(jù)條件增加、修改和查看員工考核記錄。 ER 圖涉及兩個(gè)方面，一是實(shí)體，二是關(guān)系。與現(xiàn)存物理數(shù)據(jù)庫有關(guān)的實(shí)體關(guān)系圖可以自動(dòng)生成。標(biāo)準(zhǔn)模塊文件擴(kuò)展名為 .bas，是用來存放公用變量和公用函數(shù)的模塊。如圖 所示： 圖 系統(tǒng)主界面 主界面沒有包含控件，但是包含一個(gè)菜單，菜單中包括：人 員管理窗體，職位管理窗體，特殊項(xiàng)管理窗體，工資發(fā)放窗體，統(tǒng)計(jì)報(bào)表窗體和退出程序。然后刷新 ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫和 DataGrid 控件中的數(shù)據(jù)一致性。窗體初始化時(shí)，會(huì)把“人員管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中，用戶修改 txtValue控件數(shù)組中的文字內(nèi)容。用戶單擊“修改職位”按鈕，則顯示修改職位窗體，并將相關(guān)用戶選定信息傳遞給修改職位窗體。在窗體初始化的時(shí)候，初始化為 1b1Field 控件數(shù)組。其界面如下圖所示： 圖 特殊項(xiàng)管理界面 初始進(jìn)入界面時(shí)，界面左側(cè)顯示表所有查詢記錄，右側(cè)設(shè)有 4 個(gè)按鈕，分別實(shí)現(xiàn)增改刪的功能。 39。 編寫窗體代碼，首先要聲明兩個(gè)窗體變量。如下圖所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁 27 圖 統(tǒng)計(jì)報(bào)表運(yùn)行時(shí)界面 本系統(tǒng)中只實(shí)現(xiàn)了前 3 個(gè)按鈕的功能。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀， 出錯(cuò)處理不夠等多方面問題。數(shù)據(jù)庫連接對(duì)象 Public gCon As New 39。 gFile amp。Public Sub CloseDBFile() 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號(hào) On Error GoTo ErrGoto 39。設(shè)置啟動(dòng)參數(shù) Private Sub MDIForm_Load() gFile = amp。隱藏本窗體 Private Sub cmdCancel_Click() End Sub 39。執(zhí)行刪除 = CurEm = 0 DELETE FROM 職位 WHERE 職位 = amp。顯示修改員工窗體 Private Sub cmdUpdateEmployee_Click() End Sub 39。End Sub 39。Mode=ReadWrite。 39。 txtValue(3).Text amp。關(guān)閉連接 CloseDBFile 39。修改員工信息 Private Sub cmdModify_Click() 39。 _ ,姓名 = amp。 _ WHERE 職工 ID = amp。 ErrGoto: 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 ErrGoto: 39。s taken the bottom bunk! I was here first. Susan stared, glared at the fancy nightdress laid out on the pillow. Did she have the nerve to move it? No, not quite. Fuming, she started to unpac k. Sweaters, Tshirts, jeans, shorts and a dress. She yanked open the wardrobe door. A row of eye catching outfits hung neatly on hangers. It39。m glad you39。 End If CloseDBFile 39。對(duì)應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計(jì)（論文） 第 頁 41 39。執(zhí)行 SQL SQL 39。 _ ,出生年月 = amp。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。 ErrGoto: 39。 txtValue(5).Text amp。 txtValue(1).Text amp。把錯(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) + Form_Load(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 四，創(chuàng)建添加員工窗體 39。 SQL = SELECT * FROM 職工 = Provider=。記錄選定行 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub 39。刷新數(shù)據(jù) 39。 39。調(diào)用 職位管理 窗體 Private Sub PosManage_Click() End Sub 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) + CloseRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 二、系統(tǒng)主界面 39。 ErrGoto: 39。 Exit Sub 39。 Exit Sub 39。打開錯(cuò)誤處理陷阱 畢業(yè)設(shè)計(jì)（論文） 第 頁 31 Dim intErrFileNo As Integer 39。在此，對(duì)于這些給予我?guī)椭娜藗儽磉_(dá)我深深地謝意！并祝他們永遠(yuǎn)快樂！ 畢業(yè)設(shè)計(jì)（論文） 第 頁 29 參考文獻(xiàn) 【 數(shù)據(jù)庫開發(fā)典型實(shí)例】作者：王興晶，出版社：電子工業(yè)出版社，出版日期： 【數(shù)據(jù)庫設(shè)計(jì)】作者： Ryan ,Ronald ，何玉潔 武欣 鄧一凡 等譯，出版社：機(jī)械工業(yè)出版社，出版時(shí)間： 【 Visual Basic 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)從基礎(chǔ)到實(shí)踐】作者：李長林 張麗華 王紅，出版社：電子工業(yè)出版社，出版時(shí)間： 【 VB 中文版教程 】 作者： 新智工作室編著 ，出版社： 電子工業(yè)出版社 ，出版時(shí)間： 【 數(shù)據(jù)庫應(yīng)用基礎(chǔ) Access 2021】 作者： 張平主編 ，出版社： 人民郵電出版社 ，出版時(shí)間： 【 數(shù)據(jù)庫原理與系統(tǒng)開發(fā)教程 】 作者： 伍俊良主編 ，出版社： 清華大學(xué)出 版社 ，出畢業(yè)設(shè)計(jì)（論文） 第 頁 30 版時(shí)間： 【 VB 語言程序設(shè)計(jì) 】 作者： 林卓然編著 ，出版社： 電子工業(yè)出版社 ，出版時(shí)間： 【 程序設(shè)計(jì)實(shí)訓(xùn)教程 】 作者： 楊克玉主編 ，出版社： 機(jī)械工業(yè)出版社 ，出版時(shí)間： 【 程序設(shè)計(jì)教程 】 作者： 羅朝盛主編 ，出版社： 人民郵電出版社 ，出版時(shí)間： 【 Scot Hillier39。平時(shí)課堂上的理論經(jīng)過自己的親身實(shí)踐，我對(duì)管理系統(tǒng)的開發(fā)過程包括需求分析、概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)、代碼編寫、測(cè)試等都有深刻的體驗(yàn)和全面的認(rèn)識(shí)。在 cmbMonth 中用戶可以填入 20216, 202106, 20210601 等格式 39。如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁 25 圖 修改特殊項(xiàng)窗體 工資發(fā)放管理模塊的 設(shè)計(jì)與實(shí)現(xiàn) 用戶點(diǎn)擊主界面“工資”菜單，顯示發(fā)放工資窗口。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實(shí)現(xiàn)修改的功能。 gFile amp。該模塊實(shí)現(xiàn)職位信息的添加、刪除、修改功能。當(dāng)前選定行號(hào) Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實(shí)現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的 ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。 人員管理模塊的 設(shè)計(jì)與實(shí)現(xiàn) 人員管理窗體的功能主要實(shí)現(xiàn)人員的增改刪功能。數(shù)據(jù)庫文件的名稱 Public gFile As String 39。 本系統(tǒng)的ER 如圖 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁 13 圖 系統(tǒng)實(shí)體關(guān)系圖 邏輯設(shè)計(jì) 關(guān)系模式 1：員工檔案（員工 ID，職位，姓名，性別，出生年月，工作年月 ) 主鍵：員工 ID 外鍵：職位 關(guān)系