通过VBS脚本在ListView控件中显示WinCC的变量记录

n

在实际应用中,客户对于WinCC变量记录的显示需求各式各样,比如在Excel或者Word中显示变量记录,以特定的表格显示历史数据等等。当WinCC集成的在线表格控件不能满足客户需要时,就需要通过自定义的方式来显示变量归档。主要分为两部分:
(1)从WinCC中读取归档数据
(2)将归档数据以特定的格式显示出来
本文档介绍从WinCC读取归档数据的通用方法,并以ListView为例,介绍如何显示归档数据。对于其它控件,客户也可以参考本文档的脚本和编程思路。n

1.测试环境
本文档基于WinCC V7.0 ASIA,并通过MS Windows Common Controls 6.0 ListView 控件来显示读取的归档数据。需要的授权如下:n

授权名称 个数 备注
WinCC RC V7.0 1
WinCC连通性软件包V7.0 1 订货号为:6AV6371-1DR07-0AX0,授权通过WinCC OLE DB访问过程值归档。

表 01n

关于WinCC连通性软件包的使用,请参考下面的帮助文档:37436159

2.实现方式总体思路介绍
本文档通过调用WinCC OLE DB数据库接口驱动(需要WinCC连通性软件包的授权)来访问WinCC的变量归档,并在微软的ListView控件中显示归档数据。程序结构如下所示:n

通过VBS脚本在ListView控件中显示WinCC的变量记录
图1n

其中,自定义函数的说明如下表所示:n

函数名称 功能
WinCCDataSourceAccess(coObj, pSQL) 建立到数据库的连接。参数coObj为连接对象(ADODB.Coection),参数pSQL为要执行的SQL查询语句
WinCCDataSourceClose(pRecordset, coObj) 断开与数据库的连接,释放资源。参数pRecordset为ADODO.RecordSet对象,参数coObj为连接对象(ADODB.Coection)
AddListViewHeaderColumn(pRecordset, pListView) 添加ListView的列名。参数pRecordset为ADODO.RecordSet对象,参数pListView为ListView对象
FillListView (pRecordset, pListView) 参数pRecordset为ADODO.RecordSet对象,参数pListView为ListView对象。

表 02n

具体代码见附件。

3.具体实现方法和代码

3.1 创建到归档数据库的连接n

由于WinCC的变量归档为压缩数据,所以必须通过WinCC OLE DB来读取归档数据。对于已经安装WinCC的计算机,不需要安装WinCC连通性软件包。对于未安装WinCC的客户端,必须安装WinCC连通性软件包。该软件包含在WinCC V7.0的安装光盘中。
数据库连接的脚本如下所示:
'定义数据库连接变量
Dim co

Set co = CreateObject("ADODB.Coection")n

'定义数据库查询脚本(可以根据需要自定义修改)
Dim sSQLn

sSQL="Tag:R,'ProcessValueArchiveTag1','0000-00-00 00:01:00.000','0000-00-00 00:00:00.000'"n

'通过调用自定义的数据库连接函数,建立与数据库的连接
Dim oRsn

Set oRs= WinCCDataSourceAccess(co,sSQL)n

其中,自定义的数据库连接函数WinCCDataSourceAccess(coObj,pSQL),参数coObj为连接对象(ADODB.Coection),参数pSQL为要执行的SQL查询语句,具体代码如下所示:
Function WinCCDataSourceAccess(coObj,pSQL)
'建立到数据库的连接
On Error Resume Next
'读取本地的WinCC运行数据库名称
Dim DatasourceNameRT,DataCoectionName
Set DatasourceNameRT = HMIRuntime.Tags("@DatasourceNameRT")
DatasourceNameRT.Readn

'定义数据库连接字符串
Dim sPro, sDsn,sSern

sPro = "Provider=WinCCOLEDBProvider.1;"n

sDsn = "Catalog=" & DatasourceNameRT.Value & ";"n

sSer = "Data Source=.WinCC"n

DataCoectionName = sPro + sDsn + sSer
' 定义查询语句字符串
Dim sSQL
sSQL=pSQLn

'建立连接
Dim oRs,oCom,co
Set co = CreateObject("ADODB.Coection")
Set co=coObj
co.CoectionString = DataCoectionName
co.CursorLocation = 3
co.Open
' 创建查询的命令文本
Set oRs = CreateObject("ADODB.Recordset")n

Set oCom = CreateObject("ADODB.Command")n

oCom.CommandType = 1n

Set oCom.ActiveCoection = co

oCom.CommandText=sSQL
'执行查询
Set oRs = oCom.Executen

'返回结果
Set WinCCDataSourceAccess=oRsn

If err.number <> 0 The

MsgBox "error Code" & Err.Number & "Source:" & Err.Source & "error description" & Err.Description
err.clearn

End Ifn

On Error Go to 0n

End Functio

自定义函数的创建过程为:在WinCC项目管理器中右键点击全局脚本打开VBS全局脚本编辑器项目函数新建函数。具体如下图所示:n

通过VBS脚本在ListView控件中显示WinCC的变量记录
图2n

3.2 注册Microsoft ListView Control 6.0控件n

打开WinCC图形编辑器。在右侧的对象选项板中单击“控件”,选中“ActiveX Control”,点击右键,选择“添加移除”。在弹出菜单中,选择“Microsoft ListView Control 6.0”,点击“OK”确认。n

通过VBS脚本在ListView控件中显示WinCC的变量记录
图3n

之后,将“Microsoft ListView Control 6.0”拖动到画面编辑器中,并将对象名称设置为Control1。
注意:在脚本中,当定义ListView对象时用到对象名称Control1。详情请参考图1的步骤2。n

3.3 添加ListView 控件的列名
在ListView中添加列名,步骤如图1的步骤3。自定义函数AddListViewHeaderColumn(pRecordset, pListView)的具体代码如下所示:
Function AddColumnHeader(pRecordset, pListView)
'添加ListView列名n

'用于错误捕获和处理
On Error Resume Nextn

Dim oRs,columnCountn

Set oRs=CreateObject("ADODB.Recordset")n

Set oRs=pRecordsetn

'获取数据库中的列数
columnCount=oRs.Fields.Countn

'定义操作的ListView对象
Dim ListViewTn

Set ListViewT=pListView
'清空ListView对象的列数
ListViewT.ColumnHeaders.Clearn

'用查询的数据库表格列名来为ListView添加列名(*2)
Dim AddColumnIndexn

For AddColumnIndex=0 To columnCount-1n

ListViewT.ColumnHeaders.Add , , CStr(oRs.Fields(AddColumnIndex).Name)n

Next
'发生错误,提示消息框
If err.number <> 0 The

MsgBox "AddColumnHeader函数报错,Source:" & Err.Source & vbCr & "Error description:" & Err.Descriptio

err.clearn

End Ifn

On Error Goto 0n

End Functio

3.4 填充ListView 控件
在ListView中添加列名,步骤如图1的步骤4。自定义函数FillListView (pRecordset, pListView) 的具体代码如下所示:
Function FillListView(pRecordset,pListView)
'用数据库查询的值填充ListView
On Error Resume Nextn

'获取查询记录条数
Dim recordsCount,oRs
Set oRs=CreateObject("ADODB.Recordset")
Set oRs=pRecordset
recordsCount=oRs.RecordCountn

'定位到第一条记录
If (recordsCount > 0) Then
oRs.MoveFirstn

'定义最大的查询条目(*3)
Dim maxLine,

maxLine = 10
=0
'填充数据值列
Do While (Not oRs.EOF And n < maxLine)n

= n + 1n

Dim oItem,ListViewT
Set ListViewT=pListView
Set oItem = ListViewT.ListItems.Add()n

oItem.text = oRs.Fields(0).Valuen

oItem.SubItems(1) = oRs.Fields(1).Valuen

oItem.SubItems(2) = FormatNumber(oRs.Fields(2).Value, 4)n

oItem.SubItems(3) = Hex(oRs.Fields(3).Value)n

oItem.SubItems(4) = Hex(oRs.Fields(4).Value)n

oRs.MoveNextn

Loopn

3.5 关闭到归档数据库的连接
关闭与数据库的连接并释放资源,步骤如图1的步骤5。自定义函数WinCCDataSourceClose(pRecordset, coObj)的具体代码如下图所示:
Function WinCCDataSourceClose(pRecordset,coObj)
'关闭数据库连接,释放资源
'获取连接和查询对象
Dim oRs,co

Set oRs=pRecordset
Set co=coObjn

oRs.Closen

Set oRs = Nothingn

co.Closen

Set co = Nothingn

End Functio

3.6 运行结果
本文档介绍的脚本,其运行结果如下图所示:n

通过VBS脚本在ListView控件中显示WinCC的变量记录
图4n

3.7 更改代码以满足更广泛的需求
对于不同客户的定制化需求,可以通过修改少量代码实现。
(1) 不同的查询需求,修改sSQL变量的值。
'修改变量sSQL的值
Dim sSQLn

sSQL="Tag:R,'ProcessValueArchiveTag1','0000-00-00 00:01:00.000','0000-00-00 00:00:00.000'"n

比如,如果需要动态制定查询时间,可以在画面中输入查询日期,然后通过HMIRuntime.Tags(“变量名”)来获得查询条件,再赋值给sSQL。
(2) ListView需要使用不同的列名。
修改函数AddListViewHeaderColumn中的如下内容:
‘用查询的数据库表格列名来为ListView添加列名 (*2)
Dim AddColumnIndexn

For AddColumnIndex=0 To columnCount-1n

ListViewT.ColumnHeaders.Add , , CStr(oRs.Fields(AddColumnIndex).Name)n

Nextn

(3) ListView需要填充不一样的行数和内容。
修改函数FillListView中的如下内容:
Dim maxLine,

maxLine = 10 '改变此值,可以更改最大显示的条目数
=0
'修改填充内容,请修改下面Do While循环中的代码
Do While (Not oRs.EOF And n < maxLine)

= n + 1

Dim oItem,ListViewT
Set ListViewT=pListView
Set oItem = ListViewT.ListItems.Add()

oItem.text = oRs.Fields(0).Value

oItem.SubItems(1) = oRs.Fields(1).Value

oItem.SubItems(2) = FormatNumber(oRs.Fields(2).Value, 4)

oItem.SubItems(3) = Hex(oRs.Fields(3).Value)

oItem.SubItems(4) = Hex(oRs.Fields(4).Value)

oRs.MoveNext

Loop

本文档中提供的脚本尽量通用化,方便客户修改和复用。并加入了错误处理机制,保证脚本的正确运行,并提高了诊断的方便性。

声明:
本文所述的方法为WinCC的高级用法,提供的代码程序仅供用户参考,西门子公司不提供任何调试和热线支持。敬请谅解!

关键词
WinCC OLE DB、过程值归档、ListView、连通性软件包、VBS 脚本

附件下载: VB.zip (2 KB)

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc327220.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2020年11月5日 下午12:03
下一篇 2021年4月12日 上午12:00

相关推荐

发表回复

登录后才能评论