基于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年代初為微機上應用ＣＡＤ技術（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而開發的計算機繪圖軟件包，經過不斷的完善，現已經成為國際上廣為流行的繪圖工具。ＡｕｔｏＣＡＤ具有良好的用戶界面，通過交互菜單或命令行方式便可以進行各種操作。它的多文檔設計環境，讓非計算機專業人員也能很快地學會使用。

為此，本文以Ｗｉｎｄｏｗｓ ＸＰ為操作系統，選用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８軟件作為井下常用工具圖庫管理系統的開發工具。

３井下常用工具圖庫管理系統的開發

３．１圖庫管理系統主界面

圖庫管理系統界面主要體現軟件的設計水平和風格，故在設計圖庫界面時一般應滿足較好的容錯能力、功能簡潔而高效、良好的交互方式等原則。為此，本文在遵循非標準件的建模以及施工工藝合理配置的基礎上，設計出界面友好、操作方便、可靠實用的井下工具圖庫管理系統，其主界面如圖１所示。

３．２查找零件信息模塊

圖２為查找零件信息模塊界面。在“查找零件信息”模塊中，可以從多方面查詢所需要的零件信息。可以查詢零件名稱，也可以從零件代號、類型及生產單位等信息來查找所需零件。

３．３添加零件信息模塊

圖庫管理系統的添加零件信息模塊界面如圖３所示，在該界面中可以自由地進行添加零件信息的操作，包括零件名稱、零件類型、零件代號、生產單位以及設計者等相關信息。

３．４編輯零件信息模塊

圖庫管理系統的編輯零件信息模塊如圖４所示，在該界面中我們可以自由地進行零件信息修改的操作，包括零件名稱、零件類型、零件代號以及零件材料等相關信息。

４部分關鍵代碼

４．１查找命令

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

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

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

Ｅｎｄ Ｉｆ

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

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

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

Ｅｌｓｅ

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

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２添加命令

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｓｕｂ

４．３編輯命令

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

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

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

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

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

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

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

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

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

Ｅｌｓｅ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

５結論

以Ｗｉｎｄｏｗｓ ＸＰ為操作系統，選用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８軟件開發出井下常用工具圖庫管理系統，該系統具有查找、添加、編輯等功能。該系統的應用不僅為油田企業節省大量的人力物力，而且為油田工藝管理、施工作業、產品創新設計帶來方便。

主要參考文獻

［１］ 劉凱，馬麗敏，鄒德福． 清管器應用技術的發展［Ｊ］． 管道技術與設備， ２００７（５）．

［２］ 夏天宇． 管線通球清管工藝在石化倉儲行業的應用［Ｊ］． 中國石油和化工標準與質量， ２０１１（７）．

［３］ 鄧曉峰， 何永春， 彭維茂． 天然氣管道氮氣干燥置換工藝及實際應用［Ｊ］．石油與天然氣化工， ２０１１（３）．

［４］ 畢克書． 基于Ｅｘｃｅｌ ＶＢＡ開發干部管理信息系統［Ｊ］． 中國管理信息化，２０１２，１５（５）．

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