【正文】 odel）實(shí)現(xiàn)的。COM是建立在二進(jìn)制標(biāo)準(zhǔn)上的對(duì)象模型，其具有通用性。因此，在Visual Basic中創(chuàng)建的部件可以自用，也可以在其他開發(fā)環(huán)境中使用，同時(shí)Visual Basic也可以引用由其他開發(fā)工具建立的部件。：基于事件驅(qū)動(dòng)的編程方法體現(xiàn)在程序的執(zhí)行是依靠系統(tǒng)能夠被識(shí)別的觸發(fā)事件啟動(dòng)的。用戶操作、系統(tǒng)信息，以及程序等各種因素都可能觸發(fā)事件。當(dāng)對(duì)象由一種狀態(tài)過(guò)渡到另一種狀態(tài)時(shí)，可能會(huì)發(fā)生許多個(gè)與時(shí)間相關(guān)的有序事件，而事件順序又將決定著代碼執(zhí)行順序，因此，基于事件編寫程序也就成為了根據(jù)有待解決的問(wèn)題性質(zhì)合理安排事件和根據(jù)事件順序有效地組織程序。Visual Basic ，它能通過(guò)ODBC、Jet、ADO等中間連接件而獲得對(duì)數(shù)據(jù)庫(kù)的前端操作。在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的創(chuàng)建過(guò)程中，Visual Basic 。 后臺(tái)數(shù)據(jù)庫(kù)的選擇Access是Office軟件包的成員之一，擅長(zhǎng)對(duì)數(shù)據(jù)進(jìn)行處理，例如建立，排序，分類及匯總數(shù)據(jù)等操作。Access最重要的特征是不必編寫程序。Access中數(shù)據(jù)庫(kù)文件不是簡(jiǎn)單的存儲(chǔ)數(shù)據(jù)的表，其數(shù)據(jù)庫(kù)文件還包括操作或控制數(shù)據(jù)的其他對(duì)象（如查詢，窗體和報(bào)表等）。數(shù)據(jù)庫(kù)應(yīng)用總是會(huì)涉及到這3個(gè)方面的問(wèn)題：前端程序、數(shù)據(jù)庫(kù)結(jié)構(gòu)、前端程序和數(shù)據(jù)庫(kù)之間的連接， 在這里Visual Basic 。 什么是ADOADO（Active Data Objects）：Active數(shù)據(jù)對(duì)象。是DAO/RDO的后繼產(chǎn)物，ADO擴(kuò)展了DAO和RDO所使用的對(duì)象模型，這意味著它包含較少的對(duì)象、更多的屬性、方法（和參數(shù)），以及事件。ADO實(shí)際上是一種提供訪問(wèn)各種數(shù)據(jù)類型的連接機(jī)制。在使用 Visual Basic進(jìn)行數(shù)據(jù)庫(kù)程序的開發(fā)時(shí)，必須建立與數(shù)據(jù)庫(kù)的連接。Visual Basic中有三種可用的數(shù)據(jù)訪問(wèn)接口：ActiveX 數(shù)據(jù)對(duì)象(ADO)、遠(yuǎn)程數(shù)據(jù)對(duì)象(RDO) 和數(shù)據(jù)訪問(wèn)對(duì)象(DAO)。數(shù)據(jù)訪問(wèn)接口是一個(gè)對(duì)象模型，它包含了用于訪問(wèn)數(shù)據(jù)庫(kù)的各種變量和函數(shù)。Visual Basic 中的三種數(shù)據(jù)訪問(wèn)接口分別代表了該技術(shù)的不同發(fā)展階段。最新的是 ADO，它是比RDO和 DAO 更加簡(jiǎn)單，然而更加靈活的對(duì)象模型。目前普遍使用 ADO 作為數(shù)據(jù)訪問(wèn)接口。3．系統(tǒng)概要設(shè)計(jì) 系統(tǒng)結(jié)構(gòu)描述開發(fā)此系統(tǒng)的目的就是幫助小企業(yè)管理人員提高工作效率，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。根據(jù)這個(gè)系統(tǒng)所要實(shí)現(xiàn)的目的和任務(wù)，總結(jié)出這個(gè)系統(tǒng)最終實(shí)現(xiàn)的主要功能如下：1) 員工檔案管理。主要員工基本檔案信息的管理。2) 職位信息管理。主要用來(lái)統(tǒng)一管理各個(gè)職位的與工資有關(guān)的基本信息。3) 績(jī)效考核。主要完成每期對(duì)員工進(jìn)行考核。4) 工資發(fā)放。完成對(duì)員工的工資管理功能。5) 報(bào)表功能。主要完成查看歷史工資發(fā)放信息。 系統(tǒng)總體功能圖概要設(shè)計(jì)階段，： 系統(tǒng)總體功能圖 模塊設(shè)計(jì)根據(jù)上面的分析，工資管理信息系統(tǒng)各個(gè)模塊的名稱和功能概要說(shuō)明如下：1) 員工檔案信息管理。增加、修改和刪除員工基本檔案信息。2) 職位信息管理。主要用來(lái)統(tǒng)一各個(gè)職位的與工資有關(guān)的基本信息。用戶功能包括增加、修改和查看基本職位的各項(xiàng)工資信息。3) 特殊項(xiàng)管理。每期對(duì)員工進(jìn)行考核，考核成績(jī)包括遲到、早退、加班等方面。管理人員可以根據(jù)條件增加、修改和查看員工考核記錄。4) 工資發(fā)放。管理人員選擇員工、日期，系統(tǒng)生成該員工在該期的工資。5) 報(bào)表功能。根據(jù)條件羅列、統(tǒng)計(jì)已經(jīng)發(fā)放的工資。 數(shù)據(jù)庫(kù)設(shè)計(jì) 概念設(shè)計(jì)系統(tǒng)在概念設(shè)計(jì)階段常用ER圖表現(xiàn)。ER圖即實(shí)體關(guān)系圖(Entity relationship diagram)。實(shí)體關(guān)系圖可以定義為兩個(gè)層次，即可以從邏輯數(shù)據(jù)模型轉(zhuǎn)移到實(shí)施模型。ER圖涉及兩個(gè)方面，一是實(shí)體，二是關(guān)系。實(shí)體關(guān)系圖中的實(shí)體有三種：一般實(shí)體（normal entity,表示邏輯或物理數(shù)據(jù)集）；聯(lián)系實(shí)體（associate entity，表示含有多對(duì)多關(guān)系的關(guān)系表）；分解實(shí)體（depositions,表示一組將在下層實(shí)體關(guān)系圖中細(xì)化的數(shù)據(jù)）。實(shí)體通過(guò)關(guān)系而相連。一個(gè)“關(guān)系”可加兩個(gè)標(biāo)識(shí)（labels），指出各自的關(guān)系指向?！瓣P(guān)系”的基數(shù)類型（Cardinality）可以改變，而不必刪除這個(gè)關(guān)系然后再重新生成一個(gè)新關(guān)系?！瓣P(guān)系”的基數(shù)類型有三種：一對(duì)一關(guān)系；一對(duì)多關(guān)系（即實(shí)體B的多個(gè)實(shí)例可以與實(shí)體A的一個(gè)實(shí)例存在關(guān)系，反之亦然）；多對(duì)多關(guān)系（即實(shí)體B的多個(gè)實(shí)例可以與實(shí)體A的多個(gè)實(shí)例存在關(guān)系，反之亦然）。“任意關(guān)系”（optional relationship）是指兩個(gè)實(shí)體的關(guān)系可以不存在?！白有完P(guān)系”（subtype relationship）是“父實(shí)體”與“子實(shí)體”間的關(guān)系，指明“父實(shí)體”的屬性可以被“子實(shí)體”所繼承。與現(xiàn)存物理數(shù)據(jù)庫(kù)有關(guān)的實(shí)體關(guān)系圖可以自動(dòng)生成。要實(shí)現(xiàn)這一點(diǎn)，必須能夠自動(dòng)生成實(shí)體（表示物理意義的表）以及基于表間關(guān)系的實(shí)體間關(guān)系。在此基礎(chǔ)上，數(shù)據(jù)建模軟件便可以自動(dòng)生成圖。通過(guò)含有實(shí)體和相互間關(guān)系的瀏覽器，可以看到哪些關(guān)系是強(qiáng)制的，哪些是任意的。：職工姓名性別出生年月工作年月職位職工IDn屬性1職位職位基本工資津貼11發(fā)放考核1n工資特殊項(xiàng)時(shí)間金額名稱職工ID職工ID工資取畢合計(jì)工資 系統(tǒng)實(shí)體關(guān)系圖 邏輯設(shè)計(jì)關(guān)系模式1：?jiǎn)T工檔案（員工ID，職位，姓名，性別，出生年月，工作年月)主鍵：?jiǎn)T工ID外鍵：職位關(guān)系模式2：工資(員工ID，工資取畢，合計(jì)工資)主鍵：?jiǎn)T工ID關(guān)系模式3：特殊項(xiàng)(特殊項(xiàng)ID，職工ID，特殊項(xiàng)名稱，特殊項(xiàng)金額，特殊項(xiàng)時(shí)間)主鍵：特殊項(xiàng)ID外鍵：?jiǎn)T工ID關(guān)系模式4：職位(職位，基本工資，津貼)主鍵：職位根據(jù)上面分析的各種功能要求，以下列出數(shù)據(jù)庫(kù)中所建立的各個(gè)表的具體設(shè)置：職工表名稱職工字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍職工ID文本（10）PKnot null姓名文本(10)性別文本(2)男，女職位文本(10)FKNot null出生年月日期(8)工作年月日期(8)工資表名稱工資字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值職工ID文本(10)PKnot null工資取畢是否合計(jì)工資貨幣職位表名稱職位字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值職位文本(10)PKnot null津貼貨幣補(bǔ)助貨幣特殊項(xiàng)表名稱特殊項(xiàng)字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值特殊項(xiàng)ID文本（10）PKnot null職工ID文本(10)FK特殊項(xiàng)名稱文本(100)特殊項(xiàng)金額貨幣特殊項(xiàng)時(shí)間日期(8) 4. 詳細(xì)設(shè)計(jì)與模塊的實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫(kù)打開Access，創(chuàng)建數(shù)據(jù)庫(kù)，命名為職工工資管理系統(tǒng)。 創(chuàng)建數(shù)據(jù)庫(kù)使用設(shè)計(jì)器創(chuàng)建數(shù)據(jù)庫(kù)所需各個(gè)表格。：圖 創(chuàng)建表：職工點(diǎn)擊保存確定后，可以在職工工資管理系統(tǒng)數(shù)據(jù)庫(kù)的目錄下看到職工表，如圖. 保存后職工表接著按照設(shè)計(jì)好的ER創(chuàng)建其他的表，具體過(guò)程與此相同，在此處略。創(chuàng)建好所需表后建立數(shù)據(jù)庫(kù)表之間的關(guān)系，如圖： 職工工資管理系統(tǒng)數(shù)據(jù)庫(kù)表之間的關(guān)系 系統(tǒng)標(biāo)準(zhǔn)模塊使用VB開發(fā)管理信息系統(tǒng)，首先創(chuàng)建標(biāo)準(zhǔn)模塊。，是用來(lái)存放公用變量和公用函數(shù)的模塊。一個(gè)過(guò)程可能用來(lái)響應(yīng)幾個(gè)不同對(duì)象中的事件，應(yīng)該將這個(gè)過(guò)程放在標(biāo)準(zhǔn)模塊中，而不應(yīng)在每一個(gè)對(duì)象的事件過(guò)程中重復(fù)相同的代碼。在該系統(tǒng)中，標(biāo)準(zhǔn)模塊包括打開數(shù)據(jù)庫(kù)連接，關(guān)閉數(shù)據(jù)庫(kù)連接，打開數(shù)據(jù)庫(kù)集合和關(guān)閉數(shù)據(jù)庫(kù)集合等操作：39。變量要求聲明Option Explicit39。數(shù)據(jù)庫(kù)文件的名稱Public gFile As String39。數(shù)據(jù)庫(kù)連接對(duì)象 Public gCon As New 39。數(shù)據(jù)庫(kù)集合對(duì)象Public gRst As New 39。程序?qū)ο驪ublic gX As 系統(tǒng)主界面 界面設(shè)計(jì)啟動(dòng)工資管理信息系統(tǒng)后，系統(tǒng)進(jìn)入主界面。：圖 系統(tǒng)主界面主界面沒(méi)有包含控件，但是包含一個(gè)菜單，菜單中包括：人員管理窗體，職位管理窗體，特殊項(xiàng)管理窗體，工資發(fā)放窗體，統(tǒng)計(jì)報(bào)表窗體和退出程序。 設(shè)計(jì)與實(shí)現(xiàn)相應(yīng)MDIForm對(duì)象的Load事件，對(duì)整體進(jìn)行初始化39。設(shè)置啟動(dòng)參數(shù)Private Sub MDIForm_Load() gFile = amp。 \ Set gX = CreateObject()End Sub調(diào)用主界面中的各個(gè)窗體，如調(diào)用“人員管理”窗體：Private Sub HRManage_Click() End Sub 其他窗體同上方法。 人員管理模塊的設(shè)計(jì)與實(shí)現(xiàn)人員管理窗體的功能主要實(shí)現(xiàn)人員的增改刪功能。如圖 ： 人員管理窗體用戶重新選擇DataGrid1控件中的行列，則記錄用戶所在的行。用戶單擊“添加員工”按鈕，則顯示添加員工窗體。用戶單擊“刪除員工”按鈕，則彈出對(duì)話框確認(rèn)，無(wú)誤之后執(zhí)行SQL語(yǔ)句，刪除員工。然后刷新ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫(kù)和DataGrid控件中的數(shù)據(jù)一致性。用戶單擊“修改員工”按鈕，則顯示修改員工窗體，并將相關(guān)的用戶選定信息傳遞給修改員工窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。編寫窗體代碼：首先定義窗體的成員變量，為了讓其他窗體使用這個(gè)變量，設(shè)置其屬性為Public:39。當(dāng)前選定行號(hào)Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實(shí)現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。首先新建一個(gè)窗體，添加員工窗體包含兩個(gè)控件