【文章內(nèi)容簡(jiǎn)介】 立性，而且可以與其他程序鏈接，達(dá)到數(shù)據(jù)的關(guān)聯(lián)，方便地應(yīng)用于其他的程序中。由于本系統(tǒng)只是進(jìn)行一般的數(shù)據(jù)庫(kù)操作，對(duì)速度要求并不十分高，所以數(shù)據(jù)庫(kù)中未調(diào)用Windows API函數(shù)。167。 數(shù)據(jù)字典數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成部分的數(shù)據(jù)元素，數(shù)據(jù)存儲(chǔ)，數(shù)據(jù)加工，通過(guò)數(shù)據(jù)字典描述清楚,以便于此后系統(tǒng)設(shè)計(jì)的進(jìn)行。下邊是數(shù)據(jù)項(xiàng)的數(shù)據(jù)字典:管理添加、修改、查詢、刪除員工基本信息：進(jìn)行刪除加入員工的內(nèi)容情況，入數(shù)據(jù)：編號(hào)+姓名+性別+籍貫+年齡+生日+學(xué)歷+專業(yè)+住址+郵編+電話+ EMAIL+參加工作時(shí)間+進(jìn)入公司時(shí)間+起薪時(shí)間+部門+職務(wù)。考勤信息也是（添加+修改+查詢+刪除）。調(diào)動(dòng)信息也是同樣的，可以根據(jù)企業(yè)的需要而進(jìn)行（添加+刪除+查詢+修改）來(lái)進(jìn)行企業(yè)內(nèi)部的調(diào)整。登陸=用戶名+登陸密碼（可以在內(nèi)部進(jìn)行添加和修改密碼）。用戶添加=輸入用戶名+密碼+確認(rèn)密碼。修改密碼=輸入舊密碼+新密碼+確認(rèn)密碼。員工的基本信息包括：編號(hào)、姓名、性別、籍貫、年齡、生日、學(xué)歷、專業(yè)、住址、郵編、電話、EMAIL、參加工作時(shí)間、進(jìn)入公司時(shí)間、起薪時(shí)間、部門、職務(wù)。下邊列有詳細(xì)列表：表1 員工基本信息表字段名類 型長(zhǎng) 度說(shuō) 明員工編號(hào)文本8個(gè)字節(jié)每個(gè)員工都有唯一的一個(gè)編號(hào)，編號(hào)是某位員工的唯一標(biāo)識(shí)。員工姓名文本8個(gè)字節(jié)每個(gè)員工都有唯一的姓名，若出現(xiàn)重名現(xiàn)象，我們可以查看此員工的編號(hào)進(jìn)行區(qū)別。性別文本2個(gè)字節(jié)性別僅有兩種情況，為了便于錄入,在設(shè)計(jì)時(shí)可以采用單選按鈕或下拉列表框的方式。籍貫文本12個(gè)字節(jié) 員工的出生地。年齡數(shù)字2個(gè)字節(jié)員工的歲數(shù), 最低年齡為16歲。此外還要統(tǒng)計(jì)退休的人員歲數(shù),所以取值范圍為1699.生日日期/時(shí)間8個(gè)字節(jié)員工的出生日期。學(xué)歷文本8個(gè)字節(jié)因?yàn)閱T工的學(xué)歷分為高中，中專，大專，本科，碩士，博士，博士后這幾種情況。專業(yè)文本20個(gè)字節(jié)員工取得現(xiàn)有學(xué)歷時(shí)所學(xué)的專業(yè)。住址文本26個(gè)字節(jié)員工現(xiàn)在的家庭住址，若員工的家庭住址變動(dòng)，再進(jìn)行改動(dòng)。郵編文本6個(gè)字節(jié)員工家庭住址的郵政編碼。因現(xiàn)在我國(guó)的郵政編碼為6個(gè)字節(jié)。電話文本12個(gè)字節(jié) 現(xiàn)在的電話大部分為7位或8位，再加上其它的所以設(shè)為12位。Email文本 20個(gè)字節(jié)員工的郵箱地址。參加工作時(shí)間日期/時(shí)間 16個(gè)字節(jié)員工參加工作時(shí)間。進(jìn)入公司時(shí)間日期/時(shí)間16個(gè)字節(jié)員工進(jìn)入本公司時(shí)間，注意與參加工作時(shí)間不同。部門文本 12個(gè)字節(jié)員工所在的部門，員工可能在不同的部門中調(diào)動(dòng)，根據(jù)定期的員工信息登記表進(jìn)行修改。起薪時(shí)間日期/時(shí)間16個(gè)字節(jié)員工從事相應(yīng)的工作可以領(lǐng)取相應(yīng)的薪金的時(shí)間。職務(wù)文本16個(gè)字節(jié)員工在相應(yīng)的工作崗位所承擔(dān)的職責(zé)。 第五章 系統(tǒng)實(shí)現(xiàn)技術(shù)167。5．1 開發(fā)環(huán)境的選擇 前端開發(fā)工具 Visual Basic 簡(jiǎn)介Visual Basic 是在世界范圍內(nèi)廣泛使用的一種強(qiáng)大的編程語(yǔ)言，它為 Windows 應(yīng)用程序的開發(fā)提供了最迅速和便捷的方法。Visual Basic 是基于 Windows 的開發(fā)語(yǔ)言，所以有必要與 Windows 環(huán)境保持一定的相似性。簡(jiǎn)單地說(shuō)就是三個(gè)關(guān)鍵的概念：窗口、事件和消息。Visual Basic 與傳統(tǒng)的編程評(píng)議不同，它使用交互式方法開發(fā)應(yīng)用程序，使得三個(gè)步驟之間不再有明顯的界限。在大多數(shù)語(yǔ)文里，如果編寫代碼時(shí)發(fā)生了錯(cuò)誤，則在開始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲，此時(shí)必須查找并改正該錯(cuò)誤，然后再次進(jìn)行編譯，對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過(guò)程。Visual Basic 在編程者輸入代碼時(shí)便進(jìn)行解釋，即時(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫錯(cuò)誤，這看起來(lái)就像一位專家在實(shí)時(shí)監(jiān)視代碼的輸入。除即時(shí)捕獲錯(cuò)誤外，Visual Basic 也在輸入代碼時(shí)部分地編譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測(cè)試應(yīng)用程序時(shí)，只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤，則將錯(cuò)誤突出顯示于代碼中。由于 Visual Basic 的交互特性，因此可以發(fā)現(xiàn)在開發(fā)應(yīng)用程序時(shí)，可以頻繁地運(yùn)行應(yīng)用程序。通過(guò)這種方式，代碼運(yùn)行的效果可以在開發(fā)時(shí)進(jìn)行測(cè)試，而不必等到編譯完成以后。 后臺(tái)數(shù)據(jù)庫(kù)引擎Access簡(jiǎn)介Access 2000 是一套簡(jiǎn)單易學(xué)的數(shù)據(jù)庫(kù)軟件除了可以單機(jī)作業(yè)之外，也增強(qiáng)了與后端的SQL Server 服務(wù)器的鏈接功能，方便建立主從式結(jié)構(gòu)的數(shù)據(jù)庫(kù)環(huán)境。Access 是一套管理數(shù)據(jù)庫(kù)的應(yīng)用軟件，即數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)是指一群可組織有系統(tǒng)的數(shù)據(jù)集合。Access 中，整理好的數(shù)據(jù)將按數(shù)據(jù)的用途，分別存于不同的表中，Access 數(shù)據(jù)庫(kù)中包含多個(gè)表及其它數(shù)據(jù)庫(kù)對(duì)象。167。 人事管理系統(tǒng)模塊設(shè)計(jì)舉例 建立公共模塊 運(yùn)行VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項(xiàng)，單擊“確定”按鈕。VisualBasic就會(huì)自動(dòng)生成一個(gè)窗體，這個(gè)窗體的屬性采用的都是默認(rèn)設(shè)置。在這個(gè)實(shí)例中，先刪除這個(gè)窗體，然后選擇“文件”→“保存工程”菜單，在出現(xiàn)的“文件另存為”對(duì)話框中輸入這個(gè)工程項(xiàng)目的名稱stuff_mis,并且選擇要保存這個(gè)工程的目錄，單擊“保存”按鈕，保存工程。為了提高代碼的效率方便維護(hù)，在VisualBasic中可以用公用模塊來(lái)存放工程中經(jīng)常使用的函數(shù)、過(guò)程和全局變量等。在這個(gè)系統(tǒng)中，每個(gè)功能模塊都要使用數(shù)據(jù)庫(kù)，因此可以使用一個(gè)公用有數(shù)據(jù)操作函數(shù)，來(lái)執(zhí)行一系列的SQL語(yǔ)句。 添加公共模塊 在項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，.代碼如下：Public gUserName As String 39。保存用戶名稱Public flag As Integer 39。添加和修改的標(biāo)志Public gSQL As String 39。保存SQL語(yǔ)句Public kqsql As String 39。保存查詢考勤結(jié)果SQL語(yǔ)句Public kqsql2 As String 39。保存查詢其他考勤結(jié)果SQL語(yǔ)句Public ArecordID As Integer 39。保存上下班記錄編號(hào)Public LrecordID As Integer 39。保存請(qǐng)假記錄編號(hào)Public OrecordID As Integer 39。保存加班記錄編號(hào)Public ErecordID As Integer 39。保存出差記錄編號(hào)Public iflag As Integer 39。數(shù)據(jù)庫(kù)是否打開標(biāo)志Public Function TransactSQL(ByVal SQL As String) As Dim con As Dim rs As Dim strConnection As StringDim strArray() As StringSet con = New 39。創(chuàng)建連接Set rs = New 39。創(chuàng)建記錄集On Error GoTo TransactSQL_Error strConnection= Provider=。Data Source= amp。 amp。 \ strArray = Split(SQL) strConnection 39。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(SQL), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs 39。返回記錄集 iflag = 1 Else SQL 39。執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。 iflag = 2 Resume TransactSQL_ExitEnd FunctionPublic Sub TabToEnter(Key As Integer) If Key = 13 Then 39。判斷是否為回車鍵 SendKeys {TAB} 39。轉(zhuǎn)換為Tab鍵 End IfEnd SubSub main() Dim fLogin As New frmLogin vbModual 39。顯示窗體End Sub：圖5－1 登陸窗口圖有關(guān)本窗體的代碼如下:Option ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As If Trim( = ) ThenMsgBox 沒有輸入用戶名稱，請(qǐng)重新輸入vbOKOnly+vbExclamation Else 39。查詢用戶 Set rs = TransactSQL(SQL) If iflag = 1 Then If = True ThenmsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入！,vbOKOnly+vbExclamation Else If Trim((1)) = Trim() Then gUserName = Trim()39。保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！, vbOKOnly+vbExclamation, End If End If Else Unload Me End If End If pwdCount=pwdCount+1 39。判斷輸入次數(shù) If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load() pwdCount = 0 gUserName = End SubPr