有关iFIX软件报表生成的说明

有关iFIX软件报表生成的说明 iFIX软件可以通过内置的VBA借助EXCEL，ACCESS，Crystal Roport等软件生成报表。

本文通过 VBA+ADO+EXCEL 做一个具体的介绍。

1．V BA(Visual Basic for Application)
VBA是iFIX完全内置的一个强有力的编程工具，可以使用户快速方便的生成自动的操作任务和过程自动化的解决方案。

IFIX的VBA工具包括以下特性：
可操作所有列出的iFIX对象的属性，方法和事件
支持多种数据源，包括iFIX过程数据库，任何OPC服务器，任何对象的属性和SQL数据库
ODBC支持
ActiveX控件支持
VBA脚本生成向导及IFIX命令可以帮助你为常用任务自动生成程序代码
第三方控件的安全容器
下面的程序代码就是在iFIX中建立一个新的EXCEL应用程序
并打开报表模版。

Dim msexcel As Excel.Application
Set msexcel = CreateObject("Excel.Application")
With msexcel
.Visible = True
.Workbooks.Open "e:\histdemo\FixReports.xls", ,
False
.ActiveWorkbook.ActiveSheet.Select
.DisplayAlerts = False
.Wait (Now() + 0.00002)
End With
2．A DO (ActiveX Data Object)
ADO 是微软推出的最新的数据库访问方式。

它综合了微软早期推出的DAO及RDO的特性并取代了DAO及RDO。

ADO可以访问更多类型的数据库，并且可以通过ODBC（Open DataBase Connectivity）访问数据，但它的结构是建立在OLE DB Providers上。

IFIX软件安装完毕以后，在控制面板的ODBC数据源中会增加两个系统DSN：
FIX Dynamics Historical Data iFIX历史数据源
FIX Dynamics Real Time Data iFIX实时数据源
ADO可以通过访问这两个数据源来直接操作iFIX历史数据库和实时数据库。

ADO类介绍：
Connection 创建和维护到数据库或其他数据库的连接，管理数
据传输，其OPEN方法建立实际的连接。

Recordset 提供存取表或其他记录集的能力，一个记录集对象
在某一时刻只能查看一条记录。

提供移动记录的方
法，本类中的OPEN方法通过指定的表名，SQL语法，
命令以及连接对象获得存取的记录。

Field 提供存取Recordset对象中字段的能力，包括当前记录中的名称，类型和值，这些值的修改将改变数
据源中的值，每一个Recordset对象都维护一批
Field对象。

Dim rsADO As New ADODB.Recordset
Dim cnADO As New ADODB.Connection
Dim SQL1 As String
strStartTime = User.strStartTime.CurrentValue
strEndTime = User.strEndTime.CurrentValue
Tag = User.Tag.CurrentValue
INTERVAL = User.INTERVAL.CurrentValue
SQL1 = "SELECT * FROM FIX WHERE FIX.TAG LIKE '%" + Tag
+ "%' AND FIX.VALUE>0 AND (FIX.DATETIME>{ts'" +
strStartTime + "'} and FIX.DATETIME<{ts'" + strEndTime
+ "'})" + _
"and FIX.INTERVAL='" + INTERVAL + "'"
With cnADO
.Open "Provider = Microsoft OLE DB Provider
for ODBC Drivers;dsn=fix dynamics historical
data;uid=;pwd=;"
.Execute (SQL1)
End With
rsADO.Open SQL1, cnADO
For i = 1 To rsADO.Fields.Count
msexcel.cells(2, i) = rsADO.Fields(i - 1).Name
Next
If rsADO.BOF Then
msexcel.Quit
MsgBox "查询结果空，请检查查询条件"
Else
rsADO.MoveFirst
i = 3
While Not rsADO.EOF
For j = 1 To rsADO.Fields.Count
msexcel.cells(i, j) = rsADO.Fields(j - 1)
Next j
rsADO.MoveNext
i = i + 1
Wend
rsADO.Close
cnADO.Close
通过上述代码可以按照任意时间间隔查询任意时
间段的历史数据，其始，终时间格式如下：
2000-01-01 12:00:00
时间间隔格式如下： 00:00:30
User.strStartTime.CurrentValue，
User.strEndTime.CurrentValue
User.Tag.CurrentValue，
User.INTERVAL.CurrentValue等为在GLOBAL中定
义的全局变量（字符串）
报表的保存及打印代码如下：
msexcel.Wait (Now() + 0.00012)
msexcel.ActiveWorkbook.SaveAs
"e:\histdemo\histreportdemo.xls"
msexcel.ActiveWorkbook.PrintOut
msexcel.ActiveWorkbook.Close
msexcel.Quit
Set msexcel = Nothing
End If
3．报表计划
对于生成班报表，日报表，周报表，月报表及年报表可以在schedule中时间触发中设置相应的时间段。

自动完成报表功能。

手动报表可以通过可以在sch edule中按事件触发或按钮产生。