基于vb建筑工程质量检测管理系统论文

基于vb建筑工程质量检测管理系统论文内容摘要：

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 建筑工程质量检测管理系统 第 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 数字 整型 规格 Standard 数字 单精度型 养护条件 MaintainCondition 文本 20 设计强度 DesignIntensity 数字 单精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /时间 长日期 砂浆立方体抗压强度 (SendPress) 字段名 字段名 类型 长度 *校验编号 CheckNo 文本 9 试块密码 TestPass 文本 6 成型日期 MoldDate 日期 /时间 长日期 规格 Standard 数字 单精度型 养护条件 MaintainCondition 文本 20 设计强度 DesignIntensity 数字 单精度型 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /时间 长日期 建筑工程质量检测管理系统 第 14 页 共 55 页 钢材 (SteelTest) 字段名 字段名 类型 长度 *检验编号 CheckNo 文本 9 试块密码 TestPass 文本 6 种类 Kind 文本 40 级别 Level 文本 20 规格 Standard 数字 单精度型 批量 Batch 数字 单精度型 生产厂家 ProduceFactory 文本 40 复检 Reexamine 是 /否 使用部位 Position 文本 40 委托日期 ConsignDate 日期 /时间 长日期 钢筋焊接 (SteelJoin) 字段名 字段名 类型 长度 *检验编号 CheckNo 文本 9 试块密码 TestPass 文本 6 焊接方式 JoinType 文本 20 级别 Level 文本 20 规格 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) 字段名 字段名 类型 长度 建筑工程质量检测管理系统 第 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 日 期 /时间 长日期 建筑工程质量检测管理系统 第 16 页 共 55 页 建筑工程质量检测管理系统 第 17 页 共 55 页 第三章 前台应用程序的设计 一 .公共模块的创建 在 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 建筑工程质量检测管理系统 第 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． 系统登陆界面 用户必须先登陆才可以进入系统进行相关操作。 我们对不同的用户都给予了不同的权限，不同的用户只能看到自己可以操作的一些菜单和目录树，其他的我们给予屏蔽，使用户不可见。 部分代码如下： Option Explicit Public LoginSucceeded As Boolean Private Declare Function Bi。