在實(shí)際應(yīng)用中，客戶對于WinCC變量記錄的顯示需求各式各樣，比如在Excel或者Word中顯示變量記錄，以特定的表格顯示歷史數(shù)據(jù)等等。當(dāng)WinCC集成的在線表格控件不能滿足客戶需要時，就需要通過自定義的方式來顯示變量歸檔。主要分為兩部分：
（1）從WinCC中讀取歸檔數(shù)據(jù)
（2）將歸檔數(shù)據(jù)以特定的格式顯示出來
本文檔介紹從WinCC讀取歸檔數(shù)據(jù)的通用方法，并以ListView為例，介紹如何顯示歸檔數(shù)據(jù)。對于其它控件，客戶也可以參考本文檔的腳本和編程思路。
1．測試環(huán)境
本文檔基于WinCCV7.0ASIA，并通過MSWindowsCommonControls6.0ListView控件來顯示讀取的歸檔數(shù)據(jù)。需要的授權(quán)如下：
表01
| 授權(quán)名稱 | 個數(shù) | 備注 |
| WinCC RC V7.0 | 1 | |
| WinCC連通性軟件包V7.0 | 1 | 訂貨號為：6AV6371-1DR07-0AX0，授權(quán)通過WinCC OLE DB訪問過程值歸檔。 |
2．實(shí)現(xiàn)方式總體思路介紹
本文檔通過調(diào)用WinCCOLEDB數(shù)據(jù)庫接口驅(qū)動（需要WinCC連通性軟件包的授權(quán)）來訪問WinCC的變量歸檔，并在微軟的ListView控件中顯示歸檔數(shù)據(jù)。程序結(jié)構(gòu)如下所示：
圖1
其中，自定義函數(shù)的說明如下表所示：
表02
| 函數(shù)名稱 | 功能 |
| WinCCDataSourceAccess（connObj, pSQL） | 建立到數(shù)據(jù)庫的連接。參數(shù)connObj為連接對象(ADODB.Connection)，參數(shù)pSQL為要執(zhí)行的SQL查詢語句 |
| WinCCDataSourceClose（pRecordset, connObj） | 斷開與數(shù)據(jù)庫的連接，釋放資源。參數(shù)pRecordset為ADODO.RecordSet對象，參數(shù)connObj為連接對象(ADODB.Connection) |
| AddListViewHeaderColumn（pRecordset, pListView） | 添加ListView的列名。參數(shù)pRecordset為ADODO.RecordSet對象，參數(shù)pListView為ListView對象 |
| FillListView (pRecordset, pListView) | 參數(shù)pRecordset為ADODO.RecordSet對象，參數(shù)pListView為ListView對象。 |
具體代碼見附件。
3．具體實(shí)現(xiàn)方法和代碼
3．1創(chuàng)建到歸檔數(shù)據(jù)庫的連接
由于WinCC的變量歸檔為壓縮數(shù)據(jù)，所以必須通過WinCCOLEDB來讀取歸檔數(shù)據(jù)。對于已經(jīng)安裝WinCC的計算機(jī)，不需要安裝WinCC連通性軟件包。對于未安裝WinCC的客戶端，必須安裝WinCC連通性軟件包。該軟件包含在WinCCV7.0的安裝光盤中。
數(shù)據(jù)庫連接的腳本如下所示：
'定義數(shù)據(jù)庫連接變量
Dimconn
Setconn=CreateObject("ADODB.Connection")
'定義數(shù)據(jù)庫查詢腳本(可以根據(jù)需要自定義修改)
DimsSQL
sSQL="Tag:R,'ProcessValueArchiveTag1','0000-00-0000:01:00.000','0000-00-0000:00:00.000'"
'通過調(diào)用自定義的數(shù)據(jù)庫連接函數(shù)，建立與數(shù)據(jù)庫的連接
DimoRs
SetoRs=WinCCDataSourceAccess(conn,sSQL)
其中，自定義的數(shù)據(jù)庫連接函數(shù)WinCCDataSourceAccess（connObj,pSQL），參數(shù)connObj為連接對象(ADODB.Connection)，參數(shù)pSQL為要執(zhí)行的SQL查詢語句，具體代碼如下所示：
FunctionWinCCDataSourceAccess(connObj,pSQL)
'建立到數(shù)據(jù)庫的連接
OnErrorResumeNext
'讀取本地的WinCC運(yùn)行數(shù)據(jù)庫名稱
DimDatasourceNameRT,DataConnectionName
SetDatasourceNameRT=HMIRuntime.Tags("@DatasourceNameRT")
DatasourceNameRT.Read
'定義數(shù)據(jù)庫連接字符串
DimsPro,sDsn,sSer
sPro="Provider=WinCCOLEDBProvider.1;"
sDsn="Catalog="&DatasourceNameRT.Value&";"
sSer="DataSource=.WinCC"
DataConnectionName=sPro+sDsn+sSer
'定義查詢語句字符串
DimsSQL
sSQL=pSQL
'建立連接
DimoRs,oCom,conn
Setconn=CreateObject("ADODB.Connection")
Setconn=connObj
conn.ConnectionString=DataConnectionName
conn.CursorLocation=3
conn.Open
'創(chuàng)建查詢的命令文本
SetoRs=CreateObject("ADODB.Recordset")
SetoCom=CreateObject("ADODB.Command")
oCom.CommandType=1
SetoCom.ActiveConnection=conn
oCom.CommandText=sSQL
'執(zhí)行查詢
SetoRs=oCom.Execute
'返回結(jié)果
SetWinCCDataSourceAccess=oRs
Iferr.number<>0Then
MsgBox"errorCode"&Err.Number&"Source:"&Err.Source&"errordescription"&Err.Description
err.clear
EndIf
OnErrorGoto0
EndFunction
自定義函數(shù)的創(chuàng)建過程為:在WinCC項(xiàng)目管理器中右鍵點(diǎn)擊全局腳本?打開VBS全局腳本編輯器?項(xiàng)目函數(shù)?新建函數(shù)。具體如下圖所示：
圖2
3．2注冊MicrosoftListViewControl6.0控件
打開WinCC圖形編輯器。在右側(cè)的對象選項(xiàng)板中單擊“控件”，選中“ActiveXControl”,點(diǎn)擊右鍵，選擇“添加移除”。在彈出菜單中，選擇“MicrosoftListViewControl6.0”,點(diǎn)擊“OK”確認(rèn)。
圖3
之后，將“MicrosoftListViewControl6.0”拖動到畫面編輯器中，并將對象名稱設(shè)置為Control1。
注意：在腳本中，當(dāng)定義ListView對象時用到對象名稱Control1。詳情請參考圖1的步驟2。
3．3添加ListView控件的列名
在ListView中添加列名，步驟如圖1的步驟3。自定義函數(shù)AddListViewHeaderColumn（pRecordset,pListView）的具體代碼如下所示：
FunctionAddColumnHeader(pRecordset,pListView)
'添加ListView列名
'用于錯誤捕獲和處理
OnErrorResumeNext
DimoRs,columnCount
SetoRs=CreateObject("ADODB.Recordset")
SetoRs=pRecordset
'獲取數(shù)據(jù)庫中的列數(shù)
columnCount=oRs.Fields.Count
'定義操作的ListView對象
DimListViewT
SetListViewT=pListView
'清空ListView對象的列數(shù)
ListViewT.ColumnHeaders.Clear
'用查詢的數(shù)據(jù)庫表格列名來為ListView添加列名(*2)
DimAddColumnIndex
ForAddColumnIndex=0TocolumnCount-1
ListViewT.ColumnHeaders.Add,,CStr(oRs.Fields(AddColumnIndex).Name)
Next
'發(fā)生錯誤，提示消息框
Iferr.number<>0Then
MsgBox"AddColumnHeader函數(shù)報錯，Source:"&Err.Source&vbCr&"Errordescription:"&Err.Description
err.clear
EndIf
OnErrorGoto0
EndFunction
3．4填充ListView控件
在ListView中添加列名，步驟如圖1的步驟4。自定義函數(shù)FillListView(pRecordset,pListView)的具體代碼如下所示：
FunctionFillListView(pRecordset,pListView)
'用數(shù)據(jù)庫查詢的值填充ListView
OnErrorResumeNext
'獲取查詢記錄條數(shù)
DimrecordsCount,oRs
SetoRs=CreateObject("ADODB.Recordset")
SetoRs=pRecordset
recordsCount=oRs.RecordCount
'定位到第一條記錄
If(recordsCount>0)Then
oRs.MoveFirst
'定義最大的查詢條目(*3)
DimmaxLine,n
maxLine=10
n=0
'填充數(shù)據(jù)值列
DoWhile(NotoRs.EOFAndn<maxLine)
n=n+1
DimoItem,ListViewT
SetListViewT=pListView
SetoItem=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)=he(oRs.Fields(3).Value)
oItem.SubItems(4)=he(oRs.Fields(4).Value)
oRs.MoveNext
Loop
3．5關(guān)閉到歸檔數(shù)據(jù)庫的連接
關(guān)閉與數(shù)據(jù)庫的連接并釋放資源，步驟如圖1的步驟5。自定義函數(shù)WinCCDataSourceClose（pRecordset,connObj）的具體代碼如下圖所示：
FunctionWinCCDataSourceClose(pRecordset,connObj)
'關(guān)閉數(shù)據(jù)庫連接，釋放資源
'獲取連接和查詢對象
DimoRs,conn
SetoRs=pRecordset
Setconn=connObj
oRs.Close
SetoRs=Nothing
conn.Close
Setconn=Nothing
EndFunction
3．6運(yùn)行結(jié)果
本文檔介紹的腳本，其運(yùn)行結(jié)果如下圖所示：
圖4
3．7更改代碼以滿足更廣泛的需求
對于不同客戶的定制化需求，可以通過修改少量代碼實(shí)現(xiàn)。
（1）不同的查詢需求，修改sSQL變量的值。
'修改變量sSQL的值
DimsSQL
sSQL="Tag:R,'ProcessValueArchiveTag1','0000-00-0000:01:00.000','0000-00-0000:00:00.000'"
比如，如果需要動態(tài)制定查詢時間，可以在畫面中輸入查詢?nèi)掌冢缓笸ㄟ^HMIRuntime.Tags(“變量名”)來獲得查詢條件，再賦值給sSQL。
（2）ListView需要使用不同的列名。
修改函數(shù)AddListViewHeaderColumn中的如下內(nèi)容：
‘用查詢的數(shù)據(jù)庫表格列名來為ListView添加列名(*2)
DimAddColumnIndex
ForAddColumnIndex=0TocolumnCount-1
ListViewT.ColumnHeaders.Add,,CStr(oRs.Fields(AddColumnIndex).Name)
Next
（3）ListView需要填充不一樣的行數(shù)和內(nèi)容。
修改函數(shù)FillListView中的如下內(nèi)容：
DimmaxLine,n
maxLine=10'改變此值，可以更改最大顯示的條目數(shù)
n=0
'修改填充內(nèi)容，請修改下面DoWhile循環(huán)中的代碼
DoWhile(NotoRs.EOFAndn<maxLine)
n=n+1
DimoItem,ListViewT
SetListViewT=pListView
SetoItem=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)=he(oRs.Fields(3).Value)
oItem.SubItems(4)=he(oRs.Fields(4).Value)
oRs.MoveNext
Loop
本文檔中提供的腳本盡量通用化，方便客戶修改和復(fù)用。并加入了錯誤處理機(jī)制，保證腳本的正確運(yùn)行，并提高了診斷的方便性。
聲明：
本文所述的方法為WinCC的高級用法，提供的代碼程序僅供用戶參考，西門子公司不提供任何調(diào)試和熱線支持。敬請諒解！
