【正文】 (34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 Exit Sub 39。自由文件號 On Error GoTo ErrGoto 39。打開數(shù)據(jù)集 Public Sub OpenRS(SQL As String) 39。 ErrGoto: 39。 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。關閉數(shù)據(jù)庫連接 39。 ErrGoto: 39。Persist Security Info=False 39。 。Data Source= amp。自由文件號 On Error GoTo ErrGoto 39。打開數(shù)據(jù)庫文件 Public Sub OpenDBFile() 39。數(shù)據(jù)庫集合對象 Public gRst As New 39。Access 數(shù)據(jù)庫文件的名稱 Public gFile As String 39。s COM+ Programming with Visual Basic】 作者： Scot Hillier，出版社：Sams，出版時間： 1 畢業(yè)設計過程中查閱的網(wǎng)站： 附錄 源程序清單 一、標準模塊 39。其次，我還要感謝我的同事，當我遇到難題時他們幫助我一起解決，使我能在最短的時間里解決這些難題。這些都有待在以后的版本中進一步改善。對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決。 經(jīng)過這段時間的設計和開發(fā)，工資管理系統(tǒng)基本開發(fā)完畢。通過這次畢業(yè)設計的實際“練兵”，使我對管理信息系統(tǒng)和數(shù)據(jù)庫有了更深刻更直觀的認識。本窗體的工作流程就是在用戶單擊需要的按鈕，顯示相應的窗體。計算得到 Public mSum As Double 統(tǒng)計報表模塊的 設計與實現(xiàn) 用戶點擊主界面“報表”菜單，系統(tǒng)顯示報表。而月表的名稱都會變?yōu)?202106 Public mTableName As String 39。動態(tài)生成 39。分別是月表的名稱和員工的工資總額： Option Explicit 39。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設置為 1。本窗體實現(xiàn)的具體功能如下：動態(tài)生成當月的工資表，查詢指定員工的工資信息，發(fā)放工資，打印工資憑條。用戶單擊“取消”按鈕，退出該窗體。保證姓名與 ID 一致 Private Sub cmbName_Click() = () End Sub 如圖 所示： 圖 添加特殊項窗體 創(chuàng)建修改特殊項窗體 窗體初始化時，會把“特殊項管理”窗體中選種的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶選擇對應的員工姓名，程序能夠自動查找到對應的職工 ID： 響應 cmbName 的單擊事件，單擊姓名的時候會自動查找相對應的職工 ID。 創(chuàng)建添加特 殊項窗體 本窗體實現(xiàn)添加一條記錄到特殊項表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持數(shù)據(jù)的一致性。用戶單擊“修改特殊項”按鈕，則顯示修改特殊項窗體，并將相關的用戶選定信息傳遞給修畢業(yè)設計（論文） 第 頁 24 改特殊項窗體。用戶單擊“添加特殊項”按鈕，則顯示添加特殊項窗體。 該窗口實現(xiàn)對特殊項的添加，刪除和修改功能。用戶單擊“取畢業(yè)設計（論文） 第 頁 23 消”按鈕，退出該窗體。窗體初始化時，會把“職位管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶對 txtValue 控件數(shù)組的屬性進行修改，當用戶單擊“添加”時，生成 SQL 語句并執(zhí)行，同時刷 新職位管理窗體的數(shù)據(jù)。Persist Security Info=False = SQL Set = Adodc1 創(chuàng)建添加職位窗體 本窗體實現(xiàn)添加一條記錄到職位表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持數(shù)據(jù)的一致性。 。Data Source= amp。操作完畢，用戶單擊“取消”按 畢業(yè)設計（論文） 第 頁 22 鈕，可以退出本窗體。用戶單擊“刪除職位”按鈕，則彈出對話框確認，無誤之后執(zhí)行 SQL 語句，刪除職位，然后刷新 ADO 數(shù)據(jù)控件，保 證數(shù)據(jù)一致性。如圖 所示： 圖 職位管理窗體 用戶重新選擇 DataGrid1 控件中的行列，則記錄用戶所在的行。如圖４ .7 所示： 畢業(yè)設計（論文） 第 頁 21 圖 修改員工窗體 職位管理模塊的設計與實現(xiàn) 點擊主窗口“職位”菜單后，顯示職位信息管理窗口。單擊“修改”按鈕，則生成并執(zhí)行ＳＱＬ語句，實 現(xiàn)修改功能。當用戶單擊“修改”按鈕時，生成并執(zhí)行對應的修改語句。首先新建一個窗體，添加員工窗體包含兩個控件數(shù)組， lblField 是一個 Label 控件數(shù)組，用于顯示字段名稱， txtValue 用于輸入這些字段的值；另外還有一個“添加”按鈕和“取消”按鈕，分別實現(xiàn)添加員工和退出窗體的功能。 編寫窗體代碼：首先定義窗體的成員變量，為了讓其他窗體使用這個變量，設置其屬性為 Public: 39。用戶單擊“修改員工”按鈕，則顯示 修改員工窗體，并將相關的用戶選定信息傳遞給修改員工窗體。用戶單擊“刪除員工”按鈕，則彈出對話框確認，無誤之后執(zhí)行 SQL語句，刪除員工。如圖 所示： 圖 4 . 6 人 員 管 理 窗 體 用戶重新選擇 DataGrid1 控件中的行列，則記錄用戶所在的行。 \職工工資管理系統(tǒng) .mdb Set gX = CreateObject() End Sub 調(diào)用主界面中的各個窗體，如調(diào)用“人員管理”窗體： Private Sub HRManage_Click() 畢業(yè)設計（論文） 第 頁 19 End Sub 其他窗體同上方法。 設計與實現(xiàn) 相應 MDIForm 對象的 Load 事件，對整體進行初始化 39。程序?qū)ο? Public gX As 畢業(yè)設計（論文） 第 頁 18 系統(tǒng)主界面 界面設計 啟動工資管理信息系統(tǒng)后，系統(tǒng)進入主界面。數(shù)據(jù)庫連接對象 Public gCon As New 39。變量要求聲明 Option Explicit 39。一個過程可能用來響應幾個不同對象中的事件，應該將這個過程放在標準模塊中，而不應在每一個對象的事件過程中重復相同的代碼。 創(chuàng)建好所需表后建立數(shù)據(jù)庫表之間的關系，如圖： 圖 職工工資管理系統(tǒng)數(shù)據(jù)庫表之間的關系 系統(tǒng)標準模塊 使用 VB 開發(fā)管理信息系統(tǒng)，首先創(chuàng)建標準模塊。如圖 所示 圖 創(chuàng)建數(shù)據(jù)庫 使用設計器創(chuàng)建數(shù)據(jù)庫所需各個表格 。通過含有實體和相互間關系的瀏覽器，可以看到哪些關系是強制的，哪些是任意的 。要實現(xiàn)這一點，必須能夠自動生成實體（表示物理意義的表）以及基于表間關系的實體間關系。 “子型關系 ”（ subtype relationship）是 “父實體 ”與 “子實體 ”間的關系，指明 “父實體 ”的屬性可以被 “子實體 ”所繼承。 “關系 ”的基數(shù)類型有三種：一對一關系；一對多關系（即實體 B 的多個實例可以與實體 A 的一個實例存在關系，反之亦然）；多對多關系（即實體 B的多個實 例可以與實體 A的多個實例存在關系，反之亦然）。一個 “關系 ”可加兩個標識（ labels），指出各自的關系指向。 實體關系圖中的實體有三種：一般實體（ normal entity,表示邏輯或物理數(shù)據(jù)集）；聯(lián)系實體（ associate entity，表示含有多對多關系的關系表）；分解實體（ depositions,表示一組將在下畢業(yè)設計（論文） 第 頁 12 層實體關系圖中細化的數(shù)據(jù)）。 實體關系圖可以定義為兩個層次，即可以從邏輯數(shù)據(jù)模型轉(zhuǎn)移到實施模型。 數(shù)據(jù)庫設計 概念設計 系統(tǒng)在概念設計階段常用 ER 圖表現(xiàn)。 5) 報表功能。 4) 工資發(fā)放。每期對員工進行考核，考核成績包 括遲到、早退、加班等方面。用戶功能包括增加、修改和查看基本職位的各項工資信息。 2) 職位信息管理。 畢業(yè)設計（論文） 第 頁 11 系統(tǒng)總體功能圖 概要設計階段，我們可以得到系統(tǒng)總體功能圖如圖 所示： 圖 系統(tǒng)總體功能圖 模塊設計 根據(jù)上面的分析，工資管理信息系統(tǒng)各個模塊的名稱和功能概要說明如下： 1) 員工檔案信息管理。 5) 報表功能。 4) 工資發(fā)放。 3) 績效考核。 2) 職位信息管理。根據(jù)這個系統(tǒng)所要實現(xiàn)的目的和任務，總結(jié)出這個系統(tǒng)最終實現(xiàn)的主要功能如下： 1) 員工檔案管理。 目前普遍 使用 ADO 作為數(shù)據(jù)訪問接口。 Visual Basic 中 的 三種數(shù)據(jù)訪問接口分別代 表了該技術的不同發(fā)展階段。 Visual Basic 中 有三種可用的數(shù)據(jù)訪問接口： ActiveX 數(shù)據(jù)對象 (ADO)、遠程數(shù)據(jù)對象 (RDO) 和數(shù)據(jù)訪問對象(DAO)。 ADO 實際上是一種提供訪問各種數(shù)據(jù)類型的連接機制。 什么是 ADO ADO（ Active Data Objects）： Active 數(shù)據(jù)對象。 Access 中數(shù)據(jù)庫文件不是簡單的存儲數(shù)據(jù)的表，其數(shù)據(jù)庫文件還包括操作或控制數(shù)據(jù)的其他對象（如查詢，窗體和報表等）。 后臺數(shù)據(jù)庫的選擇 Access 是 Office 軟件包的成員之一， 擅長對數(shù)據(jù)進行處理，例如建立，排序，分類及匯總數(shù)據(jù)等操作。 Visual Basic 是一個非常優(yōu)秀的數(shù)據(jù)庫應用前端開發(fā)工具，它能通過 ODBC、 Jet、 ADO等中間連接件而獲得對數(shù)據(jù)庫的前端操作。用戶操作、系統(tǒng)信息，以及程序等各種因素都可能觸發(fā)事件。因此，在 Visual Basic 中創(chuàng)建的部件可以自用，也可以在其他開發(fā)環(huán)境中使用，同時 Visual Basic 也可以引用由其他開發(fā)工具建立的部件。在 Visual Basic 中進行部件編程是通過微軟的部件對象模型（ COM， Compo Object Model） 實現(xiàn)的。這個特點尤其體現(xiàn)在它所具有的基于部件的編程方法上。 ：面向?qū)ο缶幊趟枷耄?OOP）誕生與 20世紀 80 年代初期，并先期在 Ada、 Small Talk、 C++等程序設計語言中實現(xiàn)。 Visual Basic 的特點： ： Visual Basic 是可視化開發(fā)工具的先驅(qū)與典范，實際上， Visual Basic 所展現(xiàn)出來的可視性風格，已經(jīng)成為了諸多可視性繼承開發(fā)工具的參照 標準。 技術要求 前臺開發(fā)語言的選擇 Visual Basic 繼承了 BASIC 語言簡單易學的優(yōu)點，又增加了許多新的功能，它采用面向?qū)ο笈c事件驅(qū)動的程序設計思想，使編程變得更加方便、快捷。因此，在每一期工資清單生成前，都必須考核相應的員工，否則，系統(tǒng)將不允許生成該員工的工資清單。 畢業(yè)設計（論文） 第 頁 8 圖 工資管理信息系統(tǒng)業(yè)務流程圖 首先員工將自己的個人檔案提交給系統(tǒng)管理人員（企業(yè)管理人員），管理員將檔案信 息錄入系統(tǒng)；職位信息統(tǒng)一修改由職位確定的基本工資等信息，對系統(tǒng)來說，屬于靜態(tài)工資；績效信息是對一段時間（比如一個月）對員工的考評成績，系統(tǒng)將根據(jù)員工的檔案信息和考評成績自動確定員工的工資數(shù)量，最后生成工資清單。 歸納起來，好處大約有以下幾點： (1) 可以存儲職員的檔案，安全、高效； (2) 只需一到二名會計人員經(jīng)過基本培訓即可操作系統(tǒng)，節(jié)省大量人力； 在假設的條件下，用戶的需求可分為如下幾個方面： 第 1 方面是員工的管理，包括員工的姓名、性別、職位等信息； 第 2 方面是職位的管理，每個職位對應著相應的工資和津貼； 第 3 方面是績效考評的管理，包括各種獎懲措 施，以及項目提成等內(nèi)容； 第 4 方面是工資發(fā)放； 第 5 方面是各種各樣的統(tǒng)計報表，方便用戶對以往數(shù)據(jù)的把握和管理； 業(yè)務流程 業(yè)務流程圖圖示說明 系 統(tǒng) 中 人 員 系 統(tǒng) 外 實 體 數(shù) 據(jù) 流 向 文 件 圖 業(yè)務流程圖圖示說明 工資管理信息系統(tǒng)業(yè)務流程圖 根據(jù)假設條件，設工資發(fā)放的業(yè)務流程如圖 所示。需求分析是在用戶調(diào)查的基礎上，通過分 析，逐步明確用戶對系統(tǒng)的需求，包括數(shù)據(jù)需求和圍繞這些數(shù)據(jù)的業(yè)務需求 。 3) 每月考核員工的成績，包括遲到、早退、曠工等信息。 基本數(shù)據(jù)流程和處理流程： 1) 用戶輸入員工信息，包括姓名、性別、出生