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 >=