【正文】 畢業(yè)設(shè)計示例軟件系統(tǒng)，因此將重點放在功能的實現(xiàn)上， 即不重復(fù)相同模式的功能實現(xiàn)。 2) 性能：能夠支持?jǐn)?shù)據(jù) 存儲，使用方便。 2) 職位管理輸入和修改跟職位有關(guān)的信息，如基本工資等。 畢業(yè)設(shè)計（論文） 第 頁 7 用戶需求分析 本文的主要內(nèi)容是編制出一個實用的程序來幫助 小型公司進(jìn)行更有效的工資管理。 通過業(yè)務(wù)流程圖我們可以看到，檔案信息、職位信息和績效考核信息的生成是工資清單的前提條件。 Visual Basic 是國內(nèi)外最流行的程序設(shè)計語言之一，它是可視化開發(fā)工具的先驅(qū)與典范，它所具有的可視化、面向?qū)ο蟆⒔M件開發(fā)等特性，大大縮短了應(yīng)用軟件的開發(fā)周期，因此，深受廣大軟件開發(fā)人員的厚愛。它是建立在類模塊基礎(chǔ)上的，并通過類的封裝、繼承、多態(tài)性獲得代碼重用。 COM 是建立在二進(jìn)制標(biāo)準(zhǔn)上的對象模型，其具有通用性。當(dāng)對象由一種狀態(tài)過渡到另 一種狀態(tài)時，可能會發(fā)生許多個與時間相關(guān)的有序事件，而事件順序又將決定著代碼執(zhí)行順序，因此，基于事件編寫程序也就成為了根據(jù)有待解決的問題性質(zhì)合理安排事件和根據(jù)事件順序有效地組織程序。 Access 最重要的特征是不必編寫程序。是 DAO/RDO 的后 繼產(chǎn)物， ADO擴(kuò)展 了DAO 和 RDO 所使用的對象模型，這意味著它包含較少的對象、更多的屬性、方法（和參數(shù)），以及事件。數(shù)據(jù)訪問接口是一個對象模型， 它包含了用于訪問數(shù)據(jù)庫的各種變量和函數(shù) 。 畢業(yè)設(shè)計（論文） 第 頁 10 3．系統(tǒng)概要設(shè)計 系統(tǒng)結(jié)構(gòu)描述 開發(fā)此系統(tǒng)的目的就是幫助 小企業(yè)管理人員提高工作效率，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化和自動化。主要用來統(tǒng)一管理各個職位的與工資有關(guān)的基本信息。完成對員工的工資管理功能。增加、修改和刪除員工基本檔案信息。 3) 特殊項管理。管理人員選擇員工、日期，系統(tǒng)生成該員工在該期的工資。 ER 圖即實體關(guān)系圖 (Entity relationship diagram)。 實體通過關(guān)系而相連。 “任意關(guān)系 ”（ optional relationship）是指兩個實體的關(guān)系可以不存在。在此基礎(chǔ)上，數(shù)據(jù)建模軟件便可以自動生成圖。如圖 所示： 畢業(yè)設(shè)計（論文） 第 頁 16 圖 創(chuàng)建表：職工 點擊保存確定后，可以在職工工資管理系統(tǒng) 數(shù)據(jù)庫的 目錄下看到職工表，如圖 畢業(yè)設(shè)計（論文） 第 頁 17 圖 . 保存后職工表 接著按照設(shè)計好的 ER 創(chuàng)建其他的表 ，具體過程與此相同，在此 處略。在該系統(tǒng)中，標(biāo)準(zhǔn)模塊包括打開數(shù)據(jù)庫連接，關(guān)閉數(shù)據(jù)庫連接，打開數(shù)據(jù)庫集合和關(guān)閉數(shù)據(jù)庫集合等操作： 39。數(shù)據(jù)庫集合對象 Public gRst As New 39。設(shè)置啟動參數(shù) Private Sub MDIForm_Load() gFile = amp。用戶單擊“添加員工”按鈕，則顯示添加員工窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。如圖 所示： 畢業(yè)設(shè)計（論文） 第 頁 20 圖 添加員工窗體 創(chuàng)建修改員工窗體 在窗體顯示的時候，保證窗體上面的數(shù)據(jù)與在人員管理窗體上選定的行的數(shù)據(jù)一致，同時保證職工 ID 不可改動。單擊“取消”按鈕，退出該窗體。用戶單擊“添加職位”按鈕，則顯示添加職位窗體。 其中為了保證數(shù)據(jù)庫和 DataGrid 控件中的數(shù)據(jù)一致性，實現(xiàn) DataGrid 控件的數(shù)據(jù)顯示要進(jìn)行以下操作： SQL = SELECT * FROM 職位 = Provider=。Mode=ReadWrite。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時保證職位不可改動。如圖 所示： 圖 修改職位窗體 特殊項管理模塊的設(shè)計與實現(xiàn) 點擊主界面“特殊項管理”菜單后，顯示特殊項窗口。用戶單擊“刪除特殊項”按鈕，則彈出對話框確認(rèn)，無誤后執(zhí)行 SQL 語句，刪除特殊項，刷新 ADO 數(shù)據(jù)控件，保證數(shù)據(jù)的一致性。在窗體初始化的時候，初始化 1b1Field 控件數(shù)組。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實現(xiàn)修改的功能。如圖 所示： 圖 工 資發(fā)放界面 用戶進(jìn)入界面，首先選擇要發(fā)工資的月份和職工的姓名，點擊“生成月表”按鈕，系統(tǒng)便畢業(yè)設(shè)計（論文） 第 頁 26 將生成的工資記錄顯示在界面左側(cè)的數(shù)據(jù)柵格中。月表的名稱 39。員工工資總額 39。窗體的代碼如下： 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è)計（論文） 第 頁 28 5. 結(jié)束語 本系統(tǒng)從開始到完成用了幾個月的時間，其中包括熟悉環(huán)境，設(shè)計編程與程序 調(diào)試，最后撰寫畢業(yè)論文。其功能基本符合用戶需求，能夠完成公司人員檔案的存儲和工資的查詢。 致 謝 首先我要感謝我的指導(dǎo)老師王貴珍。變量要求聲明 Option Explicit 39。Excel 程 序?qū)ο? Public gX As 39。 Provider=。Mode=ReadWrite。把錯誤信息保存在文件里 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) + OpenDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。自由文件號 On Error GoTo ErrGoto 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo 畢業(yè)設(shè)計（論文） 第 頁 32 Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + CloseDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic 39。關(guān)閉打開的數(shù)據(jù)集合 Public Sub CloseRS() 39。 Exit Sub 39。退出程序 Private Sub Exit_Click() Unload Me End End Sub 39。關(guān)閉所有窗口 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Unload AddEForm Unload AddPForm Unload AddSForm Unload UpdateEForm Unload UpdatePForm Unload UpdateSForm End Sub 39。當(dāng)前選定行號 Public CurEm As Integer 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 amp。 End If 39。 ErrGoto: 39。 CurEm = 39。 = 0 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 gFile amp。 Exit Sub 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 txtValue(0).Text amp。 txtValue(2).Text amp。 txtValue(4).Text amp。打開連接 OpenDBFile 39。隱藏窗體 39。初始化 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 畢業(yè)設(shè)計（論文） 第 頁 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創(chuàng)建修改員工 窗體 39。自由文件號 On Error GoTo ErrGoto 39。 _ ,職位 = amp。 _ ,性別 = amp。 _ ,工作年月 = amp。 39。刷新數(shù)據(jù) 39。刷新數(shù)據(jù) ,保持一致 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 39。打開錯誤處理 陷阱 Dim intErrFileNo As Integer 39。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 ErrGoto: 39。 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 gFile amp。 Exit Sub 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 txtValue(0).Text amp。 txtValue(2).Text amp。關(guān)閉數(shù)據(jù)連接 CloseDBFile 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Ch