１ 前 言
在油田生產中，廣泛使用著大量井下常用工具，如封隔器、地層測試器、射孔槍及其配件、磁性定位器等。由于上述零部件屬于非標準件，因此在生產作業過程中，同一系列的零部件沒有統一的標準，經常出現“同一種工藝管柱，下井工具不同”的現象，給生產、施工帶來不便。另外，在進行工藝技術創新和改進時，對涉及到的非標準件往往要進行重新設計，既增加了非標件圖繪制的重復勞動，浪費了大量的人力物力，又使工藝創新變得復雜化。為此，本文利用ＶＢ和ＡｕｔｏＣＡＤ軟件對井下常用工具圖庫管理系統進行開發。這不僅可以節省大量的人力物力，降低勞動強度，而且還可為油田工藝管理、施工作業、產品創新設計帶來方便。
２ ＶＢ和ＡｕｔｏＣＡＤ軟件簡介
Ｖｉｓｕａｌ Ｂａｓｉｃ是一種面向對象和可視化的Ｗｉｎｄｏｗｓ開發語言，采用事件驅動編程和交互式開發，數據庫操作方便。ＡｕｔｏＣＡＤ是由美國Ａｕｔｏｄｅｓｋ歐特克公司于20世紀80年代初為微機上應用ＣＡＤ技術（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而開發的計算機繪圖軟件包，經過不斷的完善，現已經成為國際上廣為流行的繪圖工具。ＡｕｔｏＣＡＤ具有良好的用戶界面，通過交互菜單或命令行方式便可以進行各種操作。它的多文檔設計環境，讓非計算機專業人員也能很快地學會使用。
為此，本文以Ｗｉｎｄｏｗｓ ＸＰ為操作系統，選用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８軟件作為井下常用工具圖庫管理系統的開發工具。
３ 井下常用工具圖庫管理系統的開發
３．１ 圖庫管理系統主界面
圖庫管理系統界面主要體現軟件的設計水平和風格，故在設計圖庫界面時一般應滿足較好的容錯能力、功能簡潔而高效、良好的交互方式等原則。為此，本文在遵循非標準件的建模以及施工工藝合理配置的基礎上，設計出界面友好、操作方便、可靠實用的井下工具圖庫管理系統，其主界面如圖１所示。
３．２ 查找零件信息模塊
圖２為查找零件信息模塊界面。在“查找零件信息”模塊中，可以從多方面查詢所需要的零件信息。可以查詢零件名稱，也可以從零件代號、類型及生產單位等信息來查找所需零件。
３．３ 添加零件信息模塊
圖庫管理系統的添加零件信息模塊界面如圖３所示，在該界面中可以自由地進行添加零件信息的操作，包括零件名稱、零件類型、零件代號、生產單位以及設計者等相關信息。
３．４ 編輯零件信息模塊
圖庫管理系統的編輯零件信息模塊如圖４所示，在該界面中我們可以自由地進行零件信息修改的操作，包括零件名稱、零件類型、零件代號以及零件材料等相關信息。
４ 部分關鍵代碼
４．１ 查找命令
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｉｆ Ｃｈｅｃｋ１．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ
ｓｑｌ ＝ ＂零件名稱＝＇＂ ＆ Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ ＆ ＂＂） ＆ ＂＇＂
Ｅｎｄ Ｉｆ
Ｉｆ Ｃｈｅｃｋ２．Ｖａｌｕｅ ＝ ｖｂＣｈｅｃｋｅｄ Ｔｈｅｎ
Ｉｆ Ｔｒｉｍ（ｓｑｌ） ＝ ＂＂ Ｔｈｅｎ
ｓｑｌ ＝ ＂工具分類＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂
Ｅｌｓｅ
ｓｑｌ ＝ ｓｑｌ ＆ ＂ａｎｄ 工具分類＝＇＂ ＆ Ｔｒｉｍ（Ｃｏｍｂｏ１．Ｔｅｘｔ ＆ ＂ ＂） ＆ ＂＇＂
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
４．２ 添加命令
Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ５．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ
ＭｓｇＢｏｘ ＂零件代號不能為空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂
Ｔｅｘｔ５．ＳｅｔＦｏｃｕｓ
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｉｆ
Ｉｆ Ｔｒｉｍ（Ｔｅｘｔ６．Ｔｅｘｔ） ＝ ＂＂ Ｔｈｅｎ
ＭｓｇＢｏｘ ＂零件名稱不能為空＂， ｖｂＯＫＯｎｌｙ ＋ ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂＂
Ｔｅｘｔ６．ＳｅｔＦｏｃｕｓ
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｓｕｂ
４．３ 編輯命令
Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄｄｅｌ＿Ｃｌｉｃｋ（）
Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ
Ｄｉｍ ａｎｓｗｅｒ Ａｓ Ｓｔｒｉｎｇ
ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂確定要刪除嗎？＂， ｖｂＹｅｓＮｏ， ＂＂）
Ｉｆ ａｎｓｗｅｒ ＝ ｖｂＹｅｓ Ｔｈｅｎ
ＤａｔａＧｒｉｄ１．ＡｌｌｏｗＤｅｌｅｔｅ ＝ Ｔｒｕｅ
ｒｓ＿ｂｏｏｋ．Ｄｅｌｅｔｅ
ｒｓ＿ｂｏｏｋ．Ｕｐｄａｔｅ
ＤａｔａＧｒｉｄ１．Ｒｅｆｒｅｓｈ
Ｅｌｓｅ
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
５ 結 論
以Ｗｉｎｄｏｗｓ ＸＰ為操作系統，選用ＶＢ ６．０和ＡｕｔｏＣＡＤ ２００８軟件開發出井下常用工具圖庫管理系統，該系統具有查找、添加、編輯等功能。該系統的應用不僅為油田企業節省大量的人力物力，而且為油田工藝管理、施工作業、產品創新設計帶來方便。
