基于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年代初为微机上应用ＣＡＤ技术（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而开发的计算机绘图软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具。ＡｕｔｏＣＡＤ具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。

为此，本文以Ｗｉｎｄｏｗｓ ＸＰ为操作系统，选用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８软件作为井下常用工具图库管理系统的开发工具。

３ 井下常用工具图库管理系统的开发

３．１ 图库管理系统主界面

图库管理系统界面主要体现软件的设计水平和风格，故在设计图库界面时一般应满足较好的容错能力、功能简洁而高效、良好的交互方式等原则。为此，本文在遵循非标准件的建模以及施工工艺合理配置的基础上，设计出界面友好、操作方便、可靠实用的井下工具图库管理系统，其主界面如图１所示。

３．２ 查找零件信息模块

图２为查找零件信息模块界面。在“查找零件信息”模块中，可以从多方面查询所需要的零件信息。可以查询零件名称，也可以从零件代号、类型及生产单位等信息来查找所需零件。

３．３ 添加零件信息模块

图库管理系统的添加零件信息模块界面如图３所示，在该界面中可以自由地进行添加零件信息的操作，包括零件名称、零件类型、零件代号、生产单位以及设计者等相关信息。

图库管理系统的编辑零件信息模块如图４所示，在该界面中我们可以自由地进行零件信息修改的操作，包括零件名称、零件类型、零件代号以及零件材料等相关信息。

４ 部分关键代码

４．１ 查找命令

Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）

Ｉｆ Ｃｈｅｃｋ１．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ

ｓｑｌ ＝ ＂零件名称＝＇＂ ＆ Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ ＆ ＂＂） ＆ ＂＇＂

Ｅｎｄ Ｉｆ

Ｉｆ Ｃｈｅｃｋ２．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ

Ｉｆ Ｔｒｉｍ（ｓｑｌ） ＝ ＂＂ Ｔｈｅｎ

ｓｑｌ ＝ ＂工具分类＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂

Ｅｌｓｅ

ｓｑｌ ＝ ｓｑｌ ＆ ＂ａｎｄ 工具分类＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２ 添加命令

Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ５．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ

ＭｓｇＢｏｘ ＂零件代号不能为空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂

Ｔｅｘｔ５．ＳｅｔＦｏｃｕｓ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ６．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ

ＭｓｇＢｏｘ ＂零件名称不能为空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂

Ｔｅｘｔ６．ＳｅｔＦｏｃｕｓ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｓｕｂ

Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄｄｅｌ＿Ｃｌｉｃｋ（）

Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ

Ｄｉｍ ａｎｓｗｅｒ Ａｓ Ｓｔｒｉｎｇ

ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂确定要删除吗？＂， ｖｂＹｅｓＮｏ， ＂＂）

Ｉｆ ａｎｓｗｅｒ ＝ ｖｂＹｅｓ Ｔｈｅｎ

ＤａｔａＧｒｉｄ１．ＡｌｌｏｗＤｅｌｅｔｅ ＝ Ｔｒｕｅ

ｒｓ＿ｂｏｏｋ．Ｄｅｌｅｔｅ

ｒｓ＿ｂｏｏｋ．Ｕｐｄａｔｅ

ＤａｔａＧｒｉｄ１．Ｒｅｆｒｅｓｈ

Ｅｌｓｅ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

５ 结 论

以Ｗｉｎｄｏｗｓ ＸＰ为操作系统，选用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８软件开发出井下常用工具图库管理系统，该系统具有查找、添加、编辑等功能。该系统的应用不仅为油田企业节省大量的人力物力，而且为油田工艺管理、施工作业、产品创新设计带来方便。

主要参考文献

［１］ 刘凯，马丽敏，邹德福． 清管器应用技术的发展［Ｊ］． 管道技术与设备， ２００７（５）．

［２］ 夏天宇． 管线通球清管工艺在石化仓储行业的应用［Ｊ］． 中国石油和化工标准与质量， ２０１１（７）．

［３］ 邓晓峰， 何永春， 彭维茂． 天然气管道氮气干燥置换工艺及实际应用［Ｊ］． 石油与天然气化工， ２０１１（３）．

［４］ 毕克书． 基于Ｅｘｃｅｌ ＶＢＡ开发干部管理信息系统［Ｊ］． 中国管理信息化，２０１２，１５（５）．

［５］ 金朝文． 输气管道清管球速度控制［Ｊ］． 天然气与石油，２００９（１）．