中厚板卷报警查询系统实现研究分析

1、 中厚板卷报警查询系统实现研究 许剑光摘 要：历史报警控制是企业计算机控制系统的重要功能。本文介绍了当前成熟的ADO及SQL数据查询技术，并将其用于对iFix v3.0组态软件历史报警库的查询，既满足了设备维护的要求也达到了软件优化的目的。Key：历史报警 查询 软件优化：TP302.1 TG333.7：A：1003-9082（2019）11-0-01引言南京钢铁集团中厚板卷厂炼钢车间现有120t双车式钢包炉、双罐式VD真空处理装置各一座，主体设备从意大利DANIELI公司引进，其中一级自动化系统人机界面由外方开发并运行于iFIX v3.0平台上。由于在原设计中报警页未能提供历史报警的查询功能

2、，对于维修人员在日常维护过程中判断故障产生原因带来很大困难。因此，笔者在充分了解iFIX软件的基础上，根据现场的要求进行了相应的开发工作，弥补了设计的不足，也满足了生产的需要。一、系统改进的实现原理在实际工作中需要将开关量变位，模拟量越限等数据的变化情况存入报警历史数据库中，然后再通过编写程序查询报警历史，使现场用户能够直观方便的查询所需的历史数据。在本系统中以较为流行的关系型数据库系统ACCESS作为报警历史库存储历史报警信息。为了使应用程序能通过OLE DB访问数据库，以达到方便快速地访问和操作数据库中的数据的要求，程序中使用了ADO+SQL的方式进行操作。1.ADO简介：ADO是一套CO

3、M（Component Object Model组件对象模型）组件（DLLs），它允许用户像访问电子邮件和文件系统一样访问数据库。ADO库包含三个基本接口：_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口，其中第一个接口可以创建一个数据连接或执行一条不返回任何结果的SQL语句，第二个接口提供了一种简单的方法来执行返回记录集的存储过程和SQL语句，第三个接口对记录集提供了更多的控制功能，如记录锁定，游标控制等。2.SQL简介：SQL指结构化查询语言（Structured Query Language），是一种数据库查询和程序设计语言，用于存取数据以及查

4、询、更新和管理关系数据库系统。结构化查询语言是高级的非过程化编程语言，允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式，所以具有完全不同底层结构的不同数据库系统， 可以使用相同的结构化查询语言作为数据输入与管理的接口。结构化查询语言语句可以嵌套，这使它具有极大的灵活性和强大的功能。二、系统实现的步骤本系统的主要功能是访问和操作报警数据库中的数据，向用户提供完整详细的报警信息，其主要功能有：查询当天的数据、按日期、时间区间查找、按区域查找等。1.查询模块设计。此模块用于实现通过日期、时间及区域查询的功能。实现原理主要是通过TADOConnecti

5、on组件连接数据库，TADOQuery发送SQL语句实现后台数据库实现查询。同时利用数据源组件TDataSource连接数据显示控件TDBGrid和TADOQuery，部分代码如下：ADOConnectionlj.connected：=.T.;DisableControls; /连接期间暂时停止数据显示控件Adoquerycx.close;Sql.txt=; /清空SQLsql.Add（select * from fixalarms）;2.排序模块设计。为了便于数据的浏览，程序中加入了排序功能，排序语句的实现相对容易，主要通过在SQL查询语句Select中添加Order选项实现：if radi

6、ogroupcx.ItemIndex=0 thensql.Add（order by cdatecx（datelast） asc）else if radiogroupcx.ItemIndex=1 thensql.Add（order by cdatecx（datelast） desc）; / 按datelast字段降序排序if radiogroupcx2.ItemIndex=0 thensql.Add（timelast asc）else if radiogroupcx2.ItemIndex=1 thensql.Add（timelast desc）; / 按timelast字段升序排序3.实现记录滚

7、动浏览。DBGRID组件主要实现记录的浏览功能，但是在Delphi中该控件并没有实现通过鼠标移动记录的功能，因此必须手动响应相应的鼠标滚轮消息。主要原理是通过向DBGrid发送消息WM_MOUSE_WHEEL实现记录的移动：if Message.Msg = WM_MOUSEWHEEL then /判断鼠标滚轮是否移动beginxx ：= Short（Message.WParamHi） 0;if xx thenDBGridxs.DataSource.DataSet.MoveBy（1）elseDBGridxs.DataSource.DataSet.MoveBy（-1） /移动记录endelseWn

8、d（Message）;4.系统相关的设置模块。在实际应用中查询数据库的存放位置往往需要随时改变，这是实际生产中常见的需求之一。本系统也加入了类似的功能，其思路主要通过向注册表写入相应的键值来实现数据库位置的调整，这样每次执行时程序会自动读取新的数据库路径。regcx：=Tregistry.Create;/创建注册表类regcx.RootKey：=HKEY_CURRENT_USER; /设定根键if regcx.KeyExists（swcx）=.F. then /如果子键不存在则创建elsebeginif Reg.OpenKey（swcx， .T.） then /判断相应的键值是否存在strin

9、g：=reg.readstring（datasourcecx）;ADOConnectioncx.ConnectionString：=string; /得到连接数据表的字符串ADOQuerycx2.Active：=.T.;end;结语报警查询系统目前已用于实际生产，通过一段时间的测试证明该系统能够方便快捷地查询历史数据，并且可以发现设备存在的隐患并提前采取保护措施，达到了预期的设计效果。随着中厚板卷生产的进一步发展，该系统未来还将不断增加新的功能特别是移动查询，从而进一步推动历史报警控制水平的提高。Reference1iFix v3.0技术手册.GE Fanuc International，2003.2何玉洁.数据库基础及应用技术M.北京：清华大学出版社，2002.3Loren Eidahl著，宏伊工作室譯.Visual Basic 5 控件设计与开发M.杭州：浙江科学技术出版社，西蒙与舒斯特国际出版公司，1998.4陈灿煌，陈周造.Dephi 5.0 彻底研究M.北京：中国铁道出版社，2001.5陈豫龙，何旭洪.Dephi 6 数据库系统开发实例导航M.北京：人民