利用VB技術(shù)提高設(shè)備狀態(tài)驗(yàn)收卡的擬寫效率

張文軍，羅 猛，楊 敏

（衢州電力局變電工區(qū)，浙江 衢州 324000）

0 引言

設(shè)備狀態(tài)驗(yàn)收卡是為了防止設(shè)備狀態(tài)不符而發(fā)生誤操作事故所采取的一種技術(shù)措施。由運(yùn)行人員擬寫審核，在工作票許可和終結(jié)前由工作負(fù)責(zé)人和工作許可人根據(jù)狀態(tài)驗(yàn)收卡所列項(xiàng)目依次核對確認(rèn)，保證工作前后設(shè)備狀態(tài)保持一致，從而杜絕由于狀態(tài)不符而造成的誤操作事故。設(shè)備狀態(tài)驗(yàn)收卡制度自實(shí)行以來，一直是變電運(yùn)行的管理重點(diǎn)，也是保障電網(wǎng)安全穩(wěn)定運(yùn)行的重要技術(shù)手段。

近幾年來，電網(wǎng)飛速發(fā)展，每年新投產(chǎn)的變電所及線路增長迅速，一次設(shè)備檢修工作也逐年增加，設(shè)備狀態(tài)驗(yàn)收卡的使用頻率也隨之增高。但舊有的設(shè)備狀態(tài)驗(yàn)收卡的擬寫方式效率低下，而且由于人員個體差異，所擬驗(yàn)收卡表述沒有統(tǒng)一標(biāo)準(zhǔn)，難以滿足現(xiàn)代化電網(wǎng)企業(yè)管理的需求，更為嚴(yán)重的是可能因?yàn)槿藶槭韬龆戫?xiàng)目，給安全生產(chǎn)帶來隱患。

1 設(shè)備狀態(tài)驗(yàn)收卡的原擬寫方法

1.1 人工輸入法

人工輸入法是擬寫設(shè)備狀態(tài)驗(yàn)收卡最常用的方法，具體方法是打開空白的設(shè)備狀態(tài)驗(yàn)收卡表格（Word），按表格所列項(xiàng)目，結(jié)合實(shí)際工作內(nèi)容和設(shè)備狀態(tài)將具體項(xiàng)目一項(xiàng)項(xiàng)列寫至表格中。操作簡單但是效率低，且易出現(xiàn)人為疏忽而造成的錯項(xiàng)、漏項(xiàng)，給安全生產(chǎn)埋下隱患。

1.2 查找替換法

查找替換法是根據(jù)設(shè)備狀態(tài)、類型等信息查找歷史設(shè)備狀態(tài)驗(yàn)收卡，找到類似驗(yàn)收卡后，利用Word自帶的查找替換功能將相應(yīng)設(shè)備信息進(jìn)行替換，再根據(jù)實(shí)際工作內(nèi)容進(jìn)行小量修改即可。這種擬寫方法效率比人工輸入法有大幅提高，但其局限性也很明顯，如查找類似歷史驗(yàn)收卡較難，對電腦操作熟練程度有要求等。

1.3 原擬寫方法存在的問題

通過統(tǒng)計(jì)操作站某2個月21份設(shè)備狀態(tài)驗(yàn)收卡的擬寫情況（見表1），可以看出設(shè)備狀態(tài)驗(yàn)收卡原擬寫方法存在的一些問題。

表1 設(shè)備狀態(tài)驗(yàn)收卡擬寫效率情況

（1）查找替換法比人工輸入法效率高得多，但因?yàn)殡y以找到相應(yīng)模版而導(dǎo)致使用率不高，且由于對電腦操作熟練程度有要求而難以廣泛使用。

（2）綜合來看兩種方法效率都不高，在當(dāng)前人力資源緊缺、生產(chǎn)任務(wù)繁重的情況下，給安全生產(chǎn)帶來壓力。

2 解決方案

如前所述，查找替換法最大的缺點(diǎn)是難以找到相類似的歷史設(shè)備狀態(tài)驗(yàn)收卡，且需熟練掌握Word操作技能。如果能夠找出設(shè)備狀態(tài)驗(yàn)收卡所列項(xiàng)目的規(guī)律，并編制一款軟件自動實(shí)現(xiàn)相關(guān)信息的查找替換，即可大大提高工作效率。

2.1 設(shè)備狀態(tài)驗(yàn)收卡列寫項(xiàng)目特點(diǎn)

根據(jù)《浙江省電力公司變電所運(yùn)行管理規(guī)范》要求，應(yīng)列入檢修后設(shè)備狀態(tài)驗(yàn)收卡的內(nèi)容有：開關(guān)、刀閘、接地閘刀等分/合閘實(shí)際位置狀態(tài)；接地線實(shí)際掛設(shè)位置和數(shù)量；列入倒閘操作步驟的二次壓板（連接片），電流端子、切換開關(guān)、空氣小開關(guān)、熔斷器的投/停位置狀態(tài)；監(jiān)控后臺一次設(shè)備顯示位置狀態(tài)；核對繼電保護(hù)、自動裝置定值；設(shè)備外觀等。

通過查閱大量歷史設(shè)備狀態(tài)驗(yàn)收卡，發(fā)現(xiàn)類型相同的設(shè)備間隔其設(shè)備狀態(tài)驗(yàn)收卡所列的項(xiàng)目基本相同，不同的只有設(shè)備命名等少量信息。如果能總結(jié)出各種類型設(shè)備的典型設(shè)備狀態(tài)驗(yàn)收卡模版，使用時只需替換設(shè)備命名等少量信息，將可大幅提高設(shè)備狀態(tài)驗(yàn)收卡的擬寫效率。

2.2 總結(jié)編制典型驗(yàn)收卡模板

通過對操作站所轄設(shè)備特點(diǎn)進(jìn)行總結(jié)分析，發(fā)現(xiàn)存在以下共性：

（1）開關(guān)分普通和手車式；普通開關(guān)一般有閘刀，而手車式開關(guān)一般無閘刀。

（2）普通開關(guān)又可分為雙母接線和單母接線兩種類型（考慮到雙母帶旁路接線方式已基本淘汰，故不考慮）；雙母接線的出線間隔有正、副母閘刀，而單母接線的出線間隔只有單一母線閘刀。

（3）一般出線間隔檢修工作要求開關(guān)處在檢修或開關(guān)及線路處在檢修狀態(tài)，線路檢修時一般是線路工作，故不考慮。

基于以上設(shè)備特性，最終總結(jié)出6種典型設(shè)備狀態(tài)驗(yàn)收卡，分別是：普通開關(guān)及線路檢修、普通開關(guān)檢修、普通雙母開關(guān)及線路檢修、普通雙母開關(guān)檢修、手車開關(guān)及線路檢修、手車開關(guān)檢修。

2.3 繪制流程圖

通過上述調(diào)查和分析，可編寫程序讓使用者在程序界面選擇或填寫變電所、設(shè)備名稱、工作內(nèi)容、開關(guān)類型、設(shè)備狀態(tài)等相關(guān)信息，再利用程序判斷該設(shè)備類型并在后臺打開相應(yīng)模版，將設(shè)備名稱等信息替換模版中相應(yīng)內(nèi)容，即可得到最終需要的設(shè)備狀態(tài)驗(yàn)收卡，具體流程見圖1。

2.4 選擇編程軟件

VB6.0是微軟公司推出的一款可視化、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，且接口功能強(qiáng)大，可方便地調(diào)用Word與Excel等Office系列軟件，編程簡單，兼容性好，滿足編程需要。

3 具體實(shí)現(xiàn)

（1）后臺打開 Word：

Dim wbook As New_word.Application′定義 word

wbook.Documents.Open （Text1.Text）

wbook.Visible=False

（2）設(shè)備類型的判斷和處理：

Set wbook=New Word.Application

If Frame2.Visible=False Then

If Option1.Value And Option3.Value Then

Set wDocuments=wbook.Documents.Open（App.Path&“衢州電力局驗(yàn)收卡模版（普通開關(guān)檢修）.dot"）

End If

If Option1.Value And Option5.Value Then

Set wDocuments=wbook.Documents.Open（App.Path&“衢州電力局驗(yàn)收卡模版（普通開關(guān)及線路檢修）.dot”）

圖1 程序主流程

End If……

（3）設(shè)備信息的替換：

wbook.Selection.Find.ClearFormatting

wbook.Selection.Find.Replacement.ClearFormatting

With wbook.Selection.Find

.Text="220kV衢州變"

.Replacement.Text=Combo1.Text&Combo2.Text

.Forward=True

.Wrap=wdFindContinue

.Format=False

.End With

wbook.Selection.Find.Execute Replace：=wdReplaceAll

wbook.Selection.Find.ClearFormatting

wbook.Selection.Find.Replacement.ClearFormatting

……

4 結(jié)語

設(shè)備狀態(tài)驗(yàn)收卡自動生成軟件的界面見圖2，經(jīng)測試對比，原來人工需14.7 min才能完成的狀態(tài)驗(yàn)收卡擬寫，現(xiàn)在只需1 min左右即可完成，大幅提高了工作效率，且正確率100%，目前已在衢州電力局各運(yùn)行班組廣泛應(yīng)用。

圖2 設(shè)備狀態(tài)驗(yàn)收卡自動生成

[1]王德群.在VB中運(yùn)用Windows消息機(jī)制[J].滁州師專學(xué)報(bào)，2001（3）：72-73.