iFix报警记录.docx

iFix报警记录.docx

《iFix报警记录.docx》由会员分享，可在线阅读，更多相关《iFix报警记录.docx（14页珍藏版）》请在冰豆网上搜索。

iFix报警记录

iFix报警记录

建立Ifix报警记录步骤说明

1、在计算机D盘建立一Access文件，命名为IfixALM.mdb。

2、在计算机控制面板中选择“管理工具”，打开“数据源（ODBC）

选择添加，选择下图蓝色部分，

出现下图，数据源名输入：

IfixALMDB,

选择数据库，选择D盘上面建立的Access文件名：

3、建立一画面，取名almtest（可任意）

4、建立“查询设备号设定”OLE控件，步骤为：

在菜单栏选择“插入（I）”→OLE对象（0）…后出现“插入对象”对话框，这时选择

MicrosoftForms2.0TextBox控制（此控件在计算机安装MicrosoftOffice后在此才可选择）。

此OLE对象的属性对象名为TextBox1.

5、用相同办法建立“查询报警描述”OLE控件，其属性对象名为TextBox2。

6、插入“日历”，步骤为：

在菜单栏选择“插入（I）”→OLE对象（0）…后出现“插入对象”对话框，这时选择

日历控件11.0，（此控件在计算机安装MicrosoftOffice后在此才可选择）。

这时出现：

右击日历，右击选择“编辑脚本”，输入“Calendar1.Visible=False”，使日历平时处于隐藏状态。

5、建立一“选择日期“按钮，右击选择“编辑脚本”，输入“Calendar1.Visible=True”，

这样当点击按钮时使日历可视。

6、用步骤2建立“查询日期设定”OLE控件，其属性对象名为TextBox3，右击点“动画…”,

这时出现：

：

点击“高级动动画”后出现：

点击“数据”，并且“数据转换”选择“对象”（因为日历为一对象），出现：

点击“数据源”，出现“表达式编辑器”，选择数据源：

这样可将日历“Calendar1”的日期赋给“选择日期”OLE对象。

此时，下列已完成：

7、建立一“查询”按钮，其脚本为：

vxData1.DBDisconnect

vxData1.SQLCommand="SELECT*FROMFIXALARMSWHERE（FIXALARMS.结束日期="+"'"+TextBox3.Text+"'"+"）AND（FIXALARMS.标签名Like'%"+TextBox1.Text+"%'）AND（（FIXALARMS.报警区域='G'）or（FIXALARMS.报警区域='F'）or（FIXALARMS.报警区域='E'））AND（FIXALARMS.消息描述Like'%"+TextBox2.Text+"%'）ORDERBYFIXALARMS.结束日期DESC,FIXALARMS.结束时间DESC"

vxData1.DBConnect。

8、在ifix工具箱中选择“VisiconX数据控件”，插入此控件，

右击VisiconX数据控件，选择属性，

此时在“提供者”中选择下图中蓝色部分：

在“数据库”中，输入DNS名，这个地方为IfixALMDB.（参考步骤2）

在“记录源”中输入脚本：

SELECT

*

FROM

FIXALARMS

WHERE

（FIXALARMS.结束日期='QP1'）AND

（FIXALARMS.标签名Like'%QP2%'）AND

（FIXALARMS.报警区域='QP3'）AND

（FIXALARMS.消息描述Like'%QP4%'）

ORDERBY

FIXALARMS.结束日期DESC,

FIXALARMS.结束时间DESC

插入按钮，

，其脚本加入下例语句：

PrivateSubCommandButton1_Click（）

ShanChuBaoJingSystem.CurrentDate,5

EndSub

9、在ifix工具栏中选择“VisiconX”控件

此时出现：

右击VisiconX控件，选择“动画”，出现下图，选择“高级动画”

此时出现：

数据转换选择“对象”

点击“数据源”：

点“确定”后，一切OK！

10、点击脚本中加入下列初始化语句：

PrivateSubCFixPicture_Initialize（）

Me.Calendar1.Value=System.CurrentDate

Calendar1.Visible=False

vxData1.DBDisconnect

EndSub

SubShanChuBaoJing（ShiJianAsDate,BaoCunTianShuAsInteger）

DimrsAsADODB.Recordset

OnErrorGoToCuoWu

Setrs=NewADODB.Recordset

rs.ActiveConnection="Provider=MSDASQL.1;ExtendedProperties="&"DSN=IFixALMDB;DBQ=D:

\IfixALM.mdb;DriverId=25;FIL=MSAccess;MaxBufferSize=2048;PageTimeout=5;UID=admin;"

rs.Source="delete*fromFIXALARMSwhereDateDiff（"&"'"&"D"&"'"&",结束日期,"&"'"&ShiJian&"'"&"）>"&BaoCunTianShu&"AND（FIXALARMS.报警区域='E'）"

IfMsgBox（"是否确定要删除"&BaoCunTianShu&"天前的报警历史记录",vbYesNo）=vbYesThen

rs.Open

Setrs=Nothing

EndIf

CuoWu:

ExitSub

EndSub