基于vb和autocad开发的井下常用工具图库管理系统

《基于vb和autocad开发的井下常用工具图库管理系统》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基于VB和AutoCAD开发的井下常用工具图库管理系统１前言　　在油田生产中，广泛使用着大量井下常用工具，如封隔器、地层测试器、射孔枪及其配件、磁性定位器等。由于上述零部件属于非标准件，因此在生产作业过程中，同一系列的零部件没有统一的标准，经常出现“同一种工艺管柱，下井工具不同”的现象，给生产、施工带来不便。另外，在进行工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计，既增加了非标件图绘制的重复劳动，浪费了大量的人力物力，又使工艺创新变得复杂化。为此，本文利用ＶＢ和ＡｕｔｏＣＡＤ软件对井下常用

2、工具图库管理系统进行开发。这不仅可以节省大量的人力物力，降低劳动强度，而且还可为油田工艺管理、施工作业、产品创新设计带来方便。　　２ＶＢ和ＡｕｔｏＣＡＤ软件简介　　ＶｉｓｕａｌＢａｓｉｃ是一种面向对象和可视化的Ｗｉｎｄｏｗｓ开发语言，采用事件驱动编程和交互式开发，数据库操作方便。ＡｕｔｏＣＡＤ是由美国Ａｕｔｏｄｅｓｋ欧特克公司于20世纪80年代初为微机上应用ＣＡＤ技术（ＣｏｍｐｕｔｅｒＡｉｄｅｄＤｅｓｉｇｎ）而开发的计算机绘图软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具。ＡｕｔｏＣＡＤ具有

3、良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。　　为此，本文以ＷｉｎｄｏｗｓＸＰ为操作系统，选用ＶＢ６．０和ＡｕｔｏＣＡＤ２００８软件作为井下常用工具图库管理系统的开发工具。　　３井下常用工具图库管理系统的开发　　３．１图库管理系统主界面　　图库管理系统界面主要体现软件的设计水平和风格，故在设计图库界面时一般应满足较好的容错能力、功能简洁而高效、良好的交互方式等原则。为此，本文在遵循非标准件的建模以及施工工艺合理配置的基础上，设计出

4、界面友好、操作方便、可靠实用的井下工具图库管理系统，其主界面如图１所示。　　３．２查找零件信息模块　　图２为查找零件信息模块界面。在“查找零件信息”模块中，可以从多方面查询所需要的零件信息。可以查询零件名称，也可以从零件代号、类型及生产单位等信息来查找所需零件。　　３．３添加零件信息模块　　图库管理系统的添加零件信息模块界面如图３所示，在该界面中可以自由地进行添加零件信息的操作，包括零件名称、零件类型、零件代号、生产单位以及设计者等相关信息。　　３．４编辑零件信息模块　　图库管理系统的编辑零件信息模块如

5、图４所示，在该界面中我们可以自由地进行零件信息修改的操作，包括零件名称、零件类型、零件代号以及零件材料等相关信息。　　４部分关键代码　　４．１查找命令　　ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）　　ＩｆＣｈｅｃｋ１．Ｖａｌｕｅ＝ｖｂＣｈｅｃｋｅｄＴｈｅｎ　　ｓｑｌ＝＂零件名称＝＇＂＆Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ＆＂＂）＆＂＇＂　　ＥｎｄＩｆ　　ＩｆＣｈｅｃｋ２．Ｖａｌｕｅ＝ｖｂＣｈｅｃｋｅｄＴｈｅｎ　　ＩｆＴｒｉｍ（ｓｑｌ）＝＂＂Ｔｈｅｎ　　ｓｑｌ＝＂工具分类＝＇＂＆Ｔｒｉｍ（Ｃｏｍｂｏ１

6、．Ｔｅｘｔ＆＂＂）＆＂＇＂　　Ｅｌｓｅ　　ｓｑｌ＝ｓｑｌ＆＂ａｎｄ工具分类＝＇＂＆Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ＆＂＂）＆＂＇＂　　ＥｎｄＩｆ　　ＥｎｄＳｕｂ　　４．２添加命令　　ＩｆＴｒｉｍ（Ｔｅｘｔ５．Ｔｅｘｔ）＝＂＂Ｔｈｅｎ　　ＭｓｇＢｏｘ＂零件代号不能为空＂，ｖｂＯＫＯｎｌｙ＋ｖｂＥｘｃｌａｍａｔｉｏｎ，＂＂　　Ｔｅｘｔ５．ＳｅｔＦｏｃｕｓ　　ＥｘｉｔＳｕｂ　　ＥｎｄＩｆ　　ＩｆＴｒｉｍ（Ｔｅｘｔ６．Ｔｅｘｔ）＝＂＂Ｔｈｅｎ　　ＭｓｇＢｏｘ＂零件名称不能为空＂，ｖｂＯＫＯｎｌｙ＋ｖｂＥｘｃｌａ

7、ｍａｔｉｏｎ，＂＂　　Ｔｅｘｔ６．ＳｅｔＦｏｃｕｓ　　ＥｘｉｔＳｕｂ　　ＥｎｄＳｕｂ　　４．３编辑命令　　ＰｒｉｖａｔｅＳｕｂｃｍｄｄｅｌ＿Ｃｌｉｃｋ（）　　ＯｎＥｒｒｏｒＲｅｓｕｍｅＮｅｘｔ　　ＤｉｍａｎｓｗｅｒＡｓＳｔｒｉｎｇ　　ａｎｓｗｅｒ＝ＭｓｇＢｏｘ（＂确定要删除吗？＂，ｖｂＹｅｓＮｏ，＂＂）　　Ｉｆａｎｓｗｅｒ＝ｖｂＹｅｓＴｈｅｎ　　ＤａｔａＧｒｉｄ１．ＡｌｌｏｗＤｅｌｅｔｅ＝Ｔｒｕｅ　　ｒｓ＿ｂｏｏｋ．Ｄｅｌｅｔｅ　　ｒｓ＿ｂｏｏｋ．Ｕｐｄａｔｅ　　ＤａｔａＧｒｉｄ１．Ｒｅｆｒｅｓｈ　　Ｅ

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