建立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。