【正文】 定要提供對數(shù)據(jù)的高效處工業(yè)工程專業(yè) 2021 級課程設(shè)計 12 理能力。樹形結(jié)構(gòu) 的頂層是一個單獨的矩形框，它代表完整的數(shù)據(jù)結(jié)構(gòu)，下面的各層矩形框代表各個數(shù)據(jù)的子集，最底層的各個矩形框代表組成這個數(shù)據(jù)的實際數(shù)據(jù)元素。每個子系統(tǒng)的功能都是按照在調(diào)研中搜集的資料進 行編排制作的。 添加考勤信息、修改考勤信息、刪除考勤信息、查詢考勤信息。 系統(tǒng)功能結(jié)構(gòu)模塊設(shè)計 根據(jù)企業(yè)的實際情況進行具體分析，人事管理系統(tǒng)包括如圖 41 所示的幾大管理模塊。 ER 模型適用簡單的圖形符號表達系統(tǒng)分析員對問題域的理解，不熟悉計算機技術(shù)的用戶也能理解它，因此， ER 模型可以作為用戶與分析員 之 間有效的交流工具。以下是系統(tǒng)要用到的主要數(shù)據(jù)庫表： 表 41 職員基本信息表 列名 數(shù)據(jù)類型 長度 允許空 主鍵 備注 職員編號 varchar 30 N 是 職員編號 員工 姓名 varchar 20 Y 否 員工 姓名 部門 varchar 20 Y 否 部門 職務(wù) varchar 39 Y 否 職務(wù) 性別 varchar 20 Y 否 性別 出生 年月 datetime 8 Y 否 出生 年月 籍貫 varchar 30 Y 否 籍貫 民族 varchar 20 Y 否 民族 學(xué)歷 varchar 30 Y 否 學(xué)歷 畢業(yè)學(xué)校 varchar 20 Y 否 畢業(yè)學(xué)校 健康狀況 varchar 30 Y 否 健康狀況 婚姻狀況 varchar 20 Y 否 婚姻狀況 身份證號 varchar 18 Y 否 身份證號 家庭電話 varchar 20 Y 否 家庭電話 政治面貌 varchar 20 Y 否 政治面貌 手機 varchar 20 Y 否 手機 電子郵箱 varchar 50 Y 否 電子郵箱 銀行賬號 varchar 20 Y 否 銀行賬號 其他 備注 varchar 100 Y 否 其他 備注 表 42 職員調(diào)動表 列名 數(shù)據(jù)類型 長度 允許空 主鍵 備注 調(diào)動編號 varchar 30 N 是 調(diào)動編號 職員編號 varchar 30 N 否 職員編號 職員姓名 varchar 20 Y 否 職員姓名 職務(wù)調(diào)動日期 datetime 8 Y 否 職務(wù)調(diào)動日期 調(diào)動前部門 varchar 20 Y 否 調(diào)動前部門 調(diào)動前職務(wù) varchar 20 Y 否 調(diào)動前職務(wù) 調(diào)動后部門 varchar 20 Y 否 調(diào)動后部門 調(diào)動后職務(wù) varchar 20 Y 否 調(diào)動后職務(wù) 調(diào)動原因 varchar 50 Y 否 調(diào)動原因 人事部門意見 varchar 30 Y 否 人事部門意見 填記人 varchar 10 Y 否 填記人 工業(yè)工程專業(yè) 2021 級課程設(shè)計 15 表 43 工資統(tǒng)計表 列名 數(shù)據(jù) 類型 長度 允許空 主鍵 備注 工資編號 varchar 30 N 是 工資編號 職員編號 varchar 30 N 否 職員編號 職員姓名 varchar 20 Y 否 職員姓名 年月 varchar 20 Y 否 年月 基本工資 float 8 Y 否 基本工資 職務(wù)工資 decimal 8 Y 否 職務(wù)工資 工齡工資 decimal 8 Y 否 工齡工資 考核工資 decimal 38 Y 否 考核工資 加班費 decimal 20 Y 否 加班費 獎金 decimal 13 Y 否 獎金 醫(yī)療補貼 decimal 13 Y 否 醫(yī)療補貼 請假扣除 decimal 13 Y 否 請假扣除 考勤扣除 decimal 13 Y 否 考勤扣除 罰款 decimal 13 Y 否 罰款 住房公積金 decimal 13 Y 否 住房公積金 個人所得稅 decimal 13 Y 否 個人所得稅 應(yīng)發(fā)金額合計 decimal 13 Y 否 應(yīng)發(fā)金額合計 應(yīng)扣金額合計 decimal 13 Y 否 應(yīng)扣金額合計 工資合計 decimal 13 Y 否 工資合計 界面設(shè)計 （ 1）系統(tǒng)登錄界面 輸入正確的用戶名和密碼后方可登錄系統(tǒng)，系統(tǒng)根據(jù)用戶名據(jù)有的權(quán)限而顯示。 圖 45 系統(tǒng)主界面 （ 3）員工的信息編輯管理 可以對員工的信息進行編輯，員工信息編輯的界面設(shè)計如圖 46 所示。 （ 3）輸出周期：多長時間輸出一次。 （ 7）輸出信息校驗：檢驗輸出信息的正確性，包括確定校驗內(nèi)容、檢驗方法和校驗后的處理。如圖 47 所示是查詢顯示輸出界面： 工業(yè)工程專業(yè) 2021 級課程設(shè)計 18 圖 47 員工信息查詢界面 輸入設(shè)計 輸入設(shè)計的工作是依據(jù)功能模 塊的具體要求給出數(shù)據(jù)輸入的方式、用戶界面和輸入校驗方式。比較常見的數(shù)據(jù)輸入檢測方式有二次輸入校模塊（應(yīng)用）名稱 數(shù)據(jù)輸入?yún)^(qū) 修改 返回 工業(yè)工程專業(yè) 2021 級課程設(shè)計 19 驗法、靜態(tài)校驗法、平衡校驗法、文件查詢校驗法、界限校驗法、數(shù)據(jù)格式校驗法、校驗碼的方法等。 單元測試 單元測試的對象是軟件設(shè)計的最小單位 —— 模塊。 模塊接口測試是單元測試的基礎(chǔ)。它的最簡單的形式是：兩個已經(jīng)測試過的單元組合成一個 組件 ，并且測試它們之間的接口。最后，將構(gòu)成進程的所有模塊一起測試。 輸入 : 輸入用戶名、密碼。 測試結(jié)果： 輸入錯誤將會有系統(tǒng)提示信息。 預(yù)期測試結(jié)果： 能夠進行信息的存儲。系統(tǒng)調(diào)試的內(nèi)容包括兩部分 : (1) 主控程序和調(diào)度程序調(diào)試 這部分程序的語句不多，但邏輯控制復(fù)雜。也就是將主控程序和調(diào)度程序與各功能模塊聯(lián)結(jié)起來進行總體調(diào)試。在本次系統(tǒng)的實施階段，根據(jù)企業(yè)的實際情況，嚴(yán)格按照系統(tǒng)實 施的階段進行，如圖 61 所示。這一階段主要是數(shù)據(jù)的準(zhǔn)備，輸入的數(shù)據(jù)一定要準(zhǔn)確，錯誤的數(shù)據(jù) 直接影響系統(tǒng)的運行，甚至?xí)?dǎo)致系統(tǒng)不能運行，虛假的數(shù)據(jù)會使系統(tǒng)變成“空中樓閣”； （ 3） 系統(tǒng)轉(zhuǎn)換。本系統(tǒng)具有數(shù)據(jù)庫的備份功能，在信息資料丟失時，對系統(tǒng)進行數(shù)據(jù)庫的恢復(fù)就可以使數(shù)據(jù)庫正常工作。 (2) 數(shù)據(jù)文件的維護：指的是按照用戶的要求對數(shù)據(jù)文件進行不定期的修改。都是按照系統(tǒng)開發(fā)的正規(guī)化步驟進行。希望在 以后的自主學(xué)習(xí)中，能有更多的收獲 。 3． 員工信息管理 （ 1）員工信息維護 單擊【員工信息管理】，再點擊【員工信息維護】，進入如下的界 面。 工業(yè)工程專業(yè) 2021 級課程設(shè)計 28 圖 5 密碼 修改 工業(yè)工程專業(yè) 2021 級課程設(shè)計 29 附錄 II 系統(tǒng)部分源代碼 1. 登錄界面源代碼： Private Sub Login_Click() Dim StrSQL As String UN = PW = If UN And PW Then StrSQL = select UserName,Password,UserPermissions from Admin where UserName= 39。and Password =39。 If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If Group = (2).Value If 0 Then If Group Administrator Then Call CheckLogin End If Unload Me Else MsgBox 用戶名或密碼錯誤，請重新輸入！ , 64, 提示信息 End If Else MsgBox 用戶 名或密碼不能為空，請?zhí)顚懲暾?, 64, 提示信息 工業(yè)工程專業(yè) 2021 級課程設(shè)計 30 End If End Sub 2. 修改用戶密碼模塊代碼： Private Sub CmdOk_Click() Dim StrSQL As String StrSQL = select UserName,Password from Admin where UserName= 39。and Password =39。 If Trim() Empty And Trim() Empty And Trim() Empty Then If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If If 0 Then (1).Value = Trim() MsgBox 恭喜您密碼修改成功！ , , 密碼修改 Unload Me Else MsgBox 很抱歉，用戶名不存在或原密碼輸入錯誤，請重新輸入！ , vbExclamation, 驗證失敗 End If Else MsgBox 請輸入要修改的用戶名及密碼！ , vbInformation, 錯誤提示 End If End Sub 工業(yè)工程專業(yè) 2021 級課程設(shè)計 31 3. 刪除用戶模塊代碼 ： Private Sub CmdDelUser_Click() Dim StrSQL As String StrSQL = select UserName,Password from Admin where UserName= 39。and Password =39。 If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If If Trim() Empty And Trim() Empty Then If 0 Then If MsgBox(確定刪除該用戶？ , vbInformation + vbYesNo, 刪除用戶 ) = vbYes Then MsgBox 該用戶刪除成功！ , , 刪除成功 Unload Me End If Else MsgBox 該用戶不存在或用戶口令輸入錯誤，請重新輸入！ , , 提示信息 End If Else MsgBox 請輸入要刪除的用戶名及密碼！ , vbInformation + vbOKOnly, 提示信息 End If End Sub 4. 添加用戶模塊代碼： 工業(yè)工程專業(yè) 2021 級課程設(shè)計 32 Private Sub CmdOk_Click() If Trim() And Trim() And Trim() Then If Trim() = Trim() Then On Error GoTo ErrAddUser (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() MsgBox 用戶添加成功 , , 提示信息 Unload Me Else MsgBox 兩次輸入的密碼不一致，請重新輸入 , 64, 提示信息 End If Else MsgBox 請輸入要添加的用戶名和密碼 , 64, 提示信息 End If Exit Sub ErrAddUser: MsgBox 用戶已存在 , 64, 提示信息 End Sub ： 添加按鈕源代碼： Private Sub CmdAdd_Click() 工