【導讀】管理，使得計算機的維修脫離一種散亂的狀況。系統(tǒng)使用后，可以對本月。各種故障維修進行記錄，并可在任何時候對歷史維修記錄進行統(tǒng)計。的歷史維修情況，大大方便了技術員的維修工作。劃、概要設計、詳細設計、測試計劃、測試分析報告。TreeView等控件，使得程序更加貼近系統(tǒng)操作人員。立開發(fā)的針對本單位應用的小型數(shù)據(jù)庫管理系統(tǒng)。了更加深刻的領悟。鍛煉出的自學能力的體現(xiàn)。從對，到對這門語言的入門與深入，這一切都來自四年學習的積累。

　　

【正文】 etFocus 39。 Exit Sub 39。 End If 39。 If Len(Trim(Text3(1).Text)) 5 Then 39。 MsgBox 您輸入的設備編號長度不符規(guī)范，請輸入 5 位編號加以修改。 , vbInformation, 提示 39。 Text3(1).SetFocus 39。 Exit Sub 39。 End If 第 40 頁 39。 查找輸入設備編號所屬部室 39。 Dim sbbmrs As Recordset 39。 Set sbbmrs = New Recordset 39。 = adUseClient 39。 select sbm,bmm,sbmc from sbbh where sbm=39。 amp。 Text3(1).Text amp。 39。, , adOpenKeyset, adLockOptimistic 39。 If = 1 Then 39。 Text3(0).Text = sbbmrs!bmm 39。 Else 39。 MsgBox 您輸入的設備編號不存在，請檢查。 , vbInformation, 提示 39。 Text3(0).Text = 39。 Exit Sub 39。 End If 39。End If 39。 39。If Index = 4 Then 39。 If Trim(Text3(4).Text) = Then 39。 MsgBox 報修日期不能為空，請輸入。 , vbInformation, 提示 39。 Text3(4).SetFocus 39。 Exit Sub 39。 End If 39。 If Len(Trim(Text3(4).Text)) 8 Then 39。 MsgBox 報修日期長度不符規(guī)范，請按 8 位“年月日”格式加以修改。 , vbInformation, 提示 39。 Text3(4).SetFocus 39。 Exit Sub 39。 End If 39。39。End If 第 41 頁 End Sub Private Sub TreeView1_NodeClick(ByVal Node As ) 39。根據(jù)所選條目填充界面 If Not ( Is Nothing) Then childtemp = parenttemp = select * from wxrz where bxsrq = 39。 amp。 parenttemp amp。 39。and sbbh = 39。 amp。 childtemp amp。 39。, , adOpenKeyset, adLockOptimistic If = 1 Then Call fulltext End If End If End Sub Private Sub XFRQ_Click() If = True Then = False Else = True End If = False = False End Sub Private Sub ZDGS_Click() If = True Then 第 42 頁 = False Else = True For i = 4 To 7 If Text3(i).Text = Then Exit Sub End If Next Call autocalculate End If End Sub Private Sub TabStrip1_Click() 39。TabStrip 選擇 Select Case Case 1 = True = False Case 2 = False = True End Select End Sub Private Sub ZDSJ_Click() If = True Then = False Else = True End If End Sub 第 43 頁 機站配置代碼 圖表 14 機 站配置界面 機站配置：實現(xiàn)對各部門硬件配置的管理，存儲在數(shù)據(jù)表 sbbh，實現(xiàn)方法同維修日志。 故障維修代碼 圖表 15 故障統(tǒng)計界面 故障統(tǒng)計：實現(xiàn)對計算機日常故障的分類匯總統(tǒng)計。采用 DataGrid 控件綁 第 44 頁 定到數(shù)據(jù)集顯示： Set = gztjrs，代碼如下： Private Sub Command2_Click() 39。統(tǒng)計 Dim qrqtemp, zrqtemp As String gzcstj = 0 gzsjtj = 0 qrqtemp = amp。 amp。 00 zrqtemp = amp。 amp。 31 Set = New Connection Provider=。Data Source= amp。 amp。 \。Persist Security Info=False delete from b_gztj Set gztjrs = New Recordset = adUseClient = adOpenKeyset select * from b_gztj, , adOpenKeyset, adLockOptimistic 39。人員 Set ryrs = New Recordset = adUseClient = adOpenKeyset select * from rygl , , adOpenKeyset, adLockOptimistic If = 0 Then Exit Sub 39。循環(huán) Do While Not 第 45 頁 Set rs = New Recordset = adUseClient = adOpenKeyset select * from wxrz where wxry like 39。 amp。 ryrs!gh amp。 39。and bxsrq between 39。 amp。 qrqtemp amp。 39。and 39。 amp。 zrqtemp amp。 39。, , adOpenKeyset, adLockOptimistic 39。統(tǒng)計 If 0 Then yjc = 0 rjc = 0 qtc = 0 yjtemp = 0 rjtemp = 0 qttemp = 0 Do While Not Select Case rs!gzlx Case 硬件 yjc = yjc + 1 yjtemp = counttime(Val(yjtemp), rs!wxgs) Case 軟件 rjc = rjc + 1 rjtemp = counttime(Val(rjtemp), rs!wxgs) Case 其他 qtc = qtc + 1 qttemp = counttime(Val(qttemp), rs!wxgs) End Select Loop 第 46 頁 rytemp = ryrs!oper_name gztjrs!wxry = rytemp gztjrs!yj = Format(yjtemp, ) gztjrs!yjcs = yjc gztjrs!rj = Format(rjtemp, ) gztjrs!rjcs = rjc gztjrs!qt = Format(qttemp, ) gztjrs!qtcs = qtc gztjrs!xj = Format(counttime(counttime(Val(yjtemp), Val(rjtemp)), Va l(qttemp)), ) gzcstj = gzcstj + yjc + rjc + qtc gzsjtj = counttime(gzsjtj, gztjrs!xj) End If Loop = gzcstj = Format(gzsjtj, ) 39。綁定到 DataGrid1 顯示 Set = gztjrs End Sub 第 47 頁 第六章 測試計劃 引言 ： 為了發(fā)現(xiàn)程序中錯誤，確定其性質，并且加以糾正，進行一系列測試。 計劃： 以下是我測試本系統(tǒng)的過程。 下面是我對“添加部門”操作進行單元測試的過程，見圖表 1圖表 17。 用戶存在 密碼正確 N N N a b c j d k f m g n h 提示出錯 開始 輸入用戶名 部門操作 確定增加？屋未租出 增加部門 第 48 頁 圖表 16 部門添加流程 圖表 17 部門添加程序 下面將以白盒測試法設計測試用例。其中：用戶名、密碼、標記分別表示用戶名稱、用戶密碼、是否高級用戶。用戶 04的密碼不是 123，用戶 01 添加部門的操作等。 測試設計說明 編碼完成后要對源程序進行測試，找出在設計甚至分析階段早期潛伏的錯誤或編碼中新引入的錯誤，并排隊提高軟件可靠性。 測試評價準則 是否有尚未實現(xiàn)的功能需求。 執(zhí)行時的響應時間和處理速度，占用內存和外存容量，以及通道傳輸能力是否符合標準。 檢查程序 對強負荷的承受能力。 程序文檔是否配齊完整。 表格 6 白盒測試用例 序 號 測試數(shù)據(jù) 覆蓋節(jié)點 覆蓋的邊 期望結果 1 用戶名 :04 密碼： 123 1,2,3,9,8 a,b,c,k,n,i 提示密碼錯誤 2 用戶名 :01 1,2,3,4,5,6,9,8 A,b,c,d,e,f,m,n,i 提示取消部 第 49 頁 密碼 :01 門添加 3 用戶名 : 01 密碼 : 01 1,2,3,4,5,6,7,8 a,b,c,d,e,f,g,h,i 提示部門添加成功 第七章 測試分析報告 引言 為了發(fā)現(xiàn)找出本系統(tǒng)中的錯誤，并及時將其糾正，