【文章內容簡介】 ntStandard） 字段名 字段名 類型 長度 *標號 Number 文本 10 *品種 Variety 文本 40 抗壓強度 3天 Press3Days 數字 單精度型 抗析強度 3天 Analyse3Days 數字 單精度型 抗壓強度 28天 Press28Days 數字 單精度型 抗析強度 28天 Analyse28Days 數字 單精度型 鋼材生產廠家 (SteelFactory) 字段名 字段名 類型 長度 *編號 Number 文本 3 名稱 Name 文本 40 水泥生產廠家 (CementFactory) 字段名 字段名 類型 長度 *編號 Number 文本 3 名稱 Name 文本 40 項目 (Item) 字段名 字段名 類型 長度 *項目 ItemName 文本 40 報告編號 ReportNo 文本 10 完成期限 AchieveTime 數 字 整型 回彈強度曲線 (ElasticityIntensityCurve) 字段名 字段名 類型 長度 *項目 Item 文本 20 A A 數字 單精度型 B B 數字 單精度型 C C 數字 單精度型 收費標準（ ChargeStandard） 字段名 字段名 類型 長度 *項目 Item 文本 40 價格 Price 貨幣 委托 (Consign) 字段名 字段名 類型 長度 *委托編號 ConsignNo 文本 8 建筑工程質量檢測管理系統(tǒng) 第 13 頁 共 55 頁 委托單位 ConsignUnit 文本 50 委托日期 ConsignDate 日期 /時間 長日期 樣品來源 SampleSource 文本 20 送樣人 Deliver 文本 20 送樣人電話 DeliverTel 文本 20 是否見證 WitnessIf 是 /否 見證人 Witness 文本 20 見證人電話 WitnessTel 文本 20 其他費用 OtherCharge 貨幣 費用名稱 ChargeName 文本 20 質檢編號 QualityNo 文本 20 質檢 (Quality) 字段名 字段名 類型 長度 *質檢編號 QualityNo 文本 20 工程名稱 ProjectName 文本 50 建設單位 BuildUnit 文本 50 施工單位 ConstructUnit 文本 50 混凝土抗壓 (ConcPress) 字段名 字段名 類型 長度 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 成型日期 MoldDate 日期 /時間 長日期 試壓齡期 PressDate 數字 整型 規(guī)格 Standard 數字 單精度型 養(yǎng)護條件 MaintainCondition 文本 20 設計強度 DesignIntensity 數字 單精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 砂漿立方體抗壓強度 (SendPress) 字段名 字段名 類型 長度 *校驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 成型日期 MoldDate 日期 /時間 長日期 規(guī)格 Standard 數字 單精度型 養(yǎng)護條件 MaintainCondition 文本 20 設計強度 DesignIntensity 數字 單精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 建筑工程質量檢測管理系統(tǒng) 第 14 頁 共 55 頁 鋼材 (SteelTest) 字段名 字段名 類型 長度 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 種類 Kind 文本 40 級別 Level 文本 20 規(guī)格 Standard 數字 單精度型 批量 Batch 數字 單精度型 生產廠家 ProduceFactory 文本 40 復檢 Reexamine 是 /否 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 鋼筋焊接 (SteelJoin) 字段名 字段名 類型 長度 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 焊接方式 JoinType 文本 20 級別 Level 文本 20 規(guī)格 Standard 數字 單精度型 批量 Batch 數字 單精度型 生產廠家 ProduceFactory 文本 40 復檢 Reexamine 是 /否 使用部位 Position 文本 40 委托日 期 ConsignDate 日期 /時間 長日期 水泥 (CementTest) 字段名 字段名 類型 長度 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 品種 Breeds 文本 16 標號 Tab 數字 單精度型 檢驗指標 Guideline 文本 16 批量 Batch 數字 單精度型 生產廠家 ProduceFactory 文本 40 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 混凝土配合比設計 (ConcProp) 字段名 字段名 類型 長度 建筑工程質量檢測管理系統(tǒng) 第 15 頁 共 55 頁 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 設計強度 Intension 數字 單精度型 使用部位 Position 文本 40 摻和料廠家 MixFactory 文本 40 摻和料品種 MixBreed 文本 16 砂廠家 SandFactory 文本 40 砂品種 SandBreed 文本 16 外加劑廠家 AddFactory 文本 40 外加劑品種 AddBreed 文本 16 石廠家 StoneFactory 文本 40 石品種 StoneBreed 文本 16 水泥廠家 CementFactory 文本 40 水泥品種 CementBreed 文本 16 水泥標號 CementTab 數字 單精度型 委托日期 ConsignDate 日期 /時間 長日期 砂漿配合比設計 (SendProp) 字段名 字段名 類型 長度 *檢驗編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 設計強度 Intension 數字 單精度型 砂漿種類 SandSlurryBreed 文本 16 使用部位 Position 文本 40 摻和料廠家 MixFactory 文本 40 摻和料品種 MixBreed 文本 16 砂廠家 SandFactory 文本 40 砂品種 SandBreed 文本 16 外加劑廠家 AddFactory 文本 40 外加劑品種 AddBreed 文本 16 水泥廠家 CementFactory 文本 40 水泥品種 CementBreed 文本 16 水泥標號 CementTab 數字 單精度型 委托日期 ConsignDate 日 期 /時間 長日期 建筑工程質量檢測管理系統(tǒng) 第 16 頁 共 55 頁 建筑工程質量檢測管理系統(tǒng) 第 17 頁 共 55 頁 第三章 前臺應用程序的設計 一 .公共模塊的創(chuàng)建 在 Visual Basic 中可以用公用模塊來存放整個工程項目的公用的函數、全局變量等。整個工程項目中的任何地方都可以調用公用模塊中的函數、變量，這樣可以極大地提高代碼的效率。在項目資源管理器中為項目添加一個 Module，保存為 。其中添加的代碼如下： Option Explicit Public sConString As String Public frmActiveNow As Form Public bmdata As Boolean Public bmconsign As Boolean Public bMstat As Boolean Public bMroomtest As Boolean Public bMlocaltest As Boolean Public bMwateltest As Boolean Public bMsystemmanage As Boolean Public bMchargemanage As Boolean Public bMsearch As Boolean Public bMprint As Boolean Public bMtotal As Boolean Public bMwork As Boolean Public username As String Public userpassword As String 39。如何用程序來 Copy Move File/Directory Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String 39。 only used if FOF_SIMPLEPROGRESS End Type Const FO_MOVE = amp。H1 Const FO_COPY = amp。H2 Const FO_DELETE = amp。H3 建筑工程質量檢測管理系統(tǒng) 第 18 頁 共 55 頁 Const FOF_NOCONFIRMATION = amp。H10 Const FOF_NOCONFIRMMKDIR = amp。H200 Const FOF_ALLOWUNDO = amp。H40 Const FOF_SILENT = amp。H4 Private Declare Function SHFileOperation Lib Alias _ SHFileOperationA (lpFileOp As SHFILEOPSTRUCT) As Long 39。復制 Public Sub CopyDB(ByVal SourceFile As String, ByVal DestinationFile As String) Dim SHFileOp As SHFILEOPSTRUCT = FO_COPY = SourceFile = DestinationFile = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR Call SHFileOperation(SHFileOp) End Sub Sub Main() sConString = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = sConString 39。顯示登錄 窗口 Load frmSplash vbModal End Sub 二 .程序界面及相關代碼的具體設計 1． 系統(tǒng)登陸界面 用戶必須先登陸才可以進入系統(tǒng)進行相關操作。我們對不同的用戶都給予了不同的權限，不同的用戶只能看到自己可以操作的一些菜單和目錄樹，其他的我們給予屏蔽，使用戶不可見。 部分代碼如下： Option Explicit Public LoginSucceeded As Boolean Private Declare Function Bi