基于ADO的IFIX历史数据报表

基于ADO的IFIX历史数据报表

黄重庆

（福建工程学院电子信息与电气工程系福州）

摘要：本次所使用的报表是基于ADO的IFIX历史数据报表，上位机采用组态软件iFix4.5，通过Visual Basic 6.0作为开发工具，运用模块化的方式，采集“智能仓储系统”和“冷却系统”所产生的数据，对各数据进行实时的监控和有效管理，同时可通过对不同信号的读取，采用本文介绍的方法设计的报表应用程序具有普遍性，通过简单修改可移植到其它工程中。

关键词：ADO;IFIX; 历史报表;VBA

Based on the historical data report IFIX ADO

HuangChongQing

（FuJian University of Technology，Electronic information and electrical

engineering，fuzhou）

Abstract：This time uses the report form is based on the ADO IFIX historical data report form, the superior machine uses configuration software iFix4.5, 6.0 takes the development kit through Visual Basic, the utilization modulation way, the data which gathering “the intelligence warehousing system”and “the cooling system”produces, carries on the real-time monitoring and the effective management to various data, simultaneously may through to the different signal read, use the methods design report form application procedure which this article introduced to have the universality, may transplant through the simple revision to other projects.

Key words:ADO;IFIX; HIM ;VBA

1 引言

iFIX是全球最领先的HMI/SCADA自动化监控组态软件。已有超过300，000套以上的软件在全球运行。世界上许多最成功的制造商都依靠 GE Fanuc的iFIX 软件来全面监控和分布管理全厂范围的生产数据。iFIX 软件内置功能强大的VBA脚本编译器，能实现复杂工程对软件的要求。但是，因不同项目对历史数据报表要求不尽相同，而iFIX软件又没有提供针对历史数据报表的通用组件，通常实现报表的方法是使用第三方提供的组件（如：水晶报表），因其封装功能较多，编程不够灵活，对于比较复杂的报表功能实现起来比较麻烦，而且需要在进行报表组态时单独购买。ADO组件集成在Visual Basic 6.0中，对于复杂的报表功能，采用ADO技术访问iFIX历史数据库实现报表非常灵活。[1]同时采用Excel自带的强大的函数和处理数据的能力，对于实现各工程对报表功能的要求。

2 .ADO技术与iFIX历史数据库

2.1 ADO概述

ADO (ActiveX Data Objec t) 对象是DAO /RDO 的后继产物, 很多开发工具都支持这个对象, 比如Visual Basic 和ASP。它是Microsoft公司专门为适应网络数据库开发和客户端需求而推出的一种跨平台远程数据库访问技术。ADO 扩展了DAO和RDO所使用的对象模型, 它包含较少的对象、更多的属性、方法和事件, 这使得ADO 对象更容易使用。ADO 通过OLEDB 所提供的高性能数据访问方法, 可以方便快速地对各种数据源进行访问和操作。ADO 可访问的数据源包括关系或非关系型数据库、电子邮件和文件系统、文本和图形、自定义业务对象, 比如SQL - Server、Access、Orac le 数据库, exce l、word文档等。[2]

2.2 ADO 技术

ADO （ActiveX Data Objects）是一个用于存取数据源的COM组件。它是Microsoft新数据库访问技术，是建立在OLE DB之上的高层数据库访问技术。ADO易于使用、高速度和较低的内存占有率的优点使得编程效率更高。

ADO常用的组件对象有：ADODB.Connection和ADODB.Recordset。通过ADO 组件对象访问数据库，基本操作流程是：用Connection对象连接数据库，利用建立好的连接通过Connection、Command对象执行SQL命令，或利用Recordset

对象取得结果记录集进行查询、处理。

2.3 iFIX历史数据库

在iFIX安装时，iFIX安装程序会自动在工作站上建立两个系统数据源“FIX Dynamics Historical Data”和“FIX Dynamics Real Time Data”。“FIX Dynamics Real Time Data”数据源连接的是iFIX实时数据库;“FIX Dynamics Historical Data”数据源连接的是iFIX历史数据库。

实时数据库和历史数据库都可通过ODBC进行访问。

3. 历史报表软件的设计与实现

3.1 报表功能介绍

本报表可实现与iFIX工程应用软件的无缝连接，满足查询iFIX历史数据并以报表形式显示。如图1所示

1）可以选择不同方式产生的报表，用户可选择诸如“冷却系统报表”“客户资料报表”“货物状态日报表”“库位状态日报表”等多种方式报表，并可根据发展需要和各用户之间的不同特点而随时变化

2）查询变量时，按照日期查询，用户只需设置要查询的变量，输入“起始时间”、“结束时间”、“时间间隔”即可进行查询。

3）查询结果可导出，打印，对数据进行维护和修正

4）添加了权限管理，不同用户所能使用的功能依权限的高低而不同。图10所示

图10

图1

3.2设计过程及功能实现

在VB中, 使用ADO访问数据库主要有两种方式, 一种是使用ADO Data控件, 通过对控件的绑定来访问数据库中数据, 即非编程访问方式; 另一种是使

用ADO对象模型, 通过定义对象和编写代码来实现对数据的访问, 即编程访问

方式。本次报表功能实现主要利用ADO对象模型，使用ADO组件对象通过“FIX Dynamics Historical Data”数据源查询iFIX历史数据库和将查询的结果显示出来。[3]

1) 新建IFIX工程

在WINDOWS开始/运行中输入BackupRestore.exe /FactoryDefault，按步骤提示新建工程，如果使用系统默认工程，即安装软件时的工程，运行报表程序时，将出现错误，NO HISTORICAL DATA FOUND，刚开始误以为需要配置ODBC数据源，在这里耗费了许多时间，后来无意中在其他工程中发现可以实现这个功能，经过对文献资料的阅读，确定了读取历史数据时需要使程序在新建工程中。

2) 定义所需报表变量集

Ⅰ.在过程数据库中定义变量，建立相应的变量值。如G1.G2等，这部分变

量是在上位机中将用到的变量名，具体可参照IFIX电子书。

Ⅱ.在历史定义中选择所需记录的历史数据。选定节点的一组标签名，用来

标识含趋势分析所需过程数据的数据库块。最多可以定义255个采集组，每个采集组中包含80个不同的标签。这些标签是用户所需要记录的重要数据的数据名。在这里我们可以定义产生一个子文件的时间和要写入文件的数据的类型和大小。如图

图2

如需选用多个节点，可在SCU配置中，本地启动项选择“启动本地节点别

名”。如图3所示

图3

Ⅲ启动后台历史数据库数据采集，在进程中查看是否启动。

在SCU\配置\任务配置中，选择HTC ，如图4所示

图4

选择HTC完成后，可通过重启软件或者任务控制中HTC管理项启动，如图5所示

图5

小结：通过以上操作，我们可以看到在IFIX的HTRDATA文件夹下生成一个以你所定义的节点名为名称的文件夹，里面将产生在一段时间里用户所定义的标签所产生的数据，如图6所示

图6

FIX文件夹中的文件为*.H24或*.H08或*.H04，*代表历史数据库所定义的标签在各时间段所产生的数据，报表中要读取的数据就是从这些标签所记录的数据生成的文件中读取的。如图7所示

图7

3）在EXCEL中制作模板，

按照实际工程所需要记录的数据，如时间，数值，标签名等在excel中作出适合的表格。在设计模板的过程中，我们可以充分利用EXCEL自带的强大的函数功能，这样可以简化程序，将所需的数据进行更全面和准确的统计和分析，以求更加满足用户的需求。如图8所示

图8

将模板另存为网页htm格式，保存在当前目录的PIC文件夹下，以htm后缀可以保证操作和查看人员只能阅读而不能对里面的数据进行修改，以防止现场误操作。如图9所示

图9

4）在IFIX中新建画面及布置画面

配置软件开发环境，添加ActiveX控件及引用ADO对象库

Ⅰ在画面中选择ComboBox控件，DPTicker控件，WebBrower控件，Timer控件和菜单编辑控件PopupMenu控件等各项需要的控件。如果部分控件在IFIX中无法找到，可在VB中查询该控件名称，一般这些控件在C:\WINDOWS\system32中可以找到。

Ⅱ部分控件的命名和使用

在程序中将DTPiker控件命名为DTPstart和DTPend，配置如图所示

将ComboBox分别命名为ComboBox5，ComboBox6等，将WebBrower命名为WebBrower1，将Timer命名为aaa和ddd。

①在使用ADO对象之前，必须先将对象库引入当前工程中。使用VB集成开发环

境“工程”菜单中的“引用”对话框，将其中的“Microsoft ActiveX Data Objects 2.6 Library”和“IE Popup Menu”选中即可。下图为基本的引用，具体工程中可根据需要添加引用。

②

②对画面进行优化和布置。

用户可将各控件以自己的方式进行排列，美化画面，也可将相似的控件成组，方便管理画面。

5）.使用外部数据库

如果需要读取外部数据如ACCESS数据库，可以建立一个*.mdb文件，并通过程序调用。

3.3.IFIX历史报表流程图

本次所使用的报表是基于ADO的IFIX历史数据报表，采用Mircrosoft新数据库访问技术，这是建立在OLEDB之上的高层数据访问。运用模块化的方式，采集“智能仓储系统”和“冷却系统”所产生的数据，如“智能仓储系统”中库位的状态位的变化和出库量，入库量的统计，对“冷却系统”中的水压，温度等变化值进行了实时的监控和有效管理，同时可通过对不同信号的读取：Ⅰ.射频卡信号的读取，连接ACCESS数据库，对其进行访问，了解客户的资料和产品的要求，智能实现对货物进行出入库的控制。Ⅱ对货物入库的信号的读取，访问FIX历史数据库，在EXCEL中显示历史数据

3.4程序设计思路：

本次所制作的报表使用一张共用的EXCEl工作簿，在这张工作簿可以添加所需的工作表如sheet1代表仓库库位状态日报表，sheet2代表仓库货物日报表，sheet3代表仓库货物月报表等等，使用这种方法能做到对报表的有效管理，只需在同一张工作簿中就可添加实际工程中所需要的各种报表，在面对比较庞大的系统的数据记录尤其显出了它的优越性。同时我们只需使用少量的常用控件就可实现对时间，报表类型的选择，我们还提供报表的打印，删除，导出等一系列的辅助功能，在开发新项目时具有较强的移植性。下面我们就如何实现该报表功能进行详细的介绍。

1）初始化和定义变量

定义报表系统中所需的各种变量，本次程序使用较多的子程序，我们定义了全局变量，实现对各个子程序的联系和控制。

'定义全局变量

Public X As Integer Public ExcelApp As excel.Application Public t As Integer Public ExcelBook As excel.Workbook Public r As Integer Public ExcelSheet As excel.Worksheet Public i As Integer Public rsADO As ADODB.Recordset Public j As Integer Public cnADO As ADODB.Connection Public m As Integer Public Sql As String

‘对其进行初始化，在Combobox控件中添加各种项目和各种相应的执行动作。Private Sub CFixPicture_Activated() ‘在combobox中添加各项目

ComboBox5.AddItem "货物情况日报表"

ComboBox5.AddItem "货物情况月报表"

ComboBox6.AddItem "客户资料报表"

………..

End Sub

选择combobox中项目时对应的执行动作

Private Sub Combobox5_change()

If ComboBox6.Text <> "" Then

ComboBox6.Text = ""

End If

If ComboBox5.Text = "库位状态日报表" Then

X = 1

Call CommandButton1_Click

ElseIf ComboBox5.Text = "货物情况日报表" Then

X = 2

Call Choice

Call CommandButton1_Click

……………..

End sub

2）初始化时间和下拉菜单

使运行状态下结束时间总是为当前系统时间，开始时间总是退后一个小时，方便得到最新的数据。

Private Sub CFixPicture_Initialize()

'初始化时间

Me.DTPstart = DateAdd("h", -1, Now)

Me.DTPend = Now

'初始化下拉菜单

IEPOP1.AddItem "&打开", 1

IEPOP1.AddItem "&关闭", 2

IEPOP1.AddItem "&保存", 3

……………

End Sub

3）主程序的设计

Ⅰ向该窗体加入日期时间控件DTPicker和浏览器控件WebBrower。

Ⅱ选择各报表类型，软件将按照指定的已选择的查询变量进行数据查询。Private Sub CommandButton1_Click()

On Error GoTo exect ‘发生错误跳转，执行相应的动作。

Ⅲ对时间日期控件转换成格式化字符串。

'处理开始时间StartDate = Format(Me.DTPstart, "yyyy-MM-dd HH:mm:ss") '处理结束时间DtmMonth = DateAdd("m", 1, Format(Me.DTPstart, "yyyy-mm") & "-01")

DtmMonth = Format(Me.DTPend, "yyyy-MM-dd HH:mm:ss")

'设置时间间隔strInterVal = Format(Me.DTPinterval1.Value, "HH:mm:ss") '查询语句

If X = 6 Then ‘表示当X=6时从THISNODE读取其中符合时间限制的VALUE,DATETIME,TAG 。

Sql = "SELECT VALUE,DATETIME,TAG FROM THISNODE" & _

" WHERE (DATETIME>={ts '" & StartDate & "'} AND" & _

" DATETIME<={ts '" & DtmMonth & "'})" & _

" AND InterVal='" + strInterVal + "'"

End If

Ⅳ '连接并读取数据库[8]

Set cnADO = New ADODB.Connection ‘创建新的Connection对象赋值给该变量Set rsADO = New ADODB.Recordset ‘创建新的记录

集.Recordset对象赋值给该变量

If X = 7 Then ‘指定连接字符串，将access数据库建立好后可以放置在当前工程的APP目录下，方便管理，这里使用共享数据库

SqlString1 = "Select *"

SqlString2 = " From 客户信息 "

SqlString3 = " Where 公司ID=" & "'" & Goal & "' and 卡片属性='提货' "

SqlString4 = "or 编号=" & "'" & Goal & "'"

Sql = SqlString1 & SqlString2 & SqlString3 & SqlString4 cnADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\GE25\SharedDocs\公司信息.mdb;Persist"

Else

cnADO.ConnectionString = "Provider = Microsoft OLE DB Provider for ODBC Drivers;" & _

"DSN=FIX Dynamics Historical Data;UID=;PWD=;"

End If

cnADO.Open ‘使用Open 方法打开连接

rsADO.CursorLocation = adUseClient

rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1

Ⅴ‘判断有无数据，当rsADO.RecordCount即要查询的数据对应的行数<=0时跳出对话框。

If rsADO.RecordCount <= 0 Then

MsgBox "该时间范围内无数据"

Exit Sub

End If

Ⅵ 'Excel报表制作，创建符合需求的Excel模板。[4]

‘X代表同一张工作簿中不同的工作表，如X=1代表sheet1，X=2代表sheet2。。。Set ExcelApp = CreateObject("Excel.application") ‘创建新的Excel 进程

Set ExcelBook = ExcelApp.Workbooks.Open(System.ProjectPath & "\app\报表.htm")

Set ExcelSheet = ExcelBook.Worksheets(X)

ExcelApp.Selection.ClearContents

ExcelBook.Worksheets(X).Select

rsADO.MoveFirst

Ⅶ '不同报表中选择不同数据处理方式

Select Case X

Case 1

Call DO1

。。。。。。。

End Select

’保存关闭Excel进程

ExcelBook.Save

ExcelBook.Close

'将处理后的报表在浏览器中显示出来

With Me.WebBrowser1

.Navigate System.ProjectPath & " \app\报表.htm"

.AddressBar = False

End With

释放变量

Set ExcelApp = Nothing

Set ExcelBook = Nothing

Set ExcelSheet = Nothing

Set cnADO = Nothing

Set rsADO = Nothing

Q = 1

ThisWorkbook.Close savechanges:=False

exect: ‘发生错误跳转位置。

If Q <> 1 Then

ExcelApp.Quit

MsgBox CStr(Err.Number) + Err.Description

End If

Set cnADO = Nothing

Set rsADO = Nothing

Set ExcelApp = Nothing

Set ExcelBook = Nothing

Set ExcelSheet = Nothing

End Sub

4）子程序

在报表使用过程中，子程序的功能为处理在Excel显示出来的数据和读取各类数据库中的数据，模块化的方式，方便不同的用户根据实际需要进行调整，在保证主程序的同时，只需分块修改子程序，就可达到相应的功能。

Ⅰ '选择库位状态日报表时的数据处理方式

Sub DO1()

Dim rr =0 As Integer

Dim n=0 As Integer

Dim m=1 As Integer

For i = 5 To rsADO.RecordCount + 54 ‘rsADO.RecordCount 为每次调用的数据的的总个数

If m >= 0 And m <= 6 Then

Do While i = Int((rsADO.RecordCount) * (m) / 18) + 5 ‘将数据平均分成18份，写入18个库位对应的表格中

n = n + 3 ‘一个库位写完，换3行，再次写入

rr = rr + rsADO.RecordCount / 18

m = m + 1

If m = 7 Then Exit Do

Loop

If m = 7 Then

i = i + rsADO.RecordCount / 18 + 4

n = n - 18

End If

。。。。。。。。。

End If

With ExcelSheet ‘将数据写入Excel中

Range(Chr(Asc("b") + (n)) & (i - rr + 1)) = rsADO!Datetime & "" If rsADO!Value & "" = "" Then

Range(Chr(Asc("b") + (n + 1)) & (i - rr + 1)) = "无数据"

Else

Range(Chr(Asc("b") + (n + 1)) & (i - rr + 1)) = rsADO!Value & "" End If

Range(Chr(Asc("b") + (n + 2)) & (i - rr + 1)) = rsADO!Tag & "" End With

rsADO.MoveNext

Next i

End Sub

Ⅱ '选择客户报表时的数据处理方式，从ACCESS数据库中读取相应的数据。Sub DO5()

For j = 1 To rsADO.RecordCount

ExcelSheet.Cells((j + 5), 1) = rsADO.Fields(0).Value & "" ExcelSheet.Cells((j + 5), 2) = rsADO.Fields(1).Value & "" ExcelSheet.Cells((j + 5), 3) = rsADO.Fields(2).Value & "" ExcelSheet.Cells((j + 5), 4) = rsADO.Fields(3).Value & "" ExcelSheet.Cells((j + 5), 9) = rsADO.Fields(4).Value & ""

rsADO.MoveNext

Next j

End Sub

Ⅲ '打印报表子程序

Sub AA()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Dim bPrinted As Boolean

Msg = "您真的要打印此报表吗 ?" '定义消息文本

Style = vbYesNo + vbDefaultButton2 ' 定义按钮

Title = "打印窗口" ' 定义标题文本

Help = "DEMO.HLP" ' 定义帮助文件

Ctxt = 1200 ' 定义帮助主题

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' 用户按下“是”

bPrinted = Application.ActiveDocument.PrintOut ' 完成打印操作ExcelApp.ActiveSheet.PageSetup.Orientation = xlPortrait

ExcelApp.ActiveSheet.PageSetup.PageSize = xlPaperA4

ExcelApp.ActiveSheet.PrintOut

Else

End ' 用户按下“否”,返回原报表

End If

End Sub

Ⅳ '调用打印机的声明和子函数

Private Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" _

(pPrintdlg As PrintDlg) As Long

Private Type PrintDlg

lStructSize As Long

hwndOwner As Long

hDevMode As Long

hDevNames As Long

hdc As Long

flags As Long

nFromPage As Integer

nToPage As Integer

nMinPage As Integer

nMaxPage As Integer

nCopies As Integer

hInstance As Long

lCustData As Long

lpfnPrintHook As Long

lpfnSetupHook As Long

lpPrintTemplateName As String

lpSetupTemplateName As String

hPrintTemplate As Long

hSetupTemplate As Long

End Type

‘其他子程序可以上述方式依次添加，这里不再赘述。

3.5具体调试实现过程：

比如我们在客户资料报表这个对话框中选择“库位状态日报表”，此时X=1，将从工作簿中选择出代表“库位状态日报表”的sheet1进行数据处理和显示，同时可以在时间选择的对话框选择我们所需要的时间段的数据，选择开始时间、结束时间和显示在EXCEL表格中的数据的时间间隔，选择完成后，系统将跳过其他不满足条件的程序，运行cnADO.ConnectionString = "Provider = Microsoft OLE DB Provider for ODBC Drivers;" &” DSN=FIX Dynamics Historical Data;UID=;PWD=;"，从历史数据库中读取满足上述条件的数据，此时，将调用子程序DO1，对读取出来的数据经过处理，按照EXCEL模板的要求依次填入表格中，最后显示在sheet1中。自此，我们完成了一次对报表的操作，如果需要查看客户资料，也将执行与上述相似的动作，调用子程序DO5，区别只是数据读取的位置不同，客户资料这一项数据是从ACCESS数据库中直接读取，另外，我们还提供了对报表的打印，删除，导出等辅助功能，当然这些功能需只能由通过权限认证的相应人员进行操作。

4.总结：

此次项目采用ADO技术为核心，以GE-IFIX为载体，对报表的基本功能进行开发。该报表具有很强的移植性，完成了目前工程应用中对报表功能的主体需求。在IFIX报表程序的开发中，遇到了许多未知的问题，最后都一一的突破了。但是，此报表还存在一些缺点，比如在选择报表的过程中，由于使用的的是同一个Excel进程，在进行快速，多次的操作时会出现错误，这时就需要使用任务管理器关闭Excel进程后才能继续使用报表。在今后的修正过程中，添加判断关闭Excel进程的程序，使报表能满足用户各种类型报表的查看。在实际操作过程中，将遇到更多的问题，不过我相信通过努力，可以将遇到的问题解决，在这个解决问题的过程中，也是我们成长进步的过程。

5.感谢语：

感谢福建工程学院GE FANUC 实验室的大力支持。

6.参考文献资料:

[1] IFIX报表备忘录

https://www.360docs.net/doc/3312195564.html,/lin-feng23/blog/static/288911272010323111279 71/

[2] 耿小芬《VB中的ADO数据库访问技术》晋城职业技术学院, 山西晋

城048000

[3] GE -Fanuc公司.IFIX电子书.水晶报表

[4]韩小良编著《.Excel VBA整合数据库应用》电子工业出版社

[5] [美] Guy Hart-Davis 《VBA从入门到精通》

[6]李林, 申时凯, 王卫星等. Visual Basic程序设计[M ]. 北京: 中国地质

出版社, 2007

[7]成怀丹徐青钟希钧《基于ADO技术的Cimplicity_HMI报表系统开发》国

网电力科学研究院/南京南瑞集团公司江苏省南京市 2I0003