楊濤 胡大勇

［摘要］針對井下常用工具沒有統(tǒng)一標(biāo)準(zhǔn)，且在工藝技術(shù)創(chuàng)新和改進(jìn)時，對涉及到的非標(biāo)準(zhǔn)件往往要進(jìn)行重新設(shè)計這一問題，本文利用VB 6.0和AutoCAD 2008軟件開發(fā)出井下常用工具圖庫管理系統(tǒng)，實(shí)現(xiàn)對油田井下常用工具圖庫的查找、添加、編輯等功能。該系統(tǒng)的應(yīng)用不僅為油田企業(yè)節(jié)省大量的人力物力，而且為油田工藝管理、施工作業(yè)、產(chǎn)品創(chuàng)新設(shè)計帶來方便。

［關(guān)鍵詞］VB； AutoCAD； 圖庫管理

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 18. 037

［中圖分類號］F273.1［文獻(xiàn)標(biāo)識碼］A［文章編號］1673 - 0194（2012）18- 0068- 02

１前言

在油田生產(chǎn)中，廣泛使用著大量井下常用工具，如封隔器、地層測試器、射孔槍及其配件、磁性定位器等。由于上述零部件屬于非標(biāo)準(zhǔn)件，因此在生產(chǎn)作業(yè)過程中，同一系列的零部件沒有統(tǒng)一的標(biāo)準(zhǔn)，經(jīng)常出現(xiàn)“同一種工藝管柱，下井工具不同”的現(xiàn)象，給生產(chǎn)、施工帶來不便。另外，在進(jìn)行工藝技術(shù)創(chuàng)新和改進(jìn)時，對涉及到的非標(biāo)準(zhǔn)件往往要進(jìn)行重新設(shè)計，既增加了非標(biāo)件圖繪制的重復(fù)勞動，浪費(fèi)了大量的人力物力，又使工藝創(chuàng)新變得復(fù)雜化。為此，本文利用ＶＢ和ＡｕｔｏＣＡＤ軟件對井下常用工具圖庫管理系統(tǒng)進(jìn)行開發(fā)。這不僅可以節(jié)省大量的人力物力，降低勞動強(qiáng)度，而且還可為油田工藝管理、施工作業(yè)、產(chǎn)品創(chuàng)新設(shè)計帶來方便。

２ＶＢ和ＡｕｔｏＣＡＤ軟件簡介

Ｖｉｓｕａｌ Ｂａｓｉｃ是一種面向?qū)ο蠛涂梢暬模祝椋睿洌铮鳎箝_發(fā)語言，采用事件驅(qū)動編程和交互式開發(fā)，數(shù)據(jù)庫操作方便。ＡｕｔｏＣＡＤ是由美國Ａｕｔｏｄｅｓｋ歐特克公司于20世紀(jì)80年代初為微機(jī)上應(yīng)用ＣＡＤ技術(shù)（Ｃｏｍｐｕｔｅｒ Ａｉｄｅｄ Ｄｅｓｉｇｎ）而開發(fā)的計算機(jī)繪圖軟件包，經(jīng)過不斷的完善，現(xiàn)已經(jīng)成為國際上廣為流行的繪圖工具。ＡｕｔｏＣＡＤ具有良好的用戶界面，通過交互菜單或命令行方式便可以進(jìn)行各種操作。它的多文檔設(shè)計環(huán)境，讓非計算機(jī)專業(yè)人員也能很快地學(xué)會使用。

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

３井下常用工具圖庫管理系統(tǒng)的開發(fā)

３．１圖庫管理系統(tǒng)主界面

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

３．２查找零件信息模塊

圖２為查找零件信息模塊界面。在“查找零件信息”模塊中，可以從多方面查詢所需要的零件信息?？梢圆樵兞慵Q，也可以從零件代號、類型及生產(chǎn)單位等信息來查找所需零件。

３．３添加零件信息模塊

圖庫管理系統(tǒng)的添加零件信息模塊界面如圖３所示，在該界面中可以自由地進(jìn)行添加零件信息的操作，包括零件名稱、零件類型、零件代號、生產(chǎn)單位以及設(shè)計者等相關(guān)信息。

３．４編輯零件信息模塊

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

４部分關(guān)鍵代碼

４．１查找命令

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

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

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

Ｅｎｄ Ｉｆ

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

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

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

Ｅｌｓｅ

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

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２添加命令

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｓｕｂ

４．３編輯命令

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

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

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

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

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

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

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

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

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

Ｅｌｓｅ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

５結(jié)論

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

主要參考文獻(xiàn)

［１］ 劉凱，馬麗敏，鄒德福． 清管器應(yīng)用技術(shù)的發(fā)展［Ｊ］． 管道技術(shù)與設(shè)備， ２００７（５）．

［２］ 夏天宇． 管線通球清管工藝在石化倉儲行業(yè)的應(yīng)用［Ｊ］． 中國石油和化工標(biāo)準(zhǔn)與質(zhì)量， ２０１１（７）．

［３］ 鄧曉峰， 何永春， 彭維茂． 天然氣管道氮?dú)飧稍镏脫Q工藝及實(shí)際應(yīng)用［Ｊ］．石油與天然氣化工， ２０１１（３）．

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

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