基于WINCC實現熱磨機報表系統

沈軍

摘 要：在MDF生產線中，熱磨機是整個生產線的關鍵設備。熱磨機的穩定性，關系到整個工廠運行，因此要求對熱磨機主機電流、蒸汽壓力、螺旋轉速等重要參數進行定時記錄，歸檔，生成表報，便于設備的維護及工藝調整，替代人工抄表。

關鍵詞：報表；wincc；歸檔

中圖分類號：TP311 文獻標識碼：A 文章編號：1671-2064（2017）01-0042-02

在人造板生產線中，目前大多的MDF工廠對熱磨機的參數進行，手動記錄、存檔，部分參數的記錄由于人員的疏漏，導致記錄不及時，不能充分反映熱磨機的早期故障，為了克服手動抄表的不利因素，達到按時、準確抄表，并且能夠便于查閱的目的，因此采用wincc組態軟件設計熱磨機報表采集系統。

1 報表設計的要求

設計一個日報表，按照具體的日期查詢，每個報表包含24條數據，數據之間的時間間隔為1個小時。在報表設計的功能上要求具有數據自動統計，顯示相應參數的最大值、最小值和平均值。

在報表的樣式上要求有表頭、報表的名稱、報表的時間，在報表的左側每過一個小時對應一條數據記錄，要求報表的數據可以更改，當某一時間段WINCC系統沒有運行時（沒有數據記錄），用#號代替，可以打開報表存儲的位置。

2 報表的設計

在進行報表設計的時候，首先要考慮的是變量的歸檔方式和查詢方式，以及實現某些特定功能的難易程度，本報表中有較多的浮點數型數據，利用wincc的變量記錄可以實現一每個小時的數據歸檔，查詢數據和生成EXCEL文檔的過程可以在全局腳本中運行。

3 報表的流程

為了實現報表的功能，首先利用變量記錄進行數據歸檔，然后利用全局腳本查詢一天的數據并以日期為名稱存放在指定的文件夾中，利用EXCEL的表格公式進行相關數據統計，最后利用查詢按鈕的腳本將某一天的數據從EXCEL中調入到畫面中進行顯示。

3.1 報表的組態過程

（1）新建工程并命名，保存在E盤根目錄下。

（2）設置工程的啟動運行參數，打開變量記錄運行。

（3）新建變量（變量的個數根據需要）。

（4）新建畫面，組態報表畫面，在畫面中添加相應功能按鈕。

（5）打開變量記錄編輯器，對相應的變量添加到過程變量中，并且設置歸檔時間。

3.2 代碼

（1）全局腳本代碼 （僅以讀取一個過程變量為例）。

'讀取前軸承溫度

sSql = "Tag：R，（'ProcessValueArchive＼refiner_fore_bearing_ouput_oil_

temperature'），'" & sStart & "'，'" & sStop & "'"

oCom.CommandText = sSql

Set oRs = oCom.Execute

m = oRs.recordCount

If m > 0 Then

EL1=1

oRs.MoveFirst

i = 0

k = 0

Do While Not oRs.EOF

tim=GetLocalDate（oRs.Fields（1）.Value）

If Hour（tim）=k Then

objExcelApp.Worksheets（sheetname）.cells（i+8，2）.value = Round（oRs.Fields（2）.Value，2）

oRs.MoveNext

Else

objExcelApp.Worksheets（sheetname）.cells（i+8，2）.value = "#"

End If

' objExcelApp.Worksheets（sheetname）.cells（i+8，8）.value=Hour（tim）

' objExcelApp.Worksheets（sheetname）.cells（i+8，2）.value = oRs.Fields（2）.Value

i = i + 1

k = k + 1

Loop

k=24-k

For j=0 To k-1

objExcelApp.Worksheets（sheetname）.cells（24-k+8+j，2）.value = "#"

Next

Else

EL1=0

End If

oRs.Close

Set oRs = Nothing

Set conn = Nothing

Dim EL

EL=EL1&EL2&EL3&EL4&EL5&EL6&EL7&EL8&EL9&

EL1&EL10&EL11&EL12&EL13&EL14

If EL<>0 Then

Dim patch，filename

filename=CStr（Year（Now））&"-"&CStr（Month（Now））&"-"&CStr（Day（Now））

patch= "E：＼HMI＼excel＼"&filename&".xls"

objExcelApp.ActiveWorkbook.SaveAs patch

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp= Nothing

item.Enabled = False

Else

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp= Nothing

End If

End Function

（2）更改按鈕代碼。

Sub OnClick（Byval Item）

Dim sheet1

Set sheet1=ScreenItems（"sheet1"）

sheet1.ActiveSheet.Protection.Enabled = False

MsgBox "您現在可以編輯數據"

End Sub

4 結語

WINCC報表通過對原始數據的進行整理歸檔，經過一定的算法分析整合，能夠查詢的同時還能打印，將結果通過表格或文字等方式，這樣方便做成紙質文檔進行歸類存檔或給企業管理者。