【正文】 第 36 頁 Text3(1).Text = Text3(2).Text = Text3(3).Text = Text3(4).Text = Text3(5).Text = Text3(6).Text = Text3(7).Text = Text3(8).Text = Text3(9).Text = = False = False = False = = End With End Sub Private Sub MRWC_Click() If = True Then = False Else = True End If End Sub Private Sub Text3_Change(Index As Integer) If Index = 1 Then Dim gzrs As Recordset Set gzrs = New Recordset 第 37 頁 = adUseClient = adOpenKeyset select * from wxrz where sbbh=39。 Chr(13) amp。 Text3(1).SetFocus 39。 End If 第 40 頁 39。 39。 Exit Sub 39。 Text3(4).SetFocus 39。 End If 39。 amp。 amp。人員 Set ryrs = New Recordset = adUseClient = adOpenKeyset select * from rygl , , adOpenKeyset, adLockOptimistic If = 0 Then Exit Sub 39。 39。 計劃： 以下是我測試本系統(tǒng)的過程。 檢查程序 對強負荷的承受能力。 測試評價準則 是否有尚未實現(xiàn)的功能需求。統(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。 amp。 \。采用 DataGrid 控件綁 第 44 頁 定到數(shù)據(jù)集顯示： Set = gztjrs，代碼如下： Private Sub Command2_Click() 39。 39。 Text3(4).SetFocus 39。 MsgBox 報修日期不能為空，請輸入。 , vbInformation, 提示 39。 amp。 Text3(1).SetFocus 39。 MsgBox 設(shè)備編號不能為空，請輸入。在同一天內(nèi)解決的故障工時統(tǒng)計 counthour = changetominute(Text3(7).Text) changetominute(Text3(5).Text) Else 39。, , adOpenKeyset, adLockOptimistic Do Until nodeX, tvwChild, , (sbbh), 3, 3 Loop Set tvrs1 = noting Loop Set tvrs = noting = True End Sub Private Sub fulltext() 39。 39。刷新列表 Call fulltree 39。修改 With rs !bxbm = Text3(0).Text !sbbh = Text3(1).Text !wcqk = Text3(2).Text !bxgz = Text3(3).Text !bxsrq = Trim(Text3(4).Text) !bxsj = Text3(5).Text !xfsrq = Text3(6).Text !xfsj = Text3(7).Text !wxry = Text3(8).Text !wxgs = Text3(9).Text If Then !gzlx = Else If Then !gzlx = Else If Then !gzlx = End If End If End If 第 31 頁 !gzyy = !cqcs = .Update End With End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Call cleartext End Sub Private Sub Form_Load() Dim bmbmrs As Recordset 39。工具欄定義 Select Case Case 日志管理 Call RZGL_Click Case 故障統(tǒng)計 Call GZTJ_Click Case 機站配置 Call YJPZ_Click Case 系統(tǒng)退出 Call XTTC_Click End Select End Sub Private Sub XTTC_Click() 39。狀態(tài)欄時間顯示 (5).Text = amp。 Month(Date) amp?；剀囨I Ascii = 13 If KeyAscii = 13 Then End If End Sub 系統(tǒng)操作代碼 圖表 12 系統(tǒng)操作界面 系統(tǒng)主操作界面，實現(xiàn)到各個具體功能模塊的入口，由 菜單欄、工具欄、狀態(tài)欄組成；菜單設(shè)計采用 VB 菜單設(shè)計器實現(xiàn)，工具欄采用 Toolbar 控件，工具欄采用 StatusBar 控件，顯示問候文字、當前操作員信息、當前日期、時間，其中當前日期、時間采用 Timer 控件每 1000 毫秒刷新。:取得相對路徑 Provider=。退出本窗口，進入主界面 Unload Me 1, Me Exit Do End If Loop If operatorcode = Then 39。 圖表 9 機站配置界面 第 19 頁 基礎(chǔ)檔案管理設(shè)計說明 基礎(chǔ)檔案管理：包括部門檔案、人員檔案。 第 17 頁 圖表 6 系統(tǒng)主界面 系統(tǒng)主界面由： 菜單欄、工具欄、狀態(tài)欄組成，為進入各個模塊的入口。 6． 維修 日志查詢輸出 :由 5 得到數(shù)據(jù)，供 查詢打印。 處理流程 第 14 頁 下面將使用（結(jié)構(gòu)化設(shè)計）面向數(shù)據(jù)流的方法對孟家溝港計算機管理系統(tǒng)的處理流程進行分析。 物理數(shù)據(jù)結(jié)構(gòu)設(shè)計 物理數(shù)據(jù)結(jié)構(gòu)設(shè)計主要是設(shè)計數(shù)據(jù)在模塊中的表示形式。 2． 2 技術(shù)人員 1． 1 故障部門 1． 3 故障維修記錄 調(diào)度員 第 11 頁 （ 3）硬件接口 在輸入方面，對于鍵盤 、 鼠標的輸入，可用 VISUAL BASIC 的標準輸入 /輸出，對輸入進行處理。 在下一階段的詳細設(shè)計中，程序設(shè)計員可參考此概要設(shè)計報告，在概要設(shè)計對計算機管理系統(tǒng)所做的模塊結(jié)構(gòu)設(shè)計的基礎(chǔ)上，對系統(tǒng)進行詳細設(shè)計。 第 8 頁 系統(tǒng)的標準性 系統(tǒng)在設(shè)計開發(fā)使用過程中要涉及到諸多計算機硬件與軟件，因此，在自主開發(fā)本系統(tǒng)時，要進行良好的設(shè)計工作，制定行之有效的軟件工程規(guī)范，保證代碼的易讀性、可操作性和可移植性。 ? 顯卡： VGA 顯示適配器。 （ 2）故障信息的存儲： 調(diào)度員將故障部門的故障信息存儲到本系統(tǒng)中，在數(shù)據(jù)庫中產(chǎn)生一條記錄。 用戶使用可行性 本軟件的設(shè)計開發(fā)者同時也是日后的使用者，具有較好的計算機專業(yè)知識并對系統(tǒng)極為熟悉。 技術(shù)可行度：現(xiàn)有技術(shù)可完全承擔開發(fā)任務(wù)。 性能要求：各種維修信息必須準確無誤的存儲在數(shù)據(jù)庫中，以備日后查驗及積累維修經(jīng)驗。在開發(fā)這個系統(tǒng)的過程中始終得到指導老師的關(guān)心和同學們的幫助，使我對三年所學的知識應(yīng)運到實際開發(fā)有了更加深刻的領(lǐng)悟。系統(tǒng)使用后，可以對本月各種故障維修進行記錄，并可在任何時候?qū)v史維修記錄進行統(tǒng)計。 衷心的感謝老師們四年來的教導。 完成期限：預計一個月，即截止 2021 年 5 月 28 日。根據(jù)故障維修單到對應(yīng)部門的故障設(shè)備開展維修工作。 第二章 需求分析 需求概述 為方便管理，節(jié)約成本，提高維修效率，孟家溝港微機室需開發(fā)本系統(tǒng)。 （ 5）故障信息的統(tǒng)計 這一功能是在一項項故障維修記錄的基礎(chǔ)上，根據(jù)各項工作的維修情況，進行工時、維修質(zhì)量等信息的統(tǒng)計。 系統(tǒng)處理的準確性和及時性 系統(tǒng)處理的準確性和及時性是系