iFix报警记录

建立Ifix报警记录步骤说明1、在计算机D盘建立一Access文件，命名为IfixALM.mdb。

2、在计算机控制面板中选择“管理工具”，打开“数据源（ODBC）选择添加，选择下图蓝色部分，

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

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

3、建立一画面，取名almtest(可任意)

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

在菜单栏选择“插入（I）”→OLE对象（0）…后出现“插入对象”对话框，这时选择Microsoft Forms 2.0 TextBox控制（此控件在计算机安装Microsoft Office后在此才可选择）。

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

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

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

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

日历控件11.0，（此控件在计算机安装Microsoft Office后在此才可选择）。这时出现：

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

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

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

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

这时出现：

：

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

点击“数据”，并且“数据转换”选择“对象”（因为日历为一对象），出现：点击“数据源”，出现“表达式编辑器”，选择数据源：

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

此时，下列已完成：

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

vxData1.DBDisconnect

vxData1.SQLCommand = "SELECT * FROM FIXALARMS WHERE (FIXALARMS.结束日期= " + "'" + TextBox3.Text + "'" + ") AND (FIXALARMS.标签名Like '%" + TextBox1.Text + "%') AND ((FIXALARMS.报警区域= 'G')or(FIXALARMS.报警区域= 'F') or (FIXALARMS.报警区域= 'E')) AND (FIXALARMS.消息描述Like '%" + TextBox2.Text + "%') ORDER BY FIXALARMS.结束日期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%') ORDER BY

FIXALARMS.结束日期DESC, FIXALARMS.结束时间DESC

插入按钮，，其脚本加入下例语句：Private Sub CommandButton1_Click() ShanChuBaoJing System.CurrentDate, 5

End Sub

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

此时出现：

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

此时出现：

数据转换选择“对象”

点击“数据源”：

点“确定”后，一切OK！

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

Private Sub CFixPicture_Initialize()

Me.Calendar1.Value = System.CurrentDate

Calendar1.Visible = False

vxData1.DBDisconnect

End Sub

Sub ShanChuBaoJing(ShiJian As Date, BaoCunTianShu As Integer)

Dim rs As ADODB.Recordset

On Error GoTo CuoWu

Set rs = New ADODB.Recordset

rs.ActiveConnection = "Provider=MSDASQL.1;Extended Properties=" & "DSN=IFixALMDB;DBQ=D:\IfixALM.mdb;DriverId=25;FIL=MS

Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"

rs.Source = "delete * from FIXALARMS where DateDiff( " & "'" & "D" & "'" & ",结束日期," & "'" & ShiJian & "'" & ") > " & BaoCunTianShu & " AND (FIXALARMS.报警区域='E' )"

If MsgBox("是否确定要删除" & BaoCunTianShu & "天前的报警历史记录", vbYesNo) = vbYes Then

rs.Open

Set rs = Nothing

End If

CuoWu:

Exit Sub

End Sub