【正文】 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) 人員管理窗體的功能主要實現(xiàn)人員的增改刪功能。該模塊實現(xiàn)職位信息的添加、刪除、修改功能。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實現(xiàn)修改的功能。如圖 所示： 畢業(yè)設計（論文） 第 頁 25 圖 修改特殊項窗體 工資發(fā)放管理模塊的 設計與實現(xiàn) 用戶點擊主界面“工資”菜單，顯示發(fā)放工資窗口。平時課堂上的理論經(jīng)過自己的親身實踐，我對管理系統(tǒng)的開發(fā)過程包括需求分析、概要設計、詳細設計、代碼編寫、測試等都有深刻的體驗和全面的認識。打開錯誤處理陷阱 畢業(yè)設計（論文） 第 頁 31 Dim intErrFileNo As Integer 39。 Exit Sub 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) + CloseRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 二、系統(tǒng)主界面 39。 39。記錄選定行 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub 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。 txtValue(5).Text amp。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。執(zhí)行 SQL SQL 39。 End If CloseDBFile 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。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 _ WHERE 職工 ID = amp。修改員工信息 Private Sub cmdModify_Click() 39。 txtValue(3).Text amp。Mode=ReadWrite。顯示修改員工窗體 Private Sub cmdUpdateEmployee_Click() End Sub 39。隱藏本窗體 Private Sub cmdCancel_Click() End Sub 39。自由文件號 On Error GoTo ErrGoto 39。Public Sub CloseDBFile() 39。數(shù)據(jù)庫連接對象 Public gCon As New 39。如下圖所示： 畢業(yè)設計（論文） 第 頁 27 圖 統(tǒng)計報表運行時界面 本系統(tǒng)中只實現(xiàn)了前 3 個按鈕的功能。 39。在窗體初始化的時候，初始化為 1b1Field 控件數(shù)組。窗體初始化時，會把“人員管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中，用戶修改 txtValue控件數(shù)組中的文字內容。如圖 所示： 圖 系統(tǒng)主界面 主界面沒有包含控件，但是包含一個菜單，菜單中包括：人 員管理窗體，職位管理窗體，特殊項管理窗體，工資發(fā)放窗體，統(tǒng)計報表窗體和退出程序。與現(xiàn)存物理數(shù)據(jù)庫有關的實體關系圖可以自動生成。管理人員可以根據(jù)條件增加、修改和查看員工考核記錄。主要員工基本檔案信息的管理。在數(shù)據(jù)庫應用系統(tǒng)的創(chuàng)建過程中， Visual Basic 能夠出色地承擔起前端界面層和中間連接層的創(chuàng)建任務。這是也是需要說明的業(yè)務規(guī)則。 基本表字段的設計只取其重點，初始版本將重點放在系統(tǒng)的實現(xiàn)上，后續(xù)版本才能最終適用。這個階 段的處理方式已發(fā)展為面向終端的聯(lián) 機實時處理。 該系統(tǒng)是典型的信息管理系統(tǒng) ,其開發(fā)主要包括后臺數(shù)據(jù)庫的建立、維護以及前端應用程序的開發(fā)兩個方面。 第一階段：（ 1953 年至 1965 年）單項數(shù)據(jù)處理階段，也稱電子數(shù)據(jù)處理（ EDP）階段。 隨著科學技術的不斷提高 ,計算機科學日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。需求分析是在用戶調查的基礎上，通過分 析，逐步明確用戶對系統(tǒng)的需求，包括數(shù)據(jù)需求和圍繞這些數(shù)據(jù)的業(yè)務需求 。在 Visual Basic 中進行部件編程是通過微軟的部件對象模型（ COM， Compo Object Model） 實現(xiàn)的。 Visual Basic 中 有三種可用的數(shù)據(jù)訪問接口： ActiveX 數(shù)據(jù)對象 (ADO)、遠程數(shù)據(jù)對象 (RDO) 和數(shù)據(jù)訪問對象(DAO)。 畢業(yè)設計（論文） 第 頁 11 系統(tǒng)總體功能圖 概要設計階段，我們可以得到系統(tǒng)總體功能圖如圖 所示： 圖 系統(tǒng)總體功能圖 模塊設計 根據(jù)上面的分析，工資管理信息系統(tǒng)各個模塊的名稱和功能概要說明如下： 1) 員工檔案信息管理。 實體關系圖中的實體有三種：一般實體（ normal entity,表示邏輯或物理數(shù)據(jù)集）；聯(lián)系實體（ associate entity，表示含有多對多關系的關系表）；分解實體（ depositions,表示一組將在下畢業(yè)設計（論文） 第 頁 12 層實體關系圖中細化的數(shù)據(jù)）。一個過程可能用來響應幾個不同對象中的事件，應該將這個過程放在標準模塊中，而不應在每一個對象的事件過程中重復相同的代碼。用戶單擊“修改員工”按鈕，則顯示 修改員工窗體，并將相關的用戶選定信息傳遞給修改員工窗體。操作完畢，用戶單擊“取消”按 畢業(yè)設計（論文） 第 頁 22 鈕，可以退出本窗體。用戶單擊“添加特殊項”按鈕，則顯示添加特殊項窗體。分別是月表的名稱和員工的工資總額： Option Explicit 39。這些都有待在以后的版本中進一步改善。 。自由文件號 On Error GoTo ErrGoto 39。 \職工工資管理系統(tǒng) .mdb 畢業(yè)設計（論文） 第 頁 34 Set gX = CreateObject() End Sub 39。 amp。初始化 Private Sub Form_Load() 39。生成 SQL 語句 SQL = INSERT INTO 職工 (職工 ID,職位 ,姓名 ,性別 ,出生年月 ,工作年月 ) VALUES( SQL = SQL amp。刷新數(shù)據(jù) 39。 txtValue(2).Text 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) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 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) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdPrint_Click() End Sub Private Sub Form_Load() mMonth = Format(Date 30, YYYYMM) End Sub Private Sub OLE1_Updated(Code As Integer) End Sub 畢業(yè)設計（論文） 第 頁 43 畢業(yè)設計（論文） 第 頁 44 They both knew it. And if she hadn39。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。當前行 = 39。 txtValue(3).Text amp。 Exit Sub 39。 , SQL = SQL amp。自由文件號 On Error GoTo ErrGoto 39。關閉數(shù)據(jù)庫連接 CloseDBFile 39。調用 工資發(fā)放 窗體 Private Sub PayoffTable_Click() End Sub 39。 Exit Sub 39。Persist Security Info=False 39。其次，我還要感謝我的同事，當我遇到難題時他們幫助我一起解決，使我能在最短的時間里解決這些難題。動態(tài)生成 39。用戶單擊“修改特殊項”