【正文】 管內(nèi)徑、套管內(nèi)徑、地溫梯度、井底溫度、地層壓力、飽和壓力、傳熱系數(shù)、試井產(chǎn)液量、試井流壓、體積含水率、原油密度、地層水密度、原油比熱、地層水比熱、設(shè)計(jì)沉沒度及設(shè)計(jì)排量等十八項(xiàng)內(nèi)容。②粘溫關(guān)系數(shù)據(jù)表定義的字段為：井號(hào)、40℃、45℃、50℃、55℃、60℃、65℃、70℃、75℃、80℃、85℃等溫差為5℃的十個(gè)字段。③抽油機(jī)參數(shù)表定義的字段為：序號(hào)、抽油機(jī)型號(hào)、生產(chǎn)廠家、最大載荷、最大扭矩、前臂長(zhǎng)、后臂長(zhǎng)、連桿長(zhǎng)、曲柄半徑/沖程、沖次、抽油桿壽命等。抽油桿載荷設(shè)計(jì)界面如圖：圖51 抽油桿載荷設(shè)計(jì) 文件文件模塊包括打開Word、和退出。打開Word：用戶可以不通過Office軟件直接打開保存過的設(shè)計(jì)方案文檔。 數(shù)據(jù)管理數(shù)據(jù)管理模塊包括：錄入數(shù)據(jù)、選擇數(shù)據(jù)及數(shù)據(jù)保存三大部分。錄入數(shù)據(jù)模塊功能是打開數(shù)據(jù)錄入向?qū)В褂脩裟軌蛲暾匿浫胂到y(tǒng)運(yùn)行所需要的數(shù)據(jù)。運(yùn)行界面如下圖圖52數(shù)據(jù)錄入向?qū)г撃K中包含了本系統(tǒng)的大部分?jǐn)?shù)據(jù)表：基礎(chǔ)數(shù)據(jù)表、粘溫關(guān)系數(shù)據(jù)表、抽油機(jī)參數(shù)表等。本模塊的每一步按鈕上都寫有防止用戶錄入遺漏或非法操作的處理程序。下面對(duì)該介面功能鍵的設(shè)計(jì)思想及實(shí)現(xiàn)方法介紹如下：選擇抽油機(jī)功能，在每次選擇數(shù)據(jù)進(jìn)行計(jì)算之前，還要選擇所使用抽油機(jī)，由于抽油機(jī)數(shù)據(jù)表中數(shù)據(jù)在程序運(yùn)行時(shí)是以字符串形式參加運(yùn)算的，而抽油機(jī)參數(shù)表中還有不能以字符串形式直接運(yùn)算的數(shù)據(jù)項(xiàng)（如：曲柄半徑/沖程數(shù)據(jù)項(xiàng)740/，860/，975/，1090/，1200/3及沖次數(shù)據(jù)項(xiàng)6，9，12）。這些數(shù)據(jù)項(xiàng)又是選擇抽油機(jī)的關(guān)鍵，因此本程序?qū)υ摥h(huán)節(jié)進(jìn)行了字符串?dāng)?shù)據(jù)轉(zhuǎn)存數(shù)組中的操作，為實(shí)現(xiàn)這一功能定義了xuanQuBingR()?！uanCCeng()?！uancci()三個(gè)過程。圖53 選擇數(shù)據(jù)窗體{選擇曲柄半徑過程} procedure xuanQuBingR()。vari,j,k:integer。 QuBingRstr:string。begin i:=0。 with do begin QuBingRstr:=FieldByName(39。曲柄徑?jīng)_程39。).Asstring+39。,39。 QuBingRL:=strlen(pchar(QuBingRstr))。 SetLength(QuBingRarray,QuBingRL)。 repeat k:=pos(39。/39。,QuBingRstr)。 if k=QuBingRL then break。 QuBingRarray[i]:=strtofloat(copy(QuBingRstr,1,k1))。 k:=pos(39。,39。,QuBingRstr)。 QuBingRstr:=copy(QuBingRstr,k+1,QuBingRL)。 QuBingRL:=QuBingRLk。 inc(i)。 until 11 。 QuBingRL:=i1。 end。end。{選擇沖程過程}procedure xuanCCeng()。var i,j,k:integer。 CCengstr:string。begin i:=0。 with do begin CCengstr:=FieldByName(39。曲柄徑?jīng)_程39。)。Asstring+39。,39。 CCengL:=strlen(pchar(CCengstr))。 SetLength(CCengarray,CCengL)。 repeat k:=pos(39。/39。,CCengstr)。 CCengL:=CCengLk。 CCengstr:=copy(CCengstr,k+1,CCengL+k)。 k:=pos(39。,39。,CCengstr)。 CCengarray[i]:=strtofloat(copy(CCengstr,1,k1))。 if k=CCengL then break。 inc(i)。 until 11 。 CCengL:=i。 end。end。{選擇沖次過程}procedure xuancci()。var i,j,k:integer。 CCistr:string。begin i:=0。 with do begin CCistr:=FieldByName(39。沖次39。)。Asstring+39。,39。 CCiL:=strlen(pchar(CCistr))。 SetLength(CCiarray,CCiL)。 repeat k:=pos(39。,39。,CCistr)。 CCiarray[i]:=strtofloat(copy(CCistr,1,k1))。 if CCiL=2 then inc(i)。 if k=CCiL then break。 CCistr:=copy(CCistr,k+1,CCiLk)。 inc(i)。 CCiL:=CCiLk。 until 11 。 CCiL:=i。end。end。procedure (Sender: TObject)。begin if =false then begin :=。 。 :=39。選擇確定39。 (39。39。)。 :=false。 end else begin :=+10。 :=39。選擇抽油機(jī)39。 (39。39。)。 。 :=true。 xuanQuBingR()。 xuanCCeng()。 xuancci()。 end。 :=。 :=+。end。數(shù)據(jù)搜索功能，能在大量的數(shù)據(jù)中迅速的找到用戶指定的數(shù)據(jù)。以井名作為搜索項(xiàng)。程序如下：procedure (Sender: TObject)?！?/數(shù)據(jù)搜索的開始按鈕程序varStr:string。Flag:Boolean。beginif not ((39。井號(hào)39。,[loCaseInsensitive])) then 　 showMessage(39。找不到數(shù)據(jù)！39。)。end。procedure (Sender: TObject)?！?/數(shù)據(jù)搜索的開始按鈕程序var 　Str:string。 　Flag:Boolean。beginif not ((39。井號(hào)39。,[loCaseInsensitive])) then 　　　showMessage(39。找不到數(shù)據(jù)！39。)。end。 設(shè)計(jì)結(jié)果選擇窗體中最主要的功能就是設(shè)計(jì)按鈕功能，該按鈕先實(shí)現(xiàn)將數(shù)據(jù)賦值給系統(tǒng)常量初始化系統(tǒng)參數(shù)，然后打開設(shè)計(jì)內(nèi)容窗體。設(shè)計(jì)內(nèi)容窗體中包括油井溫度分布、原油粘溫關(guān)系、載荷與抽油桿壽命關(guān)系、設(shè)計(jì)結(jié)果、數(shù)據(jù)導(dǎo)入Word及設(shè)計(jì)參數(shù)的修改等功能。設(shè)計(jì)窗體是本程序運(yùn)行時(shí)最常用的窗體，該窗體中包含了本軟件主要功能實(shí)現(xiàn)的全部?jī)?nèi)容。圖54載荷與抽油桿壽命曲線圖55油井分布粘溫關(guān)系圖 圖56設(shè)計(jì)結(jié)果窗體數(shù)據(jù)導(dǎo)入Word本軟件設(shè)置了將運(yùn)行結(jié)果中的相關(guān)數(shù)據(jù)報(bào)表存為word格式文檔（涉及表格、圖形的輸出），便于用戶修改。通常我們要設(shè)計(jì)出很多各種格式的文檔、報(bào)表，經(jīng)常要進(jìn)行文件的創(chuàng)建、編輯及修改，比如中文輸入，數(shù)據(jù)格式的控制等操作起來比較麻煩。利用大家都很熟悉的office工具結(jié)合開發(fā)，能夠很好的解決這方面的問題。結(jié) 論 （1）影響抽油桿壽命的因素是多方面的。如長(zhǎng)期疲勞工作，桿體本身質(zhì)量油問題，加之工作環(huán)境差、長(zhǎng)時(shí)間浸泡在含油腐蝕介質(zhì)的液體中，設(shè)計(jì)桿柱組合不匹配以及人為因素等。 （2）載荷對(duì)抽油桿壽命的影響規(guī)律為載荷越大抽油桿使用壽命將越低，載荷與抽油桿使用壽命成反比例關(guān)系。（3）根據(jù)抽油桿疲勞裂紋擴(kuò)展模型，應(yīng)用Delphi 。該軟件的功能主要有：①基礎(chǔ)數(shù)據(jù)的管理；②繪制抽油桿使用壽命曲線、井溫和地溫關(guān)系曲線、粘溫關(guān)系曲線；③計(jì)算最大載荷和最小載荷；④抽油桿壽命計(jì)算。參考文獻(xiàn)[1] 駱競(jìng)晞，［J］.，23（12）：27～31，35.[2] 隨林，［J］.，8（3）：42～45.[3] 7程序設(shè)計(jì)技巧與實(shí)例［M］.第一版，北京，中國(guó)鐵道出版社，104～11.[4] 李之明， 7組件經(jīng)典解析［M］.第一版，北京，中國(guó)鐵道出版社，45～60.[5] 高手突破［M］.第一版，北京，清華大學(xué)出版社，2002，67～130.[6] 7完美經(jīng)典［M］.第一版，北京，中國(guó)鐵道出版社，20～25.[7] 耿宏運(yùn)， 6組件大全［M］.第一版，北京，電子工業(yè)出版社，96～130.[8] 王常斌，［M］.大慶石油學(xué)院，37～68.[9] 陳濤平，［M］.第一版，北京，石油工業(yè)出版社，.[10] 陳家瑯，［M］.石油工業(yè)出版社，1994.[11] 蔣漢青，潘迎德，［M］. ，99～101.[12] 萬(wàn)仁溥，［M］.第二分冊(cè)，注水技術(shù)，北京，石油工業(yè)出版社，86～90.[13] 沈迪成，［M］.北京，石油工業(yè)出版社，45～51.[14] Gipson,R Awain,The Beam Pumping Design Chain［J］.Proceedings，Southwest Petroleum Short Course,April 1718,1980.[15] Gibbs,.Predicting the Behavior of Sucker Rod Pumping Systems［J］.Journal of Petroleum Technology,July 1963,.[16] Knapp,.,A Dynamic Investigation of Sucker Rod Pumping［J］.,University of Kansas,Topeka,Kansas,1969.致 謝本論文是在導(dǎo)師張文的悉心指導(dǎo)下進(jìn)行并完成的。張文導(dǎo)師為我提供了良好的學(xué)習(xí)環(huán)境和氛圍，還為我提供了查閱大量資料的機(jī)會(huì)，使我從中得到了很大的鍛煉和進(jìn)步。我從指導(dǎo)老師張文老師身上學(xué)到了很多東西。張文老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論和設(shè)計(jì)水平都使我收益匪淺。張文老師無論在理論上還是在實(shí)踐中，都給予我很大的幫助，使我的實(shí)際操作能力得到很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有很大的幫助，謹(jǐn)此向?qū)煴硎局孕牡母兄x!38