【文章內(nèi)容簡介】 工基本信息。列名數(shù)據(jù)類型寬度可否為空員工編號（主鍵）文本型6不能為空姓名文本型8可為空性別文本型2可為空部門文本型10可為空民族文本型20可為空出生年月日期/時(shí)間型8可為空政治面貌文本型10可為空家庭住址文本型50可為空聯(lián)系電話文本型11可為空畢業(yè)學(xué)校文本型50可為空最高學(xué)歷文本型6可為空所學(xué)專業(yè)文本型20可為空職務(wù)文本型8可為空專業(yè)技術(shù)職稱文本型20可為空職稱時(shí)間日期/時(shí)間型8可為空基本工資數(shù)字型單精度可為空獎(jiǎng)懲情況備注型Meno可為空個(gè)人簡歷備注型Meno可為空表31員工信息表(2) 業(yè)務(wù)檔案表 (TBInfo)：該表記錄員工業(yè)務(wù)相關(guān)檔案信息列名數(shù)據(jù)類型寬度可否為空員工編號（主鍵）文本型6不能為空崗位編號文本型20不能為空業(yè)務(wù)檔案備注型Meno不能為空表32業(yè)務(wù)檔案表(3)考勤表(attendanceInfo)：該表記錄員工考勤信息列名數(shù)據(jù)類型寬度可否為空員工編號（主鍵）文本型6不能為空遲到次數(shù)數(shù)字型2不能為空早退次數(shù)數(shù)字型2不能為空缺席次數(shù)數(shù)字型2不能為空離崗次數(shù)數(shù)字型2不能為空備注備注型Meno不能為空年月文本型6不能為空表33員工考勤信息表（4）工資表(wageInfo)：該表記錄員工工資信息列名數(shù)據(jù)類型寬度可否為空員工編號（主鍵）文本型6不能為空基本工資數(shù)字型（單精度）6不能為空崗位工資數(shù)字型（單精度）6不能為空加班津貼數(shù)字型（單精度）6不能為空考勤工資數(shù)字型（單精度）6不能為空行政性扣款數(shù)字型（單精度）6不能為空個(gè)人所得稅數(shù)字型（單精度）6不能為空實(shí)發(fā)工資數(shù)字型（單精度）6不能為空年月文本型6不能為空表34員工工資信息表（5）加班表(jbinfo)：該表記錄員工的加班信息列名數(shù)據(jù)類型寬度可否為空員工編號（主鍵）文本型6不能為空加班天數(shù)數(shù)字型2不能為空加班類別文本型1不能為空年月文本型6不能為空備注備注型Meno不能為空表35員工的加班信息表（6）xsinfo表：該表記錄工資系數(shù)列名數(shù)據(jù)類型寬度可否為空行政性扣款數(shù)字型（單精度）6不能為空遲到數(shù)字型（單精度）6不能為空早退數(shù)字型（單精度）6不能為空離崗數(shù)字型（單精度）6不能為空缺席數(shù)字型（單精度）6不能為空平時(shí)加班數(shù)字型（單精度）6不能為空雙休加班數(shù)字型（單精度）6不能為空節(jié)日加班數(shù)字型（單精度）6不能為空表36員工工資系數(shù)表（7）gwinfo表：崗位工資表 列名數(shù)據(jù)類型寬度可否為空崗位編號文本型6不能為空崗位名稱文本型10不能為空崗位工資數(shù)字型（單精度）6不能為空職責(zé)備注型Meno可為空表37員工崗位工資表（8）user表：改變記錄系統(tǒng)用戶列名數(shù)據(jù)類型寬度可否為空用戶名文本型20不能為空密碼文本型20不能為空級別文本型6不能為空聯(lián)系電話文本型11可為空表38系統(tǒng)用戶記錄表 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)本系統(tǒng)的后臺數(shù)據(jù)庫選擇為ACCESS，在以上的數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)和邏輯結(jié)構(gòu)設(shè)計(jì)完成后，就可以實(shí)現(xiàn)為ACCESS數(shù)據(jù)庫了。在實(shí)現(xiàn)之前，這里簡介一下該數(shù)據(jù)庫：Access是Office辦公套件中一個(gè)極為重要的組成部分。剛開始時(shí)微軟公司是將Access單獨(dú)作為一個(gè)產(chǎn)品進(jìn)行銷售的，后來微軟發(fā)現(xiàn)如果將Access捆綁在OFFICE中一起發(fā)售，將帶來更加可觀的利潤，于是第一次將Access捆綁到OFFICE97中，成為OFFICE套件中的一個(gè)重要成員?，F(xiàn)在它已經(jīng)成為Office辦公套件中不可缺少的部件了。自從1992年開始銷售以來，已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫管理系統(tǒng)。Access的新版本功能變得更加強(qiáng)大。不管是處理公司的客戶訂單數(shù)據(jù)，管理自己的個(gè)人通訊錄，還是大量科研數(shù)據(jù)的記錄和處理，人們都可以利用它來解決大量數(shù)據(jù)的管理工作。 ● ACCESS具有三大功能： 建立數(shù)據(jù)庫。數(shù)據(jù)庫操作。數(shù)據(jù)通訊。 ● ACCESS的內(nèi)部結(jié)構(gòu) ACCESS數(shù)據(jù)庫是關(guān)系型數(shù)據(jù)庫，具有表的特性，在ACCESS數(shù)據(jù)庫中，包括表、查詢、窗體、報(bào)表、頁、宏和模塊七個(gè)對象，這些對象用于收集、存儲和操作各種不同的信息。它們功能如下 :(1)利用表對象存儲信息；(2)利用查詢對象搜索信息；(3)利用窗體對象查看信息；(4)利用報(bào)表對象顯示信息；(5)利用頁對象顯示數(shù)據(jù)訪問頁信息；(6)利用宏對象完成自動(dòng)化工作；(7)利用嵌入模塊實(shí)現(xiàn)復(fù)雜功能。 ● ACCESS數(shù)據(jù)庫的構(gòu)成 ACCESS數(shù)據(jù)庫是一系列數(shù)據(jù)基本表、表與表之間的關(guān)系、查詢、窗體、報(bào)表、頁、宏和模塊的集合。 這里重點(diǎn)介紹一下表與表之間的關(guān)系： 表是保存數(shù)據(jù)或信息的主要場所，它是一個(gè)二維表，二維表的行稱為一個(gè)記錄，存儲某個(gè)實(shí)體的整體信息，是表的基本單位。表的一列稱為一個(gè)字段，存儲實(shí)體的一個(gè)屬性的信息，是表的可訪問的最小邏輯單位。表都應(yīng)有至少一個(gè)關(guān)鍵字，它可使表中的記錄惟一。 在需求分析、概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)之后，我們就可以在Visual 。實(shí)現(xiàn)方法和步驟如下：以英文版本為例：通過菜單欄：AddIns→Visual Data Manager…點(diǎn)擊出現(xiàn)VisData界面，點(diǎn)擊菜單File→New→Microsoft Access→Vision MDB…彈出保存數(shù)據(jù)庫文件的存放位置和數(shù)據(jù)庫的文件名的對話框。這時(shí)出現(xiàn)Database Windows設(shè)計(jì)界面，鼠標(biāo)右鍵選擇新建表。所設(shè)計(jì)的表的字段就是邏輯結(jié)構(gòu)表中的列名。第四章 系統(tǒng)的詳細(xì)設(shè)計(jì)數(shù)據(jù)庫中的數(shù)據(jù)被用戶利用的方式可以通過數(shù)據(jù)管理系統(tǒng)提供的操作功能來使用，也可通過應(yīng)用程序操作數(shù)據(jù)庫。 應(yīng)用程序是利用數(shù)據(jù)管理，為解決某個(gè)具體的管理或數(shù)據(jù)處理的任務(wù)而編制的一系列命令的有序集合。圖41應(yīng)用程序操作數(shù)據(jù)庫圖在本系統(tǒng)的后臺數(shù)據(jù)庫已經(jīng)設(shè)計(jì)完成后，現(xiàn)在就可以對系統(tǒng)分析階段設(shè)計(jì)的功能模塊通過編碼設(shè)計(jì)成一個(gè)應(yīng)用程序，最終來完成對數(shù)據(jù)庫中數(shù)據(jù)的管理和應(yīng)用的目的。 Visual Basic 是一個(gè)可視化的、面向?qū)ο蟮摹⒉捎檬录?qū)動(dòng)的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，它具有強(qiáng)大的數(shù)據(jù)庫操作功能，提供了數(shù)據(jù)管理器（Data Manager）、數(shù)據(jù)控件（Data Control）、以及ADO（Activex數(shù)據(jù)對象）等強(qiáng)大工具，利用它能夠建立多種類型的數(shù)據(jù)庫并可以管理維護(hù)和使用這些數(shù)據(jù)。當(dāng)設(shè)計(jì)好系統(tǒng)的數(shù)據(jù)庫結(jié)構(gòu)后，就可以開始在Visual 。設(shè)計(jì)窗體就是將前面分析得到系統(tǒng)的功能模塊通過在Visual ，通過窗體的操作來實(shí)現(xiàn)預(yù)訂的模塊的功能。由于Visual ，設(shè)計(jì)窗體和控件可以輕松通過系統(tǒng)得到，所以編程的時(shí)可以集中精力來設(shè)計(jì)控件的事件。面向?qū)ο蟮木幊誊浖褪峭ㄟ^控件這種對象，發(fā)出不同的消息，去觸發(fā)相應(yīng)事件的發(fā)生。在Visual 。圖42 Project界面功能圖即選擇菜單：File→New Project從而彈出如圖所示的界面，選擇Standard EXE，單擊OK，系統(tǒng)此時(shí)創(chuàng)建了一個(gè)工程文件Project1和一個(gè)窗體Form1。通過菜單File→Save Project。接下來就可以開始設(shè)計(jì)第一個(gè)窗體Form1了。 系統(tǒng)界面的設(shè)計(jì)圖43系統(tǒng)主界面圖系統(tǒng)主界面主要有系統(tǒng)菜單和運(yùn)行界面。系統(tǒng)用戶通過菜單的操作來完成系統(tǒng)設(shè)計(jì)的各項(xiàng)功能。該界面提供的菜單如下表所示：員工基本信息檔案管理評價(jià)管理出勤管理工資管理系統(tǒng)管理基本信息錄入檔案錄入評價(jià)初始化月考勤表月工資表系數(shù)設(shè)置基本信息維護(hù)檔案維護(hù)評價(jià)維護(hù)考勤維護(hù)工資查詢添加操作員基本信息查詢檔案查詢考勤查詢崗位工資維護(hù)基本信息統(tǒng)計(jì)檔案統(tǒng)計(jì)加班維護(hù)退出表41系統(tǒng)界面提供的菜單表菜單的設(shè)計(jì)是本窗體的重點(diǎn)，菜單設(shè)計(jì)的過程通過系統(tǒng)的菜單欄Tools→Menu Editor進(jìn)入菜單編輯器。添加如上圖所示的菜單后，關(guān)閉菜單?；氐皆摻缑娲绑w的。可以看到該窗體的上面已經(jīng)有了這些設(shè)計(jì)的菜單，通過點(diǎn)擊設(shè)計(jì)的菜單欄，即可進(jìn)入源代碼設(shè)計(jì)環(huán)境，通過添加clcik事件源代碼后，即完成了該窗體的設(shè)計(jì)。本功能實(shí)現(xiàn)了人事管理過程, 的VB內(nèi)置對象，其主要作用是實(shí)現(xiàn)了數(shù)據(jù)庫連接及SQL查詢語言的使用。該功能使用Connection對象以下相關(guān)屬性：Attributes屬性可讀寫Long類型，通過兩個(gè)常數(shù)之和指定是否使用保留事務(wù)（retainning transactions）。常數(shù)adXactCommitRetaining表示調(diào)用CommitTrans方法時(shí)啟動(dòng)一個(gè)新事務(wù)；常數(shù)adXactAbortRetaning表示調(diào)用 RollbackTrans方法時(shí)啟動(dòng)一個(gè)新事務(wù)。默認(rèn)值為0，表示不使用保留事務(wù)。 CommandTimeout 可讀寫Long類型，指定中止某個(gè)相關(guān)Command對象的Execute調(diào)用之前必須等待的時(shí)間。默認(rèn)值為30秒。 ConnectionString 可讀寫String類型，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息 ConnectionTimeout 可讀寫Long類型，默認(rèn)值為15秒。 CursorLocation 可讀寫Long類型，確定是使用客戶端(adUseClient)游標(biāo)引擎，還是使用服務(wù)器端(adUseServer)游標(biāo)引擎。默認(rèn)值是adUseServer。 DefaultDatabase 可讀寫String類型，如果ConnectString中未指定數(shù)據(jù)庫名稱，就使用這里所指定的名稱，對SQL Server而言，其值通常是pubs IsolationLevel 可讀寫Long類型，指定和其他并發(fā)事務(wù)交互時(shí)的行為或事務(wù)。見Mode Long類型，指定對Connection的讀寫權(quán)限。見Mode常數(shù)Provider 可讀寫String類型，如果ConnectionString中未指定OLE DB數(shù)據(jù)或服務(wù)提供者的名稱，就使用這時(shí)指定的名稱。默認(rèn)值是MSDASQL(Microsoft OLE DB Provider for ODBC)。 State 可讀寫Long類型，指定連接是處于打開狀態(tài)，還是處于關(guān)閉狀態(tài)或中間狀態(tài)。見State常數(shù) Version 只讀String類型，返回ADO版本號。 員工檔案信息錄入功能如下圖：圖44員工檔案信息錄入功能界面圖通過以上相關(guān)技術(shù)的引用，員工基本信息錄入功能編寫很快就可以完成了。該窗體設(shè)計(jì)包括13個(gè)文本框控件、5個(gè)組合框控件、2個(gè)按鈕控件。文本框控件和組合框控件用來輸入員工基本信息。其中的記錄個(gè)人情況等的文本框?qū)?yīng)的字段是備注型，所以將該文本框的Multiline屬性設(shè)置為True。開該屬性的設(shè)置可以使文本框多行顯示，Scrollbars的值設(shè)定為2，該值的設(shè)定可以使組合框的有上下的滾動(dòng)下拉條。其它的幾個(gè)備注型的文本框?qū)傩灾翟O(shè)定一樣。其中組合框的值不用用戶輸入，只需用戶選擇，選擇值的設(shè)定可以通過設(shè)定組合框的list屬性值來完成，比如設(shè)置性別對應(yīng)的組合框的list值為：男，女。按鈕控件用來觸發(fā)它們相應(yīng)的事件的發(fā)生。其中記載按鈕的click事件：當(dāng)單擊該按鈕時(shí)，首先檢查文本框輸入的是否為空，接著連接數(shù)據(jù)庫，建立記錄集，并利用記錄集打開查詢，最后對該查詢記錄集增加一條記錄，語句：。并設(shè)置增加的記錄的相應(yīng)字段值為文本框和組合框的輸入值，記錄集更新記錄。語句：。更新語句是很重要的，如果沒有更新語句，最后數(shù)據(jù)庫中的記錄不能得到修改和添加。這樣就完成了對員工基本信息表的添加記錄。退出按鈕的click事件是關(guān)閉該窗體，語句是：unload me。該窗體的源代碼具體如下:Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Command1_Click() If = Then MsgBox 員工編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 姓名不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 性別不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 部門不能為空！, vbOKOnly + vbExclamation, 警告