转载 VB程序开发电缆挂牌制作中的应用 电缆挂牌

VB程序开发电缆挂牌制作中的应用

【摘要】电缆敷设是电缆工程施工中的重头戏，从检测、入库、运输再到敷设，要规范每一道工序，项目部都严格做好记录。在检测阶段，安质员严格测试电缆的质量；在敷设阶段，施工人员详细登记好电缆的序号和日期，以及用在哪个标段、多少公里处，并给它们上好电缆标牌。我们在施工中曾经出过这样的事，一次，电气班组忘了给当天的电缆序号做记录，负责电缆施工的技术人员连夜翻查相应的记录，直到第二天现场人员给予确定核实后，他才长长地舒了口气说：“电缆标牌就是它们的‘户口’，我们不仅要记录详细，更要按照程序严格保管。只有这样才能把好它们的来龙去脉，保证质量不出问题。”。

【关键词】电缆工程挂牌VB应用
一、电缆标志牌的规定：

（1）在电缆起止点，电缆接头应装设标志牌。

（2）标志牌上应注明电缆的编号，型号，规格和起止点。标志牌上字迹应打印。

二、电缆挂牌制作状况

1、以前的光、电缆牌都是过塑或定做的回来用记号笔手写。定做成本过高、耽误工期.而且时间一长写得就变的模糊看不清楚，特别是环境相对较差的人井，根本无法辨认。

2、现在部分项目已开始采用打印机（M-300）通过与电脑连接,在硬质的PVC板,软质的标签上印字,无需制版，克服以往订制标牌的繁琐、费时。该机采用热转印方式，字迹清晰，坚固耐久。电缆缆挂牌打印机方便的现场制作电缆标识,克服人工手写的不规范,使标识更美观长久.是自制标牌的理想工具。

以上两种情况，第2种与在第1种相比，质量外观上均有很大进步，但都有一个共同的缺点：效率低下！

三、VB开发程序提高电缆挂牌制作效率

1、打印机（M-300）打印电缆挂牌，首先是在Word下制作专用的格式文档（如图1所示）与挂牌大小保持一直，再通过相应驱动程序驱动打印机打印出挂牌的。在Word下输入电缆的编号，型号，规格和起止点等文字制作电缆挂牌打印文档工作量巨大。

图1

2、为方便统计，我们制作的电缆清册电子文档基本上都是Excel格式文件（如图2所示），在制作电缆挂牌打印文档时，部分项目为提高工作效率，将电缆的编号，型号，规格和起止点从Excel文档复制粘贴到Word下制作电缆挂牌打印文档。这样工作效率提高不多，同样电缆太多（大项目电缆成千上万根是可想而知）时，很容易出错。

图2

3、利用VB编程提高效率

1）、电缆挂牌打印文档制作思路：打开Excel格式电缆清册电子文档－〉打开Word文档－〉设置文档专用格式－〉依次读取Excel格式电缆清册电子文档中电缆的编号，型号，规格和起止点单元格内容再写入Word文档。

2）、具体步骤如下：（代码如下）

（1）、打开已有的Excel文件

Setoldxls=CreateObject("Excel.Application")'连接至Excel应用程序

FrmLable.CommonDialog1.Filter="Excel文件|*.xls"

oldxls.Workbooks.OpenFileName:=FrmLable.CommonDialog1.FileName

（2）、连接至Word应用程序

SetwD=CreateObject("word.Application")

（3）、设置文档专用格式

WithwD.ActiveDocument.PageSetup

.LineNumbering.Active=False

.Orientation=wdOrientPortrait

.TopMargin=CentimetersToPoints(0.15)

.BottomMargin=CentimetersToPoints(0.12)

.LeftMargin=CentimetersToPoints(1.1)

.RightMargin=CentimetersToPoints(0)

.Gutter=CentimetersToPoints(0)

.HeaderDistance=CentimetersToPoints(1.5)

.FooterDistance=CentimetersToPoints(1.75)

.PageWidth=CentimetersToPoints(7)

.PageHeight=CentimetersToPoints(2.5)

.FirstPageTray=wdPrinterDefaultBin

.OtherPagesTray=wdPrinterDefaultBin

.SectionStart=wdSectionNewPage

.OddAndEvenPagesHeaderFooter=False

.DifferentFirstPageHeaderFooter=False

.VerticalAlignment=wdAlignVerticalTop

.SuppressEndnotes=False

.MirrorMargins=False

.TwoPagesOnOne=False

.BookFoldPrinting=False

.BookFoldRevPrinting=False

.BookFoldPrintingSheets=1

.GutterPos=wdGutterPosLeft

.LinesPage=4

.LayoutMode=wdLayoutModeLineGrid

EndWith

（4）、读取Excel格式电缆清册电子文档中单元格内容并写入Word文档

wD.Selection.TypeTextText:="电缆名称:"+oldsheet.Cells(rwIndex,2+0).ValuewD.Selection.TypeTextText:="型号及规格:"+oldsheet.Cells(rwIndex,2+1).ValuewD.Selection.TypeTextText:="起点:"+oldsheet.Cells(rwIndex,2+2).ValuewD.Selection.TypeTextText:="终点:"+oldsheet.Cells(rwIndex,2+3).Value

3）、程序编好后，经调试无误编译成可执行文件，即可运行了。

四、程序的使用

1、下载解压后得到以下文件

图3

2、双击setup文件安装完成后，点击开始－〉所有程序－〉电缆Lable图标文件启动电缆字牌导出程序。程序主界面如下：

图4

3、点击“打开电缆清册Excel文件”按钮，打开电缆清册文件（如图2所示），将要要导出字牌的电缆清册内容复制到临时表“Hgg2279”（如图5所示）对应区域中。

图5

4、点击“导出Word字牌文档”按钮，程序将自动生成电缆挂牌打印Word文档（如图1所示），只要选择对应的M-300打印机就可以打印出电缆挂牌了。要打印电缆另一端的挂牌，请在“起止选择”标签中单选起点－〉终点切换。

五、后记

本程序在陕西蜀河电站2#、5#、6#机组电缆工程施工，对加快施工进度起到了重要的作用。根据相应电缆清册制作的挂牌，出错率为0%，大大提高了效率，大大降低了人力资源的投入，缩短了工期，节约了成本！

工程施工中技术水平的提高，得益于科技含量的投入，和广大员工不协的努力。

2010年12月29日

爱华网本文地址 » http://www.aihuau.com/a/25101011/75286.html