【正文】 Chr(34) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdRefresh_Click() 39。自由文件號 On Error GoTo ErrGoto 39。 Exit Sub 39。 txtValue(5).Text amp。 txtValue(1).Text amp。退出程序 Private Sub cmdCancel_Click() End Sub 39。執(zhí)行 SQL 語句 SQL 39。 , SQL = SQL amp。自由文件號 On Error GoTo ErrGoto 39。 。 CurEm = 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設計（論文） 第 頁 36 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) + cmdDeleteEmployee_Click(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 ?, vbYesNo) Then 39。顯示添加員工窗體 Private Sub cmdAddEmployee_Click() End Sub 畢業(yè)設計（論文） 第 頁 35 39。調用 人員管理 窗體 Private Sub HRManage_Click() End Sub 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。打開數據集 Public Sub OpenRS(SQL As String) 39。關閉數據庫連接 39。Data Source= amp。Access 數據庫文件的名稱 Public gFile As String 39。對于數據的一致性的問題也通過程序進行了有效的解決。計算得到 Public mSum As Double 統(tǒng)計報表模塊的 設計與實現 用戶點擊主界面“報表”菜單，系統(tǒng)顯示報表。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設置為 1。用戶選擇對應的員工姓名，程序能夠自動查找到對應的職工 ID： 響應 cmbName 的單擊事件，單擊姓名的時候會自動查找相對應的職工 ID。 該窗口實現對特殊項的添加，刪除和修改功能。Persist Security Info=False = SQL Set = Adodc1 創(chuàng)建添加職位窗體 本窗體實現添加一條記錄到職位表，并刷新人員管理窗體中的 ADO 數據控件，保持數據的一致性。用戶單擊“刪除職位”按鈕，則彈出對話框確認，無誤之后執(zhí)行 SQL 語句，刪除職位，然后刷新 ADO 數據控件，保 證數據一致性。當用戶單擊“修改”按鈕時，生成并執(zhí)行對應的修改語句。用戶單擊“刪除員工”按鈕，則彈出對話框確認，無誤之后執(zhí)行 SQL語句，刪除員工。程序對象 Public gX As 畢業(yè)設計（論文） 第 頁 18 系統(tǒng)主界面 界面設計 啟動工資管理信息系統(tǒng)后，系統(tǒng)進入主界面。 創(chuàng)建好所需表后建立數據庫表之間的關系，如圖： 圖 職工工資管理系統(tǒng)數據庫表之間的關系 系統(tǒng)標準模塊 使用 VB 開發(fā)管理信息系統(tǒng)，首先創(chuàng)建標準模塊。 “子型關系 ”（ subtype relationship）是 “父實體 ”與 “子實體 ”間的關系，指明 “父實體 ”的屬性可以被 “子實體 ”所繼承。 實體關系圖可以定義為兩個層次，即可以從邏輯數據模型轉移到實施模型。每期對員工進行考核，考核成績包 括遲到、早退、加班等方面。 5) 報表功能。根據這個系統(tǒng)所要實現的目的和任務，總結出這個系統(tǒng)最終實現的主要功能如下： 1) 員工檔案管理。 ADO 實際上是一種提供訪問各種數據類型的連接機制。 Visual Basic 是一個非常優(yōu)秀的數據庫應用前端開發(fā)工具，它能通過 ODBC、 Jet、 ADO等中間連接件而獲得對數據庫的前端操作。這個特點尤其體現在它所具有的基于部件的編程方法上。因此，在每一期工資清單生成前，都必須考核相應的員工，否則，系統(tǒng)將不允許生成該員工的工資清單。 3) 每月考核員工的成績，包括遲到、早退、曠工等信息。所以系統(tǒng)的核心輸出結果，即工資只與職工基本信息的職位欄和職工績效考核成績有關。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 等。如庫存管理系統(tǒng)、生產調度系統(tǒng)、物資管理系統(tǒng)等。管理信息系統(tǒng)通過對企業(yè)當前運行的數據進行處理來獲得有關信息，以控制企業(yè)的行為；利用過去和現在的數據及相應的模型，對未來的發(fā)展進行預測；能從全局目標出發(fā)，對企業(yè)的管理決策活動予以輔助?？梢源鎯λ杏嘘P工資、津貼、獎金等內容，安全高效；實現報表功能。 關鍵詞：管理信息系統(tǒng)；數據庫 ； 畢業(yè)設計（論文） 第 頁 2 Abstract The present paper primary coverage is the small business wages management system management system design and the system carries on the management to the wages information, has merit which the manual administration center is unable to may save all related contents and so on wages, allowance, bonus, safe highly effective。這是電子計算機在管理領域應用的起步階段。這個階段是在企業(yè)中全面的使用計算機把各種管理子系統(tǒng)的功能集中起來，構成了計算機化的全方位的信息系統(tǒng)，即現代管理信息系統(tǒng)。作為計算機應用的一部分 ,使用計算機對工資信息進行管理 ,具有手工管理所無法比擬優(yōu)點 。 2) 性能：能夠支持數據 存儲，使用方便。 畢業(yè)設計（論文） 第 頁 7 用戶需求分析 本文的主要內容是編制出一個實用的程序來幫助 小型公司進行更有效的工資管理。 Visual Basic 是國內外最流行的程序設計語言之一，它是可視化開發(fā)工具的先驅與典范，它所具有的可視化、面向對象、組件開發(fā)等特性，大大縮短了應用軟件的開發(fā)周期，因此，深受廣大軟件開發(fā)人員的厚愛。 COM 是建立在二進制標準上的對象模型，其具有通用性。 Access 最重要的特征是不必編寫程序。數據訪問接口是一個對象模型， 它包含了用于訪問數據庫的各種變量和函數 。主要用來統(tǒng)一管理各個職位的與工資有關的基本信息。增加、修改和刪除員工基本檔案信息。管理人員選擇員工、日期，系統(tǒng)生成該員工在該期的工資。 實體通過關系而相連。在此基礎上，數據建模軟件便可以自動生成圖。在該系統(tǒng)中，標準模塊包括打開數據庫連接，關閉數據庫連接，打開數據庫集合和關閉數據庫集合等操作： 39。設置啟動參數 Private Sub MDIForm_Load() gFile = amp。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。單擊“取消”按鈕，退出該窗體。 其中為了保證數據庫和 DataGrid 控件中的數據一致性，實現 DataGrid 控件的數據顯示要進行以下操作： SQL = SELECT * FROM 職位 = Provider=。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時候，保證窗體上面的數據與在職位管理窗體上選定的行的數據一致，同時保證職位不可改動。用戶單擊“刪除特殊項”按鈕，則彈出對話框確認，無誤后執(zhí)行 SQL 語句，刪除特殊項，刷新 ADO 數據控件，保證數據的一致性。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實現修改的功能。月表的名稱 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è)設計（論文） 第 頁 28 5. 結束語 本系統(tǒng)從開始到完成用了幾個月的時間，其中包括熟悉環(huán)境，設計編程與程序 調試，最后撰寫畢業(yè)論文。 致 謝 首先我要感謝我的指導老師王貴珍。Excel 程 序對象 Public gX As 39。Mode=ReadWrite。自由文件號 On Error GoTo ErrGoto 39。 OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic 39。 Exit Sub 39。關閉所有窗口 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。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 End If 39。 CurEm = 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 Exit Sub 39。 txtValue(0).Text amp。 txtValue(4).Text amp。隱藏窗體 39。自由文件號 On Error GoTo ErrGoto 39。 _ ,性別 = amp。 39。刷新數據 ,保持一致 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。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 39。 gFile amp。打開錯誤處理陷阱 Dim intErrFileNo As Integer 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), Ch