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

原文地址:VB程序开发电缆挂牌制作中的应用作者:hgg_wj

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.413yy.cn/a/25101011/75286.html

更多阅读

关键绩效指标在绩效管理中的应用 什么是关键绩效指标

摘要:在人力资源管理中,员工绩效管理是一个非常重要的工作。员工绩效管理建立在关键绩效指标的基础上,通过业绩考核,并与相应的激励措施相结合,调动员工积极性,促使员工努力工作、不断提高绩效,最终实现企业的目标。本文将着重介绍关键绩

转载 总结DFN-LOW算法在图论中的应用 tarjan dfn和low

原文地址:总结DFN-LOW算法在图论中的应用作者:OIer_fc总结DFN-LOW算法在图论中的应用北京大学许若辰 长沙市雅礼中学 屈运华摘要: 在一个连通图[1]G中,有些点一旦被去除就会导致图不连通,同样的,有些边一旦被去除也会导致图G失去连通性,

声明:《转载 VB程序开发电缆挂牌制作中的应用 电缆挂牌》为网友夜梦佳人分享!如侵犯到您的合法权益请联系我们删除