【文章內(nèi)容簡介】 ecorId 否 char 10 是 檔案編號(hào)PELocation 否 vachar 50 是 戶口所在地EmpIdRecord 否 char 8 是 信息錄入員編號(hào)(7)表名：職員家庭信息表標(biāo)識(shí)：tbFamilyMember數(shù)據(jù)來源：職員家庭信息管理模塊的錄入。字段名 是否主鍵 字段類型 字段長度/B 是否允許為空備注Id 是 char 8 否 家庭成員編號(hào)EmpId 否 char 8 否 職員編號(hào)Name 否 vachar 30 否 家庭成員姓名Gender 否 char 2 是 家庭成員性別Age 否 int 4 是 家庭成員年齡Relationship 否 vachar 2 是 與本人關(guān)系WorkingOrg 否 vachar 50 是 所在單位Tel 否 vachar 20 是 聯(lián)系電話15(8)表名：職員工作/教育經(jīng)歷信息表。 標(biāo)識(shí)：tbWorkExp數(shù)據(jù)來源：職員工作/教育經(jīng)歷信息管理模塊的錄入。字段名 是否主鍵 字段類型 字段長度/B 是否允許為空備注Id 是 char 19 否 編號(hào)EmpId 否 char 8 否 職員編號(hào)StarTate 否 datetime 8 是 開始日期EndDate 否 datetime 8 是 終止日期WorkOrg 否 vachar 50 是 工作單位/就讀單位Position 否 vachar 10 是 職務(wù)EduId 否 char 2 是 學(xué)歷WorkDescri 否 vachar 300 是 工作描述/獲獎(jiǎng)經(jīng)歷(9)表名：職員考勤信息表標(biāo)識(shí)：tbWorkRecrod。數(shù)據(jù)：考勤信息管理系統(tǒng)中的數(shù)據(jù)導(dǎo)入本系統(tǒng)。字段名 是否主鍵 字段類型 字段長度/B 是否允許為空備注char 是 char 4 否 考勤年份RecordMonth 是 char 2 否 考勤月份Empld 是 char 8 否 職員編號(hào)Depld 否 char 8 是 所在部門編號(hào)DaysPresiMonth 否 int 4 是 當(dāng)月全勤天數(shù)LeaveDays 否 Int 4 是 請假天數(shù)AbsentDays 否 Int 4 是 曠工天數(shù)VacDays 否 Int 4 是 申請休假天數(shù)ErrandDays 否 Int 4 是 出差天數(shù)LateDays 否 Int 4 是 遲到天數(shù)LeaveEarlyDays 否 Int 4 是 早退天數(shù)Ot1Days 否 Int 4 是 工作日加班天數(shù)Ot2Days 否 Int 4 是 周末加班天數(shù)Ot3Days 否 Int 4 是 節(jié)假日加班天數(shù)(10)表名：職員考評標(biāo)識(shí)：tbEvauation16數(shù)據(jù)來源：職員考評信息管理模塊的錄入字段名 是否主鍵 字段類型 字段長度/B 是否允許為空備注EvaYear 是 char 4 否 考評年份EvaMonth 是 Char 2 否 考評月份Empld 是 char 8 否 職員編號(hào)WorkCok 否 Int 4 是 工作難度系數(shù)WorkDes 否 Varchar 400 是 工作量記錄WorkEva 否 varchar 300 是 工作評價(jià) 數(shù)據(jù)流程圖在人事管理系統(tǒng)中，并非所有的業(yè)務(wù)都能由計(jì)算機(jī)來完成，因此設(shè)計(jì)人員必須圍繞著信息處理業(yè)務(wù)，根據(jù)業(yè)務(wù)流程圖，弄清系統(tǒng)需要產(chǎn)生什么樣的信息輸出，為了得到這樣的輸出應(yīng)該對什么數(shù)據(jù)進(jìn)行處理，輸入數(shù)據(jù)向輸出數(shù)據(jù)所進(jìn)行的 轉(zhuǎn)換過程是 什么。這個(gè)過程就是進(jìn)行數(shù)據(jù)抽取，建立數(shù)據(jù)流程圖的 過程。數(shù)據(jù)流程圖描述了新系統(tǒng)的全部的數(shù)據(jù)處理邏輯和數(shù)據(jù)的流動(dòng)過程，構(gòu)成了新系統(tǒng)的邏輯模型。根據(jù)業(yè)務(wù)流程圖，去掉其中信息不能完整的和本系統(tǒng)處理以外的環(huán)節(jié)，并將業(yè)務(wù)處理比較集中的功能作為一個(gè)高層模塊，得到本系統(tǒng)高層數(shù)據(jù)流程圖，如 31 所示：17高層管理人員登錄/修改部門信息部門信息表新職員登錄/修改職員基本信息人事管理人員職員出/退勤記錄職員信息檔案查詢出勤記錄部門領(lǐng)導(dǎo)錄入/修正職員考核數(shù)據(jù)考核信息匯總 工資管理系統(tǒng)考核檔案圖 41 人事管理高層數(shù)據(jù)流程圖高層數(shù)據(jù)流程圖中有些功能不可在分，進(jìn)一步的設(shè)計(jì)可以作為一個(gè)單獨(dú)的模塊。有些功能比較復(fù)雜，應(yīng)該進(jìn)行進(jìn)一步的分解，直到每個(gè)子模塊功能獨(dú)立，不可再分。對高層數(shù)據(jù)流程圖中職員信息管理功能進(jìn)行分解，得到職員基本信息管理二級數(shù)據(jù)流程圖，如圖 33 所示。部門領(lǐng)導(dǎo)18 基本情況登記表 家庭情況登記表 職 員 通 訊 員 工作/教育經(jīng)歷登記表工作/教育經(jīng)歷信息登記/修改職員家庭信息圖 42 職員基本信息管理數(shù)據(jù)流程圖對比各個(gè)數(shù)據(jù)流程圖和業(yè)務(wù)流程圖，從業(yè)務(wù)過程抽取數(shù)據(jù)流的過程中，有些純?nèi)斯さ牟僮饕獎(jiǎng)h除，如確定組織結(jié)構(gòu)及部門組成；有些環(huán)節(jié)不屬于本系統(tǒng)的處理范圍要去掉，如關(guān)于工資處理的部分；此外，如果有初期調(diào)研沒有得到的常規(guī)業(yè)務(wù)要增加到數(shù)據(jù)流程圖中。綜合以上各個(gè)步驟的分析，最終得到用數(shù)據(jù)流程圖表達(dá)的新系統(tǒng)的邏輯功能結(jié)構(gòu)。 數(shù)據(jù)字典 數(shù)據(jù)流程圖并不能完整地描述軟件需求，因?yàn)樗鼪]有描述數(shù)據(jù)流程圖上各個(gè)成分的具體內(nèi)容。實(shí)際應(yīng)用中，數(shù)據(jù)流程圖往往與數(shù)據(jù)字典是在數(shù)據(jù)流程圖基礎(chǔ)上，進(jìn)一步定義和描述流程圖上各個(gè)工具，它包括對一切動(dòng)態(tài)數(shù)據(jù)和靜態(tài)數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)和相互關(guān)系等的說明，是數(shù)據(jù)分析和數(shù)據(jù)管理的重要工具。數(shù)據(jù)字典中常常包括對數(shù)據(jù)元素、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流的來源去處、數(shù)據(jù)存儲(chǔ)、處新職員登記/修改職員基 本 信 息職員基本信息檔案生成報(bào)表人事管理人員家庭基本情況檔案登記/修改職員工作/教育經(jīng)歷數(shù) 據(jù)19理功能和外部實(shí)體的說明。這里針對各個(gè)處理功能，在數(shù)據(jù)字典中建立對處理功能的說明如下：(1) 部門信息管理，起功能是設(shè)置和管理部門信息。在權(quán)限范圍內(nèi)可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。(2) 職員信息管理，其功能是設(shè)置和管理職員檔案信息，包括基本信息管理、家庭成員、信息管理、工作/教育經(jīng)歷信息管理。業(yè)務(wù)流程源于手工管理階段的人時(shí)檔案，同時(shí)可以生成職員信息清單供打印。用戶在權(quán)限范圍內(nèi)可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。(3) 考勤信息查詢，其功能是提供用戶考勤統(tǒng)計(jì)值。所有系統(tǒng)用戶均可以按照時(shí)間和部門查詢?nèi)靠记谛畔?，使管理更加透明化?4) 考評信息管理，其功能是進(jìn)行職員的工作績效考評，同時(shí)將數(shù)據(jù)作為工資管理系統(tǒng)的某些工資項(xiàng)目的計(jì)算依據(jù)。系統(tǒng)用戶在權(quán)限范圍內(nèi)可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。20第 5 章 系統(tǒng)詳細(xì)設(shè)計(jì) 系統(tǒng)項(xiàng)目文件和公共文件1．主題框架新建一個(gè) VB 工程的標(biāo)準(zhǔn) EXE 工程,建立系統(tǒng)的主體框架。2．添加模塊添加模塊，并將其命名為 3．系統(tǒng)公共變量自定義 如表 51：51 系統(tǒng)公共變量自定義變量名稱 變量類型 說明gUserName string 用戶名，用來顯示狀態(tài)信息gUserKing String 用戶類型，用來設(shè)定用戶權(quán)限gEmployeed String 職員編號(hào)gLoginSucceeded Boolean 登錄成功標(biāo)志BLUE Const 值為：amp。HFF00000，藍(lán)色WHITE Const 值為：amp。H80000005，白色4．Main 函數(shù)系統(tǒng)啟動(dòng)函數(shù)。處理流程：以對話框模式啟動(dòng)登錄窗體，如果啟動(dòng)失敗，給出提示信息。Sub Main()Dim fLogin As New frmLogin 39。啟動(dòng)登錄窗體 vbModal 39。裝入并顯示模式窗體。If Not gLoginSucceeded Then MsgBox 系統(tǒng)啟動(dòng)失敗,請重試!, vbOKOnly + vbExclamation, 警告End IfUnload fLoginEnd Sub5．ConnectString 函數(shù) 設(shè)置數(shù)據(jù)庫連接字符串函數(shù)，本函數(shù)無參數(shù)，返回值為數(shù)據(jù)庫連接字符串。Public Function ConnectString() As String ConnectString = FileDSN=。UID=sa。PWD=12End Function6．ExecutSQL 函數(shù)設(shè)置 SQL 語句的執(zhí)行語句，ADO 數(shù)據(jù)集 rst 和是否允許數(shù)據(jù)集更新的布爾型變量。處理流程：創(chuàng)建到數(shù)據(jù)源的連接，根據(jù)布爾型變量的實(shí)參值，確定執(zhí)行SQL 語句的方式并執(zhí)行 SQL 語句。如果 SQL 語句執(zhí)行成功，返回值為 TRUE，結(jié)果存儲(chǔ)于形參數(shù)據(jù)集 rst 相對應(yīng)數(shù)據(jù)集內(nèi)；否則，返回值為 false。21Public Function ExecuteSQL(ByVal SQL As String, rst As , _Optional enableWrite As Boolean = True) As Boolean Dim con As Dim sTokens() As String On Error GoTo Execute_Error sTokens = Split(SQL) Set con = New ConnectString 39。打開數(shù)據(jù)庫 Set rst = New If enableWrite Then 39。讀寫方式 Trim$(SQL), con, adOpenStatic, adLockOptimistic Else 39。只讀方式 Trim$(SQL), con, adOpenStatic, adLockReadOnly End If ExecuteSQL = True Exit FunctionExecute_Error: ExecuteSQL = False Exit FunctionEnd Function7．DBExist 函數(shù)判斷數(shù)據(jù)庫中是否存在指定記錄，參數(shù)為將要執(zhí)行的 SQL 語句。處理流程：創(chuàng)建到數(shù)據(jù)源連接，執(zhí)行 SQL 語句（不允許數(shù)據(jù)集更新） ，檢索記錄。如果存在指定記錄，返回記錄數(shù)；否則，返回值為 0。Public Function DBExist(ByVal SQL As String) As Integer Dim con As Dim sTokens() As String Dim flag As String Dim rst As sTokens = Split(SQL) Set con = New ConnectString 39。打開數(shù)據(jù)庫 flag = ExecuteSQL(SQL, rst, False) 39。判斷該記錄是否存在 If 0 Then DBExist = Else DBExist = 0 End If 39。關(guān)閉數(shù)據(jù)庫End Function22 函數(shù)判斷輸入到 TextBox 的內(nèi)容是否為空，參數(shù)為 TextBox 事例。處理流程：如果 TextBox 文件為空，返回值為 True，否則，返回值為 False，并設(shè)置該TextBox 獲得焦點(diǎn)，背景色設(shè)置為藍(lán)色。Public Function txtIsNull(txt As TextBox) As Boolean If Trim() = Then txtIsNull = True = BLUE Else txtIsNull = False End IfEnd Function 函數(shù)判斷輸入內(nèi)容是否超過給定值， ，參數(shù)為需要處理的字符串和給頂長度值。處理流程：判斷字符串長度不超過給定時(shí)返回值為 True，否則，返回值為 false。Public Function IsOverStringLen(ByVal str As String, lenthText As Integer) As Boolean If Len(Trim(str)) lenthText Then IsOverStringLen = True Else IsOverStringLen = False End IfEnd Function10．viewData 函數(shù)在 Da