在iFix中采用ODBC制作历史报表

在iFix中采用ODBC制作历史报表tmac5
1.生成历史数据库
打开系统配置
点击,添加HTC.EXE ,启动方式选择后台方式
基因调控网络
启动历史定义
定义历史数据库
启动任务控制器,启动HTC
服装信息系统
2.ifix历史数据库介绍
打开ODBC数据源管理器,大家可以看到IFIX实时和历史数据库,历史数据库一般存放在HTRDATA文件夹中
孙志刚事件3.配置调度
十六届三中全会
定义引用
引用:Microsoft Excel 5.0 Object Library和Microsoft ActiveX Data Objects 2.7 编辑脚本
Dim ReportArray(15) As String '定义变量数组
Dim curTime As String '定义当前时间
Dim strStartTime As String '报表查询的时间范围
Dim strEndTime As String      '报表查询的时间范围
数字音响Dim Interval As String        '报表查询的间隔时间
Dim msexcel As Excel.Application  '定义引用
Dim rsADO As New ADODB.Recordset
Dim cnADO As New ADODB.Connection
Dim SQL0, SQL1 As String
Dim reportfile As String '存储文件名
Private Sub FixTimer4_OnTimeOut(ByVal lTimerId As Long)
curTime = Now '取得当前时间
Dim curmonth, curday, curhour, curminute, cursecond As String
curmonth = IIf(Month(curTime) < 10, "0" & Month(curTime), Month(curTime)) curday = IIf(Day(curTime) < 10, "0" & Day(curTime), Day(curTime))
strStartTime = Year(curTime) & "-" & curmonth & "-" & curday _
& " " & "00:00:00"
strEndTime = Year(curTime) & "-" & curmonth & "-" & curday _
& " " & "23:59:59"
Interval = "01:00:00"  '时间间隔
reportfile = Year(curTime) & "-" & curmonth & "-" & curday
reportfile = "e:\" & reportfile & ".xls"
ReportArray(0) = "O0ERB01CTO01" '定义报表变量

本文发布于:2024-09-20 22:46:49,感谢您对本站的认可!

本文链接:https://www.17tex.com/xueshu/304428.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:历史   数据库   报表
留言与评论(共有 0 条评论)
   
验证码:
Copyright ©2019-2024 Comsenz Inc.Powered by © 易纺专利技术学习网 豫ICP备2022007602号 豫公网安备41160202000603 站长QQ:729038198 关于我们 投诉建议