IFIX历史报警

创建IFIX历史报警图解
一、创建ODBC数据库：
利用控制面板中的数据库（ODBC）创建一个Access数据库DCC.mdb，并存于C盘根目录下，具体步骤如图1，2所示：
图1
图2
二、IFIX历史报警配置：
在SCU的报警配置中启用相关选项，如图3；选中“报警ODBC服务”项后“修改”，弹出图4后选择“配置”，配置的参数具体如图5。

在配置完IFIX 历史报警与ODBC中创建的数据库的关联后，创建表FIXALARMS。

图3
图4
图5
选择“报警配置”中的“高级”，并设置“操作员消息”和“配方消息”为
“不发送”，如图6、图7（这一步很重要，否则IFIX将区分不开报警与消息）。

图6
图7
三、画面配置及代码：
1、在报警历史画面中创建如下图8所示控件，时间提取控件需要选择菜单栏的“插入”菜单，然后选择“插入OLE”，从中添加“Microsoft Date and Time Picker”控件。

图8
2、画面中的控件名如图9所示：
图9
3、画面中的VXData1.vxData属性如图10所示。

图10
4、画面中的VXGrid1. ADORecords属性如图11所示。

图11
5、画面中控件的具体代码如图12。

图12
6、附代码：
Private Sub CFixPicture_Close()
vxData1.DBDisconnect
End Sub
Private Sub CFixPicture_Initialize()
Me.DTp1 = DateAdd("d", -1, Now)
Me.DTp2 = Now
Me.DTp3 = Now
Me.DTp4 = Now
timerDPT.Interval = 10000
timerDPT.EnableEndTime = True
vxData1.DBConnect
End Sub
Private Sub CommandButton1_Click()
vxData1.QP1 = Format(DTp1.Value, "yyyy-mm-dd" & " " & Format(DTp2.Value, "HH:mm:ss"))
vxData1.QP2 = Format(DTp3.Value, "yyyy-mm-dd" & " " & Format(DTp4.Value, "HH:mm:ss"))
vxData1.AutoRefresh = True
vxData1.SQLCommand = " SELECT * FROM FIXALARMS WHERE (FIXALARMS.ALM_NATIVETIMEIN " _
& "BETWEEN {ts 'QP1'} AND {ts 'QP2'}) ORDER BY FIXALARMS.ALM_NATIVETIMEIN DESC"
vxData1.Refresh
vxGrid1.Refresh
End Sub
Private Sub timerDPT_OnTimeOut(ByVal lTimerId As Long)
Me.DTp1 = DateAdd("d", -1, Now)
Me.DTp2 = Now
Me.DTp3 = Now
Me.DTp4 = Now
End Sub
四、设置系统时间：
在控制面板中选择区域和语言选项，将系统时间显示方式按图13所示配置。

图13
注：本文部分内容来自杭州集益公司视频教材。

撰稿人：王国琦
2009年9月22日。