【正文】 2個(gè)文本框和1個(gè)組合框，其中1個(gè)文本框?qū)?yīng)的字段由于是備注型，所以文本框的屬性值設(shè)定為： Multiline屬性設(shè)置為True。下面簡(jiǎn)單介紹查找定位按鈕的click事件，其它按鈕的事件源代碼可以參考附件和程序。, db, adOpenStatic, adLockOptimistic If Not Then MsgBox 該編號(hào)重復(fù)！, vbOKOnly + vbExclamation, 警告 Exit Sub Else (員工編號(hào)) = (姓名) = (性別) = (部門) = (民族) = (出生年月) = (政治面貌) = (家庭住址) = (聯(lián)系電話) = (畢業(yè)學(xué)校) = (最高學(xué)歷) = (所學(xué)專業(yè)) = If = Then (職務(wù)) = 無(wú) Else (職務(wù)) = End If (專業(yè)技術(shù)職稱) = (職稱時(shí)間) = (基本工資) = If = Then (獎(jiǎng)懲情況) = 無(wú) Else (獎(jiǎng)懲情況) = End If If = Then (個(gè)人簡(jiǎn)歷) = 無(wú) Else (個(gè)人簡(jiǎn)歷) = End If MsgBox 記載成功！, vbOKOnly + vbExclamation, 提示End If = = = = = = = = = = = = = = = = = = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Left = ( Width) \ 2Top = ( Height) \ 2End Sub通過(guò)該窗體的操作，系統(tǒng)可以完成對(duì)員工的基本信息的錄入。這樣就完成了對(duì)員工基本信息表的添加記錄。開該屬性的設(shè)置可以使文本框多行顯示，Scrollbars的值設(shè)定為2，該值的設(shè)定可以使組合框的有上下的滾動(dòng)下拉條。見Mode常數(shù)Provider 可讀寫String類型，如果ConnectionString中未指定OLE DB數(shù)據(jù)或服務(wù)提供者的名稱，就使用這時(shí)指定的名稱。默認(rèn)值為0，表示不使用保留事務(wù)。系統(tǒng)用戶通過(guò)菜單的操作來(lái)完成系統(tǒng)設(shè)計(jì)的各項(xiàng)功能。設(shè)計(jì)窗體就是將前面分析得到系統(tǒng)的功能模塊通過(guò)在Visual ，通過(guò)窗體的操作來(lái)實(shí)現(xiàn)預(yù)訂的模塊的功能。實(shí)現(xiàn)方法和步驟如下：以英文版本為例：通過(guò)菜單欄：AddIns→Visual Data Manager…點(diǎn)擊出現(xiàn)VisData界面，點(diǎn)擊菜單File→New→Microsoft Access→Vision MDB…彈出保存數(shù)據(jù)庫(kù)文件的存放位置和數(shù)據(jù)庫(kù)的文件名的對(duì)話框。數(shù)據(jù)通訊。在實(shí)現(xiàn)之前，這里簡(jiǎn)介一下該數(shù)據(jù)庫(kù)：Access是Office辦公套件中一個(gè)極為重要的組成部分。這一設(shè)計(jì)是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。而一般用戶沒有添加操作員的權(quán)限，他們只具備一般的數(shù)據(jù)瀏覽，查詢，統(tǒng)計(jì)，報(bào)表，和少數(shù)數(shù)據(jù)的添加，修改等權(quán)限。本系統(tǒng)的輸入報(bào)表是通過(guò)導(dǎo)出到excel完成報(bào)表的。經(jīng)過(guò)對(duì)系統(tǒng)的可行性分析、需求分析、數(shù)據(jù)分析后，結(jié)合調(diào)研的情況，確定了本子系統(tǒng)的功能模塊如下圖所示。數(shù)據(jù)元素條目數(shù)據(jù)元素系統(tǒng)名：人事工資管理?xiàng)l目名：?jiǎn)T工編號(hào)編號(hào)：E1別名：?jiǎn)T工號(hào)存儲(chǔ)處：D1 基本信息表D2 業(yè)務(wù)檔案表D3 考勤表D4 工資表數(shù)據(jù)元素值：代碼類型字符型長(zhǎng)度：10簡(jiǎn)要說(shuō)明：?jiǎn)T工編號(hào)是員工的識(shí)別符，每個(gè)員工都有唯一的編號(hào)。本功能實(shí)現(xiàn)對(duì)員工信息、業(yè)務(wù)信息、考勤信息的管理和統(tǒng)計(jì)、工作人員和管理人員信息查看及維護(hù)。根據(jù)數(shù)據(jù)流程圖可以看出新系統(tǒng)邏輯模型中具體系統(tǒng)功能如下：(1)人事檔案管理包括在職職工信息，離職教職工信息和部門信息。管理業(yè)務(wù)流程圖的圖形符號(hào)說(shuō)明：系統(tǒng)中人員系統(tǒng)外實(shí)體單據(jù)、報(bào)表、帳目處理數(shù)據(jù)流向存儲(chǔ)繪制出的業(yè)務(wù)流程圖如圖所示：?jiǎn)挝还芾砣藛T其他信息個(gè)人信息用戶財(cái) 務(wù)人 員工資信息單位管理人員考勤信息工資賬目圖21業(yè)務(wù)流程圖 新系統(tǒng)的數(shù)據(jù)流圖根據(jù)上面的業(yè)務(wù)流程分行，得到該系統(tǒng)的邏輯方案，該方案通過(guò)數(shù)據(jù)流程圖和數(shù)據(jù)字典二個(gè)方面來(lái)說(shuō)明。但本系統(tǒng)一旦投入使用，將大大減少人事工資管理人員的工作量，提高了工作效率，其經(jīng)濟(jì)效益是顯兒易見的。由于本管理系統(tǒng)的對(duì)象單一，僅對(duì)本單位的人事信息進(jìn)行管理，且在對(duì)人事信息進(jìn)行增減、修改、刪除及統(tǒng)計(jì)操作時(shí)基本不涉及到計(jì)算過(guò)程，因此，這個(gè)管理系統(tǒng)比較適合采用數(shù)據(jù)庫(kù)來(lái)設(shè)計(jì)。只需要一個(gè)操作方便，功能實(shí)用，能同時(shí)滿足財(cái)務(wù)部門、單位其他相關(guān)部門及代發(fā)單位這三方對(duì)數(shù)據(jù)的管理及需求的系統(tǒng)。若用人工的方法來(lái)管理這些數(shù)據(jù)，不但會(huì)造成人力、物力、財(cái)力上的浪費(fèi)，而且因?yàn)橐幚淼男畔⒘窟^(guò)大不容易進(jìn)行統(tǒng)計(jì)和分析。從數(shù)據(jù)的輸入，到數(shù)據(jù)在計(jì)算機(jī)內(nèi)存儲(chǔ)和處理，再到數(shù)據(jù)的輸出，特別是數(shù)據(jù)的存儲(chǔ)期間，都有一個(gè)數(shù)據(jù)組織的問(wèn)題，而數(shù)據(jù)庫(kù)方法提供了一種完美、高級(jí)的數(shù)據(jù)管理方法。例如：反映學(xué)生學(xué)習(xí)情況的學(xué)生成績(jī)信息，商店中商品和關(guān)于這些商品的各種特征的信息（商品名稱、規(guī)格、顏色、數(shù)量、單價(jià)等等）。本設(shè)計(jì)說(shuō)明書主要講述了VISAUL ，系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)，面向?qū)ο蟮脑O(shè)計(jì)思想，窗體的設(shè)計(jì)，應(yīng)用程序的開發(fā)方法等內(nèi)容。隨著計(jì)算機(jī)的普及，計(jì)算機(jī)也不再僅是普遍地用于處理數(shù)值計(jì)算問(wèn)題，而是廣泛應(yīng)用于事務(wù)數(shù)據(jù)處理一類的非數(shù)值應(yīng)用的各種領(lǐng)域中。隨著我國(guó)國(guó)企改革的深入和社會(huì)主義市場(chǎng)經(jīng)濟(jì)的日趨繁榮，導(dǎo)致各企業(yè)間的競(jìng)爭(zhēng)日益激烈，迫使企業(yè)采取先進(jìn)的計(jì)算機(jī)硬件設(shè)備以及高質(zhì)量的輔助軟件來(lái)管理企業(yè)的各項(xiàng)運(yùn)作，以提高本企業(yè)的勞動(dòng)生產(chǎn)率以及人員效率。高效的、準(zhǔn)確的人事工資管理，不僅能促進(jìn)員工不斷提高自身素質(zhì)、提高工作積極性。當(dāng)然不能靠主觀猜想而是要靠客觀分析。在作者所了解數(shù)據(jù)庫(kù)系統(tǒng)中，因?yàn)閷W(xué)過(guò)Visual Basic ，對(duì)ACCESS數(shù)據(jù)庫(kù)比較熟悉，因此決定采用VisualBasic 。 人員的可行性本人事工資管理系統(tǒng)是用VisualBasic ，無(wú)須多少人員就可以設(shè)計(jì)成功的。由于圖形描述簡(jiǎn)明，清晰，不涉及到技術(shù)細(xì)節(jié)，所描述的內(nèi)容是面向用戶的，所以即使完全不懂信息技術(shù)的用戶單位的人員也容易理解。(3)員工工作評(píng)價(jià)管理提供對(duì)員工的每年度的工作考核進(jìn)行錄入，維護(hù)和瀏覽以及報(bào)表等功能。數(shù)據(jù)詞典的作用是給數(shù)據(jù)流圖上的每一個(gè)成分以定義和說(shuō)明。修改記錄：編寫日期2005425審核日期表23數(shù)據(jù)流條目舉例表數(shù)據(jù)存儲(chǔ)條目數(shù)據(jù)存儲(chǔ)系統(tǒng)名：人事工資管理?xiàng)l目名：工資表編號(hào)：D4別名：無(wú)存儲(chǔ)組織：每個(gè)員工一條工資記錄按員工編號(hào)順序排列主關(guān)鍵字：?jiǎn)T工編號(hào)輔關(guān)鍵字：年月記錄組成：項(xiàng)名：?jiǎn)T工編號(hào)基本工資崗位津貼加班津貼考勤工資行政扣款應(yīng)發(fā)工資所得稅實(shí)發(fā)工資年月長(zhǎng)度：（byte）10666666666簡(jiǎn)要說(shuō)明：?jiǎn)T工的所有的創(chuàng)建的工資信息都存儲(chǔ)在這里。檔案查詢：可以按姓名、職稱或任意條件查詢個(gè)人或一部分人的情況評(píng)價(jià)編輯：包括對(duì)員工每年的考核評(píng)價(jià)等級(jí)等情況進(jìn)行錄入和瀏覽?？记诓樵? 按姓名或員工編號(hào)查詢個(gè)人出勤情況。該參數(shù)的設(shè)置直接影響員工的工資表。員工業(yè)務(wù)檔案表（員工編號(hào)、崗位編號(hào)、業(yè)務(wù)檔案等）。自從1992年開始銷售以來(lái)，已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫(kù)管理系統(tǒng)。 ● ACCESS數(shù)據(jù)庫(kù)的構(gòu)成 ACCESS數(shù)據(jù)庫(kù)是一系列數(shù)據(jù)基本表、表與表之間的關(guān)系、查詢、窗體、報(bào)表、頁(yè)、宏和模塊的集合。第四章 系統(tǒng)的詳細(xì)設(shè)計(jì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)被用戶利用的方式可以通過(guò)數(shù)據(jù)管理系統(tǒng)提供的操作功能來(lái)使用，也可通過(guò)應(yīng)用程序操作數(shù)據(jù)庫(kù)。在Visual 。回到該界面窗體的。 ConnectionString 可讀寫String類型，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息 ConnectionTimeout 可讀寫Long類型，默認(rèn)值為15秒。見State常數(shù) Version 只讀String類型，返回ADO版本號(hào)。按鈕控件用來(lái)觸發(fā)它們相應(yīng)的事件的發(fā)生。Data Source=。圖45 員工基本信息界面圖該窗體包括的控件有文本框和組合框，按鈕等控件，文本框和組合框可以顯示數(shù)據(jù)庫(kù)中員工基本信息表的記錄，默認(rèn)的記錄定位為第一條記錄，用戶可以通過(guò)按鈕的導(dǎo)航，瀏覽數(shù)據(jù)庫(kù)中其它記錄。接著利用語(yǔ)句If (員工編號(hào)) a Then Else…顯示記錄…endif來(lái)判斷記錄集是否下移，當(dāng)當(dāng)前記錄集的員工字段編號(hào)不等于輸入的員工編號(hào)值時(shí)，記錄集就下移。通過(guò)該窗體的操作，系統(tǒng)可以完成對(duì)員工的檔案信息的錄入。由于員工的考勤工資部分是動(dòng)態(tài)的，也就是說(shuō)相對(duì)其它的基本工資，崗位工資而言，每個(gè)月都是變化的，所以為了科學(xué)管理、核算員工的考勤工資部分，這里分成二個(gè)子模塊來(lái)完成員工的考勤管理。創(chuàng)建/瀏覽考勤按鈕的click事件：根據(jù)輸入的年、月在考勤表中查詢，如果記錄集為空，則表明該月的考勤表還沒有創(chuàng)建，則開始創(chuàng)建考勤表，初始化的數(shù)據(jù)中遲到次數(shù)、早退次數(shù)、缺席次數(shù)等為0，考勤記錄以后可以通過(guò)考勤維護(hù)窗體對(duì)該員工的出勤情況進(jìn)行修改。 39。每記載一次比如遲到，數(shù)據(jù)庫(kù)中遲到的次數(shù)就被加1。 39。具體就是在考勤字段的基礎(chǔ)上加1。應(yīng)發(fā)工資最后實(shí)現(xiàn)的語(yǔ)句：x = (基本工資) + (崗位津貼) + (加班津貼) (考勤工資) (行政性扣款) (應(yīng)發(fā)工資) = x通過(guò)以上語(yǔ)句可以看出，應(yīng)發(fā)工資是有基本工資＋崗位工資＋加班津貼－考勤工資－個(gè)人所得稅。 c amp。導(dǎo)出到EXCEL表按鈕的clcik事件：將工資記錄集中的數(shù)據(jù)導(dǎo)出到excel表中，通過(guò)excel表完成報(bào)表打印。文本框控件用于輸入年，組合框用于選擇工資的月份。 39。按鈕控件用來(lái)觸發(fā)相應(yīng)事件的發(fā)生。 39。具體代碼如下:Dim WithEvents adoPrimaryRS As RecordsetDim WithEvents adoPrimaryRS1 As RecordsetPrivate Sub Command1_Click() If = 輸入年 Or = 選擇月 Then MsgBox 年月不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If a = b = c = a amp。圖47系統(tǒng)考勤表界面圖該窗體包括一個(gè)表格控件、一個(gè)文本框控件、一個(gè)組合框控件、四個(gè)按鈕控件。 amp。從更早的將人事信息管理系統(tǒng)投入到實(shí)際的應(yīng)用中。分別實(shí)現(xiàn)信息表中的數(shù)據(jù)的修改更新，添加信息，刪除當(dāng)前記錄 ，實(shí)現(xiàn)簡(jiǎn)單的查找定位。 39。更新語(yǔ)句是很重要的，如果沒有更新語(yǔ)句，最后數(shù)據(jù)庫(kù)中的記錄不能得到修改和添加。其中的記錄個(gè)人情況等的文本框?qū)?yīng)的字段是備注型，所以將該文本框的Multiline屬性設(shè)置為True。見Mode Long類型，指定對(duì)Connection的讀寫權(quán)限。常數(shù)adXactCommitRetaining表示調(diào)用CommitTrans方法時(shí)啟動(dòng)一個(gè)新事務(wù)；常數(shù)adXactAbortRetaning表示調(diào)用 RollbackTrans方法時(shí)啟動(dòng)一個(gè)新事務(wù)。 系統(tǒng)界面的設(shè)計(jì)圖43系統(tǒng)主界面圖系統(tǒng)主界面主要有系統(tǒng)菜單和運(yùn)行界面。當(dāng)設(shè)計(jì)好系統(tǒng)的數(shù)據(jù)庫(kù)結(jié)構(gòu)后，就可以開始在Visual 。 在需求分析、概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)之后，我們就可以在Visual 。數(shù)據(jù)庫(kù)操作。列名數(shù)據(jù)類型寬度可否為空員工編號(hào)（主鍵）文本型6不能為空姓名文本型8可為空性別文本型2可為空部門文本型10可為空民族文本型20可為空出生年月日期