记录vb编程教程

利用VB编程实现检测报告记录自动生成赵波,赵峰(江苏省计量测试技术研究所,江苏南京210007)摘要:本文介绍了如何通过VB编程利用WordApplication对象模型实现检测报告或原始记录自动生成.
文中首先介绍了Word对象模型及其结构;然后详细给出了一个题头信息重复的电磁兼容原始记录自动生成的实际例子,列出了该例的程序代码.
利用文中介绍的方法,在对需要出具的报告和记录必要分析的基础上,利用VB编程便能实现检测报告和原始记录自动生成,有效地提高检测工作效率及降低报告差错率.
关键词:VB;WordApplication;检测报告自动生成中图分类号:TP311.
52文献标识码:A文章编号:1672-4984(2006)03-0119-03UsingVBprogrammingtofulfilltestingreportandrecordautomaticallyZHAOBo,ZHAOFeng(JiangsuInstituteofMeasurementandTestingTechnology,Nanjing210007,China)Abstract:Inthispaper,itsdescribedthathowtouseWordApplicationObjectModelbasedonVBprogrammingtofulfilltestingreportandrecordautomatically.
FirsttheWordObjectModelisintroduced;secondlyanexampleoffulfillingEMCtestingrecordautomaticallyisgivenindetail.
Usingthismethod,wecanaccomplishtestingreportandrecordautomatically,improvethetestingefficiencyandreducethereportmistakes.
Keywords:VB;Wordapplication;Fulfilltestingreportautomatically收稿日期:2005-05-30;收到修改稿日期:2005-07-12在日常检测工作中,我们需要出具大量的检测报告和原始记录,这其中含有大量的重复信息,比如一份记录中需要数次填写样品名称、编号、生产厂家等信息.
虽然现在计算机和MicrosoftOffice软件包的广泛应用相对简化了这项工作,但若再辅以VisualBasic编程便能实现报告及记录的自动生成,最大程度地降低重复性和差错率,提高检测工作效率.
检测报告和原始记录一般在MicrosoftWord软件环境下出具,本文以MicrosoftWord2000环境下利用VB6.
0编程实现为例,在Office软件包其它软件环境下编程与此类似,可参考使用.
1Word对象模型在Word中,凡是手工可以完成的工作,包括对文档的操作、对文字的处理等,都可以通过编写程序来自动完成.
我们只需提供必需的输入(Input),通过VB编程就能自动生成想要的输出(Output).
VB是一种面向对象的编程环境,整个Word应用软件能被看成一个Application对象.
在该对象中包括了Word软件的各个组成部分(见图1).
其中Assistants对象代表了Word中的Office助手.
CommandBars对象代表了Word软件的所有命令栏,包括菜单栏、工具栏等.
Dialogs对象代表了Word软件中的内置对话框.
Documents对象是Word中的主要对象,整个Word的工作也就是针对文档(即Documents对象)进行的.
文档中的所有句子由Sentences对象表示,所有段落以Paragraphs对象表示,所有表格由Tables对象表示……VB通过使用Application对象所包含的对象可以访问Word软件的各个组成部分,使用并增强第32卷第3期2006年5月中国测试技术CHINAMEASUREMENTTECHNOLOGYVol.
32No.
3May,2006Word的功能;通过使用Documents对象包含的各种对象可以访问文档中的任何组成部分,并对文档进行编辑.
这两者结合使用能实现报告或记录的自动生成.
2VB编程实例电磁兼容(EMC)试验是产品型式试验、样机试验中很重要的试验项目,包含了很多项检测指标,通常一个产品的EMC试验要出具多份原始记录.
这些记录的题头信息(如表1)都是重复的,完全可以通过编程的方法来自动生成,已编译成可执行文件的"EMC原始记录题头生成系统"软件界面图(略).
表1原始记录题头示范样品名称型号规格样品编号受检单位2.
1程序实现的原理多种计量产品需做各种类型的EMC试验,其遵循的标准和要求不尽相同,但它们都用到表1这样的原始记录题头.
事先应分别定型各类产品的原始记录模板(明确所用标准、具体指标等),把这些模板放在一个文件夹下,可命名此文件夹为templets.
在出具某产品试验原始记录时,应根据产品种类及试验类型(如电能表定型鉴定试验)在templets文件夹中选择相应的空白记录模板,并在用户界面(图略)取得相应的输入信息,自动完成原始记录填写、预览、打印等工作.
2.
2程序实现的具体方法1个ComboBox控件,代表"产品类型";6个TextBox控件,分别代表"样品名称"、"规格型号"、"受检单位"、"样品编号"等信息;4个CommandButton控件,分别代表"填写"、"预览"、"打印"、"退出"等命令,这些都可以在VB对象窗口直接添加.
①"产品类型"ComboBox控件与templets文件夹中的各种模板关联,可根据产品种类及试验类型下拉选择相应的条目,从而选择相应的空白记录模板.
程序如下:PrivateSubCombo1Click()SetWrdApp=CreateObject(″Word.
Application″)′使用WordApplication对象SelectCaseCombo1.
TextCase″电能表样机试验″′选择相应空白记录模板WrdApp.
Documents.
OpenFileName:=″…templets电能表样机试验空白记录模板.
doc″Case″衡器样机试验″WrdApp.
Documents.
OpenFileName:=″…templets衡器样机试验空白记录模板.
doc″Case″水表样机试验″WrdApp.
Documents.
OpenFileName:=″…templets水表样机试验空白记录模板.
doc″EndSelectEndSub②"填写"CommandButton控件把6个TextBox控件中输入的"样品名称"、"规格型号"、"受检单位"、"样品编号"等信息填入空白记录,程序如下:PrivateSubCommand1Click()……Fori=1To8′按照原始记录总页数每页循环填写SetaRange=WrdApp.
ActiveDocument.
Tables(i).
Cell(1,2).
Range′选中第1行第2格aRange.
InsertAfter(Text1.
Text)′把"样品名称"中输入信息填入选中的表格栏SetbRange=WrdApp.
ActiveDocument.
Tables(i).
Cell(1,4).
Range′选中第1行第4格bRange.
InsertAfter(Text2.
Text)′把"型号规格"中输入信息填入选中的表格栏SetcRange=WrdApp.
ActiveDocument.
Tables(i).
Cell(2,2).
Range′选中第2行第2格cRange.
InsertAfter(″样品1:″&Text4&″样品2:″&Text5&″样品3:″&Text6)′把"样品编号"中输入信息填入选中的表格栏SetdRange=WrdApp.
ActiveDocument.
Tables(i).
Cell(3,2).
Range′选中第3行第2格dRange.
InsertAfter(Text3.
Text)′把"受检单位"中输入信息填入选中的表格栏NextEndSub③"预览"CommandButton控件把按照输入信息填好的原始记录在Word环境下实现预览功能,程序如下:PrivateSubCommand2Click()……WrdApp.
ActiveDocument.
PrintPreviewWrdApp.
Visible=TrueEndSub④"打印"CommandButton控件把按照输入信息填好的原始记录在系统默认打印机上实现打印输出,程序如下:120中国测试技术2006年5月PrivateSubCommand3Click()……WrdApp.
ActiveDocument.
PrintEndSub⑤"退出"CommandButton控件实现程序退出,程序如下:PrivateSubCommand4Click()WrdApp.
Quit′退出WordApplication对象UnloadForm1EndSub3结束语上面的例子实现了不同种类多张原始记录题头信息的自动生成功能,原理是利用VB编程控制MicrosoftWord这个Application对象,并对其中的Documents对象、Tables对象进行操作,实现了文档编辑、自动打印等功能.
这个例子是很简单的,能自动实现的功能也很有限.
但通过这个例子,我们了解到即使再复杂的报告或记录格式,只要进行必要的分析,凡是需要人工完成的工作,包括文档操作、文字处理等等,都可以通过VB编程来自动实现.
我们只需提供必要的输入信息,就能自动生成检测报告及原始记录,这样能有效降低重复性和差错率,显著提高检测工作效率.
参考文献[1]潘小轰.
中文VisualBasic6.
0程序设计基础教程[M].
北京:冶金工业出版社,2001.
[2]李华飚,等.
MicrosoftOffice972000高级使用及开发实例[M].
北京:北京理工大学出版社,1999.
[3]晏强,等.
电能计量检定生产管理系统的研究与设计[J].
中国测试技术,2003,29(1):37-39.
[4]庞一鸣.
VB问答式教程[M].
北京:清华大学出版社,2003.
[5]Microsoft公司.
希望图书创作室,译.
VisualBasic6.
0组件工具指南[M].
北京:希望电子出版社,1999.
[6]PaulLomax.
刘海明,译.
VB与VBA技术手册[M].
北京:中国电力出版社,2002.
(上接第22页)Ψ是球面夹角.
尽管这个方程已经建立了部分散射信号和总的散射信号的关系,但Ψ很难计算.
由于能量守恒,散射光子的能量由于撞击电子的反冲运动而减少.
对于100keV的X射线,散射光子的能量减少了近40%.
散射光子由于能量减少,穿透物质的厚度将减少.
探测违禁品的散射探测器,无论前散射和背散射探测器,都安放在位于包裹附近的位置.
背散射探测器的优点是显而易见的,因为射线源和探测器被放置在探测物体的同一侧.
许多应用都用到这个装置.
如果物质的Zeff越低,密度越大以及探测器到包裹表面的距离越小,那么康普顿散射信号就越强,反之亦然.
大多数爆炸品,尤其是可塑炸药有较低的Zeff和较高的密度.
也就是说这项技术能给位于包裹表面的低原子序数的物质提供更多的信息.
4未来的发展趋势上述研究表明有多种X射线技术可以应用于违禁品探测领域,然而没有任何一种技术可以单独提供准确识别物体的物质类型所需的两个参数即密度和有效原子序数.
由于各类技术均有特定的使用环境和针对性,尤其在目前各种恐怖活动与违法犯罪行为更具有一定的隐蔽性,单一使用任何一种技术设备都难以满足安全防范技术及反恐防爆的要求.
所以有必要采用数据融合技术,数据融合技术就是所有的信息被结合在一起以提高探测水平.
但目前市面上所有的多感系统都是"伪多感"系统,称之为"伪多感"系统是因为这种系统虽是几种X射线技术的组合,但一类物质的探测只使用一种技术.
所以将多种X射线技术真正的相结合是未来发展的主要方向,随着科技的发展,除了X射线技术,还可以考虑将质谱分析、中子分析、核磁共振、蒸汽探测等技术应用到安检设备中.
参考文献[1]孙丽娜.
X射线安检设备中物质分类识别方法的研究[D].
沈阳:东北大学,2003.
[2]XinhuaShi.
ImprovingObjectClassificationinX-rayLuggageInspection[D],Blacksburg,Virginia:VirginiaPolytechnicInstituteandStateUniversity,2000.
[3]QiangLu.
TheUtilityofX-rayDual-EnergyTransmissionandScatterTechnologiesforIllicitMaterialDetection[D],Blacksburg,Virginia:VirginiaPolytechnicInstituteandStateUniversity,1999.
[4]P.
J.
Arvanitis.
DevelopinganAutomatedExplosivesDetectionPrototypeBasedontheAS&E101ZZsystem[D],Blacksburg,Virginia:VirginiaPolytechnicInstituteandStateUniversity,1997.
[5]R.
E.
Alvarez,DrA.
Energy-SelectiveReconstructioninX-rayComputerizedTomography[J],Phys.
Med.
Biol.
,1976,21(5):733-744.
第32卷第3期赵波等:利用VB编程实现检测报告记录自动生成121