国开电大作业范文-基于VB和AutoCAD开发的井下常用工具图库管理系.doc

　　１ 前 言　　在油田生产中，广泛使用着大量井下常用工具，如封隔器、地层测试器、射孔枪及其配件、磁性定位器等由于上述零部件属于非标准件，因此在生产作业过程中，同一系列的零部件没有统一的标准，经常出现“同一种工艺管柱，下井工具不同”的现象，给生产、施工带来不便另外，在进行工艺技术创新和改进时，对涉及到的非标准件往往要进行重新设计，既增加了非标件图绘制的重复劳动，浪费了大量的人力物力，又使工艺创新变得复杂化为此，本文利用ＶＢ和ＡｕｔｏＣＡＤ软件对井下常用工具图库管理系统进行开发这不仅可以节省大量的人力物力，降低劳动强度，而且还可为油田工艺管理、施工作业、产品创新设计带来方便　　２ ＶＢ和ＡｕｔｏＣＡＤ软件简介　　Ｖｉｓｕａｌ Ｂａｓｉｃ是一种面向对象和可视化的Ｗｉｎｄｏｗｓ开发语言，采用事件驱动编程和交互式开发，数据库操作方便ＡｕｔｏＣＡＤ是由美国Ａｕｔｏｄｅｓｋ欧特克公司于20世纪80年代初为微机上应用ＣＡＤ技术（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而开发的计算机绘图软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具ＡｕｔｏＣＡＤ具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。

它的多文档设计环境，让非计算机专业人员也能很快地学会使用　　为此，本文以Ｗｉｎｄｏｗｓ ＸＰ为操作系统，选用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８软件作为井下常用工具图库管理系统的开发工具　　３ 井下常用工具图库管理系统的开发　　３．１ 图库管理系统主界面　　图库管理系统界面主要体现软件的设计水平和风格，故在设计图库界面时一般应满足较好的容错能力、功能简洁而高效、良好的交互方式等原则为此，本文在遵循非标准件的建模以及施工工艺合理配置的基础上，设计出界面友好、操作方便、可靠实用的井下工具图库管理系统，其主界面如图１所示　　３．２ 查找零件信息模块　　图２为查找零件信息模块界面在“查找零件信息”模块中，可以从多方面查询所需要的零件信息可以查询零件名称，也可以从零件代号、类型及生产单位等信息来查找所需零件　　３．３ 添加零件信息模块　　图库管理系统的添加零件信息模块界面如图３所示，在该界面中可以自由地进行添加零件信息的操作，包括零件名称、零件类型、零件代号、生产单位以及设计者等相关信息　　３．４ 编辑零件信息模块　　图库管理系统的编辑零件信息模块如图４所示，在该界面中我们可以自由地进行零件信息修改的操作，包括零件名称、零件类型、零件代号以及零件材料等相关信息。

　　４ 部分关键代码　　４．１ 查找命令　　Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）　　Ｉｆ Ｃｈｅｃｋ１．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ　　ｓｑｌ ＝ ”零件名称＝’” ＆ Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ ＆ ””） ＆ ”’”　　Ｅｎｄ Ｉｆ　　Ｉｆ Ｃｈｅｃｋ２．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ　　Ｉｆ Ｔｒｉｍ（ｓｑｌ） ＝ ”” Ｔｈｅｎ　　ｓｑｌ ＝ ”工具分类＝’” ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ” ”） ＆ ”’”　　Ｅｌｓｅ　　ｓｑｌ ＝ ｓｑｌ ＆ ”ａｎｄ 工具分类＝’” ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ” ”） ＆ ”’”　　Ｅｎｄ Ｉｆ　　Ｅｎｄ Ｓｕｂ　　４．２ 添加命令　　Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ５．Ｔｅｘｔ） ＝ ”” Ｔｈｅｎ　　ＭｓｇＢｏｘ ”零件代号不能为空”， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ””　　Ｔｅｘｔ５．ＳｅｔＦｏｃｕｓ　　Ｅｘｉｔ Ｓｕｂ　　Ｅｎｄ Ｉｆ　　Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ６．Ｔｅｘｔ） ＝ ”” Ｔｈｅｎ　　ＭｓｇＢｏｘ ”零件名称不能为空”， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ””　　Ｔｅｘｔ６．ＳｅｔＦｏｃｕｓ　　Ｅｘｉｔ Ｓｕｂ　　Ｅｎｄ Ｓｕｂ　　４．３ 编辑命令　　Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄｄｅｌ＿Ｃｌｉｃｋ（）　　Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ　　Ｄｉｍ ａｎｓｗｅｒ Ａｓ Ｓｔｒｉｎｇ　　ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（”确定要删除吗？”， ｖｂＹｅｓＮｏ， ””）　　Ｉｆ ａｎｓｗｅｒ ＝ ｖｂＹｅｓ Ｔｈｅｎ　　ＤａｔａＧｒｉｄ１．ＡｌｌｏｗＤｅｌｅｔｅ ＝ Ｔｒｕｅ　　ｒｓ＿ｂｏｏｋ．Ｄｅｌｅｔｅ　　ｒｓ＿ｂｏｏｋ．Ｕｐｄａｔｅ　　ＤａｔａＧｒｉｄ１．Ｒｅｆｒｅｓｈ　　Ｅｌｓｅ　　Ｅｘｉｔ Ｓｕｂ　　Ｅｎｄ Ｉｆ　　Ｅｎｄ Ｓｕｂ　　５ 结 论　　以Ｗｉｎｄｏｗｓ ＸＰ为操作系统，选用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８软件开发出井下常用工具图库管理系统，该系统具有查找、添加、编辑等功能。

该系统的应用不仅为油田企业节省大量的人力物力，而且为油田工艺管理、施工作业、产品创新设计带来方便。