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

在iFix 中采用ODBC 制作历史报表 1. 生成历史数据库 打开系统配置 点击 ，添加 HTC.EXE ,启动方式选择后台方式 启动历史定义 定义历史数据库 启动任务控制器，启动ＨＴＣ 2. ifix 历史数据库介绍 打开ＯＤＢＣ数据源管理器，大家可以看到ＩＦＩＸ实时和历史数据库，历史数据库一般存放在 HTRDATA 文件夹中 3 . 配置调度 定义引用 引用：Microsoft Excel ５.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" ' 定义报表变量 ReportArray(1) = "O0ERB01CTO02" ReportArray(2) = "O0ERB01CTO03" ReportArray(3) = "O0ERB01CTO04" ReportArray(4) = "O0ERB01CTO05" ReportArray(5) = "O0ERB01CTO06" ReportArray(6) = "O0ERB01CTO07" ReportArray(7) = "O0ERB01CL301" ReportArray(8) = "O0ERB02CTO01" ReportArray(9) = "O0ERB02CTO02" ReportArray(10) = "O0ERB02CTO03" ReportArray(11) = "O0ERB02CTO04" ReportArray(12) ...