某天然氣公司的生產(chǎn)信息平臺,是一個(gè)生產(chǎn)運(yùn)行關(guān)鍵數(shù)據(jù)統(tǒng)計(jì)和展示的平臺,其中的裝置關(guān)鍵參數(shù)合格率、設(shè)備運(yùn)行狀態(tài)、振動設(shè)備報(bào)警監(jiān)測這三部分,由紫金橋?qū)崟r(shí)數(shù)據(jù)庫提供數(shù)據(jù)。
客戶在功能上要求是這樣的:
1、裝置關(guān)鍵參數(shù)合格率,報(bào)警上下限值要從指定的關(guān)系數(shù)據(jù)庫表中讀取,該表由工藝人員根據(jù)需要修改報(bào)警上下限的限值,紫金橋軟件根據(jù)此限值計(jì)算裝置關(guān)鍵參數(shù)的合格率,計(jì)算完成后,再存入關(guān)系數(shù)據(jù)庫指定的表中。
2、設(shè)備運(yùn)行狀態(tài),實(shí)時(shí)值由信息平臺實(shí)時(shí)讀取,歷史值要定時(shí)存入關(guān)系數(shù)據(jù)庫指定的表中。
3、設(shè)備振動報(bào)警監(jiān)測,實(shí)時(shí)值由信息平臺實(shí)時(shí)讀取,不需要存儲歷史值。
設(shè)備運(yùn)行狀態(tài)以及設(shè)備振動監(jiān)測的實(shí)時(shí)數(shù)據(jù)是通過開放OPC Server接口,由對方直接實(shí)時(shí)采集,裝置關(guān)鍵參數(shù)的合格率以及設(shè)備運(yùn)行狀態(tài)歷史兩部分的數(shù)據(jù),是通過紫金橋?qū)崟r(shí)數(shù)據(jù)庫軟件,將歷史數(shù)據(jù)寫入到SQL Server數(shù)據(jù)庫中,再由生產(chǎn)信息平臺系統(tǒng)從SQL Server中按照需要讀取。
系統(tǒng)使用的軟件版本:紫金橋?qū)崟r(shí)數(shù)據(jù)庫軟件V6.5。
功能窗口截圖如下,由于該窗口不需要展示,故未做任何美化:

各部分功能說明:
1-報(bào)警時(shí)間統(tǒng)計(jì)組件,用于統(tǒng)計(jì)位號的累計(jì)報(bào)警時(shí)間,以便計(jì)算合格率。
2-設(shè)備狀態(tài)實(shí)時(shí)報(bào)表,實(shí)時(shí)顯示設(shè)備狀態(tài)值,通過腳本將對應(yīng)位號的值存儲到數(shù)據(jù)庫中。
3-位號的報(bào)警上下限值報(bào)表,從關(guān)系數(shù)據(jù)庫讀取參數(shù)的報(bào)警限值。
4-手動讀取合格率報(bào)警限值按鈕,點(diǎn)擊后讀取關(guān)系數(shù)據(jù)庫的報(bào)警限值。
5-查看當(dāng)天已經(jīng)寫入數(shù)據(jù)的報(bào)表,用來查看數(shù)據(jù)庫中已經(jīng)寫入的數(shù)據(jù)。
6-查看設(shè)備狀態(tài)/合格率數(shù)據(jù)按鈕。點(diǎn)擊按鈕分別查看最近一天的設(shè)備狀態(tài)或者合格率數(shù)據(jù)。
窗口最下方的部分即5、6兩塊實(shí)際上不是功能必須的,只是方便開發(fā)者自己查看遠(yuǎn)程數(shù)據(jù)庫中的數(shù)據(jù)是否成功存儲。
本文主要介紹“裝置關(guān)鍵參數(shù)合格率”這部分的功能,“設(shè)備運(yùn)行狀態(tài)”部分大同小異,“設(shè)備振動監(jiān)測”部分不需要向關(guān)系數(shù)據(jù)庫存儲數(shù)據(jù),所以這兩部分不再過多敘述。接
下來開始說明關(guān)鍵參數(shù)合格率功能部分:
1、窗口中新增報(bào)警時(shí)間統(tǒng)計(jì)組件,命名為Alarm1,在組件中添加需要進(jìn)行統(tǒng)計(jì)的位號,設(shè)置位號使用自身報(bào)警限值。
2、點(diǎn)組態(tài)中,新增‘報(bào)表關(guān)系數(shù)據(jù)源點(diǎn)’,連接要讀取數(shù)據(jù)的關(guān)系數(shù)據(jù)庫。
3、窗口中新增自由報(bào)表,關(guān)系數(shù)據(jù)庫連接里面,連接新建的報(bào)表關(guān)系數(shù)據(jù)源點(diǎn),并將報(bào)表命名。本案例中,該報(bào)表名為Fr1 。
4、建立表模板。
使用紫金橋軟件預(yù)定義的SQL函數(shù)向關(guān)系數(shù)據(jù)庫插入數(shù)據(jù),首先要按照固定表結(jié)構(gòu)在關(guān)系數(shù)據(jù)庫先創(chuàng)建表, SQL函數(shù)無法直接生成表,而是需要一個(gè)給定的模板,按照模板進(jìn)行表的創(chuàng)建,這就需要事先定義好一個(gè)表模板。
下圖是合格率數(shù)據(jù)表要使用的表模板,要?jiǎng)?chuàng)建的表一共有4個(gè)字段,分別是‘日期、位號名、值、權(quán)重’,對應(yīng)的字段名分別是‘UpdateTime、TagName、TagValue、TagLevel’,權(quán)重這個(gè)字段是客戶要求的。

合格率表模版
創(chuàng)建表使用函數(shù)SQLCreateTable(),這里定義一個(gè)窗口整型變量w_cID,供SQL函數(shù)使用。關(guān)于紫金橋?qū)崟r(shí)數(shù)據(jù)庫預(yù)定義的SQL函數(shù)的用法,請讀者自行查看幫助,這里不再詳述。
一旦數(shù)據(jù)表創(chuàng)建完畢,表模板就不再需要了。基于此原因,最開始的數(shù)據(jù)表是使用按鈕創(chuàng)建的,創(chuàng)建完畢后,按鈕就刪除了,所以窗口中沒有創(chuàng)建數(shù)據(jù)表的腳本。
5、建立綁定表。
數(shù)據(jù)表創(chuàng)建完畢后,接下來就是向表內(nèi)插入數(shù)據(jù)了。要向關(guān)系數(shù)據(jù)庫表內(nèi)插入數(shù)據(jù),需要使用紫金橋?qū)崟r(shí)數(shù)據(jù)庫的‘綁定表’,綁定表里的字段名設(shè)置要和表模版里的字段完全一致,否則插入數(shù)據(jù)時(shí)會失敗。
另外,需要建立4個(gè)中間變量(圖中變量名部分),分別對應(yīng)數(shù)據(jù)表的4個(gè)字段,供綁定表使用,具體用法在后面腳本部分會詳細(xì)介紹。

合格率綁定表
6、腳本。
由于紫金橋?qū)崟r(shí)數(shù)據(jù)庫6.5版軟件里,窗口周期執(zhí)行腳本的周期不能大于15分鐘,所以為了實(shí)現(xiàn)需要的功能,定義以下整型窗口變量:w_cID、w_t1、w_t2、w_t3、w_t4、w_TBegin,具體使用在后面的腳本中說明。
進(jìn)入窗口:
進(jìn)入窗口后,執(zhí)行下面腳本,前三行是給w_t1、w_t2、w_t3賦值為次日零點(diǎn)的時(shí)間;第五行w_TBegin賦值為當(dāng)日零點(diǎn)的時(shí)間,是報(bào)警統(tǒng)計(jì)組件執(zhí)行統(tǒng)計(jì)的起始時(shí)間;第六行連接數(shù)據(jù)存儲所使用的數(shù)據(jù)庫,由于連接字符涉及到客戶信息,所以這里去掉了,讀者可以自己查看幫助中關(guān)于紫金橋軟件內(nèi)置SQL函數(shù)的用法,里面有關(guān)于連接數(shù)據(jù)庫的詳細(xì)說明。w_t4賦值為次日上午8:30分的時(shí)間,設(shè)備狀態(tài)數(shù)據(jù)存儲腳本使用,與合格率數(shù)據(jù)存儲無關(guān)。w
_t1 = LongTime(StrLeft(StrTime($Curtime,0),10) + " 00:00:00") + 86400;
w_t2 = w_t1;
w_t3 = w_t1;
w_t4 = LongTime(StrLeft(StrTime($Curtime,0),10) + " 08:30:00") + 86400;
w_TBegin = LongTime(StrLeft(StrTime($Curtime,0),10) + " 00:00:00");
SQLConnect(w_cID,"此部分是數(shù)據(jù)庫服務(wù)器連接字符串,不便公開");
周期執(zhí)行:
首先,每天凌晨前5分鐘,從關(guān)系數(shù)據(jù)庫讀取關(guān)鍵參數(shù)的報(bào)警限值到報(bào)表Fr1中。由于報(bào)警限值由工藝人員維護(hù),可能根據(jù)工藝需要有修改,所以每天計(jì)算合格率之前要重新讀取。腳本如下:
if $Curtime >= w_t1-300 && $Curtime < w_t1-240 then
w_t1 = $Curtime + 86400;
#Fr1.SqlSelectCmd("select 位號,指標(biāo)級別,下限,上限 from TM_裝置關(guān)鍵控制參數(shù)");
Delay(1500);
for i = 1 to #Fr1.RowCount()+1
#本地.SetDataStr(#Fr1.Txt(1,i)+".EU",#Fr1.Txt(2,i));
#本地.SetDataReal(#Fr1.Txt(1,i)+".EULO",#Fr1.Val(3,i));
#本地.SetDataReal(#Fr1.Txt(1,i)+".EUHI",#Fr1.Val(4,i));
#next
#本地.RegUpdate();
endif
腳本第1行是判斷本段腳本執(zhí)行的時(shí)間,當(dāng)系統(tǒng)時(shí)間處于零點(diǎn)前5分鐘至前4分鐘這段時(shí)間內(nèi),開始執(zhí)行腳本;
第2行是將變量w_t1的值增加一天的時(shí)間,以便下次執(zhí)行的時(shí)間是在下一天的同一時(shí)間;
第3行是報(bào)表Fr1從關(guān)系數(shù)據(jù)庫的表中讀取報(bào)警限值;
第4行是延遲時(shí)間,以便報(bào)表Fr1能夠完全讀取表中的數(shù)據(jù);
第5~9行循環(huán),將報(bào)表Fr1中的報(bào)警限值以及權(quán)重設(shè)置到對應(yīng)的位號,第6行是設(shè)置權(quán)重,第7行是設(shè)置報(bào)警下限,第8行是設(shè)置報(bào)警上限;
第10行,刷新第6、7、8行操作以后的點(diǎn)的信息。
讀取報(bào)警限值后,接下來就是根據(jù)報(bào)警限值計(jì)算位號的合格率了。下面這段腳本是判斷系統(tǒng)時(shí)間在零點(diǎn)前4分鐘至3分鐘之間,開始執(zhí)行,同樣把變量w_t2的值增加一天,即與w_t1相同,然后開始報(bào)警組件進(jìn)行報(bào)警時(shí)間的統(tǒng)計(jì),統(tǒng)計(jì)的時(shí)間是一天,即86400秒。
if $Curtime >= w_t2-240 && $Curtime < w_t2-180 then
#w_t2 = w_t1;
#Alarm1.Start(w_TBegin,86400,1);
endif
在報(bào)警統(tǒng)計(jì)組件完成統(tǒng)計(jì)后,接下來就需要將統(tǒng)計(jì)的數(shù)據(jù)提取出來,然后計(jì)算,再把計(jì)算結(jié)果存入數(shù)據(jù)庫的表中了。
if $Curtime > w_t3-60 && $Curtime <= w_t3 then
w_t3 = w_t1;
for i = 0 to #Alarm1.GetTagCount()
Bind_TagValue = 1 - (#Alarm1.GetCellHi(0,i) + #Alarm1.GetCellLow(0,i))/86400;
Bind_TagName = #Alarm1.GetTag(i) + ".PV";
Bind_StrTime = StrTime($Curtime,1);
for j = 0 to #Fr1.RowCount()
if #Alarm1.GetTag(i) == #Fr1.Txt(1,j+1) then
Bind_TagLevel = #Fr1.Txt(2,j+1)
endif
next
SQLInsert(w_cID,"XHQ_HGL","XHQ_BindHGL");
next
endif
這部分腳本就是向數(shù)據(jù)庫表內(nèi)寫入數(shù)據(jù)了。
第1行仍然是判斷時(shí)間,當(dāng)時(shí)間達(dá)到零點(diǎn)前一分鐘時(shí),開始執(zhí)行腳本,首先還是將時(shí)間變量w_t3增加一天,與w_t1相同;
第3~13行循環(huán),將報(bào)警組件中所有位號的值逐個(gè)進(jìn)行計(jì)算,然后存入數(shù)據(jù)庫的表中。
第4行是把報(bào)警組件第i列的位號報(bào)警上限時(shí)間和報(bào)警下限時(shí)間求和,然后除以一天的時(shí)間,得到不合格率,再用1減去不合格率得到合格率的數(shù)值,賦給綁定表使用的變量;
第5行是把報(bào)警組件第i列的位號賦給綁定表變量;
第6行是把當(dāng)前時(shí)間賦給綁定表變量;
第7~11行,是在報(bào)表Fr1中查找當(dāng)前第i列位號的權(quán)重,然后賦給綁定表變量;
第12行,4個(gè)綁定表變量都已經(jīng)賦值,此行使用紫金橋軟件的SQL函數(shù),將綁定表變量的值插入到關(guān)系數(shù)據(jù)庫表中。
至此,完成報(bào)警組件第i列的一個(gè)循環(huán),直至報(bào)警組件中所有位號的合格率統(tǒng)計(jì)值都插入數(shù)據(jù)表后,循環(huán)完成。
退出窗口:
這里只有一行腳本,就是當(dāng)退出窗口時(shí),斷開與關(guān)系數(shù)據(jù)庫的連接。
SQLDisconnect(w_cID);
整個(gè)腳本的關(guān)鍵,就是周期執(zhí)行部分,這里使用了一個(gè)小技巧,由于紫金橋?qū)崟r(shí)數(shù)據(jù)庫6.5版,周期執(zhí)行腳本的周期不能大于15分鐘,所以這里使用一個(gè)整型變量,通過該變量的值與系統(tǒng)當(dāng)前時(shí)間比較,只有符合條件才能執(zhí)行腳本,否則不執(zhí)行,這就保證了腳本只在每天指定的零點(diǎn)附近執(zhí)行。
另外,為了保證每一部分的腳本能夠完全執(zhí)行完畢,并且不在時(shí)間上有交叉沖突,所以設(shè)置3個(gè)不同的時(shí)間變量,并且在不交叉的時(shí)間執(zhí)行。而且通過這樣的方法,不會影響其他需要頻繁執(zhí)行的周期腳本正常運(yùn)行。
總結(jié):
本例中使用了報(bào)表關(guān)系數(shù)據(jù)源點(diǎn)與自由報(bào)表相結(jié)合,讀取關(guān)系數(shù)據(jù)庫表中的數(shù)據(jù),這樣的好處是操作簡單,不需要寫過多腳本,但是無法向數(shù)據(jù)庫表中寫入數(shù)據(jù)。
又使用了紫金橋?qū)崟r(shí)數(shù)據(jù)庫軟件預(yù)定義的SQL函數(shù),向關(guān)系數(shù)據(jù)庫中寫入數(shù)據(jù)。SQL函數(shù)的優(yōu)點(diǎn)是功能全面,幾乎能夠完成對關(guān)系數(shù)據(jù)庫表的所有操作,包括查詢、插入、刪除、建表、刪表等等;缺點(diǎn)就是操作相對自由報(bào)表和報(bào)表關(guān)系數(shù)據(jù)源點(diǎn)的結(jié)合要繁瑣一些,需要建立表模版、綁定表,還要手動寫一些腳本等。
|