【正文】 中為 Connection 和 Recordset 對象附加代碼。 TreeView 一般用于顯示文檔標(biāo)題、索引入口、磁盤上的文件和目錄、或能被有效地分層顯示的其它種類信息。 Node 對 象使用 Root、 Parent、 Child、 FirstSibling、 Next、 Previous 和 LastSibling 屬性。從左到右、從上到下地選擇 Node 對象。如果按下 ANSI 字符集中的鍵，焦點(diǎn)將跳轉(zhuǎn)至以那個(gè)字母開頭的最近的 Node。這意味著，當(dāng) TreeView 控件的 Style 屬性被設(shè)置成顯示圖像的樣式時(shí)， TreeView 控件中每一 建筑工程質(zhì)量檢測管理系統(tǒng) 第 8 頁 共 55 頁 項(xiàng)的旁邊都有一個(gè)同樣大小的圖像。設(shè)定 DataReport 對象的 DataSource 屬性為數(shù)據(jù)源。為每一個(gè)控件設(shè)定 DataMember 和 DataFiel 用 Show 方法顯示數(shù)據(jù)報(bào)表。在控件中，同一時(shí)刻只有一個(gè)選項(xiàng)卡是活動(dòng)的，這個(gè)選項(xiàng)卡向用戶顯示它本身所包含的控件而隱藏其它選項(xiàng)卡中的控件。 說明 : DataGrid 控件的每一個(gè)單元格都可以包含文本值，但不能鏈接或內(nèi)嵌對象。 如果一個(gè)單 元格的文本太長，以致于不能在單元格中全部顯示，則文本將在同一單元格內(nèi)折行到下一行。 選擇一個(gè)單元格，則 ColIndex 屬性被設(shè)置，也就是選擇了 DataGrid 對象的 Columns集合中的一個(gè) Column對象。在設(shè)計(jì)時(shí)，您可以設(shè)置列寬和行高，并且建立對用戶不可見的列。 3．要求系統(tǒng)主界面設(shè)計(jì)新穎，布局合理，對各種分別率能自動(dòng)滿屏匹配。 (3)采用圖形按鈕形式，對某些操作，為防止產(chǎn)生交叉干涉現(xiàn) 象，對相關(guān)的操作按鈕應(yīng)采取閉鎖方式，該操作解除后，相關(guān)的閉鎖釋放 (4)系統(tǒng)具備相關(guān)打印功能，用戶可以通過不同選擇來打印相關(guān)數(shù)據(jù)庫的表內(nèi)容。 二 .系統(tǒng)功能模塊圖 在上述基礎(chǔ)上我們可以畫出系統(tǒng)的功能模塊圖如下： 其中： 數(shù)據(jù)庫的功能為： ● 重裝數(shù)據(jù)庫 ● 備份數(shù)據(jù)庫 室內(nèi)檢測的功能為以下各個(gè)窗體的添加，修改，刪除： ● 混凝土立方體抗壓強(qiáng)度 建筑工程質(zhì)量檢測管理系統(tǒng) 數(shù)據(jù)庫 委托 委托統(tǒng)計(jì) 室內(nèi)檢測 現(xiàn)場檢測 水電檢測 系統(tǒng)管理 個(gè)人管理 查詢 打印 建筑工程質(zhì)量檢測管理系統(tǒng) 第 10 頁 共 55 頁 ● 砂漿立方體抗壓強(qiáng)度 ● 鋼材 ● 鋼筋焊接 ● 水泥 ● 混凝土配合比設(shè)計(jì) ● 砂漿配合比設(shè)計(jì) ● 建筑用砂 ● 建筑用石 ● 粘土磚 ● 鋁合金 ● 混凝土抗折強(qiáng)度 ● 防水材料 ● 混凝土抗?jié)B ● 塑料型材 ● 涂料 ● 高強(qiáng)螺栓 ● 抗滑移 ● 混凝土瓦 ● 混凝土砌塊 ● 陶瓷磚 現(xiàn)場檢測的功能為以下各個(gè)窗體的添加，修改，刪除： ● 混凝土回彈 ● 砂漿回彈 ● 鉆 芯 ● 混凝土構(gòu)件 ● 土工 水電檢測的功能為以下各個(gè)窗體的添加，修改，刪除： ● 委托 ● 線路絕緣 ● 接電裝置 ● 管道嚴(yán)密性 ● 通球試驗(yàn) 系統(tǒng)管理的功能為以下各個(gè)窗體的添加，修改，刪除： ● 用戶 ● 鋼材 ● 水泥 ● 鋼材生產(chǎn)廠家 ● 水泥生產(chǎn)廠家 ● 項(xiàng)目 建筑工程質(zhì)量檢測管理系統(tǒng) 第 11 頁 共 55 頁 ● 回彈強(qiáng)度曲線 ● 收費(fèi)標(biāo)準(zhǔn) 個(gè)人管理的功能為： ● 重新登陸 ● 修改密碼 ● 注銷 三．?dāng)?shù)據(jù)庫的設(shè)計(jì) 在不同的階段，需要從數(shù)據(jù)庫中檢索不同的表。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 。H1 Const FO_COPY = amp。H200 Const FOF_ALLOWUNDO = amp。Data Source= amp。顯示登錄 窗口 Load frmSplash vbModal End Sub 二 .程序界面及相關(guān)代碼的具體設(shè)計(jì) 1． 系統(tǒng)登陸界面 用戶必須先登陸才可以進(jìn)入系統(tǒng)進(jìn)行相關(guān)操作。讓窗體居中 X0 = Y0 = X0 = (X0 ) / 2 Y0 = (Y0 ) / 2 X0, Y0 39。m BitBlt , 35, 1, 10, 14, , 10 * Int(Mid$(tempTime, 5, 1)), 0, SRCCOPY 39。設(shè)置全局變量為 false 39。 amp。 amp。判斷用戶是否存在 If 0 Then LoginSucceeded = True 39。如果在輸入密碼后按回車，則 txtPassword 接受回車 cmdok_Click 39。 Trim() amp。顯示登錄窗口 Load frmLogin vbModal End Sub 39。 With CDlg .CancelError = True .DialogTitle = 數(shù)據(jù)庫重裝 選擇要恢復(fù)的數(shù)據(jù)庫備份文件 .Filter = Microsoft Acess(*.mdb)|*.mdb|所有文件 (*.*)|*.* .FilterIndex = 1 .InitDir = amp。 End With Exit Sub err: End Sub 39。 With CDlg .CancelError = True .DialogTitle = 數(shù)據(jù)庫備份 選擇存盤路徑及名稱 .Filter = Microsoft Acess(*.mdb)|*.mdb|所有文件 (*.*)|*.* .FilterIndex = 1 .FileName = amp。 指定目的文件名。根據(jù)用戶的權(quán)限來顯示相關(guān)的菜單 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 If Dir( amp。根據(jù)用戶的不同權(quán)限建立相應(yīng)的目錄樹 Dim rootNode As Node, nd As Node 建筑工程質(zhì)量檢測管理系統(tǒng) 第 27 頁 共 55 頁 If bmconsign = True Then Set rootNode = (, , 委托 , 委托 , 委暗 , 委亮 ) = True End If If bMstat = True Then Set rootNode = (, , 委托統(tǒng)計(jì) , 委托統(tǒng)計(jì) , 統(tǒng)暗 , 統(tǒng)亮 ) = True End If If bMroomtest = True Then Set rootNode = (, , 室內(nèi)檢測 , 室內(nèi)檢測 , 室暗 , 室亮 ) 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 = (, , 收費(fèi)管理 , 收費(fèi)管理 , 收暗 , 收亮 ) 建筑工程質(zhì)量檢測管理系統(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。系統(tǒng)管理 Case 用戶管理 If frmActiveNow Is frmUser Then Exit Sub Call UnloadActiveForm Load frmUser Set frmActiveNow = frmUser Case 委托統(tǒng)計(jì) If frmActiveNow Is FrmSta