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

许剑光

摘 要：历史报警控制是企业计算机控制系统的重要功能。本文介绍了当前成熟的ADO及SQL数据查询技术，并将其用于对iFix v3.0组态软件历史报警库的查询，既满足了设备维护的要求也达到了软件优化的目的。

关键词：历史报警 查询 软件优化

中图分类号：TP302.1 TG333.7文献标识码：A文章编号：1003-9082（2019）11-0-01

引言

南京钢铁集团中厚板卷厂炼钢车间现有120t双车式钢包炉、双罐式VD真空处理装置各一座，主体设备从意大利DANIELI公司引进，其中一级自动化系统人机界面由外方开发并运行于iFIX v3.0平台上。由于在原设计中报警页未能提供历史报警的查询功能，对于维修人员在日常维护过程中判断故障产生原因带来很大困难。因此，笔者在充分了解iFIX软件的基础上，根据现场的要求进行了相应的开发工作，弥补了设计的不足，也满足了生产的需要。

一、系统改进的实现原理

在实际工作中需要将开关量变位，模拟量越限等数据的变化情况存入报警历史数据库中，然后再通过编写程序查询报警历史，使现场用户能够直观方便的查询所需的历史数据。在本系统中以较为流行的关系型数据库系统ACCESS作为报警历史库存储历史报警信息。为了使应用程序能通过OLE DB访问数据库，以达到方便快速地访问和操作数据库中的数据的要求，程序中使用了ADO+SQL的方式进行操作。

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

2.SQL简介：SQL指结构化查询语言（Structured Query Language），是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

结构化查询语言是高级的非过程化编程语言，允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式，所以具有完全不同底层结构的不同数据库系统， 可以使用相同的结构化查询语言作为数据输入与管理的接口。结构化查询语言语句可以嵌套，这使它具有极大的灵活性和强大的功能。。

二、系统实现的步骤

本系统的主要功能是访问和操作报警数据库中的数据，向用户提供完整详细的报警信息，其主要功能有：查询当天的数据、按日期、时间区间查找、按区域查找等。

1.查询模块设计。此模块用于实现通过日期、时间及区域查询的功能。实现原理主要是通过TADOConnection组件连接数据库，TADOQuery发送SQL语句实现后台数据库实现查询。同时利用数据源组件TDataSource连接数据显示控件TDBGrid和TADOQuery，部分代码如下：

ADOConnectionlj.connected：=.T.;

DisableControls; //连接期间暂时停止数据显示控件

Adoquerycx.close;

Sql.txt=; //清空SQL

sql.Add（‘select * from fixalarms）;

2.排序模块设计。为了便于数据的浏览，程序中加入了排序功能，排序语句的实现相对容易，主要通过在SQL查询语句Select中添加Order选项实现：

if radiogroupcx.ItemIndex=0 then

sql.Add（‘order by cdatecx（datelast） asc）

else if radiogroupcx.ItemIndex=1 then

sql.Add（‘order by cdatecx（datelast） desc）; // 按datelast字段降序排序

if radiogroupcx2.ItemIndex=0 then

sql.Add（‘timelast asc）

else if radiogroupcx2.ItemIndex=1 then

sql.Add（‘timelast desc）; // 按timelast字段升序排序

3.实现记录滚动浏览。DBGRID组件主要实现记录的浏览功能，但是在Delphi中该控件并没有实现通过鼠标移动记录的功能，因此必须手动响应相应的鼠标滚轮消息。主要原理是通过向DBGrid发送消息WM_MOUSE_WHEEL实现记录的移动：

if Message.Msg = WM_MOUSEWHEEL then //判断鼠标滚轮是否移动

begin

xx ：= Short（Message.WParamHi） < 0;

if xx then

DBGridxs.DataSource.DataSet.MoveBy（1）

else

DBGridxs.DataSource.DataSet.MoveBy（-1） //移动记录

end

else

Wnd（Message）;

4.系统相关的设置模块。在实际应用中查询数据库的存放位置往往需要随时改变，这是实际生产中常见的需求之一。本系统也加入了类似的功能，其思路主要通过向注册表写入相应的键值来实现数据库位置的调整，这样每次执行时程序会自动读取新的数据库路径。

regcx：=Tregistry.Create;//创建注册表类

regcx.RootKey：=HKEY_CURRENT_USER; //设定根键

if regcx.KeyExists（‘＼sw＼cx）=.F. then //如果子键不存在则创建

else

begin

if Reg.OpenKey（‘＼sw＼cx， .T.） then //判断相应的键值是否存在

string：=reg.readstring（‘datasourcecx）;

ADOConnectioncx.ConnectionString：=string; //得到连接数据表的字符串

ADOQuerycx2.Active：=.T.;

end;

结语

报警查询系统目前已用于实际生产，通过一段时间的测试证明该系统能够方便快捷地查询历史数据，并且可以发现设备存在的隐患并提前采取保护措施，达到了预期的设计效果。随着中厚板卷生产的进一步发展，该系统未来还将不断增加新的功能特别是移动查询，从而进一步推动历史报警控制水平的提高。

参考文献

[1]iFix v3.0技术手册.GE Fanuc International，2003.

[2]何玉洁.数据库基础及应用技术[M].北京：清华大学出版社，2002.

[3]Loren Eidahl著，宏伊工作室譯.Visual Basic 5 控件设计与开发[M].杭州：浙江科学技术出版社，西蒙与舒斯特国际出版公司，1998.

[4]陈灿煌，陈周造.Dephi 5.0 彻底研究[M].北京：中国铁道出版社，2001.

[5]陈豫龙，何旭洪.Dephi 6 数据库系统开发实例导航[M].北京：人民邮电出版社，2002.