通過(guò)VBS腳本在ListView控件中顯示W(wǎng)inCC的變量記錄

通過(guò)VBS腳本在ListView控件中顯示W(wǎng)inCC的變量記錄在實(shí)際應(yīng)用中，客戶(hù)對(duì)于WinCC變量記錄的顯示需求各式各樣，比如在Excel或者Word中顯示變量記錄，以特定的表格顯示歷史數(shù)據(jù)等等。當(dāng)WinCC集成的在線表格控件不能滿意客戶(hù)需要時(shí)，就需要通過(guò)自定義的方式來(lái)顯示變量歸檔。主要分為兩部分：

（1）從WinCC中讀取歸檔數(shù)據(jù)

（2）將歸檔數(shù)據(jù)以特定的格式顯示出來(lái)

本文檔介紹從WinCC讀取歸檔數(shù)據(jù)的通用方法，并以ListView為例，介紹如何顯示歸檔數(shù)據(jù)。對(duì)于其它控件，客戶(hù)也可以參考本文檔的腳本和編程思路。1．測(cè)試環(huán)境

本文檔基于WinCCV7.0ASIA，并通過(guò)MSWindowsCommonControls6.0ListView控件來(lái)顯示讀取的歸檔數(shù)據(jù)。需要的授權(quán)如下：授權(quán)名稱(chēng)個(gè)數(shù)備注WinCCRCV7.01WinCC連通性軟件包V7.01訂貨號(hào)為：6AV6371-1DR07-0AX0，授權(quán)通過(guò)WinCCOLEDB訪問(wèn)過(guò)程值歸檔。表012．實(shí)現(xiàn)方式總體思路介紹

本文檔通過(guò)調(diào)用WinCCOLEDB數(shù)據(jù)庫(kù)接口驅(qū)動(dòng)（需要WinCC連通性軟件包的授權(quán)）來(lái)訪問(wèn)WinCC的變量歸檔，并在微軟的ListView控件中顯示歸檔數(shù)據(jù)。程序結(jié)構(gòu)如下所示：

圖1

其中，自定義函數(shù)的說(shuō)明如下表所示：函數(shù)名稱(chēng)功能WinCCDataSourceAccess（connObj,pSQL）建立到數(shù)據(jù)庫(kù)的連接。參數(shù)connObj為連接對(duì)象(ADODB.Connection)，參數(shù)pSQL為要執(zhí)行的SQL查詢(xún)語(yǔ)句WinCCDataSourceClose（pRecordset,connObj）斷開(kāi)與數(shù)據(jù)庫(kù)的連接，釋放資源。參數(shù)pRecordset為ADODO.RecordSet對(duì)象，參數(shù)connObj為連接對(duì)象(ADODB.Connection)AddListViewHeaderColumn（pRecordset,pListView）添加ListView的列名。參數(shù)pRecordset為ADODO.RecordSet對(duì)象，參數(shù)pListView為L(zhǎng)istView對(duì)象FillListView(pRecordset,pListView)參數(shù)pRecordset為ADODO.RecordSet對(duì)象，參數(shù)pListView為L(zhǎng)istView對(duì)象。表02詳細(xì)代碼見(jiàn)附件。3．詳細(xì)實(shí)現(xiàn)方法和代碼3．1創(chuàng)建到歸檔數(shù)據(jù)庫(kù)的連接由于WinCC的變量歸檔為壓縮數(shù)據(jù)，所以必需通過(guò)WinCCOLEDB來(lái)讀取歸檔數(shù)據(jù)。對(duì)于已經(jīng)安裝WinCC的計(jì)算機(jī)，不需要安裝WinCC連通性軟件包。對(duì)于未安裝WinCC的客戶(hù)端，必需安裝WinCC連通性軟件包。該軟件包含在WinCCV7.0的安裝光盤(pán)中。

數(shù)據(jù)庫(kù)連接的腳本如下所示：

'定義數(shù)據(jù)庫(kù)連接變量

DimconnSetconn=CreateObject("ADODB.Connection")'定義數(shù)據(jù)庫(kù)查詢(xún)腳本(可以依據(jù)需要自定義修改)

DimsSQLsSQL="Tag:R,'ProcessValueArchive\Tag1','0000-00-0000:01:00.000','0000-00-0000:00:00.000'"'通過(guò)調(diào)用自定義的數(shù)據(jù)庫(kù)連接函數(shù)，建立與數(shù)據(jù)庫(kù)的連接

DimoRsSetoRs=WinCCDataSourceAccess(conn,sSQL)其中，自定義的數(shù)據(jù)庫(kù)連接函數(shù)WinCCDataSourceAccess（connObj,pSQL），參數(shù)connObj為連接對(duì)象(ADODB.Connection)，參數(shù)pSQL為要執(zhí)行的SQL查詢(xún)語(yǔ)句，詳細(xì)代碼如下所示：

FunctionWinCCDataSourceAccess(connObj,pSQL)

'建立到數(shù)據(jù)庫(kù)的連接

OnErrorResumeNext

'讀取本地的WinCC運(yùn)行數(shù)據(jù)庫(kù)名稱(chēng)

DimDatasourceNameRT,DataConnectionName

SetDatasourceNameRT=hmiRuntime.Tags("@DatasourceNameRT")

DatasourceNameRT.Read'定義數(shù)據(jù)庫(kù)連接字符串

DimsPro,sDsn,sSersPro="Provider=WinCCOLEDBProvider.1;"sDsn="Catalog="DatasourceNameRT.Value";"sSer="DataSource=.\WinCC"DataConnectionName=sPro+sDsn+sSer

'定義查詢(xún)語(yǔ)句字符串

DimsSQL

sSQL=pSQL'建立連接

DimoRs,oCom,conn

Setconn=CreateObject("ADODB.Connection")

Setconn=connObj

conn.ConnectionString=DataConnectionName

conn.CursorLocation=3

conn.Open

'創(chuàng)建查詢(xún)的命令文本

SetoRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Command")oCom.CommandType=1SetoCom.ActiveConnection=connoCom.CommandText=sSQL

'執(zhí)行查詢(xún)

SetoRs=oCom.Execute'返回結(jié)果

SetWinCCDataSourceAccess=oRsIferr.number0ThenMsgBox"errorCode"Err.Number"Source:"Err.Source"errordescription"Err.Description

err.clearEndIfOnErrorGoto0EndFunction自定義函數(shù)的創(chuàng)建過(guò)程為:在WinCC項(xiàng)目管理器中右鍵點(diǎn)擊全局腳本打開(kāi)VBS全局腳本編輯器項(xiàng)目函數(shù)新建函數(shù)。詳細(xì)如下圖所示：

圖2

3．2注冊(cè)MicrosoftListViewControl6.0控件

打開(kāi)WinCC圖形編輯器。在右側(cè)的對(duì)象選項(xiàng)板中單擊“控件”，選中“ActiveXControl”,點(diǎn)擊右鍵，選擇“添加移除”。在彈出菜單中，選擇“MicrosoftListViewControl6.0”,點(diǎn)擊“OK”確認(rèn)。

圖3

之后，將“MicrosoftListViewControl6.0”拖動(dòng)到畫(huà)面編輯器中，并將對(duì)象名稱(chēng)設(shè)置為Control1。

留意：在腳本中，當(dāng)定義ListView對(duì)象時(shí)用到對(duì)象名稱(chēng)Control1。詳情請(qǐng)參考圖1的步驟2。3．3添加ListView控件的列名

在ListView中添加列名，步驟如圖1的步驟3。自定義函數(shù)AddListViewHeaderColumn（pRecordset,pListView）的詳細(xì)代碼如下所示：

FunctionAddColumnHeader(pRecordset,pListView)

'添加ListView列名'用于錯(cuò)誤捕獲和處理

OnErrorResumeNextDimoRs,columnCountSetoRs=CreateObject("ADODB.Recordset")SetoRs=pRecordset'獵取數(shù)據(jù)庫(kù)中的列數(shù)

columnCount=oRs.Fields.Count'定義操作的ListView對(duì)象

DimListViewTSetListViewT=pListView

'清空ListView對(duì)象的列數(shù)

ListViewT.ColumnHeaders.Clear'用查詢(xún)的數(shù)據(jù)庫(kù)表格列名來(lái)為L(zhǎng)istView添加列名(*2)

DimAddColumnIndexForAddColumnIndex=0TocolumnCount-1ListViewT.ColumnHeaders.Add,,CStr(oRs.Fields(AddColumnIndex).Name)Next

'發(fā)生錯(cuò)誤，提示消息框

Iferr.number0ThenMsgBox"AddColumnHeader函數(shù)報(bào)錯(cuò)，Source:"Err.SourcevbCr"Errordescription:"Err.Descriptionerr.clearEndIfOnErrorGoto0EndFunction3．4填充ListView控件

在ListView中添加列名，步驟如圖1的步驟4。自定義函數(shù)FillListView(pRecordset,pListView)的詳細(xì)代碼如下所示：

FunctionFillListView(pRecordset,pListView)

'用數(shù)據(jù)庫(kù)查詢(xún)的值填充ListView

OnErrorResumeNext'獵取查詢(xún)記錄條數(shù)

DimrecordsCount,oRs

SetoRs=CreateObject("ADODB.Recordset")

SetoRs=pRecordset

recordsCount=oRs.RecordCount'定位到第一條記錄

If(recordsCount0)Then

oRs.MoveFirst'定義最大的查詢(xún)條目(*3)

DimmaxLine,nmaxLine=10

n=0

'填充數(shù)據(jù)值列

DoWhile(NotoRs.EOFAndnmaxLine)n=n+1DimoItem,ListViewT

SetListViewT=pListView

SetoItem=ListViewT.ListItems.Add()oItem.text=oRs.Fields(0).ValueoItem.SubItems(1)=oRs.Fields(1).ValueoItem.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.MoveNextLoop3．5關(guān)閉到歸檔數(shù)據(jù)庫(kù)的連接

關(guān)閉與數(shù)據(jù)庫(kù)的連接并釋放資源，步驟如圖1的步驟5。自定義函數(shù)WinCCDataSourceClose（pRecordset,connObj）的詳細(xì)代碼如下圖所示：

FunctionWinCCDataSourceClose(pRecordset,connObj)

'關(guān)閉數(shù)據(jù)庫(kù)連接，釋放資源

'獵取連接和查詢(xún)對(duì)象

DimoRs,connSetoRs=pRecordset

Setconn=connObjoRs.CloseSetoRs=Nothingconn.CloseSetconn=NothingEndFunction3．6運(yùn)行結(jié)果

本文檔介紹的腳本，其運(yùn)行結(jié)果如下圖所示：

圖4

3．7更改代碼以滿意更廣泛的需求

對(duì)于不同客戶(hù)的定制化需求，可以通過(guò)修改少量代碼實(shí)現(xiàn)。

（1）不同的查詢(xún)需求，修改sSQL變量的值。

'修轉(zhuǎn)變量sSQL的值

DimsSQL

sSQL="Tag:R,'ProcessValueArchive\Tag1','0000-00-0000:01:00.000','0000-00-0000:00:00.000'"比如，假如需要?jiǎng)討B(tài)制定查詢(xún)時(shí)間，可以在畫(huà)面中輸入查詢(xún)?nèi)掌?，然后通過(guò)HMIRuntime.Tags(“變量名”)來(lái)獲得查詢(xún)條件，再賦值給sSQL。

（2）ListView需要使用不同的列名。

修改函數(shù)AddListViewHeaderColumn中的如下內(nèi)容：

‘用查詢(xún)的數(shù)據(jù)庫(kù)表格列名來(lái)為L(zhǎng)istView添加列名(*2)

DimAddColumnIndexForAddColumnIndex=0TocolumnCount-1ListViewT.ColumnHeaders.Add,,CStr(oRs.Fields(AddColumnIndex).Name)Next（3）ListView需要填充不一樣的行數(shù)和內(nèi)容。

修改函數(shù)FillList