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