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

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

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

?

?

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

?

?

许剑光

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

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

:TP302.1TG333.7:A:1003-9082(2019)11-0-01

引言

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

一、系统改进的实现原理

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

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

2.SQL简介:SQL指结构化查询语言(StructuredQueryLanguage),是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。

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

二、系统实现的步骤

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

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

ADOConnectionlj.connected:=.T.;

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

Adoquerycx.close;

Sql.txt=;//清空SQL

sql.Add(‘select*fromfixalarms);

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

ifradiogroupcx.ItemIndex=0then

sql.Add(‘orderbycdatecx(datelast)asc)

elseifradiogroupcx.ItemIndex=1then

sql.Add(‘orderbycdatecx(datelast)desc);//按datelast字段降序排序

ifradiogroupcx2.ItemIndex=0then

sql.Add(‘timelastasc)

elseifradiogroupcx2.ItemIndex=1then

sql.Add(‘timelastdesc);//按timelast字段升序排序

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

ifMessage.Msg=WM_MOUSEWHEELthen//

文档评论(0)

159****4221 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档