【正文】 it Sub End strTemp = username=39。如果在輸入密碼后按回車，則 txtPassword 接受回車 cmdok_Click 39。提取用戶名和密碼 username = (username) userpassword = (userpass) Unload Me LoginSucceeded = False Else trytimes = trytimes + 1 If trytimes = 3 Then MsgBox 錯誤已經(jīng)超過 3 次 ,請于本系統(tǒng)的管理員聯(lián)系！ End Else MsgBox 對不起，用戶名或密碼錯誤，不能進(jìn)入！ txtUserName = txtPassword = 39。判斷用戶是否存在 If 0 Then LoginSucceeded = True 39。 39。 amp。 39。 amp。退出系統(tǒng) End Sub 建筑工程質(zhì)量檢測管理系統(tǒng) 第 20 頁 共 55 頁 Private Sub cmdok_Click() Static trytimes As Integer 39。設(shè)置全局變量為 false 39。s BitBlt , 60, 1, 10, 14, , 10 * Int(Right$(tempTime, 1)), 0, SRCCOPY 39。m BitBlt , 35, 1, 10, 14, , 10 * Int(Mid$(tempTime, 5, 1)), 0, SRCCOPY 39。h BitBlt , 10, 1, 10, 14, , 10 * Int(Mid$(tempTime, 2, 1)), 0, SRCCOPY 39。讓窗體居中 X0 = Y0 = X0 = (X0 ) / 2 Y0 = (Y0 ) / 2 X0, Y0 39。 部分代碼如下： Option Explicit Public LoginSucceeded As Boolean Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal X As 建筑工程質(zhì)量檢測管理系統(tǒng) 第 19 頁 共 55 頁 Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Const SRCCOPY = amp。顯示登錄 窗口 Load frmSplash vbModal End Sub 二 .程序界面及相關(guān)代碼的具體設(shè)計(jì) 1． 系統(tǒng)登陸界面 用戶必須先登陸才可以進(jìn)入系統(tǒng)進(jìn)行相關(guān)操作。 \。Data Source= amp。H4 Private Declare Function SHFileOperation Lib Alias _ SHFileOperationA (lpFileOp As SHFILEOPSTRUCT) As Long 39。H200 Const FOF_ALLOWUNDO = amp。H3 建筑工程質(zhì)量檢測管理系統(tǒng) 第 18 頁 共 55 頁 Const FOF_NOCONFIRMATION = amp。H1 Const FO_COPY = amp。如何用程序來 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。在項(xiàng)目資源管理器中為項(xiàng)目添加一個 Module，保存為 。我們采用的是 Microsoft Access2020 作為支撐數(shù)據(jù)庫，由于我們 在此系統(tǒng)中的表有很多，基于對調(diào)用數(shù)據(jù)庫表的方法基本一致，我們就給出了以下部分表的結(jié)構(gòu)： 用戶表（ Users） 字段名 字段名 類型 長度 用戶名 UserName 文本 20 密碼 UserPass 文本 20 *工號 UserNumber 文本 5 負(fù)責(zé)人 Principal 是 /否 管理員 Administrator 是 /否 技術(shù)負(fù)責(zé)人 TechnicPrincipal 是 /否 委托 Consign 是 /否 室內(nèi)檢測 RoomInspect 是 /否 現(xiàn)場檢測 LocaleInspect 是 /否 水電檢測 WaterElectricityInspect 是 /否 委托統(tǒng)計(jì) Stat 是 /否 查詢 Search 是 /否 匯總 Collect 是 /否 打印 Print 是 /否 任務(wù)單 Task 是 /否 收費(fèi)管理 Charge 是 /否 簽名 Idiograph OLE 對象 鋼材標(biāo)準(zhǔn)（ SteelStandard） 字段名 字段名 類型 長度 *種類 Kind 文本 50 *級別 Level 文本 20 屈服強(qiáng)度 BendIntensity 數(shù)字 單精度型 極限強(qiáng)度 UtmostIntensity 數(shù)字 單精度型 伸長率 ElongateRate 數(shù)字 單精度型 標(biāo)據(jù)系數(shù) StandardCoefficient 數(shù)字 單精度型 建筑工程質(zhì)量檢測管理系統(tǒng) 第 12 頁 共 55 頁 水泥標(biāo)準(zhǔn)（ CementStandard） 字段名 字段名 類型 長度 *標(biāo)號 Number 文本 10 *品種 Variety 文本 40 抗壓強(qiáng)度 3天 Press3Days 數(shù)字 單精度型 抗析強(qiáng)度 3天 Analyse3Days 數(shù)字 單精度型 抗壓強(qiáng)度 28天 Press28Days 數(shù)字 單精度型 抗析強(qiáng)度 28天 Analyse28Days 數(shù)字 單精度型 鋼材生產(chǎn)廠家 (SteelFactory) 字段名 字段名 類型 長度 *編號 Number 文本 3 名稱 Name 文本 40 水泥生產(chǎn)廠家 (CementFactory) 字段名 字段名 類型 長度 *編號 Number 文本 3 名稱 Name 文本 40 項(xiàng)目 (Item) 字段名 字段名 類型 長度 *項(xiàng)目 ItemName 文本 40 報(bào)告編號 ReportNo 文本 10 完成期限 AchieveTime 數(shù) 字 整型 回彈強(qiáng)度曲線 (ElasticityIntensityCurve) 字段名 字段名 類型 長度 *項(xiàng)目 Item 文本 20 A A 數(shù)字 單精度型 B B 數(shù)字 單精度型 C C 數(shù)字 單精度型 收費(fèi)標(biāo)準(zhǔn)（ ChargeStandard） 字段名 字段名 類型 長度 *項(xiàng)目 Item 文本 40 價(jià)格 Price 貨幣 委托 (Consign) 字段名 字段名 類型 長度 *委托編號 ConsignNo 文本 8 建筑工程質(zhì)量檢測管理系統(tǒng) 第 13 頁 共 55 頁 委托單位 ConsignUnit 文本 50 委托日期 ConsignDate 日期 /時間 長日期 樣品來源 SampleSource 文本 20 送樣人 Deliver 文本 20 送樣人電話 DeliverTel 文本 20 是否見證 WitnessIf 是 /否 見證人 Witness 文本 20 見證人電話 WitnessTel 文本 20 其他費(fèi)用 OtherCharge 貨幣 費(fèi)用名稱 ChargeName 文本 20 質(zhì)檢編號 QualityNo 文本 20 質(zhì)檢 (Quality) 字段名 字段名 類型 長度 *質(zhì)檢編號 QualityNo 文本 20 工程名稱 ProjectName 文本 50 建設(shè)單位 BuildUnit 文本 50 施工單位 ConstructUnit 文本 50 混凝土抗壓 (ConcPress) 字段名 字段名 類型 長度 *檢驗(yàn)編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 成型日期 MoldDate 日期 /時間 長日期 試壓齡期 PressDate 數(shù)字 整型 規(guī)格 Standard 數(shù)字 單精度型 養(yǎng)護(hù)條件 MaintainCondition 文本 20 設(shè)計(jì)強(qiáng)度 DesignIntensity 數(shù)字 單精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 砂漿立方體抗壓強(qiáng)度 (SendPress) 字段名 字段名 類型 長度 *校驗(yàn)編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 成型日期 MoldDate 日期 /時間 長日期 規(guī)格 Standard 數(shù)字 單精度型 養(yǎng)護(hù)條件 MaintainCondition 文本 20 設(shè)計(jì)強(qiáng)度 DesignIntensity 數(shù)字 單精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 建筑工程質(zhì)量檢測管理系統(tǒng) 第 14 頁 共 55 頁 鋼材 (SteelTest) 字段名 字段名 類型 長度 *檢驗(yàn)編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 種類 Kind 文本 40 級別 Level 文本 20 規(guī)格 Standard 數(shù)字 單精度型 批量 Batch 數(shù)字 單精度型 生產(chǎn)廠家 ProduceFactory 文本 40 復(fù)檢 Reexamine 是 /否 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 鋼筋焊接 (SteelJoin) 字段名 字段名 類型 長度 *檢驗(yàn)編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 焊接方式 JoinType 文本 20 級別 Level 文本 20 規(guī)格 Standard 數(shù)字 單精度型 批量 Batch 數(shù)字 單精度型 生產(chǎn)廠家 ProduceFactory 文本 40 復(fù)檢 Reexamine 是 /否 使用部位 Position 文本 40 委托日 期 ConsignDate 日期 /時間 長日期 水泥 (CementTest) 字段名 字段名 類型 長度 *檢驗(yàn)編號 CheckNo 文本 9 試塊密碼 TestPass 文本 6 品種 Breeds 文本 16 標(biāo)號 Tab 數(shù)字 單精度型 檢驗(yàn)指標(biāo) Guideline 文本 16 批量 Batch 數(shù)字 單精度型 生產(chǎn)廠家 ProduceFactory 文本 40 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /時間 長日期 混凝土配合比設(shè)計(jì) (ConcProp) 字段名 字段名 類型 長度 建筑工程質(zhì)量檢測管理系統(tǒng) 第 15 頁 共 55 頁 *檢驗(yàn)編號 Check