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

　　

【正文】 etFocus 39。 Exit Sub 39。 End If 39。 If Len(Trim(Text3(1).Text)) 5 Then 39。 MsgBox 您輸入的設(shè)備編號(hào)長(zhǎng)度不符規(guī)范，請(qǐng)輸入 5 位編號(hào)加以修改。 , vbInformation, 提示 39。 Text3(1).SetFocus 39。 Exit Sub 39。 End If 第 40 頁(yè) 39。 查找輸入設(shè)備編號(hào)所屬部室 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 您輸入的設(shè)備編號(hào)不存在，請(qǐng)檢查。 , 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 報(bào)修日期不能為空，請(qǐng)輸入。 , vbInformation, 提示 39。 Text3(4).SetFocus 39。 Exit Sub 39。 End If 39。 If Len(Trim(Text3(4).Text)) 8 Then 39。 MsgBox 報(bào)修日期長(zhǎng)度不符規(guī)范，請(qǐng)按 8 位“年月日”格式加以修改。 , vbInformation, 提示 39。 Text3(4).SetFocus 39。 Exit Sub 39。 End If 39。39。End If 第 41 頁(yè) 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 頁(yè) = 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 頁(yè) 機(jī)站配置代碼 圖表 14 機(jī) 站配置界面 機(jī)站配置：實(shí)現(xiàn)對(duì)各部門硬件配置的管理，存儲(chǔ)在數(shù)據(jù)表 sbbh，實(shí)現(xiàn)方法同維修日志。 故障維修代碼 圖表 15 故障統(tǒng)計(jì)界面 故障統(tǒng)計(jì)：實(shí)現(xiàn)對(duì)計(jì)算機(jī)日常故障的分類匯總統(tǒng)計(jì)。采用 DataGrid 控件綁 第 44 頁(yè) 定到數(shù)據(jù)集顯示： Set = gztjrs，代碼如下： Private Sub Command2_Click() 39。統(tǒng)計(jì) 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 頁(yè) 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)計(jì) 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 頁(yè) 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 頁(yè) 第六章 測(cè)試計(jì)劃 引言 ： 為了發(fā)現(xiàn)程序中錯(cuò)誤，確定其性質(zhì)，并且加以糾正，進(jìn)行一系列測(cè)試。 計(jì)劃： 以下是我測(cè)試本系統(tǒng)的過(guò)程。 下面是我對(duì)“添加部門”操作進(jìn)行單元測(cè)試的過(guò)程，見(jiàn)圖表 1圖表 17。 用戶存在 密碼正確 N N N a b c j d k f m g n h 提示出錯(cuò) 開(kāi)始 輸入用戶名 部門操作 確定增加？屋未租出 增加部門 第 48 頁(yè) 圖表 16 部門添加流程 圖表 17 部門添加程序 下面將以白盒測(cè)試法設(shè)計(jì)測(cè)試用例。其中：用戶名、密碼、標(biāo)記分別表示用戶名稱、用戶密碼、是否高級(jí)用戶。用戶 04的密碼不是 123，用戶 01 添加部門的操作等。 測(cè)試設(shè)計(jì)說(shuō)明 編碼完成后要對(duì)源程序進(jìn)行測(cè)試，找出在設(shè)計(jì)甚至分析階段早期潛伏的錯(cuò)誤或編碼中新引入的錯(cuò)誤，并排隊(duì)提高軟件可靠性。 測(cè)試評(píng)價(jià)準(zhǔn)則 是否有尚未實(shí)現(xiàn)的功能需求。 執(zhí)行時(shí)的響應(yīng)時(shí)間和處理速度，占用內(nèi)存和外存容量，以及通道傳輸能力是否符合標(biāo)準(zhǔn)。 檢查程序 對(duì)強(qiáng)負(fù)荷的承受能力。 程序文檔是否配齊完整。 表格 6 白盒測(cè)試用例 序 號(hào) 測(cè)試數(shù)據(jù) 覆蓋節(jié)點(diǎn) 覆蓋的邊 期望結(jié)果 1 用戶名 :04 密碼： 123 1,2,3,9,8 a,b,c,k,n,i 提示密碼錯(cuò)誤 2 用戶名 :01 1,2,3,4,5,6,9,8 A,b,c,d,e,f,m,n,i 提示取消部 第 49 頁(yè) 密碼 :01 門添加 3 用戶名 : 01 密碼 : 01 1,2,3,4,5,6,7,8 a,b,c,d,e,f,g,h,i 提示部門添加成功 第七章 測(cè)試分析報(bào)告 引言 為了發(fā)現(xiàn)找出本系統(tǒng)中的錯(cuò)誤，并及時(shí)將其糾正，