楊濤 胡大勇

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

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

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

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

１前言

在油田生產(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ó)際上廣為流行的繪圖工具。ＡｕｔｏＣＡＤ具有良好的用戶(hù)界面，通過(guò)交互菜單或命令行方式便可以進(jìn)行各種操作。它的多文檔設(shè)計(jì)環(huán)境，讓非計(jì)算機(jī)專(zhuān)業(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)滿(mǎn)足較好的容錯(cuò)能力、功能簡(jiǎn)潔而高效、良好的交互方式等原則。為此，本文在遵循非標(biāo)準(zhǔn)件的建模以及施工工藝合理配置的基礎(chǔ)上，設(shè)計(jì)出界面友好、操作方便、可靠實(shí)用的井下工具圖庫(kù)管理系統(tǒng)，其主界面如圖１所示。

３．２查找零件信息模塊

圖２為查找零件信息模塊界面。在“查找零件信息”模塊中，可以從多方面查詢(xún)所需要的零件信息?？梢圆樵?xún)零件名稱(chēng)，也可以從零件代號(hào)、類(lèi)型及生產(chǎn)單位等信息來(lái)查找所需零件。

３．３添加零件信息模塊

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

３．４編輯零件信息模塊

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

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

４．１查找命令

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

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

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

Ｅｎｄ Ｉｆ

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

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

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

Ｅｌｓｅ

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

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２添加命令

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

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

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

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

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｓｕｂ

４．３編輯命令

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

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

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

ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂確定要?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)方便。

主要參考文獻(xiàn)

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

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

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

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

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