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