【正文】 Exit Sub 39。打開數(shù)據(jù)連接 OpenDBFile 39。 txtValue(1).Text amp。 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) + Form_Load(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 七，創(chuàng)建添加職位窗體 39。Mode=ReadWrite。 SQL = SELECT * FROM 職位 = Provider=。 ErrGoto: 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 End If CloseDBFile 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。對應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計（論文） 第 頁 41 39。 ErrGoto: 39。執(zhí)行 SQL SQL 39。 _ WHERE 職工 ID = amp。 _ ,出生年月 = amp。 _ ,姓名 = amp。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。修改員工信息 Private Sub cmdModify_Click() 39。 ErrGoto: 39。關(guān)閉連接 CloseDBFile 39。 txtValue(5).Text amp。 txtValue(3).Text amp。 txtValue(1).Text amp。 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) + Form_Load(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 四，創(chuàng)建添加員工窗體 39。Mode=ReadWrite。 SQL = SELECT * FROM 職工 = Provider=。End Sub 39。記錄選定行 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub 39。顯示修改員工窗體 Private Sub cmdUpdateEmployee_Click() End Sub 39。刷新數(shù)據(jù) 39。執(zhí)行刪除 = CurEm = 0 DELETE FROM 職位 WHERE 職位 = amp。 39。隱藏本窗體 Private Sub cmdCancel_Click() End Sub 39。調(diào)用 職位管理 窗體 Private Sub PosManage_Click() End Sub 39。設(shè)置啟動參數(shù) Private Sub MDIForm_Load() gFile = amp。把錯誤信息保存在文件里 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。自由文件號 On Error GoTo ErrGoto 39。 ErrGoto: 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 Exit Sub 39。Public Sub CloseDBFile() 39。 Exit Sub 39。 gFile amp。打開錯誤處理陷阱 畢業(yè)設(shè)計（論文） 第 頁 31 Dim intErrFileNo As Integer 39。數(shù)據(jù)庫連接對象 Public gCon As New 39。在此，對于這些給予我?guī)椭娜藗儽磉_(dá)我深深地謝意！并祝他們永遠(yuǎn)快樂！ 畢業(yè)設(shè)計（論文） 第 頁 29 參考文獻(xiàn) 【 數(shù)據(jù)庫開發(fā)典型實例】作者：王興晶，出版社：電子工業(yè)出版社，出版日期： 【數(shù)據(jù)庫設(shè)計】作者： Ryan ,Ronald ，何玉潔 武欣 鄧一凡 等譯，出版社：機(jī)械工業(yè)出版社，出版時間： 【 Visual Basic 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)從基礎(chǔ)到實踐】作者：李長林 張麗華 王紅，出版社：電子工業(yè)出版社，出版時間： 【 VB 中文版教程 】 作者： 新智工作室編著 ，出版社： 電子工業(yè)出版社 ，出版時間： 【 數(shù)據(jù)庫應(yīng)用基礎(chǔ) Access 2021】 作者： 張平主編 ，出版社： 人民郵電出版社 ，出版時間： 【 數(shù)據(jù)庫原理與系統(tǒng)開發(fā)教程 】 作者： 伍俊良主編 ，出版社： 清華大學(xué)出 版社 ，出畢業(yè)設(shè)計（論文） 第 頁 30 版時間： 【 VB 語言程序設(shè)計 】 作者： 林卓然編著 ，出版社： 電子工業(yè)出版社 ，出版時間： 【 程序設(shè)計實訓(xùn)教程 】 作者： 楊克玉主編 ，出版社： 機(jī)械工業(yè)出版社 ，出版時間： 【 程序設(shè)計教程 】 作者： 羅朝盛主編 ，出版社： 人民郵電出版社 ，出版時間： 【 Scot Hillier39。 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀， 出錯處理不夠等多方面問題。平時課堂上的理論經(jīng)過自己的親身實踐，我對管理系統(tǒng)的開發(fā)過程包括需求分析、概要設(shè)計、詳細(xì)設(shè)計、代碼編寫、測試等都有深刻的體驗和全面的認(rèn)識。如下圖所示： 畢業(yè)設(shè)計（論文） 第 頁 27 圖 統(tǒng)計報表運行時界面 本系統(tǒng)中只實現(xiàn)了前 3 個按鈕的功能。在 cmbMonth 中用戶可以填入 20216, 202106, 20210601 等格式 39。 編寫窗體代碼，首先要聲明兩個窗體變量。如圖 所示： 畢業(yè)設(shè)計（論文） 第 頁 25 圖 修改特殊項窗體 工資發(fā)放管理模塊的 設(shè)計與實現(xiàn) 用戶點擊主界面“工資”菜單，顯示發(fā)放工資窗口。 39。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。其界面如下圖所示： 圖 特殊項管理界面 初始進(jìn)入界面時，界面左側(cè)顯示表所有查詢記錄，右側(cè)設(shè)有 4 個按鈕，分別實現(xiàn)增改刪的功能。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實現(xiàn)修改的功能。在窗體初始化的時候，初始化為 1b1Field 控件數(shù)組。 gFile amp。用戶單擊“修改職位”按鈕，則顯示修改職位窗體，并將相關(guān)用戶選定信息傳遞給修改職位窗體。該模塊實現(xiàn)職位信息的添加、刪除、修改功能。窗體初始化時，會把“人員管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中，用戶修改 txtValue控件數(shù)組中的文字內(nèi)容。當(dāng)前選定行號 Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的 ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。然后刷新 ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫和 DataGrid 控件中的數(shù)據(jù)一致性。 人員管理模塊的 設(shè)計與實現(xiàn) 人員管理窗體的功能主要實現(xiàn)人員的增改刪功能。如圖 所示： 圖 系統(tǒng)主界面 主界面沒有包含控件，但是包含一個菜單，菜單中包括：人 員管理窗體，職位管理窗體，特殊項管理窗體，工資發(fā)放窗體，統(tǒng)計報表窗體和退出程序。數(shù)據(jù)庫文件的名稱 Public gFile As String 39。標(biāo)準(zhǔn)模塊文件擴(kuò)展名為 .bas，是用來存放公用變量和公用函數(shù)的模塊。 本系統(tǒng)的ER 如圖 所示： 畢業(yè)設(shè)計（論文） 第 頁 13 圖 系統(tǒng)實體關(guān)系圖 邏輯設(shè)計 關(guān)系模式 1：員工檔案（員工 ID，職位，姓名，性別，出生年月，工作年月 ) 主鍵：員工 ID 外鍵：職位 關(guān)系模式 2：工資 (員工 ID，工資取畢，合計工資 ) 主鍵：員工 ID 關(guān)系模式 3：特殊項 (特殊項 ID，職工 ID，特殊項名稱，特殊項金額，特殊項時間 ) 主鍵：特殊項 ID 外鍵：員工 ID 關(guān)系模式 4：職位 (職位，基本工資，津貼 ) 主鍵： 職位 物理設(shè)計 根據(jù)上面分析的各種功能要求，以下列出數(shù)據(jù)庫中所建立的各個表的具體設(shè)置： 職工 表名稱 職工 字段名稱 類型 (寬度 ) 關(guān)鍵字 可為空 編碼規(guī)則 取值范圍 職工 ID 文本（ 10） PK not null 姓名 文本 (10) 性別 文本 (2) 男，女 職位 文本 (10) FK Not null 出生年月 日期 (8) 職工 姓名 性別 出生年月 工作年月 職位 職工 ID n 屬性 1 職位 職位 基本工資 津貼 1 1 發(fā)放 考核 1 n 工資 特殊項 時間 金額 名稱 職工 ID 職工 ID 工資取畢 合計工資 畢業(yè)設(shè)計（論文） 第 頁 14 工作年月 日期 (8) 工資 表名稱 工資 字段名稱 類型 (寬度 ) 關(guān)鍵字 可為空 編碼規(guī)則 取值范圍 缺省值 職工 ID 文本 (10) PK not null 工資取畢 是否 合計工資 貨幣 職位 表名稱 職位 字段名稱 類型 (寬度 ) 關(guān)鍵字 可為空 編碼規(guī)則 取值范圍 缺省值 職位 文本 (10) PK not null 津貼 貨幣