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