【導讀】現(xiàn)實際執(zhí)行過程中的工作流程。便于擴充新的功能。體現(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)進行需求分析，畫出功能模塊圖，給出部分表。某些界面和部分代碼。最后對此次設計進行了簡明，扼要的總結。第二章需求分析...

　　

【正文】 MsgBox 無效的當前用戶名，請重新錄入 !, 48, 身份驗證 = vbRed Exit Sub Else If Trim(txtPassword) userpassword Then MsgBox 無效的密碼，請重新錄入 !, 48, 身份驗證 = vbRed Exit Sub End If End If MsgBox 身份驗證合格，請錄入新的密碼 !, 64, 身份驗證 = 修改密碼 = 修改密碼 = False txtPassword = trytimes = 1 Else If trytimes 3 Then MsgBox 對不起，你不遵守密碼使用規(guī)范，本功能不再對你開江南大學畢業(yè)論文 建筑工程質量檢測管理系統(tǒng) 第 23 頁 共 52 頁 放 !, 16, 密碼修改 Call cmdcancel_Click Exit Sub End If If Trim(txtPassword) = Then MsgBox 密碼不能為空 , vbOKOnly + 48, 提示信息 = vbRed Exit Sub End strTemp = username=39。 amp。 Trim() amp。 39。 strTemp, , , adBookmarkFirst If Not Then (userpass) = adAffectAll userpassword = Trim() Unload Me Exit Sub End If End If End Sub 3． 系統(tǒng)主界面 登陸后進入系統(tǒng)主界面，此時可以進行各個不同的操作。 部分代碼如下： Option Explicit Private Sub manicotest_Click() 江南大學畢業(yè)論文 建筑工程質量檢測管理系統(tǒng) 第 24 頁 共 52 頁 If frmActiveNow Is frmAnicoTest Then Exit Sub Call UnloadActiveForm Load frmAnicoTest Set frmActiveNow = frmAnicoTest End Sub Private Sub mend_Click() End End Sub Private Sub mesc_Click() = True = False = False = False = False = False = False = False = False = False = False = False = False = False Unload frmFunction Call UnloadActiveForm = False = True End Sub Private Sub mlogin_Click() Unload Me 1 End Sub Private Sub mnuAbout_Click() Load frmAbout vbModal End Sub Private Sub mnuContents_Click() Dim strHelp As String strHelp = + \help\ + + \help\ Shell strHelp, vbNormalFocus End Sub Private Sub mnuData_Relogin_Click() 39。顯示登錄窗口 江南大學畢業(yè)論文 建筑工程質量檢測管理系統(tǒng) 第 25 頁 共 52 頁 Load frmLogin vbModal End Sub 39。以下代碼重裝數(shù)據(jù)庫 Private Sub mnuData_Reship_Click() On Error GoTo err Dim SourceFile, DestinationFile, vbMsg As String DestinationFile = amp。 \db\ 39。 指定目的文件名。 With CDlg .CancelError = True .DialogTitle = 數(shù)據(jù)庫重裝 選擇要恢復的數(shù)據(jù)庫備份文件 .Filter = Microsoft Acess(*.mdb)|*.mdb|所有文件 (*.*)|*.* .FilterIndex = 1 .InitDir = amp。 \db\backup\ .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: 江南大學畢業(yè)論文 建筑工程質量檢測管理系統(tǒng) 第 26 頁 共 52 頁 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 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 江南大學畢業(yè)論文 建筑工程質量檢測管理系統(tǒng) 第 27 頁 共 52 頁 End If End Sub 其中目錄樹的部分代碼如下： Option Explicit Private Sub Form_Load() 39。根據(jù)用戶的不同權限建立相應的目錄樹 Dim rootNode As Node, nd As Node 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,