【導讀】體現(xiàn)了計算機高效、全面、快速處理信息的能力。而作為計算機最大的應用領域——數(shù)。據(jù)庫管理系統(tǒng)，在現(xiàn)代計算機系統(tǒng)已被作為主要的系統(tǒng)軟件之一。據(jù)庫，使用ADO技術來連接數(shù)據(jù)庫。系統(tǒng)中使用DataGrid控件、MsChart控件等ADO. 本文主要內容如下：先對開發(fā)軟件VisualBasic面向對象程序設計作了簡。然后對系統(tǒng)進行需求分析，畫出功能模塊圖，給出部分表。某些界面和部分代碼。最后對此次設計進行了簡明，扼要的總結。

　　

【正文】 db\ 39。 指定目的文件名。 With CDlg .CancelError = True .DialogTitle = 數(shù)據(jù)庫重裝 選擇要恢復的數(shù)據(jù)庫備份文件 .Filter = Microsoft Acess(*.mdb)|*.mdb|所有文件 (*.*)|*.* .FilterIndex = 1 .InitDir = amp。 \db\backup\ 建筑工程質量檢測管理系統(tǒng) 第 25 頁 共 55 頁 .ShowOpen SourceFile = .FileName 39。 指定源文件名 .FileName = Call CopyDB(SourceFile, DestinationFile) 39。 將源文件的內容復制到目的文件中。 End With Exit Sub err: End Sub 39。以下代碼存儲數(shù)據(jù)庫 Private Sub mnuData_StockUp_Click() On Error GoTo err Dim SourceFile, DestinationFile, vbMsg As String SourceFile = amp。 \ 39。 指定源文件名。 With CDlg .CancelError = True .DialogTitle = 數(shù)據(jù)庫備份 選擇存盤路徑及名稱 .Filter = Microsoft Acess(*.mdb)|*.mdb|所有文件 (*.*)|*.* .FilterIndex = 1 .FileName = amp。 \Db\backup\ArchiQualiCheck amp。 Format(Now, YY 年 MM月 dd 日 hh 時 mm 分 ss 秒 ) amp。 .mdb .ShowSave DestinationFile = .FileName 39。 指定目的文件名。 Call CopyDB(SourceFile, DestinationFile) 39。 將源文件的內容復制到目的文件中。 .FileName = End With Exit Sub err: End Sub Private Sub Timer2_Timer() Static intc As Integer intc = intc + 1 If intc = 3 Then intc = 1 Select Case intc Case 1 (2).Text = 管理系統(tǒng)開發(fā)人員 ： 蘇斌 Case 2 (2).Text = 管理系統(tǒng)開發(fā)人員 ：李臘生 End Select End Sub 建筑工程質量檢測管理系統(tǒng) 第 26 頁 共 55 頁 Private Sub UnloadActiveForm() If Not frmActiveNow Is Nothing Then Unload frmActiveNow End If End Sub Private Sub MDIForm_Load() 39。根據(jù)用戶的權限來顯示相關的菜單 If bmconsign = True Then = True If bMstat = True Then = True If bMroomtest = True Then = True If bMlocaltest = True Then = True If bMwateltest = True Then = True If bMsystemmanage = True Then = True = True End If If bMchargemanage = True Then = True If bMsearch = True Then = True If bMprint = True Then = True If bMtotal = True Then = True If bMwork = True Then = True Load frmFunction End Sub Private Sub MDIForm_Unload(cancel As Integer) If Dir( amp。 \Temp, vbDirectory) Then If Dir( amp。 \Temp\*.*) Then Kill amp。 \Temp\*.* End If 39。刪除文件夾 temp If Dir( amp。 \Temp\*.*) = Then RmDir amp。 \Temp 39。建立文件夾 temp End If End Sub 其中目錄樹的部分代碼如下： Option Explicit Private Sub Form_Load() 39。根據(jù)用戶的不同權限建立相應的目錄樹 Dim rootNode As Node, nd As Node 建筑工程質量檢測管理系統(tǒng) 第 27 頁 共 55 頁 If bmconsign = True Then Set rootNode = (, , 委托 , 委托 , 委暗 , 委亮 ) = True End If If bMstat = True Then Set rootNode = (, , 委托統(tǒng)計 , 委托統(tǒng)計 , 統(tǒng)暗 , 統(tǒng)亮 ) = True End If If bMroomtest = True Then Set rootNode = (, , 室內檢測 , 室內檢測 , 室暗 , 室亮 ) Set nd = (rootNode, tvwChild, 混凝土抗壓 , 混凝土抗壓 , 混暗 , 混亮 ) = True End If If bMlocaltest = True Then Set rootNode = (, , 現(xiàn)場檢測 , 現(xiàn)場檢測 , 現(xiàn)暗 , 現(xiàn)亮 ) Set nd = (rootNode, tvwChild, 混凝土回彈 , 混凝土回彈 , 混暗 , 混亮 ) = True End If If bMwateltest = True Then Set rootNode = (, , 水電檢測 , 水電檢測 , 水暗 , 水亮 ) Set nd = (rootNode, tvwChild, 水電檢測 _委托 , 委托 , 委暗2, 委亮 2) = True End If If bMsearch = True Then Set rootNode = (, , 查詢 , 查詢 , 查暗 , 查亮 ) = True End If If bMtotal = True Then Set rootNode = (, , 匯總 , 匯總 , 匯暗 , 匯亮 ) = True End If If bMprint = True Then Set rootNode = (, , 打印 , 打印 , 打暗 , 打亮 ) = True End If If bMwork = True Then If bMchargemanage = True Then Set rootNode = (, , 收費管理 , 收費管理 , 收暗 , 收亮 ) 建筑工程質量檢測管理系統(tǒng) 第 28 頁 共 55 頁 = True End If If bMsystemmanage = True Then Set rootNode = (, , 系統(tǒng)管理 , 系統(tǒng)管理 , 系暗 , 系亮 ) Set nd = (rootNode, tvwChild, 用戶管理 , 用戶管理 , 用暗 , 用亮 ) = True End If End Sub Private Sub Form_Resize() = 0 = 0 = = 3300 = 100 = 100 = 200 = 200 = True End Sub Private Sub Form_Unload(cancel As Integer) If Not frmActiveNow Is Nothing Then If 0 Then cancel = True End If End Sub Private Sub tvFunction_NodeClick(ByVal Node As ) Select Case Case 委托 If frmActiveNow Is frmConsign Then Exit Sub Call UnloadActiveForm Load frmConsign Set frmActiveNow = frmConsign 39。室內檢測 Case 混凝土抗壓 If frmActiveNow Is frmConcPress Then Exit Sub Call UnloadActiveForm Load frmConcPress 建筑工程質量檢測管理系統(tǒng) 第 29 頁 共 55 頁 Set frmActiveNow = frmConcPress 39。現(xiàn)場檢測 Case 混凝土回彈 If frmActiveNow Is frmConcResile Then Exit Sub Call UnloadActiveForm Load frmConcResile Set frmActiveNow = frmConcResile 39。水電檢測 Case 水電檢測 _委托 If frmActiveNow Is frmWEConsign Then Exit Sub Call UnloadActiveForm Load frmWEConsign Set frmActiveNow = frmWEConsign 39。系統(tǒng)管理 Case 用戶管理 If frmActiveNow Is frmUser Then Exit Sub Call UnloadActiveForm Load frmUser Set frmActiveNow = frmUser Case 委托統(tǒng)計 If frmActiveNow Is FrmStat Then Exit Sub Call UnloadActiveForm Load FrmStat Set frmActiveNow = FrmStat Case 查詢 If frmActiveNow Is frmSearch Then Exit Sub Call UnloadActiveForm Load frmSearch