delphi呼叫告警系统监控面板动态实现

《delphi呼叫告警系统监控面板动态实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Delphi呼叫告警系统监控面板动态实现摘要：本文介绍了用动态创建MPI（Multi-PageInterface）的方法实现多业务窗口，用动态创建自定义DBCtrlGrid组件的方法实现呼叫告警监控面板。关键词:Dephi7动态；MPI；DBCtrlGrid中图分类号:X924.3多标签页、窗格式监控面板比较直观和方便，可以用在多种监控系统上。呼叫告警系统监控面板，通过权限控制动态创建一定数量的标签页（一般不再关闭），然后将各个房间（也可以是各个监控点）的资料和状态在窗格中显示出来，后台定时扫描数据库，如有告警或者异

2、常状态则背景用红色表示，用来提醒、处理告警，本文尝试用福利院（医院）呼叫告警系统的一个监控模块来介绍用动态创建MPI的方法实现多业务窗口，并用动态创建自定义DBCtrlGrid组件的方法实现呼叫告警监控面板。1自定义控件类1.1自定义DBCtrlGrid控件类，在继承TDBCtrlGrid控件的基础上，增加了数据源、数据集、图像类，和动态感知控件以及定时器。用来定时扫描后台Oracle数据库中房间的状态，显示在自定义DBCtrlGrid中，自定义DBCtrlGrid控件类中对基类的构造函数进行的重载，以方便传递动态S

3、QL参数，用来实现不同院名数据的获取。//自定义TDBCtrlGrid控件，很重要要用自定义控件的panel属性；TMDBG=class(TDBCtrlGrid)ds：TDataSource；//数据源orq：TOraQuery；//连接Oracle数据库img：TImage；//显示小人图标name：TDBText；//显示人名room：TDBText；//显示房间号tm：TTimer；//定时器privatev_sql：string；//SQL语句public//构造函数重载增加初始化参数,Str_Sql是SQL

4、语句,ASession是ORACLE连接sessionconstruetorCreate(Aowner：TComponent；Str_Sql:string；ASession:TOraSession)；overload；destructorDestroy()；override；//覆盖析构函数，主要用做控件对象的释放procedureMyPaintPanel(DBCtrlGrid：TDBCtrlGrid；Index：Integer)；//重绘Panel颜色procedureMytimer(Sender：TObject)

5、；//定时器自定义过程end；MyPaintPanel过程重新实现了TDBCtrlGrid的OnPaintPanel事件，Mytimer过程重新实现Ttimber的Ontimer事件。1.2自定义TtabSheet用于动态创建页面，嵌于TpageControl中TMYTabSheet二class(TTabSheet)//自定义TTabSheetDbCtrlGrid：TMDBG；//自定义TMDBG类Public//构造函数重载constructorCreate(Aowner：TComponent；Str_Sql:st

6、ring；ASession:TOraSession)；overload；destructordestroy()；override；//析构函数覆盖end；2编码实现动态创建MYTabSheet和MYDBCtrlGrid控件，将MYDBCtrlGrid嵌入MYTabSheet,然后再将MYTabSheet赋给PageControl控件，形成一个标签业务界面。TMDBG构造函数，初始化成员。construetorTMDBG.create(Aowner:TComponent；Str_Sql：string；ASession：

7、TOraSession)；begininheritedcreate(Aowner)；//继承v_sql:二Str_Sql；ds:=TDataSource.Create(self)；//此处self是TMDBG,TMDBG控制该对//象的生存周期orq：=TOraQuery.Create(self)；img：=TImage.Create(self)；name：=TDBText.Create(self)；room：=TDBText.Create(self)；orq.Session：=ASession；//本例子使用了OD

8、AC控件，此处需要连接OraSession控件ds.DataSet：二orq；self.DataSource：=ds；//TMDBG的数据源name.DataSource：=ds；//数据源name.Parent:=Self.Panel；//重要Parent必须是Self.Panel才能每个窗格内都显示出来name.DataField：二^el