【正文】 indows中的構(gòu)件，并且能夠方便地訪問數(shù)據(jù)庫，可以開發(fā)各種應(yīng)用程序（包括 Client/Server數(shù)據(jù)庫應(yīng)用程序 Visual Basic不但簡單易學(xué)、功能強(qiáng)大，深受廣大計算機(jī)愛好者和 IT從業(yè)者的青 睞，又是許多高校學(xué)生必學(xué)的計算機(jī)基礎(chǔ)課，同時還是高校學(xué)生計算機(jī)等級考試學(xué)生選考人數(shù)最多的科目之一）。在語言功能方面，它與以前的 BASIC 語言基本兼容，但功能更強(qiáng)大，使用更方便。 VB把這些控件模式化，并且每個控件都由若干屬性來控制其外觀、工作方法。 Visual Basic 在原有 BASIC語言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI有直接關(guān)系。 作用：使用 OLE DB 數(shù)據(jù)源或者 ODBC 數(shù)據(jù)源定義數(shù)據(jù)庫 Connection 連接對對象的層次，可以被 HflexGrid 控件和 Data Report Designer 等分層工具使用；從設(shè)計者的Command 對象向綁定于 Command 對象的 Form（表）對象或者 Data Report Designer拖放字段和表；在 Data Report Designer 中為 Connection 和 Recordset 對象附加代碼。 TreeView 一般用于顯示文檔標(biāo)題、索引入口、磁盤上的文件和目錄、或能被有效地分 層顯示的其它種類信息。 Node 對象使用 Root、 Parent、 Child、 FirstSibling、 Next、 Previous 和 LastSibling 屬性。從左到右、從上到下地選擇 Node 對象。如果 按下 ANSI 字符集中的鍵，焦點(diǎn)將跳轉(zhuǎn)至以那個字母開頭的最近的 Node。這意味著，當(dāng) TreeView 控件的 Style 屬性被設(shè)置成顯示圖像的樣式時， TreeView 控件中每一項(xiàng)的旁邊都有一個同樣大小的圖像。設(shè)定 DataReport 對象的 DataSource 屬性為數(shù)據(jù)源。為每一個控件設(shè)定 DataMember 和 DataFiel 用 Show 方法顯示數(shù)據(jù)報表。在控件中，同一時刻只有一個選項(xiàng)卡是活動的，這個選項(xiàng)卡向用戶顯示它本身所包含的控件而隱藏其它選項(xiàng)卡中的控件。 說明 : DataGrid 控件的每一個單元格都可以包含文本值，但不能鏈接或內(nèi)嵌對象。 如果一個單元格的文本太長，以致于不能在單元格中全部顯示，則文本將在同一單元格內(nèi)折行到下一行。 選擇一個單元格，則 ColIndex 屬性被設(shè)置，也就是選擇了 DataGrid 對象的 Columns集合中的一個 Column對象。在設(shè)計時，您可以設(shè)置列寬和行高，并且建立對用戶不可見的列。 3．要求系統(tǒng)主界面設(shè)計新穎，布局合理，對各種分別率能自動滿屏 匹配。 (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)檢測的功能為以下各個窗體的添加，修改，刪除： ● 混凝土立方體抗壓強(qiáng)度 ● 砂漿立方體抗壓強(qiáng)度 ● 鋼材 ● 鋼筋焊接 建筑工程質(zhì)量檢測管理系統(tǒng) 數(shù)據(jù)庫 委托 委托統(tǒng)計 室內(nèi)檢測 現(xiàn)場檢測 水電檢測 系統(tǒng)管理 個人管理 查詢 打印 江南大學(xué)畢業(yè)論文 建筑工程質(zhì)量檢測管理系統(tǒng) 第 12 頁 共 52 頁 ● 水泥 ● 混凝土配合比設(shè)計 ● 砂漿配合比設(shè)計 ● 建筑用砂 ● 建筑用石 ● 粘土磚 ● 鋁合金 ● 混凝土抗折強(qiáng)度 ● 防水材料 ● 混凝土抗?jié)B ● 塑料型材 ● 涂料 ● 高強(qiáng)螺栓 ● 抗滑移 ● 混凝土瓦 ● 混凝土砌塊 ● 陶瓷磚 現(xiàn)場檢測的功能為以下各個窗體的添加，修改，刪除： ● 混凝土回彈 ● 砂漿回彈 ● 鉆芯 ● 混凝土構(gòu)件 ● 土工 水電檢測的功能為以下各個窗體的添加，修改，刪除： ● 委托 ● 線路絕緣 ● 接電裝置 ● 管道嚴(yán)密性 ● 通球試驗(yàn) 系統(tǒng)管理的功能為以下各個窗體的添加，修改，刪除： ● 用戶 ● 鋼材 ● 水泥 ● 鋼材生產(chǎn)廠家 ● 水泥生產(chǎn)廠家 ● 項(xiàng)目 ● 回彈強(qiáng)度曲線 ● 收費(fèi)標(biāo)準(zhǔn) 個人管理的功能為： ● 重新登陸 ● 修改密碼 江南大學(xué)畢業(yè)論文 建筑工程質(zhì)量檢測管理系統(tǒng) 第 13 頁 共 52 頁 ● 注銷 三．?dāng)?shù)據(jù)庫的設(shè)計 在不同的階段，需要從數(shù)據(jù)庫中檢索不同的表。在項(xiàng)目資源管理器中為項(xiàng)目添加一個 Module，保存為 。H1 Const FO_COPY = amp。H200 Const FOF_ALLOWUNDO = amp。Data Source= amp。顯示登錄窗口 Load frmSplash vbModal End Sub 二 .程序界面及相關(guān)代碼的具體設(shè)計 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。顯示登錄窗口 江南大學(xué)畢業(yè)論文 建筑工程質(zhì)量檢測管理系統(tǒng) 第 25 頁 共 52 頁 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 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 = (, , 室內(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, 混凝土。 \Temp 39。 \Temp\*.*) Then Kill amp。 將源文件的內(nèi)容復(fù)制到目的文件中。 Format(Now, YY 年 MM月 dd 日 hh 時 mm 分 ss 秒 ) amp。 \ 39。 指定源文件名 .FileName = Call CopyDB(SourceFile, DestinationFile) 39。 \db\ 39。 strTemp, , , adBookmarkFirst If Not Then (userpass) = adAffectAll userpassword = Trim() Unload Me Exit Sub End If End If End Sub 3． 系統(tǒng)主界面 登陸后進(jìn)入系統(tǒng)主界面，此時可以進(jìn)行各個不同的操作。 部分代碼如下： Private Sub cmdok_Click() trytimes = trytimes + 1 If = 確定 Then If trytimes 2 Then MsgBox 對不起，你無權(quán)使用密碼更改功能 !, 16, 身份驗(yàn)證 Call cmdcancel_Click Exit Sub End If If Trim() username Then MsgBox 無效的當(dāng)前用戶名，請重新錄入 !, 48, 身份驗(yàn)證 = vbRed Exit Sub Else If Trim(txtPassword) userpassword Then MsgBox 無效的密碼，請重新錄入 !, 48, 身份驗(yàn)證 = vbRed