消防设备调试系统的设计与实现毕业论文.doc

消防设备调试系统的设计与实现 教 学 部 经 管 部 专 业 信息管理与信息系统 班 级 B743202 学 号 B74320228 姓 名 王 野 指导教师 徐 家 旺 沈阳航空航天大学北方科技学院 2011 年 6 月 沈阳航空航天大学北方科技学院本科毕业设计 论文 I 摘 要 随着我国现代化建设的发展 各种类型工业建筑建设正在加快发展 在建设过 程中 尤其是对火灾的防范越来越被人们所重视 在火灾发生的前期 通过探测器 类型的设备对火灾产生的烟或者火能够探测 然后传回到主机控制器中 然后再有 主机控制器发出蜂鸣声 提醒人 发现火情 然后再由人去操作 启动消防泵 风 机等设备 来帮助火灾中的人逃生 本程序就是把主机控制器和消防的现场设备联 系起来 通过调试系统在主机里面登记上外部的设备 然后通过主机的每一次巡检 来实现探测和控制的作用 如果人不在 在自动状态 还可以自动运行程序 通过 主机里面存储的程序 来自动运行外部设备的启动和通知 本文拿安宇公司的设备 来做例子 全面的解答了火灾自动报警系统调试的设计与实现 关键词 关键词 火灾自动报警 调试程序 火灾自动报警设备 沈阳航空航天大学北方科技学院本科毕业设计 论文 II Abstract Along with our country modernization construction of development various type industrial building s constucting be quickly developing at constuct process in particularly be more and more valued by people to a fire s guarding against Requesting the principle of defend to eliminate to combine in order to prevent is lord that carry through to the fire fight system and marking to catch fire a disaster to automatically report to the police system will play more important role A fire automatically reports to the police system for making people discover a fire in early days and adopt effective measure in time control and extinguish fire but establish in the building or other amenities are automatic fire fight facilities people and a fire and struggle of emollient tool Keywords A fire automatically reports to the police to adjust to try procedure a fire an equipments 沈阳航空航天大学北方科技学院本科毕业设计 论文 III 目 录 前 言 1 第 1 章 系统分析 3 1 1 系统开发背景 3 1 2 系统的需求分析 3 1 3 开发工具 VISUAL BASIC介绍 4 1 4 ACCESS 数据库介绍 4 第 2 章 总体设计 6 2 1 系统的功能分析 6 2 2 系统的模块设计 7 2 3 系统结构图 8 2 4 系统的数据库设计 10 2 4 1 系统数据库设计 10 2 4 2 传输数据库设计 11 第 3 章 详细设计 13 3 1 系统封面设计 13 3 2 系统主界面设计 14 第 4 章 系统的测试 编译 发行 15 4 1 代码测试 15 4 1 1 登陆页面 15 4 1 2 系统设备查询页面 17 4 1 3 回路初始化页面 19 4 1 4 统计页面 21 4 1 5 设备查询页面 22 4 1 6 打印预览页面 24 4 2 系统的编译 发行 27 结束语 28 参考文献 29 致 谢 30 沈阳航空航天大学北方科技学院本科毕业设计 论文 1 前 言 火灾自动报警系统能够在火灾初期 将燃烧产生的烟雾 热量和光辐射等 物理量 通过感温 感烟和感光等火灾探测器变成电信号 传输到火灾报警控 制器 并同时显示出火灾发生的部位 记录火灾发生的时间 中国消防电子产 业是中国消防产业的一部分 又是技术含金量较高的一部分 并且还是发展最 快的一部分 国际上一般性通用型的各消防报警设备都能生产 以火灾报警行业为例 目前国内消防报警厂家有一百多家 国外消防报警 产品在中国销售的也有三十家左右 每年共计销售约 400 万只探测器 虽然各 厂家在价格战中已深深地感到了竞争的压力和残酷 但仍基本保持每年 10 15 的增长率 说明消防报警行业仍在成长期 竞争刺激了优胜劣汰的 进程 加速了产品结构 企业结构乃至产业结构的改造和调整 使市场对资源 配置在宏观调控下 越来越明显地发挥出基础性作用 极大地促进了消防产业 和产品市场的快速发展 中国经济和技术的高速发展 急剧增长的市场需求为国内外厂商提供了一 个公平的大容量的竞争市场 而高技术和高可靠性则是产品在竞争中取胜和占 领市场的钥匙 无情的市场竞争最终的结论是 谁拥有了先进技术和高质量的 产品 谁就可以赢得用户的信任而占领市场 从这种意义上来讲 不断发展新 技术 推出新产品就成为摆在国内厂商面前的当务之急 火灾自动报警系统可靠性是以真性的测量 换言之 一个火灾报警系统在 其使用期限内 对各种条件须做出适当的响应 可靠性是说明一个系统质量的 最佳指标 构成火灾自动报警系统可靠性的四大要素为设备 系统设计 系统 安装和系统维修 从典型可靠性方程可知 一个系统的可靠性完全取决于系统 的设计 组成系统的硬件 系统的安装及维修可靠性因子之积 而设备选型既 与设计 又与设备 施工 维护这四个环节都密切有关 下面分别探讨探测器 传输线路和控制器对系统可靠性的影响 因此 笔者认为火灾探测器应用数量较多的大规模系统 尤其是智能建筑 中火灾自动报警系统均应选用模拟量火灾探测器 此外 有些建设单位业主主 要问题或设计师主张模拟量探测器混同于一个系统 国内外有些厂家产品也迎 合这种需求有相应的产品 笔者不能苟同这一做法 因为这些开关量探测器混 沈阳航空航天大学北方科技学院本科毕业设计 论文 2 用将使整个系统可靠性降低不小 况且国外同一家厂商模拟量产品比其开关产 品价格约高 20 30 国内模拟量产品比其开关量产品价格约高 10 20 甚至相差无几 达到同一价位水平 因此 两者混用技术经济效 果不佳 不宜采用 中国消防电子产品行业在国民经济中属发展迅速的朝阳行 业 几年来一直呈可持续发展的良好态势 国内外消防电子产品厂商都看好消 防电子产品市场这一热点 都给予充分重视 关注与投入 目前国内市场每年投入安装使用的探测器总量大约为 300 万只 其中境内 生产 含国产 合资生产 合作生产 引进国外技术和外资独资生产 探测器 约 200 万只 其市场占有率约 60 境外生产 原装进口和海外 OEM 生产 探测器约 100 万只 其市场占有率约 34 换言之 目前我国火灾自动报警设备市场与往年一样 仍是国产 合资生 产与进口产品 三是鼎立分天下 但是 境内生产产品市场占有率比往年提 高 而境外生产产品市场占有率比往年相应降低 以产品市场地域分布而言 中西部地区 内地城市 以采用国产产品为主 东部地区 经济发达的沿海开放城市 采用进口和合资产品较多 以生产厂家 而言 国内约有 130 家企业 国外有 34 家企业的产品在国内市场销售 实际国 外企业向国家消防电子产品质量检查中心送检已达 47 家企业 并呈增多趋势 因中国消防市场之大 使更多国外企业争先恐后投入 消防电子产品厂家发展极不平衡 境内生产销售量 80 集中在近 20 个左右 的较大企业 境外生产销售量 80 集中在近 10 个左右的国外厂商 本文 通过简单的编程和调试 能够解决火灾自动报警设备与火灾自动报警 控制器之间的联系 能够实现人机对话 让人能够了解火灾报警控制器的原理 第一时间知道火灾的发生 并采取措施 沈阳航空航天大学北方科技学院本科毕业设计 论文 3 第 1 章 系统分析 1 1 系统开发背景 随着我国现代化建设的发展 各种类型工业建筑建设正在加快发展 在建设过 程中 尤其是对火灾的防范越来越被人们所重视 近年来国家消防法已颁布和实施 了相关的法律法规 工程建设中对火灾的防范被提高到法律的高度 对消防系统要 求贯彻的 防消结合 以防为主 的原则又标志着火灾自动报警系统将扮演更加重 要的角色 火灾自动报警系统是为了让人们早期发现火灾 并及时采取有效措施 控制和扑灭火灾 而设置在建筑物中或其它场所的一种自动消防设施 是人们同火 灾作斗争的有力工具 火灾报警控制器只有通过程序的定义和调试才能与外部设备 相连接 故本软件能解决这方面的问题 现在的楼房高层越来越多 随之出现的问 题也越来越多 消防安全成为人们现在重视的东西 因为一旦高层出现火灾 将没 办法有效的疏导和救援 就会产生死亡 对人民的财产和生命产生了极大的威胁 现在的高层建筑 旅馆或者酒店等公共场所 都必须有消防的自动报警设备的检测 才可以正常营业 因为这样才能保证消防安全 本系统能够实现人与消防主机控制 器的对话 通过人的设定 让主机控制器识别每个地方报回来的信号 以实现在火 灾发生的第一时间就能菜去措施 减少损失 所以 本程序对火灾自动报警设备的 厂家来讲还是有很大的作用的 1 2 系统的需求分析 中国消防电子产品行业在国民经济中属发展迅速的朝阳行业 几年来一直呈 可持续发展的良好态势 国内外消防电子产品厂商都看好消防电子产品市场这一 热点 都给予充分重视 关注与投入 目前国内市场每年投入安装使用的探测器总量大约为 300 万只 其中境内生 产 含国产 合资生产 合作生产 引进国外技术和外资独资生产 探测器约 200 万只 其市场占有率约 60 境外生产 原装进口和海外 OEM 生产 探测 器约 100 万只 其市场占有率约 34 换言之 目前我国火灾自动报警设备市场与往年一样 仍是国产 合资生产与 进口产品 三是鼎立分天下 但是 境内生产产品市场占有率比往年提高 而境外 生产产品市场占有率比往年相应降低 无论火灾自动报警系统规模大小 功能需求 沈阳航空航天大学北方科技学院本科毕业设计 论文 4 不同 系统可靠性与误报率都是设备选型的两大基本要素 在满足性能价格比高的 前提下 要求尽可高的系统可靠性和尽可能低的的误报率是所有建设单位业主和设 计师 安装施工和使用维护者追求的共同目标 从追求卓越的理想角度出发 应优 化设计 选用最先进设备产品 优化施工 使用和维护 但从节省资源的现实角度 出发 不妨适当降低追求十分完善的目标期望 选用较佳的设备 却万万不可放松 和降低对于系统可靠性和误报率这些基本要求 1 3 开发工具 Visual Basic 介绍 Visual Basic 是由美国微软公司于 1991 年开发的一种可视化的 面向对象和采用 事件驱动方式的结构化高级程序设计语言 可用于开发 Windows 环境下的各类应 用程序 它简单易学 效率高 且功能强大可以与 Windows 专业开发工具 SDK 相 媲美 在 Visual Basic 环境下 利用事件驱动的编程机制 新颖易用的可视化设计工 具 使用 Windows 内部的广泛应用程序接口 API 函数 动态链接库 DLL 对 象的链接与嵌入 OLE 开放式数据连接 ODBC 等技术 可以高效 快速地开 发 Windows 环境下功能强大 图形界面丰富的应用软件系统 Visual Basic 6 0 作为 Visual Studio 6 0 的一员发布 证明微软正在改变 Visual Basic 的产品定位 他想让 Visual Basic 成为企业级快速开发的利器 Visual Basic 6 0 在数据访问方面有了很大的改进 新的 ADO 组件让对大量数据快速访问成为可 能 数据环境和新的报表功能也让数据开发有了全新的体验 Visual Basic 借助 COM COM 强大的功能 可以开发具有 N 层结构的分布式应用程序 同时 Visual Basic 还可以在 IIS 上开发性能超群的 Web 应用程序 Visual Basic 6 0 在语言方面和 IDE 方面的改进都不大 但是许多新增的组件成为 Visual Basic 开发人员手中的利器 如 File System Object 等 新的字符串函数 Split 和 Replace 等也给 Visual Basic 的程 序员带来很大方便 总之 Visual Basic 6 0 已经是非常成熟稳定的开发系统 能让企 业快速建立多层的系统以及 Web 应用程序 成为当前 Windows 上最流行的 Visual Basic 版本 1 4 access 数据库介绍 Access 是微软公司推出的基于 Windows 的桌面关系数据库管理系统 RDBMS 即 Relational Database Management System 是 Office 系列应用软件之 一 它提供了表 查询 窗体 报表 页 宏 模块 7 种用来建立数据库系统的对 沈阳航空航天大学北方科技学院本科毕业设计 论文 5 象 提供了多种向导 生成器 模板 把数据存储 数据查询 界面设计 报表生 成等操作规范化 为建立功能完善的数据库管理系统提供了方便 也使得普通用户 不必编写代码 就可以完成大部分数据管理的任务 Access 能够存取 Access Jet Microsoft SQL Server Oracle 甲骨文软件公司 或者任何 ODBC 兼容数据库内的资料 熟练的软件设计师和资料分析师利用它来 开发应用软件 而一些不熟练的程序员和非程序员的 进阶用户 则能使用它来开发 简单的应用软件 虽然它支援部分面向对象 OO 技术 但是未能成为一种完整的 面向对象开发工具 Microsoft Access 在很多地方得到广泛使用 例如小型企业 大公司的部门 和 喜爱编程的开发人员专门利用它来制作处理数据的桌面系统 它也常被用来开发简 单的 WEB 应用程序 这些应用程序都利用 ASP 技术在 Internet Information Services 运行 比较复杂的 WEB 应用程序则使用 PHP MySQL 或者 ASP Microsoft SQL Server 它的使用方便程度和强大的设计工具为初级程序员提供许多功能 不过 这 种便于使用可能使人误解 这类开发者都是没有在应用或者数据设计方面训练的办 公室从业人员 因此许多人以为这样的开发者能够创造可用的系统 但也有很多人 认为工具本身的局限性产生了这样的误导 一些专业的应用程序开发人员使用 Access 用作 快速应用开发 特别是给街道上的推销员制作一个初型或独立应用程 序的工具 可是如果是透过网络存取数据的话 Access 的可扩放性并不高 因此当 程序被较多使用者使用时 他们的选择多会是倾向于一些客户端 服务器为本的方案 例如 Oracle DB2 Microsoft SQL Server Windows SharePoint Services PostgreSQL MySQL Alpha Five MaxDB 或者 Filemaker 无论如何 不少 Access 的功能 表单 报告 序列和 VB 代码 可以用作其他数据库的后期 应用 包括 JET 档案为主的数据库引擎 Access 缺省使用 Microsoft SQL Server Oracle 和任何其他跟 ODBC 兼容的产品 这种方法允许开发者把一个成熟 的应用的数据移动到一台更大功率的服务器而没有已经在适当的位置牺牲发展 很 多 Microsoft Access 的开发者使用 Leszynski 命名约定 虽然这不普遍 它是一次编 程大会 并非一个 DBMS 实施的规章 沈阳航空航天大学北方科技学院本科毕业设计 论文 6 第 2 章 总体设计 2 1 系统的功能分析 利用 VB 为前台开发程序 access 为后台支持数据库完成如下项目 消防设备调 试系统的设计与实现 主要实现的功能有如下几点 1 实现对设备的浏览 能够在看到图片的同时 通过图片所对应的型号来进 行相应的设备查询 也可按照设备的名称进行查询 2 实现对系统能够有详细的说明 另使用者理解系统 登陆 本系统用的是公共帐号 提供安于公司调试人员适用 密码默认 1199 3 登陆后 能够实现对设备的初始化进行设置 设置回路设备的回路号 编 址以及相对应的物理地址 手动板的各路控制的设备的物理地址的设置 路数设置 以及气体灭火单元所对应的物理地址的设置 4 能够对回路设备进行按照回路和按照设备名称进行统计 并且有图表可以 查看 更通俗易懂 同时也可以对手动板和气体灭火单元的设备进行按照回路进行 统计 同时带有图表 5 在登陆状态下 查看设备型号 名称 用途与特点 即使了解回路上该用 什么类型的设备 6 对回路单元的初始化 进行打印预览 7 对于系统进行简单说明 沈阳航空航天大学北方科技学院本科毕业设计 论文 7 2 2 系统的模块设计 1 系统封面包括 登陆 设备 探测类 模块类 气体灭火 控制器 关于 内置系统版本说明 2 主页面包括 初始化编辑 回路初始化的添加 修改 删除 在编辑的同时 还能够及时的 查看所编辑的对象能实时情况 能够对错误的数据进行及时的更改 手动板单元初始化的添加 修改 删除 在编辑的同时 还能够及时的查看所 编辑的对象能实时情况 能够对错误的数据进行及时的更改 气体灭火单元初始化的添加 修改 删除 在编辑的同时 还能够及时的查看 所编辑的对象能实时情况 能够对错误的数据进行及时的更改 统计 回路初始化统计 按回路统计 按设备统计 在统计的同时 也能够附 带图表 这样更能够一目了然的知道现在的各种类型的设备或者产品所占的数量和 比例 手动板初始化统计 在统计的同时 也能够附带图表 这样更能够一目了然的 知道现在的各种类型的设备或者产品所占的数量和比例 气体灭火板初始化统计 在统计的同时 也能够附带图表 这样更能够一目了 然的知道现在的各种类型的设备或者产品所占的数量和比例 设备查询 探测器 控制器 气体灭火 模块设备的查询 和浏览 在查询时 可通过上面的图片的点击来查看相应的设备型号 然后再根据设备型号进行相应的 设备的查询 查询其适用场景 特点 打印预览 对回路初始化进行打印预览 关于 系统版本和一些相关说明 这里是为了让用户更加了解系统 更加知道 系统还有什么不足的地方 使用起来也更加方便 沈阳航空航天大学北方科技学院本科毕业设计 论文 8 2 3 系统结构图 系统结构分 2 部分 一部分是首页系统结构图 灵一个是主页面系统结构图 两个页面 通过帐号登陆来联通 如图 2 1 首页结构图 帐号设备关于 主页面 登陆 退 出 探 测 器 模 块 控 制 器 气 体 灭 火 首页 图 2 1 首页系统结构图 沈阳航空航天大学北方科技学院本科毕业设计 论文 9 主页面结构图主要提供调试人员对消防设备进行调试所用 主要结构如图 2 2 主页面结构图 主页面 操作初始化统计 回 路 初 始 化 退 出 探 测 器 模 块 控 制 器 气 体 灭 火 设备打印预览关于 手 动 板 初 始 化 气 体 灭 火 初 始 化 回 路 初 始 化 统 计 手 动 板 初 始 化 统 计 气 体 灭 火 初 始 化 统 计 图 2 2 主页面结构图 沈阳航空航天大学北方科技学院本科毕业设计 论文 10 2 4 系统的数据库设计 2 4 1 系统数据库设计 系统数据库是提供系统运行的一些数据的存储数据库 该数据库包括表 2 1 关 于表 表 2 2 控制器表 表 2 3 气体灭火表 表 2 4 探测器表 表 2 5 模块表 表 2 6 设备表 表 2 7 密码表 以下为表的设计 表 2 1 关于表 字段名数据类型长度描述 版本说明文本200是对当前系统版本的说明 表 2 2 控制器表 字段名数据类型长度描述 型号文本50设备的型号 类型文本50设备的类型 名称文本50设备的名称 适用场景文本100设备的适用场景 特点文本100设备的特点 表 2 3 气体灭火表 字段名数据类型长度描述 型号文本50设备的型号 类型文本50设备的类型 名称文本50设备的名称 适用场景文本100设备的适用场景 特点文本100设备的特点 表 2 4 模块表 字段名数据类型长度描述 型号文本50设备的型号 类型文本50设备的类型 名称文本50设备的名称 适用场景文本100设备的适用场景 特点文本100设备的特点 沈阳航空航天大学北方科技学院本科毕业设计 论文 11 表 2 5 探测器表 字段名数据类型长度描述 型号文本50设备的型号 类型文本50设备的类型 名称文本50设备的名称 适用场景文本100设备的适用场景 特点文本100设备的特点 表 2 6 设备表 字段名数据类型长度描述 编号自动编号自动编号 设备名称文本50设备的名称 表 2 7 密码表 字段名数据类型长度描述 Username文本50登陆的用户名 Password文本50登陆的密码 2 4 2 传输数据库设计 传输数据库是提供向控制器内传输数据的存储数据库 该数据库存有回路表 手动板表 气体灭火表 设计如下 表 2 8 回路表 字段名数据类型长度描述 编号自动编号自动编号 回路号数字设备所在的回路号 设备名称文本50设备的名称 设备编码数字设备所占的编址点 物理地址文本50设备所在地方物理地址 表 2 9 手动板表 字段名数据类型长度描述 手动板号数字设置点所在的手动板板号 路数数字设置的设备所在的手动板的路数 物理地址文本50设置的设备所在的物理地址 沈阳航空航天大学北方科技学院本科毕业设计 论文 12 表 2 10 气体灭火表 字段名数据类型长度描述 编号自动编号自动编号 气体灭火板号数字设置点所在的气体灭火板板号 路数数字设置的设备所在的气体灭火板的路数 物理地址文本50设置的设备所在的物理地址 沈阳航空航天大学北方科技学院本科毕业设计 论文 13 第 3 章 详细设计 3 1 系统封面设计 该页面为运行系统后第一个页面 在此页面 可以进入到主页面 也可以对设 备进行浏览 如图 3 1 系统封面图 图 3 1 系统封面图 菜单设计方法如图 3 2 菜单设计图 图 3 2 菜单设计图 沈阳航空航天大学北方科技学院本科毕业设计 论文 14 3 2 系统主界面设计 此页面为系统主页面 是首页通过登陆进入到此页面 此页面也称调试页面 对消防设备的调试就在此页面如图 3 3 主页面图 图 3 3 主页面图 菜单设计方法如图 3 4 主页面菜单设计图 图 3 4 主页面菜单设计图 沈阳航空航天大学北方科技学院本科毕业设计 论文 15 第 4 章 系统的测试 编译 发行 4 1 代码测试 4 1 1 登陆页面 此页面为首页联通到首页面 调试页面 的通道 账户为安宇消防 密码为 1199 所有调试人员都可以进入 如图 4 1 登陆图 图 4 1 登陆图 页面代码 Private Sub Command1 Click Dim MPassword As String Adodc1 RecordSource select from 密码表 where username Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then MPassword Adodc1 Recordset Fields password If Text2 Text MPassword Then Name1 Text1 Text 主页面 Show 沈阳航空航天大学北方科技学院本科毕业设计 论文 16 Unload Me Else MsgBox 密码不正确 请您确认后重新输入 48 警告 Text2 Text Text2 SetFocus End If Else MsgBox 对不起 没有此用户的信息 48 警告 Text1 Text Text2 Text End If End Sub Private Sub Command2 Click 首页 Show Me Hide End Sub Private Sub Form Load Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then ListView1 Enabled True ListView1 ListItems Clear i 1 Adodc1 Recordset MoveFirst Do While Adodc1 Recordset EOF False Key Adodc1 Recordset Fields username Set itmx ListView1 ListItems Add Key i i i 1 Adodc1 Recordset MoveNext Loop Else ListView1 Enabled False End If End Sub Private Sub ListView1 click Text1 Text ListView1 SelectedItem Text2 SetFocus End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 17 4 1 2 系统设备查询页面 此页面能够对设备进行查询 左边的图能够提供图片和设备的型号 下面的按 钮可以实现所有设备的浏览 以及按照要求查询 如图 4 2 探测器查询图 图 4 2 探测器查询图 页面代码 Private Sub Command1 Click Index As Integer Select Case Index Case 0 Adodc1 Recordset MoveFirst Case 1 Adodc1 Recordset MovePrevious If Adodc1 Recordset BOF Then Adodc1 Recordset MoveFirst Case 2 Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast 沈阳航空航天大学北方科技学院本科毕业设计 论文 18 Case 3 Adodc1 Recordset MoveLast Case 4 Dim mno As String mno InputBox 请输入型号 按型号查询 Adodc1 Recordset Find 型号 mno 1 If Adodc1 Recordset EOF Then MsgBox 无此设备 提示 Case 5 Dim mno1 As String mno InputBox 请输入名称 按名称查询 Adodc1 Recordset Find 名称 mno1 1 If Adodc1 Recordset EOF Then MsgBox 无此设备 提示 End Select End Sub Private Sub Command2 Click 首页 Show Me Hide End Sub Private Sub Form Load Adodc1 RecordSource select from 探测器 Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then ListView1 Enabled True ListView1 ListItems Clear i 1 Adodc1 Recordset MoveFirst Do While Adodc1 Recordset EOF False Key Adodc1 Recordset Fields 型号 Set itmx ListView1 ListItems Add Key i i i 1 Adodc1 Recordset MoveNext Loop Else ListView1 Enabled False End If End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 19 4 1 3 回路初始化页面 此图为调试人员对于回路进行初始化进行调试的页面 通过此页面的定义 可 以实现控制器与现场设备的连接 实现火灾自动报警 如图 4 3 回路初始化图 图 4 3 回路初始化图 页面代码 Private Sub Combo1 Click Dim P As String If Combo1 Text AY 3880 Then P 点型感烟探测器 ElseIf Combo1 Text AY 3900 Then P 点型感温探测器 ElseIf Combo1 Text AY 3718 Then P 手动报警按钮 ElseIf Combo1 Text AY 3719 Then P 消火栓按钮 ElseIf Combo1 Text AY 5620 Then P 输入模块 ElseIf Combo1 Text AY 5630 Then P 输入输出模块 ElseIf Combo1 Text AY 5640 Then P 输入输出模块 ElseIf Combo1 Text AY 5660 Then P 双输入输出模块 ElseIf Combo1 Text AY 5680 Then P 广播模块 ElseIf Combo1 Text AY 3550 Then P 火灾显示盘 ElseIf Combo1 Text AY 3400 Then 沈阳航空航天大学北方科技学院本科毕业设计 论文 20 P 声光警报器 Else P End If End Sub Private Sub Form Load Combo1 AddItem AY 3880点型感烟探测器 Combo1 AddItem AY 3900点型感温探测器 Combo1 AddItem AY 3718手动报警按钮 Combo1 AddItem AY 3719消火栓按钮 Combo1 AddItem AY 5620输入模块 Combo1 AddItem AY 5630输入输出模块 Combo1 AddItem AY 5640输入输出模块 Combo1 AddItem AY 5660双输入输出模块 Combo1 AddItem AY 5680广播模块 Combo1 AddItem AY 3550火灾显示盘 Combo1 AddItem AY 3400声光警报器 Combo1 Text End Sub Private Sub Command1 Click Index As Integer Dim ask As Integer Select Case Index Case 0 Adodc1 Recordset AddNew Case 1 ask MsgBox 删除否 vbYesNo If ask 6 Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast End If Case 2 Adodc1 Recordset Update End Select End Sub Private Sub Command4 Click 主页面 Show Me Hide End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 21 4 1 4 统计页面 此页面能够对回路设备按照设备和按照回路进行统计 并且带有图标 更加直 观的看出回路设备的情况 如图 4 4 回路统计图 图 4 4 回路统计图 页面代码 Private Sub Command1 Click Adodc1 RecordSource select 设备名称 count as 只 from 回路表 group by 设备名称 Adodc1 Refresh End Sub Private Sub Command2 Click Adodc1 RecordSource select 回路号 count as 个 from 回路表 group by 回路号 Adodc1 Refresh End Sub Private Sub Command3 Click 主页面 Show Me Hide End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 22 4 1 5 设备查询页面 此页面为登陆后 查询设备的页面 与上个查询页面不同的是 此页面显示的 更加直观 可以查看相邻的数据 如图 4 5 控制器查询图 图 4 5 控制器查询图 页面代码 Private Sub Command1 Click Index As Integer Select Case Index Case 0 Adodc1 Recordset MoveFirst Case 1 Adodc1 Recordset MovePrevious If Adodc1 Recordset BOF Then Adodc1 Recordset MoveFirst Case 2 Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast Case 3 沈阳航空航天大学北方科技学院本科毕业设计 论文 23 Adodc1 Recordset MoveLast Case 4 Dim mno As String mno InputBox 请输入型号 按型号查询 Adodc1 Recordset Find 型号 mno 1 If Adodc1 Recordset EOF Then MsgBox 无此设备 提示 Case 5 Dim mno1 As String mno InputBox 请输入名称 按名称查询 Adodc1 Recordset Find 名称 mno1 1 If Adodc1 Recordset EOF Then MsgBox 无此设备 提示 End Select End Sub Private Sub Command2 Click 主页面 Show Me Hide End Sub Private Sub Form Load Adodc1 RecordSource select from 控制器 Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then ListView1 Enabled True ListView1 ListItems Clear i 1 Adodc1 Recordset MoveFirst Do While Adodc1 Recordset EOF False Key Adodc1 Recordset Fields 型号 Set itmx ListView1 ListItems Add Key i i i 1 Adodc1 Recordset MoveNext Loop Else ListView1 Enabled False End If End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 24 4 1 6 打印预览页面 此页面为打印预览页面 此页面可以打印出回路初始化的表 如图 4 6 打印预 览图 图 4 6 打印预览图 页面代码 Private Sub Command1 Click CommonDialog1 ShowPrinter DataReport1 Show End Sub Private Sub Command2 Click 主页面 Show Me Hide End Sub 沈阳航空航天大学北方科技学院本科毕业设计 论文 25 打印页面设置 1 此页面为打印页面 DataEnvironment1 的设置页面 如图 4 7 打印预览设置图 图 4 7 打印预览设置图 沈阳航空航天大学北方科技学院本科毕业设计 论文 26 打印页面设置 2 此页面为打印预览页面 DataReport 的设置页面如图 4 8 打印预览设置图 2 图 4 8 打印预览设置图 2 沈阳航空航天大学北方科技学院本科毕业设计 论文 27 4 2 系统的编译 发行 由于系统只能够在 VB 中运行 为了提高使用的方便和快捷 所以编译成 EXE 格 式的文件 以方便用户的适用和操作 编译方法如图 4 9 系统编译图 图 4 9 系统编译图 在 VB 的文件里面 选择编译成 EXE 文件 然后找到 VB 程序所在的目录 把标 题改成系统的名称 然后点确定 系统开始编译 开始生成 EXE 文件 然后查看目 录 多了个应用程序的文件 直接双击即可进入 如图 4 10 编译成功图 图 4 10 编译成功图 沈阳航空航天大学北方科技学院本科毕业设计 论文 28 结束语 经过了一个学期的学习和研究 消防设备调试系统已经初见成效 已经能够实 现了用户要求的对设备的查询的功能 能够通过各种方式对设备进行了解