利用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.