ifix报表制作文档

《ifix报表制作文档》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Ifix报表的实现本文档主要介绍Ifix通过调度将报表数据按照一定要求存储到Access数据库中，并根据要求从其中提取数据，结合EXCELL的制表功能实现报表。Ifix时间调度触发调度中的VB脚本Access数据库报表显示数据存入1.数据库的建立和数据关联方法：（1）直接在Microsoftoffice中建立Access文件。（2）在控制面板里ODBC数据源管理器里关联数据库时创建Access数据库。1.1数据库的建立表创建（1）打开新建的Access文件，点击。（2）创建一个，名字为ReportData的表。在表名处右键鼠标点击设计视图，将字段名称，数据类型，字段属性

2、更改为下图所示：1.2数据库的关联按照开始→设置→控制面板→管理工具→数据源的操作顺序进入数据库引用关联定义画面如下图。在其中选择点击SystemDSN，再点击ADD…命令，在弹出的选择列表中选择MicrosoftAccessDriver[*.mdb]，再点击完成按钮，进入下边的窗口，在其中的数据源名(N)后的输入区中填写一个名字，然后在数据库栏中点击选择(S)按钮，选择刚才定义的数据库文件名即可。在以后的应用中只使用DSN（数据源名）名，不使用数据名。2．时间调度的建立2.1在ifix里新建基于时间的调度，在Schedules新建一个调度文件，在TimeBasedEn

3、tries中创建一个调度，具体设置如下图：注意：iFIX不支持使用与本地节点名相同名称的调度。因此，不能创建与本地节点名相同的调度。触发信息设置为continuous，间隔为1个小时，启动时间为第2分钟。点击VbEditor将以下脚本写入PrivateSubRW2REPORT_OnTimeOut(ByVallTimerIdAsLong)DimcnAsADODB.Connection'定义一个ADO方式的数据库连接DimresAsADODB.Recordset'定义一个ADO方式的数据库记录集DimStrSQLAsStringSetcn=NewADODB.Connecti

4、on'定义cn为新的ADO数据库连接Setres=NewADODB.Recordset'定义res为新的ADO数据库连接集ODBC数据源名称'OnErrorResumeNextcn.ConnectionString="DSN=ReportSource;UID=;PWD=;"'定义cn的连接数据源为ReportSource即ODBC中建立的ACCESS的数据源名cn.OpenStrSQL="select*fromReportDataWhere日期=#"&Date&"#"'使用SQL语句查找ReportData表中日期为Date的数据res.OpenStrSQL,cn,ad

5、OpenKeyset,adLockOptimisticres.AddNew'添加一个新的记录res.Fields(0)=Date'在0列加入日期res.Fields(1)=Hour(Time)'在1列加入时间res.Fields(2)=Fix32.RW2.RW_Y0GBN11AP001_ZS.f_cv'在2列加入标签1res.Fields(3)=Fix32.RW2.RW_Y0GBN11AP002_ZS.f_cv'在3列加入标签2res.Update'保存记录Update(当Edit或AddNew方法完成后保存记录集)res.Close'关闭记录集cn.CloseSetr

6、es=NothingSetcn=NothingEndSub在vb的菜单栏点击工具→引用，添加一下控件：2.2添加到FixBackgroundServer任务打开SCU,点击configure→Task如图所示：在文件名内查找FixBackgroundServer.exe文件添加后保存SCU文件。2.3在后台任务启动列表中添加调度点击settings→userpreferences进入如下图界面，添加后台启动项3同时在Report画面里，添加WEB控件：4报表生成在IFIX画面上插入一个按钮。按钮名称：CommandButton1报表生成按钮代码如下：PrivateSub

7、CommandButton1_Click()'OnErrorResumeNextDimcnAsADODB.ConnectionDimresAsADODB.RecordsetDimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlsheet1AsExcel.WorksheetDimxlsheet2AsExcel.WorksheetDimstrFileNameAsStringDimStrSQLAsStringDimiAsIntegerDimrowAsIntegerDimCreatDay