【正文】 毫無疑問，這次畢業(yè)論文設(shè)計(jì)是對(duì)我四年所學(xué)知識(shí)的一次檢測(cè)同時(shí)對(duì)我在今后的工作中進(jìn)行。 結(jié)論：能夠較好地實(shí)現(xiàn)各項(xiàng)功能 小結(jié) 現(xiàn)回首細(xì)想，自覺在設(shè)計(jì)中有諸多不足之處：首先是對(duì)軟件開發(fā)平臺(tái)不夠熟悉，很多組件及其之間的聯(lián)系掌握不夠以至不能靈活運(yùn)用，造成程序內(nèi)容不豐富，使用不方便，其次在系統(tǒng)分析上在待加強(qiáng)訓(xùn)練，這次的設(shè)計(jì)規(guī)模較小，但我在軟件的定義時(shí)期，特別是在需求分析時(shí)，一度讓我無從下手，所耗時(shí)間比開發(fā)時(shí)期都長。 下面是各模塊的測(cè)試過程： MDI 主窗體模塊測(cè)試 由于 在 MDI 主窗體中，設(shè)計(jì)了 7 項(xiàng)菜單，分別為“系統(tǒng)”、“員工檔案”、“考勤管理”、“工作評(píng)價(jià)”、“員工調(diào)動(dòng)” 、“工資管理”、 “幫助”。很顯然，用黑盒測(cè)試法不可能進(jìn)行完全的測(cè)試。也就是說黑盒測(cè)試法是在程序的接口上進(jìn)行測(cè)試，看它是否滿足功能要求，輸入能否正確接受，并輸出正確的結(jié)果，以及外部信息的完整性能否保持。但真的是這樣嗎？在軟件開發(fā)期有一種工作的工作量占開發(fā)期總工作量的 40%，是所有工作中工作量最大的，不是別的，就是軟件測(cè)試。//關(guān)閉記錄集 = Empty 39。//設(shè)置網(wǎng)格的數(shù)據(jù)源 = 39。//關(guān)閉記錄集 = Empty 39。//將記錄條數(shù)顯示在標(biāo)簽上 39。 amp。 and amp。 調(diào)出時(shí)間 between amp。 End If If = 1 Then 39。 Trim() amp。 員工姓名 = 39。 End If If = 1 Then 39。 Trim() amp。 員工編號(hào) = 39。 Else If = 1 Then 39。 amp。 amp。 and amp。 39。 amp。//判斷姓名與進(jìn)入公司時(shí)間復(fù)選框選中時(shí) ,則 ElseIf = 1 And = 1 Then StrSQL = StrSQL amp。 amp。 and amp。 調(diào)出時(shí)間 between amp。 amp。 Trim() amp。 員工編號(hào) = 39。 39。 Trim() amp。 員工姓名 = 39。 amp。 Trim() amp。 員工編號(hào) = 39。 39。 amp。 amp。 and amp。 39。 amp。 and amp。 39。 amp。//判斷三個(gè)復(fù)選框同時(shí)選中時(shí) ,則 If = 1 And = 1 And = 1 Then StrSQL = StrSQL amp。//給定義好的字符變量賦予 SQL 語句 39。 = Empty End If End Sub 員工調(diào)動(dòng)窗體的設(shè)計(jì) ` 在該窗體中用戶可以選擇自定義查詢所需的字段、運(yùn)算符和值。//關(guān)閉記錄集 = Empty 39。//設(shè)置網(wǎng)格的數(shù)據(jù)源 = 39。//請(qǐng)空文本框 = Empty = Empty 39。//刷新網(wǎng)格 39。 End If End If If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockOptimistic, adCmdText End If Set = = 39。 Trim() amp。 月份=39。 amp。 Trim() amp。 年度 = 39。 End If If = 1 Then 39。 Trim() amp。 員工姓名 = 39。 End If If = 1 Then 39。 Trim() amp。 員工編號(hào) = 39。 Else If = 1 Then 39。 Trim() amp。 月份 =39。 amp。 Trim() amp。 年度 =39。 amp。 Trim() amp。 員工姓名 = 39。 39。 Trim() amp。 月份 =39。 amp。 Trim() amp。 年度 =39。 amp。 Trim() amp。 員工編號(hào) = 39。 39。 Trim() amp。 員工姓名 = 39。 amp。 Trim() amp。 員工編號(hào) = 39。 39。 Trim() amp。 月份 =39。 amp。 Trim() amp。 年度 =39。 amp。 Trim() amp。 員工姓名 = 39。 amp。 Trim() amp。 員工編號(hào) = 39。//判斷復(fù)選框有一個(gè)選中時(shí) ,則 If = 1 Or = 1 Or = 1 Then 39。 部分代碼設(shè)計(jì)如下： Private Sub CmdQuery_Click() Dim StrSQL As String StrSQL = select * from 考勤信息 where 39。//刪除記錄 Call CmdMove_Click Else MsgBox 當(dāng)前沒有任何記錄 , , 刪除記錄 Call FormTxtValue2 39。//調(diào)用啟用文本框的 Enabled 屬性過程 Call CmdState1 39。//在記錄集中添加一條新記錄 Call FormTxtValue2 39。 \企業(yè)人事管理系統(tǒng) .CHM, 0, 0 End Sub Private Sub mnuUpdatePay_Click() End Sub Private Sub mnuUpdateRecord_Click() End Sub Private Sub mnuWorkReport_Click() mnuCommentR_Click End Sub 員工基本信息模塊 設(shè)計(jì) 可以添加員工基本信息，員工編號(hào)，員工姓名，學(xué)歷，專業(yè)??等等。以有模式窗口打開 End If End Sub Private Sub mnuSystemHelp_Click() 39。退出系統(tǒng) End If End Sub Private Sub mnuReLogin_Click() If MsgBox(確定要重新登錄嗎？ , vbInformation + vbYesNo, 重新登錄 ) = vbYes Then Unload Me Load FrmLogin 39。//彈出菜單 Case 8 Call mnuSystemHelp_Click Case 9 Call mnuSysKey_Click Case 10 PopupMenu mnuReport End Select End Sub Private Sub CmdTool_DropDownClick(Index As Integer) Select Case Index Case 6 PopupMenu mnuQueryInfo 39。//關(guān)閉記錄集 Counts = Counts + 1 Else MsgBox 密碼錯(cuò)誤不得超過三次，否則視您為非法用戶！ , vbCritical, 警告 End End If Else MsgBox 用戶名密碼不能為空 , vbExclamation + vbOKOnly, 登錄失敗 Call Form_Load End If End Sub ??????????????????????????????????????? 主窗體 的設(shè)計(jì) 在 MDI 主窗體中，設(shè)計(jì)了 7 項(xiàng)菜單，分別為“系統(tǒng)”、“員工檔案”、“考勤管理”、“工作評(píng)價(jià)”、“員工調(diào)動(dòng)” 、“工資管理”、 “幫助”。//判斷記錄集記錄條數(shù)是否為 0 Unload Me 39。 If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText 39。 PassWord amp。and 用戶口 令 =39。 UserName amp。//用戶名與密碼是否為空 StrSQL = select 用戶名稱 ,用戶口令 ,用戶權(quán)限 from 管理用戶 where 用戶名稱 = 39。 部分代碼設(shè)計(jì)如下： Private Sub CmdLogin_Click() Dim StrSQL As String UserName = CStr(Trim()) 39。輸入相應(yīng)的用戶名和密碼。所以結(jié)構(gòu)化程序設(shè)計(jì)是完成上述任務(wù)的關(guān)鍵技術(shù)。衡量程序的質(zhì)量不僅要看它在邏輯上是否正確地描述每個(gè)模塊的功能，更重要地是要看它是否容易 閱讀、測(cè)試和維護(hù)。詳細(xì)設(shè)計(jì)階段不是具體地編寫程序，而是設(shè)計(jì)出程序的“藍(lán)圖”，程序員再根據(jù)這些藍(lán)圖進(jìn)行編碼。其主要任務(wù)是對(duì)總體設(shè)計(jì)所產(chǎn)生的功能模塊進(jìn)行過程描述，開發(fā)一個(gè)可以直接轉(zhuǎn)換成程序語言代碼的軟件表示?！?\” StrArray=Split(sql) strConnection ‘ 打開連接 If strComp(Ucase$(strArray(0)),”select”,vbTextCompare)=0 The Trim$(sql),.()ptimistic Set TransctSQL=rs ‘ 返回記錄集 Iflag=1 Else sql ‘ 執(zhí)行命令 iflag=1 End If TransactSQLEsit: Set rs=Nothing Set con=Nothing Exit Function TransactSQLError: MsgBox” 查詢錯(cuò)誤 :’ amp。Data Source=”amp。在這個(gè)系統(tǒng)中，每個(gè)功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個(gè)公用的數(shù)據(jù)庫操作函數(shù)，來執(zhí)行一系列的 SQL語句。在出現(xiàn)的“文件另存為”對(duì)話框中輸入這個(gè)工程項(xiàng)目的名稱 ，單擊“保存”按鈕，保存工程。 Visual Basic 就會(huì)自動(dòng)生成一個(gè)窗體，這個(gè)窗體的屬性采用的都是默認(rèn)的設(shè)置。然后從工程模塊中選擇“標(biāo)準(zhǔn) EXE”項(xiàng)。 從模塊特征以及模塊獨(dú)立性角度出發(fā)，得出以下結(jié)論：系統(tǒng)中模塊的獨(dú)立性要高，即耦合程度要低；模塊的聚合程度要高，即盡量采用功能聚合。因此，系統(tǒng)中模塊的聚合種類應(yīng)為功能聚合。所以，提高模塊獨(dú)立性是設(shè)計(jì)模塊的根本目標(biāo)。模塊獨(dú)立是指該模塊能完成一個(gè)相對(duì)獨(dú)立的特定子功能，并且與其他模塊之間的接口很簡單。也就是應(yīng)該這樣來設(shè)計(jì)和確定模塊，使得一個(gè)模塊內(nèi)包含的信息 (數(shù)據(jù)和過程 )對(duì)手不需要這些信息的模塊是不能訪問的。 數(shù)據(jù)庫的實(shí)現(xiàn) 啟動(dòng) Access2021 創(chuàng)建一個(gè)新的數(shù)據(jù)庫 .命名為 ,保存在要存放這個(gè)系統(tǒng)的所有工程的文件中 . 使用設(shè)計(jì)器創(chuàng)建這個(gè)系統(tǒng)需要的所有表格 .如圖 13_111所示 . 圖 13為上下班時(shí)間設(shè)置表格 字段名稱 數(shù)據(jù)類型 管理員登錄 檔案管理 考勤管理 調(diào)動(dòng)管理 員工基本信息管理 員工出勤信息管理 員工調(diào)動(dòng)信息管理 工資管理 員工發(fā)放工資信息管理 begintime 日期 /時(shí)間 上班時(shí)間 endtime 日期 /時(shí)間 下班時(shí)間 圖 14為員工編號(hào)計(jì)數(shù)表 字段名稱 數(shù)據(jù)類型 num 數(shù)字 編號(hào) 圖 15為員工基本信息 表 字段名稱 數(shù)據(jù)類型 SID 文本 員工編號(hào) SNam