基于VB和AutoCAD开发井下常用工具图库管理系统.docVIP

基于VB和AutoCAD开发井下常用工具图库管理系统 　　［摘 要］ 针对井下常用工具没有统一标准，且在工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计这一问题，本文利用VB 6.0和AutoCAD 2008软件开发出井下常用工具图库管理系统，实现对油田井下常用工具图库的查找、添加、编辑等功能。该系统的应用不仅为油田企业节省大量的人力物力，而且为油田工艺管理、施工作业、产品创新设计带来方便。 　　［关键词］ VB； AutoCAD； 图库管理 　　doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 18. 037 　　［中图分类号］ F273.1 ［文献标识码］ A ［文章编号］ 1673 - 0194（2012）18- 0068- 02 　　１ 前 言 　　在油田生产中，广泛使用着大量井下常用工具，如封隔器、地层测试器、射孔枪及其配件、磁性定位器等。由于上述零部件属于非标准件，因此在生产作业过程中，同一系列的零部件没有统一的标准，经常出现“同一种工艺管柱，下井工具不同”的现象，给生产、施工带来不便。另外，在进行工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计，既增加了非标件图绘制的重复劳动，浪费了大量的人力物力，又使工艺创新变得复杂化。为此，本文利用ＶＢ和ＡｕｔｏＣＡＤ软件对井下常用工具图库管理系统进行开发。这不仅可以节省大量的人力物力，降低劳动强度，而且还可为油田工艺管理、施工作业、产品创新设计带来方便。 　　２ ＶＢ和ＡｕｔｏＣＡＤ软件简介 　　Ｖｉｓｕａｌ Ｂａｓｉｃ是一种面向对象和可视化的Ｗｉｎｄｏｗｓ开发语言，采用事件驱动编程和交互式开发，数据库操作方便。ＡｕｔｏＣＡＤ是由美国Ａｕｔｏｄｅｓｋ欧特克公司于20世纪80年代初为微机上应用ＣＡＤ技术（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而开发的计算机绘图软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具。ＡｕｔｏＣＡＤ具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。 　　为此，本文以Ｗｉｎｄｏｗｓ ＸＰ为操作系统，选用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８软件作为井???常用工具图库管理系统的开发工具。 　　３ 井下常用工具图库管理系统的开发 　　３．１ 图库管理系统主界面 　　图库管理系统界面主要体现软件的设计水平和风格，故在设计图库界面时一般应满足较好的容错能力、功能简洁而高效、良好的交互方式等原则。为此，本文在遵循非标准件的建模以及施工工艺合理配置的基础上，设计出界面友好、操作方便、可靠实用的井下工具图库管理系统，其主界面如图１所示。 　　３．２ 查找零件信息模块 　　图２为查找零件信息模块界面。在“查找零件信息”模块中，可以从多方面查询所需要的零件信息。可以查询零件名称，也可以从零件代号、类型及生产单位等信息来查找所需零件。 　　３．３ 添加零件信息模块 　　图库管理系统的添加零件信息模块界面如图３所示，在该界面中可以自由地进行添加零件信息的操作，包括零件名称、零件类型、零件代号、生产单位以及设计者等相关信息。 　　３．４ 编辑零件信息模块 　　图库管理系统的编辑零件信息模块如图４所示，在该界面中我们可以自由地进行零件信息修改的操作，包括零件名称、零件类型、零件代号以及零件材料等相关信息。 　　４ 部分关键代码 　　４．１ 查找命令 　　Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（） 　　Ｉｆ Ｃｈｅｃｋ１．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ 　　ｓｑｌ ＝ ＂零件名称＝＇＂ ＆ Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ ＆ ＂＂） ＆ ＂＇＂ 　　Ｅｎｄ Ｉｆ 　　Ｉｆ Ｃｈｅｃｋ２．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ 　　Ｉｆ Ｔｒｉｍ（ｓｑｌ） ＝ ＂＂ Ｔｈｅｎ 　　ｓｑｌ ＝ ＂工具分类＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂ 　　Ｅｌｓｅ 　　ｓｑｌ ＝ ｓｑｌ ＆ ＂ａｎｄ 工具分类＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｓｕｂ 　　４．２ 添加命令 　　Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ５．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ 　　ＭｓｇＢｏｘ ＂零件代号不能为空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂ 　　Ｔｅｘｔ５．ＳｅｔＦｏｃｕｓ 　　Ｅｘｉｔ Ｓｕｂ 　　Ｅｎｄ Ｉｆ 　　Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ６．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ 　　ＭｓｇＢｏｘ ＂零件名称不能为空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂ 　　Ｔｅｘｔ６．ＳｅｔＦｏｃｕｓ