IFIX歷史報(bào)警數(shù)據(jù)存儲與查詢

1、關(guān)于IFIX歷史報(bào)警數(shù)據(jù)存儲與查詢實(shí)例一 .ODBC服務(wù)的連接開始-設(shè)置-控制面板-管理工具-數(shù)據(jù)源ODBC選用戶 DNS添力卩-選 Microsoft Access Driver（*mdb）數(shù)據(jù)源名：Myalarm選（或創(chuàng)建）數(shù)據(jù)庫名:Alarm.mdb,文件類型:Access,驅(qū)動器D:連接池-禁止二. 系統(tǒng)SCU的配置SCU-IFIX- 配置-報(bào)警-報(bào)警ODBC艮務(wù),啟動-修改-區(qū)域（A）:從報(bào)警區(qū)域數(shù)據(jù)庫中選擇-CLQS-ALMM曾加-確定 配置：數(shù)據(jù)庫類型：Access數(shù)據(jù)庫標(biāo)識符：Myalarm列配置：選9項(xiàng)現(xiàn)在創(chuàng)建表：FIXALARM（默認(rèn)表名）其它默認(rèn)-確定保存退出三. 控件的

2、引用1. 日期時間控件典型裝VB6.0后，項(xiàng)目工具欄文件-工具欄-插入OLE對象雙擊選 Microsoft date and time picker 控件日期控件-屬性-格式:1-dtpShortDate,有效前不打勾。其它默認(rèn),時間控件-屬性-格式:2-dtpTime,有效前不打勾。其它默認(rèn)2. vxData控件（數(shù)據(jù)管道）IFIX4.0工具箱底部vxData圖標(biāo)右鍵-屬性 vxData 對象-PROPERTIES VISICONXDATA VXDAT對象SEE)回Re4訥冋Hita動畫-撤消Ctrl+Z提供者：Microsoft OLE DB Provider for ODBC Drive

3、rs數(shù)據(jù)庫：DNS名: Myalarm,用戶名 密碼 選項(xiàng)均空-測試連接-測試連接成 功-確定記錄源：命令類型：SQL命令 應(yīng)用-確定3. vxGrid控件（顯示）工具箱底部vxGrid圖標(biāo)選控件vxGrid1-右鍵-動畫-高級-高級動畫配置-行為-ADORecords-動畫打勾數(shù)據(jù)源：報(bào)警記錄一覽表.vxData1.ADORecords數(shù)據(jù)轉(zhuǎn)換：對象四. VBA腳本的編寫1.初始化腳本代碼'初始化設(shè)置Private Sub CFixPicturenitialize()'設(shè)定默認(rèn)開始時間Me.DTPFromDate = DateAdd("d", -1, No

4、w)Me.DTPFromTime = ("00:00:00") '設(shè)默認(rèn)結(jié)束時間Me.DTPE ndDate = NowMe.DTPE ndTime = Now'設(shè)置時間'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函數(shù)用于設(shè)定時間格式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")'設(shè)定查詢內(nèi)容'從數(shù)據(jù)庫中查詢符合時間段的數(shù)據(jù)Me.vxData1.SQLComma nd = "SELECT *FROM FIXALARMS

7、WHERE" & _ "(FIXALARMS.ALM_NATIVETIMEIN >= ts 'QP1')AND(FIXALARMS.ALM_NATIVETI MELAST <= ts 'QP2')"'刷新數(shù)據(jù)Me.vxData1.RefreshMe.vxGrid1.RefreshEnd Sub3. 完整的VBA按扭代碼如下'初始化設(shè)置Private Sub CFixPicturenitialize()'設(shè)定默認(rèn)開始時間Me.DTPFromDate = DateAdd("d&quo

8、t;, -1, Now)Me.DTPFromTime = ("00:00:00")'設(shè)默認(rèn)結(jié)束時間Me.DTPE ndDate = NowMe.DTPE ndTime = Now'設(shè)置時間'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函數(shù)用于設(shè)定時間格式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")'設(shè)定查詢內(nèi)容'從數(shù)據(jù)庫中查詢符合時間段的數(shù)據(jù)Me.vxData1.SQLComma nd = "SELECT *FROM FIXALARMS WHERE" &"(FIXALARMS.ALM_NATIVETIMEIN >=