IFIX报表

IFIX报表
IFIX报表常规的做法是采用IFIX内嵌的VBA语言，借助于OFFICE自带的ACCESS 和EXCEL 来做的。

例如我们要在IFIX画面上通过点击一按钮来察看某一天的数据，假如这有三个模拟量如tag1,tag2,tag3，数据间隔一小时归一次档，它主要分为四步：
一、创建一个ACCESS数据库如ReportDataBase.mdb，用来存放报表所需的数据。

然
后就在这个数据库中建立一个表如ReporData，这样IFIX 就能以一定的时间间隔将数据写入此数据库刚才创建的表中。

ReportData的结构如下：
字段名类型
日期日期/时间
tag1 数值
tag2 数值
tag3 数值
二、创建ODBC数据源，用于IFIX与上步已建立的数据库和表进行联系。

方法：控制面
板->管理工具->ODBC数据源，打开ODBC数据源管理器，建立一个“系统DSN”，点击“添加”，双击“Microsoft Access Drivers (*.mdb)”,出现“ODBC Microsoft Access 安装”对话框。

数据源名：MyReport 注：此名是任意的字符组合，但不能与数据库重名。

数据库：ReportDataBase.mdb，点击‘选择‘按钮选择第一步创建的Access数据库。

点击“完成”，退出控制面板
三、在IFIX 中创建一个“基于时间的调度”，如图
名称：任意合法的字符组合
触发信息：连续
间隔：1小时
详细代码如下：
点击“VB编辑器“进入VB编辑器
在“工具”菜单-〉引用“Microsoft ActiveX Data Objects x.x Library”
Private Sub FixTimer3_OnTimeOut(ByVal lTimerId As Long)
Dim cn As ADODB.Connection
Dim res As ADODB.Recordset
Dim StrSQL As String
Set cn = New ADODB.Connection
Set res = New ADODB.Recordset
cn.ConnectionString = "DSN= MyReport;UID=;PWD=;"
//MyReport是数据源名称//
cn.Open
StrSQL = "select * from ReportData where 日期=#" & Date & "#"
//ReportData是建立数据库中的表名//
res.Open StrSQL, cn, adOpenKeyset, adLockOptimistic
res.AddNew
res.Fields(0) = Date
res.Fields(1) = Fix32.Fix.tag1.f_cv
res.Fields(2) = Fix32.Fix.tag2.f_cv
res.Fields(3) = Fix32.Fix.tag3.f_cv
res.Update
res.Close
Set res = Nothing
Set cn = Nothing
End Sub
另外，如果定义了主键，如上图，选择了，则res.Fields(0)不可用。

四、在IFIX画面上插入一个按钮。

按钮名称：Cmdreport
Private Sub Cmdreport_Click()
UserForm2.show
End Sub
再在”VB编辑器环境“下，插入一用户窗体。

并且在工具-〉附加工具中选择日历控件11.0
在“工具”菜单-〉引用“Microsoft ActiveX Data Objects 2.7 Library”
“Microsoft Excel 9.0 Library”
“取消”按钮的代码
Private Sub Cmdcancel_Click()
Unload Me
End Sub
“确定”按钮的代码如下：
Private Sub CmdOK_Click()
'On Error Resume Next
Dim cn As ADODB.Connection
Dim res As ADODB.Recordset
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim strFileName As String
Dim StrSQL As String
Dim i As Integer
Dim row As Integer
strFileName= "c:\report.xls" ‘预先设计的报表显示模板文件
StrSQL = "select * from ReportData where 日期=#" & Calendar1.Value& "#" If Dir(strFileName) = "" Then '判断文件是否存在，不存在则退出
MsgBox "报表模版文件不存在"
Exit Sub
End If
Set cn = New ADODB.Connection
cn.ConnectionString = " DSN=MyReport;UID=;PWD=;"
cn.Open
Set res = New ADODB.Recordset
res.Open StrSQL, cn, adOpenKeyset, adLockOptimistic
If res.RecordCount <= 0 Then
MsgBox "你要查询的数据不存在，可能已被删除", vbInformation + vbOKOnly, "系统提示"
res.Close
Set res = Nothing
cn.Close
Set cn = Nothing
Exit Sub
Else
res.MoveFirst
Set xlBook = GetObject(strFileName)
Set xlsheet = xlBook.Worksheets(1)
xlBook.Application.Visible = True
xlsheet.Cells(2, "n") = CDate(res.Fields(0))
i=0
While i < res.RecordCount
Row=i+4
xlsheet.Cells(row, "a") = res.Fields(1)
xlsheet.Cells(row, "b") = res.Fields(2)
xlsheet.Cells(row, "c") = res.Fields(3)
i = i + 1
res.MoveNext
Wend
xlsheet.PrintPreview True
xlBook.Application.DisplayAlerts = False
xlBook.Application.Quit
End If
End Sub。