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

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

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

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

    1．測(cè)試環(huán)境

    本文檔基于WinCCV7.0ASIA，并通過(guò)MSWindowsCommonControls6.0ListView控件來(lái)顯示讀取的歸檔數(shù)據(jù)。需要的授權(quán)如下：

    表01

    2．實(shí)現(xiàn)方式總體思路介紹

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

    圖1

    其中，自定義函數(shù)的說(shuō)明如下表所示：

    表02

    具體代碼見附件。

    3．具體實(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的客戶端，必須安裝WinCC連通性軟件包。該軟件包含在WinCCV7.0的安裝光盤中。

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

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

    Dimconn

    Setconn=CreateObject("ADODB.Connection")

    '定義數(shù)據(jù)庫(kù)查詢腳本(可以根據(jù)需要自定義修改)

    DimsSQL

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

    '通過(guò)調(diào)用自定義的數(shù)據(jù)庫(kù)連接函數(shù)，建立與數(shù)據(jù)庫(kù)的連接

    DimoRs

    SetoRs=WinCCDataSourceAccess(conn,sSQL)

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

    FunctionWinCCDataSourceAccess(connObj,pSQL)

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

    OnErrorResumeNext

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

    DimDatasourceNameRT,DataConnectionName

    SetDatasourceNameRT=HMIRuntime.Tags("@DatasourceNameRT")

    DatasourceNameRT.Read

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

    DimsPro,sDsn,sSer

    sPro="Provider=WinCCOLEDBProvider.1;"

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

    sSer="DataSource=.WinCC"

    DataConnectionName=sPro+sDsn+sSer

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

    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)建過(guò)程為:在WinCC項(xiàng)目管理器中右鍵點(diǎn)擊全局腳本?打開VBS全局腳本編輯器?項(xiàng)目函數(shù)?新建函數(shù)。具體如下圖所示：

    圖2

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

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

    圖3

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

    注意：在腳本中，當(dāng)定義ListView對(duì)象時(shí)用到對(duì)象名稱Control1。詳情請(qǐng)參考圖1的步驟2。

    3．3添加ListView控件的列名

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

    FunctionAddColumnHeader(pRecordset,pListView)

    '添加ListView列名

    '用于錯(cuò)誤捕獲和處理

    OnErrorResumeNext

    DimoRs,columnCount

    SetoRs=CreateObject("ADODB.Recordset")

    SetoRs=pRecordset

    '獲取數(shù)據(jù)庫(kù)中的列數(shù)

    columnCount=oRs.Fields.Count

    '定義操作的ListView對(duì)象

    DimListViewT

    SetListViewT=pListView

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

    ListViewT.ColumnHeaders.Clear

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

    DimAddColumnIndex

    ForAddColumnIndex=0TocolumnCount-1

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

    Next

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

    Iferr.number<>0Then

    MsgBox"AddColumnHeader函數(shù)報(bào)錯(cuò)，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ù)庫(kù)查詢的值填充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ù)庫(kù)的連接

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

    FunctionWinCCDataSourceClose(pRecordset,connObj)

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

    '獲取連接和查詢對(duì)象

    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更改代碼以滿足更廣泛的需求

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

    （1）不同的查詢需求，修改sSQL變量的值。

    '修改變量sSQL的值

    DimsSQL

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

    比如，如果需要?jiǎng)討B(tài)制定查詢時(shí)間，可以在畫面中輸入查詢?nèi)掌冢缓笸ㄟ^(guò)HMIRuntime.Tags(“變量名”)來(lái)獲得查詢條件，再賦值給sSQL。

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

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

    ‘用查詢的數(shù)據(jù)庫(kù)表格列名來(lái)為L(zhǎng)istView添加列名(*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)容，請(qǐng)修改下面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ù)用。并加入了錯(cuò)誤處理機(jī)制，保證腳本的正確運(yùn)行，并提高了診斷的方便性。

    聲明：

    本文所述的方法為WinCC的高級(jí)用法，提供的代碼程序僅供用戶參考，西門子公司不提供任何調(diào)試和熱線支持。敬請(qǐng)諒解！