【正文】 Exit_Click() Unload Me End End Sub 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo 畢業(yè)設計（論文） 第 頁 33 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。 Provider=。其功能基本符合用戶需求，能夠完成公司人員檔案的存儲和工資的查詢。如圖 所示： 圖 工 資發(fā)放界面 畢業(yè)設計（論文） 第 頁 26 用戶進入界面，首先選擇要發(fā)工資的月份和職工的姓名，點擊“生成月表”按鈕，系統(tǒng)便將生成的工資記錄顯示在界面左側的數(shù)據(jù)柵格中。如圖 所示： 圖 修改職位窗體 特殊項管理模塊的設計與實現(xiàn) 點擊主界面“特殊項管理”菜單后，顯示特殊項窗口。用戶單擊“添加職位”按鈕，則顯示添加職位窗體。用戶單擊“添加員工”按鈕，則顯示添加員工窗體。如圖 所示： 畢業(yè)設計（論文） 第 頁 16 圖 創(chuàng)建表：職工 點擊保存確定后，可以在職工工資管理系統(tǒng) 數(shù)據(jù)庫的 目錄下看到職工表，如圖 畢業(yè)設計（論文） 第 頁 17 圖 . 保存后職工表 接著按照設計好的 ER 創(chuàng)建其他的表 ，具體過程與此相同，在此 處略。 ER 圖即實體關系圖 (Entity relationship diagram)。完成對員工的工資管理功能。是 DAO/RDO 的后 繼產(chǎn)物， ADO擴展 了 DAO和 RDO 所使用的對象模型，這意味著它包含較少的對象、更多的屬性、方法（和參數(shù)），以及事件。它是建立在類模塊基礎上的，并通過類的封裝、繼承、多態(tài)性獲得代碼重用。 2) 職位管理輸入和修改跟職位有關的信息，如基本工資等。 所以工資管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。 Database 目 錄 摘 要 ..................................................................... 1 管理信息系統(tǒng)的歷史和發(fā)展 .............................................. 5 畢業(yè)設計（論文） 第 頁 3 本系統(tǒng)開發(fā)的目的和意義 .............................................. 5 本系統(tǒng)的假設、限制和要求 ............................................ 6 用戶需求分析 ........................................................ 7 工資管理信息系統(tǒng)業(yè)務流程圖 ....................................... 7 后臺數(shù)據(jù)庫的選擇 ................................................. 9 什么是 ADO ........................................................ 9 3．系統(tǒng)概要設計 .......................................................... 10 系統(tǒng)結構描述 ....................................................... 10 系統(tǒng)總體功能圖 ..................................................... 10 模塊設計 ........................................................... 11 數(shù)據(jù)庫設計 ......................................................... 11 概念設計 ......................................................... 11 物理設計 ......................................................... 13 4. 詳細設計與模塊的實現(xiàn) .................................................. 15 創(chuàng)建數(shù)據(jù)庫 ......................................................... 15 系統(tǒng)標準模塊 ....................................................... 17 設計與實現(xiàn) ...................................................... 18 人員管理模塊的設計與實現(xiàn) ........................................... 19 創(chuàng)建添加員工窗體 ................................................. 19 創(chuàng)建修改員工窗體 ................................................. 20 職位管理模塊的設計與實現(xiàn) ........................................... 21 創(chuàng)建添加職位窗體 ................................................. 22 創(chuàng)建修改職位窗體 ................................................. 22 特殊項管理模塊的設計與實現(xiàn) ......................................... 23 創(chuàng)建添加特殊項窗體 ............................................... 24 創(chuàng)建修改特殊項窗體 ............................................... 24 工資發(fā)放管理模塊的設計與實現(xiàn) ....................................... 25 統(tǒng)計報表模塊的設計與實現(xiàn) ........................................... 26 5. 結束語 ................................................................ 29 致 謝 .................................................................... 29 畢業(yè)設計（論文） 第 頁 4 參考文獻 ................................................................. 30 附錄 源程序清單 .......................................................... 31 畢業(yè)設計（論文） 第 頁 5 1．前言 管理信息系統(tǒng)的歷史和發(fā)展 管理信息系統(tǒng)（ MIS， Management Information System），是一個由人、計算機等組成的 能進行信息的收集、傳送、儲存、維護和使用的系統(tǒng)，能夠實測企業(yè)的各種運行情況，并利用過去的歷史數(shù)據(jù)預測未來，從企業(yè)全局的角度出發(fā)輔助企業(yè)進行決策，利用信息控制企業(yè)的行為，幫助企業(yè)實現(xiàn)其規(guī)劃目標 。 rapidly needs the information。這個階段的處理方式是在數(shù)據(jù)庫和網(wǎng)絡基礎上組成分布式處理系統(tǒng)。 3) 輸入：員工基本信息、考核詳細記錄等相關信息。 Visual Basic 的特點： ： Visual Basic 是可視化開發(fā)工具的先驅與典范，實際上， Visual Basic 所展現(xiàn)出來的可視性風格，已經(jīng)成為了諸多可視性繼承開發(fā)工具的參照 標準。 Access 中數(shù)據(jù)庫文件不是簡單的存儲數(shù)據(jù)的表，其數(shù)據(jù)庫文件還包括操作或控制數(shù)據(jù)的其他對象（如查詢，窗體和報表等）。 3) 績效考核。 5) 報表功能。通過含有實體和相互間關系的瀏覽器，可以看到哪些關系是強制的，哪些是任意的 。 \職工工資管理系統(tǒng) .mdb Set gX = CreateObject() End Sub 調用主界面中的各個窗體，如調用“人員管理”窗體： Private Sub HRManage_Click() 畢業(yè)設計（論文） 第 頁 19 End Sub 其他窗體同上方法。如圖４ .7 所示： 畢業(yè)設計（論文） 第 頁 21 圖 修改員工窗體 職位管理模塊的設計與實現(xiàn) 點擊主窗口“職位”菜單后，顯示職位信息管理窗口。窗體初始化時，會把“職位管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶單擊“取消”按鈕，退出該窗體。通過這次畢業(yè)設計的實際“練兵”，使我對管理信息系統(tǒng)和數(shù)據(jù)庫有了更深刻更直觀的認識。打開數(shù)據(jù)庫文件 Public Sub OpenDBFile() 39。 39。 ErrGoto: 39。自由文件號 On Error GoTo ErrGoto 39。End Sub 39。 ErrGoto: 39。 , SQL = SQL amp。 39。打開連接 OpenDBFile 39。 amp。 my father was perfectly well aware of that, too. At last Petra39。保證職工 ID 不會被改變 txtValue(0).Locked = True 畢業(yè)設計（論文） 第 頁 42 End Sub 六，創(chuàng)建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。 txtValue(4).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) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。 , SQL = SQL amp。Data Source= amp。 Exit Sub 39。調用 特殊項管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS)