利用VB技術提高設備狀態驗收卡的擬寫效率

張文軍，羅 猛，楊 敏

（衢州電力局變電工區，浙江 衢州 324000）

0 引言

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

近幾年來，電網飛速發展，每年新投產的變電所及線路增長迅速，一次設備檢修工作也逐年增加，設備狀態驗收卡的使用頻率也隨之增高。但舊有的設備狀態驗收卡的擬寫方式效率低下，而且由于人員個體差異，所擬驗收卡表述沒有統一標準，難以滿足現代化電網企業管理的需求，更為嚴重的是可能因為人為疏忽而漏寫項目，給安全生產帶來隱患。

1 設備狀態驗收卡的原擬寫方法

1.1 人工輸入法

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

1.2 查找替換法

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

1.3 原擬寫方法存在的問題

通過統計操作站某2個月21份設備狀態驗收卡的擬寫情況（見表1），可以看出設備狀態驗收卡原擬寫方法存在的一些問題。

表1 設備狀態驗收卡擬寫效率情況

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

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

2 解決方案

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

2.1 設備狀態驗收卡列寫項目特點

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

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

2.2 總結編制典型驗收卡模板

通過對操作站所轄設備特點進行總結分析，發現存在以下共性：

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

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

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

基于以上設備特性，最終總結出6種典型設備狀態驗收卡，分別是：普通開關及線路檢修、普通開關檢修、普通雙母開關及線路檢修、普通雙母開關檢修、手車開關及線路檢修、手車開關檢修。

2.3 繪制流程圖

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

2.4 選擇編程軟件

VB6.0是微軟公司推出的一款可視化、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發Windows環境下的各類應用程序，且接口功能強大，可方便地調用Word與Excel等Office系列軟件，編程簡單，兼容性好，滿足編程需要。

3 具體實現

（1）后臺打開 Word：

Dim wbook As New_word.Application′定義 word

wbook.Documents.Open （Text1.Text）

wbook.Visible=False

（2）設備類型的判斷和處理：

Set wbook=New Word.Application

If Frame2.Visible=False Then

If Option1.Value And Option3.Value Then

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

End If

If Option1.Value And Option5.Value Then

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

圖1 程序主流程

End If……

（3）設備信息的替換：

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 結語

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

圖2 設備狀態驗收卡自動生成

[1]王德群.在VB中運用Windows消息機制[J].滁州師專學報，2001（3）：72-73.