【正文】 張文老師無(wú)論在理論上還是在實(shí)踐中，都給予我很大的幫助，使我的實(shí)際操作能力得到很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有很大的幫助，謹(jǐn)此向?qū)煴硎局孕牡母兄x!。我從指導(dǎo)老師張文老師身上學(xué)到了很多東西。參考文獻(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)行并完成的。（3）根據(jù)抽油桿疲勞裂紋擴(kuò)展模型，應(yīng)用Delphi 。如長(zhǎng)期疲勞工作，桿體本身質(zhì)量油問(wèn)題，加之工作環(huán)境差、長(zhǎng)時(shí)間浸泡在含油腐蝕介質(zhì)的液體中，設(shè)計(jì)桿柱組合不匹配以及人為因素等。利用大家都很熟悉的office工具結(jié)合開(kāi)發(fā)，能夠很好的解決這方面的問(wèn)題。圖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ì)內(nèi)容窗體中包括油井溫度分布、原油粘溫關(guān)系、載荷與抽油桿壽命關(guān)系、設(shè)計(jì)結(jié)果、數(shù)據(jù)導(dǎo)入Word及設(shè)計(jì)參數(shù)的修改等功能。end。)。,[loCaseInsensitive])) then 　　　showMessage(39。beginif not ((39?！?/數(shù)據(jù)搜索的開(kāi)始按鈕程序var 　Str:string。end。)。,[loCaseInsensitive])) then 　 showMessage(39。beginif not ((39?！?/數(shù)據(jù)搜索的開(kāi)始按鈕程序varStr:string。以井名作為搜索項(xiàng)。end。 :=。 xuancci()。 xuanQuBingR()。 。39。選擇抽油機(jī)39。 end else begin :=+10。)。 (39。 :=39。begin if =false then begin :=。end。 CCiL:=i。 CCiL:=CCiLk。 CCistr:=copy(CCistr,k+1,CCiLk)。 if CCiL=2 then inc(i)。,CCistr)。 repeat k:=pos(39。 CCiL:=strlen(pchar(CCistr))。Asstring+39。沖次39。begin i:=0。var i,j,k:integer。end。 CCengL:=i。 inc(i)。 CCengarray[i]:=strtofloat(copy(CCengstr,1,k1))。,39。 CCengstr:=copy(CCengstr,k+1,CCengL+k)。,CCengstr)。 repeat k:=pos(39。 CCengL:=strlen(pchar(CCengstr))。Asstring+39。曲柄徑?jīng)_程39。begin i:=0。var i,j,k:integer。end。 QuBingRL:=i1。 inc(i)。 QuBingRstr:=copy(QuBingRstr,k+1,QuBingRL)。,39。 QuBingRarray[i]:=strtofloat(copy(QuBingRstr,1,k1))。,QuBingRstr)。 repeat k:=pos(39。 QuBingRL:=strlen(pchar(QuBingRstr))。).Asstring+39。 with do begin QuBingRstr:=FieldByName(39。 QuBingRstr:string。圖53 選擇數(shù)據(jù)窗體{選擇曲柄半徑過(guò)程} procedure xuanQuBingR()?！uanCCeng()。下面對(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）。運(yùn)行界面如下圖圖52數(shù)據(jù)錄入向?qū)г撃K中包含了本系統(tǒng)的大部分?jǐn)?shù)據(jù)表：基礎(chǔ)數(shù)據(jù)表、粘溫關(guān)系數(shù)據(jù)表、抽油機(jī)參數(shù)表等。 數(shù)據(jù)管理數(shù)據(jù)管理模塊包括：錄入數(shù)據(jù)、選擇數(shù)據(jù)及數(shù)據(jù)保存三大部分。抽油桿載荷設(shè)計(jì)界面如圖：圖51 抽油桿載荷設(shè)計(jì) 文件文件模塊包括打開(kāi)Word、和退出。②粘溫關(guān)系數(shù)據(jù)表定義的字段為：井號(hào)、40℃、45℃、50℃、55℃、60℃、65℃、70℃、75℃、80℃、85℃等溫差為5℃的十個(gè)字段。第5章 抽油桿使用壽命計(jì)算軟件研制 系統(tǒng)數(shù)據(jù)庫(kù)表設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù)中共有基礎(chǔ)數(shù)據(jù)表、粘溫關(guān)系數(shù)據(jù)表、抽油機(jī)參數(shù)表、抽油桿參數(shù)表以及為閥孔直徑繪制的視圖等。ADO同時(shí)具有遠(yuǎn)程數(shù)據(jù)服務(wù)（RDS）功能，通過(guò)RDS可以在一次往返過(guò)程中實(shí)現(xiàn)將數(shù)據(jù)從服務(wù)器移動(dòng)到客戶端應(yīng)用程序或Web頁(yè)、在客戶端對(duì)數(shù)據(jù)進(jìn)行處理然后將更新結(jié)果返回服務(wù)器的操作。其主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支付和存儲(chǔ)空間占用較少。目前，有一些第三方控件提供的報(bào)表控件很好用，也有一些國(guó)人自己制作的報(bào)表控件，很適合中國(guó)人的習(xí)慣。QReport是用來(lái)輸出報(bào)表的控件，但是，根據(jù)經(jīng)驗(yàn)來(lái)看，此控件不太適合中國(guó)人報(bào)表的習(xí)慣。 此外，還有一些組件與數(shù)據(jù)庫(kù)有關(guān)。數(shù)據(jù)控制組件在組件板上的DataControl頁(yè)上。 數(shù)據(jù)控制組件（Data Control Component）數(shù)據(jù)控制組件也可以稱為數(shù)據(jù)顯示組件或數(shù)據(jù)瀏覽組件。 （5）DataBase控件一般用于建立遠(yuǎn)程的數(shù)據(jù)庫(kù)服務(wù)器——客戶/服務(wù)器結(jié)構(gòu)的數(shù)據(jù)庫(kù)應(yīng)用程序和數(shù)據(jù)庫(kù)之間的連接。 （3）Query控件是利用SQL（Structured Query Language，結(jié)構(gòu)化查詢語(yǔ)言）通過(guò)BDE來(lái)操作數(shù)據(jù)庫(kù)的，和Table控件完成的功能相似，它只是采用了SQL來(lái)實(shí)現(xiàn)。 （2）Table控件是通過(guò)數(shù)據(jù)庫(kù)引擎——BDE來(lái)存取數(shù)據(jù)庫(kù)中的數(shù)據(jù)的。 （1）DataSource控件是數(shù)據(jù)集組件和數(shù)據(jù)控制組件的連接媒介。這里我們應(yīng)當(dāng)注意：Table、Query和Storedproc三個(gè)控件，它們稱為“數(shù)據(jù)集組件”，用于和數(shù)據(jù)庫(kù)連接。 數(shù)據(jù)庫(kù)組件主要分為兩類(lèi)：“數(shù)據(jù)訪問(wèn)組件”和“數(shù)據(jù)控制組件”，它們和數(shù)據(jù)庫(kù)的關(guān)系可用下面的關(guān)系圖來(lái)示意：圖41 “數(shù)據(jù)訪問(wèn)組件”和“數(shù)據(jù)控制組件” 和數(shù)據(jù)庫(kù)的關(guān)系通過(guò)BDE，幾乎可以操作目前所有類(lèi)型的數(shù)據(jù)庫(kù)。事實(shí)上，應(yīng)用程序是通過(guò)數(shù)據(jù)訪問(wèn)組件和BDE連接，再由BDE去訪問(wèn)數(shù)據(jù)庫(kù)，完成對(duì)數(shù)據(jù)庫(kù)的操作，而并非直接操作BDE。所以，我們把重點(diǎn)放在本地?cái)?shù)據(jù)庫(kù)上。對(duì)本地?cái)?shù)據(jù)庫(kù)如果能夠熟練操作，編寫(xiě)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)也就容易上手了。當(dāng)然，通過(guò)其他方式直接訪問(wèn)數(shù)據(jù)庫(kù)，在Delphi中也都是可以實(shí)現(xiàn)的?？丶蒞indows系列操作系統(tǒng)提出并使用，而組件是Borland和其它廠商在對(duì)Windows控件做了必要的擴(kuò)展之后提出來(lái)的概念，它們是在不同時(shí)期由不同的廠商提出的概念。最后要說(shuō)明一下，常說(shuō)的控件實(shí)際上是一種組件。在一個(gè)應(yīng)用程序中，如果能在不影響其功能的前提下合理大量地使用圖形組件，將會(huì)大減少程序?qū)ο到y(tǒng)資源的消耗。圖形控件最典型的例子是Tlabel和TspeedButton。圖形組件與窗口組件并列，是另一大類(lèi)組件。窗口組件類(lèi)是窗口化的可視化組件類(lèi)，在Delphi的類(lèi)庫(kù)中占有最大的份額。但也有一些組件不在組件面板上，例如Tform和Tapplication（典型的非可視組件）。組件在Delphi程序的開(kāi)發(fā)中是最顯眼的角色。（可視化組件庫(kù)）組件的體系結(jié)構(gòu)。實(shí)際上在Delphi的類(lèi)庫(kù)中，Tobject類(lèi)派生出了為數(shù)相當(dāng)眾多的子類(lèi)，它們形成了一個(gè)龐大的體系，通常情況下，如果不自行開(kāi)發(fā)組件，就不必了解整個(gè)類(lèi)的體系結(jié)構(gòu)，只用到類(lèi)層次樹(shù)的葉結(jié)點(diǎn)就足夠了。整個(gè)類(lèi)的層次結(jié)構(gòu)就像一棵倒掛的樹(shù)，在最頂層的樹(shù)根即為T(mén)object類(lèi)。 Delph