IFIX历史报警数据存储与查询

1、关于IFIX历史报警数据存储与查询实例一 .ODBC服务的连接开始-设置-控制面板-管理工具-数据源ODBC选用户 DNS添力卩-选 Microsoft Access Driver（*mdb）数据源名：Myalarm选（或创建）数据库名:Alarm.mdb,文件类型:Access,驱动器D:连接池-禁止二. 系统SCU的配置SCU-IFIX- 配置-报警-报警ODBC艮务,启动-修改-区域（A）:从报警区域数据库中选择-CLQS-ALMM曾加-确定 配置：数据库类型：Access数据库标识符：Myalarm列配置：选9项现在创建表：FIXALARM（默认表名）其它默认-确定保存退出三. 控件的

2、引用1. 日期时间控件典型装VB6.0后，项目工具栏文件-工具栏-插入OLE对象双击选 Microsoft date and time picker 控件日期控件-属性-格式:1-dtpShortDate,有效前不打勾。其它默认,时间控件-属性-格式:2-dtpTime,有效前不打勾。其它默认2. vxData控件（数据管道）IFIX4.0工具箱底部vxData图标右键-属性 vxData 对象-PROPERTIES VISICONXDATA VXDAT对象SEE)回Re4訥冋Hita动画-撤消Ctrl+Z提供者：Microsoft OLE DB Provider for ODBC Drive

3、rs数据库：DNS名: Myalarm,用户名 密码 选项均空-测试连接-测试连接成 功-确定记录源：命令类型：SQL命令 应用-确定3. vxGrid控件（显示）工具箱底部vxGrid图标选控件vxGrid1-右键-动画-高级-高级动画配置-行为-ADORecords-动画打勾数据源：报警记录一览表.vxData1.ADORecords数据转换：对象四. VBA脚本的编写1.初始化脚本代码'初始化设置Private Sub CFixPicturenitialize()'设定默认开始时间Me.DTPFromDate = DateAdd("d", -1, No

4、w)Me.DTPFromTime = ("00:00:00") '设默认结束时间Me.DTPE ndDate = NowMe.DTPE ndTime = Now'设置时间'vxDatal.QPI = Format(Me.DTPFromDate.Value, "yyyy-MM-DD") & "" & For mat(Me.DTPFromTime.Value, "HH:MM:SS")'vxData1.QP2 = Format(Me.DTPE ndDate.Value, &

5、quot;yyyy-MM-DD") & " " & Form at(Me.DTPE ndTime.Value, "HH:MM:SS")End Sub2. 查询按扭CmbSearch代码如下：'开始查询Private Sub CmbSearch_Click()'连接自动刷新Me.vxData1.AutoRefresh = True'Format函数用于设定时间格式vxData1.QP1 = Format(Me.DTPFromDate.Value, "yyyy-MM-DD") &

6、" " & Form at(Me.DTPFromTime.Value, "HH:MM:SS")vxData1.QP2 = Format(Me.DTPE ndDate.Value, "yyyy-MM-DD") & " " & Forma t(Me.DTPE ndTime.Value, "HH:MM:SS")'设定查询内容'从数据库中查询符合时间段的数据Me.vxData1.SQLComma nd = "SELECT *FROM FIXALARMS

7、WHERE" & _ "(FIXALARMS.ALM_NATIVETIMEIN >= ts 'QP1')AND(FIXALARMS.ALM_NATIVETI MELAST <= ts 'QP2')"'刷新数据Me.vxData1.RefreshMe.vxGrid1.RefreshEnd Sub3. 完整的VBA按扭代码如下'初始化设置Private Sub CFixPicturenitialize()'设定默认开始时间Me.DTPFromDate = DateAdd("d&quo

8、t;, -1, Now)Me.DTPFromTime = ("00:00:00")'设默认结束时间Me.DTPE ndDate = NowMe.DTPE ndTime = Now'设置时间'vxData1.QP1 = Format(Me.DTPFromDate.Value, "yyyy-MM-DD") & "" & For mat(Me.DTPFromTime.Value, "HH:MM:SS")'vxData1.QP2 = Format(Me.DTPE ndDate

9、.Value, "yyyy-MM-DD") & " " & Form at(Me.DTPE ndTime.Value, "HH:MM:SS")End SubPrivate Sub CFixPicture_KeyDow n(ByVal KeyCode As Long, ByVal Shift AsLong, Continu eProcess ing As Boolea n)End Sub'开始查询Private Sub CmbSearch_Click()'连接自动刷新Me.vxData1.AutoRefr

10、esh = True'Format函数用于设定时间格式vxData1.QP1 = Format(Me.DTPFromDate.Value, "yyyy-MM-DD") & " " & Form at(Me.DTPFromTime.Value, "HH:MM:SS")vxData1.QP2 = Format(Me.DTPE ndDate.Value, "yyyy-MM-DD") & " " & Forma t(Me.DTPE ndTime.Value, "HH:MM:SS")'设定查询内容'从数据库中查询符合时间段的数据Me.vxData1.SQLComma nd = "SELECT *FROM FIXALARMS WHERE" &"(FIXALARMS.ALM_NATIVETIMEIN >=