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