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