【正文】 張文老師無論在理論上還是在實踐中，都給予我很大的幫助，使我的實際操作能力得到很大的提高，這對于我以后的工作和學習都有很大的幫助，謹此向導師表示衷心的感謝!38。我從指導老師張文老師身上學到了很多東西。參考文獻[1] 駱競晞，［J］.，23（12）：27～31，35.[2] 隨林，［J］.，8（3）：42～45.[3] 7程序設計技巧與實例［M］.第一版，北京，中國鐵道出版社，104～11.[4] 李之明， 7組件經典解析［M］.第一版，北京，中國鐵道出版社，45～60.[5] 高手突破［M］.第一版，北京，清華大學出版社，2002，67～130.[6] 7完美經典［M］.第一版，北京，中國鐵道出版社，20～25.[7] 耿宏運， 6組件大全［M］.第一版，北京，電子工業(yè)出版社，96～130.[8] 王常斌，［M］.大慶石油學院，37～68.[9] 陳濤平，［M］.第一版，北京，石油工業(yè)出版社，.[10] 陳家瑯，［M］.石油工業(yè)出版社，1994.[11] 蔣漢青，潘迎德，［M］. ，99～101.[12] 萬仁溥，［M］.第二分冊，注水技術，北京，石油工業(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.致 謝本論文是在導師張文的悉心指導下進行并完成的。（3）根據抽油桿疲勞裂紋擴展模型，應用Delphi 。如長期疲勞工作，桿體本身質量油問題，加之工作環(huán)境差、長時間浸泡在含油腐蝕介質的液體中，設計桿柱組合不匹配以及人為因素等。利用大家都很熟悉的office工具結合開發(fā)，能夠很好的解決這方面的問題。圖54載荷與抽油桿壽命曲線圖55油井分布粘溫關系圖 圖56設計結果窗體數據導入Word本軟件設置了將運行結果中的相關數據報表存為word格式文檔（涉及表格、圖形的輸出），便于用戶修改。設計內容窗體中包括油井溫度分布、原油粘溫關系、載荷與抽油桿壽命關系、設計結果、數據導入Word及設計參數的修改等功能。end。)。,[loCaseInsensitive])) then 　　　showMessage(39。beginif not ((39?！?/數據搜索的開始按鈕程序var 　Str:string。end。)。,[loCaseInsensitive])) then 　 showMessage(39。beginif not ((39?！?/數據搜索的開始按鈕程序varStr:string。以井名作為搜索項。end。 :=。 xuancci()。 xuanQuBingR()。 。39。選擇抽油機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。曲柄徑沖程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 選擇數據窗體{選擇曲柄半徑過程} procedure xuanQuBingR()?！uanCCeng()。下面對該介面功能鍵的設計思想及實現(xiàn)方法介紹如下：選擇抽油機功能，在每次選擇數據進行計算之前，還要選擇所使用抽油機，由于抽油機數據表中數據在程序運行時是以字符串形式參加運算的，而抽油機參數表中還有不能以字符串形式直接運算的數據項（如：曲柄半徑/沖程數據項740/，860/，975/，1090/，1200/3及沖次數據項6，9，12）。運行界面如下圖圖52數據錄入向導該模塊中包含了本系統(tǒng)的大部分數據表：基礎數據表、粘溫關系數據表、抽油機參數表等。 數據管理數據管理模塊包括：錄入數據、選擇數據及數據保存三大部分。抽油桿載荷設計界面如圖：圖51 抽油桿載荷設計 文件文件模塊包括打開Word、和退出。②粘溫關系數據表定義的字段為：井號、40℃、45℃、50℃、55℃、60℃、65℃、70℃、75℃、80℃、85℃等溫差為5℃的十個字段。第5章 抽油桿使用壽命計算軟件研制 系統(tǒng)數據庫表設計系統(tǒng)數據庫中共有基礎數據表、粘溫關系數據表、抽油機參數表、抽油桿參數表以及為閥孔直徑繪制的視圖等。ADO同時具有遠程數據服務（RDS）功能，通過RDS可以在一次往返過程中實現(xiàn)將數據從服務器移動到客戶端應用程序或Web頁、在客戶端對數據進行處理然后將更新結果返回服務器的操作。其主要優(yōu)點是易于使用、高速度、低內存支付和存儲空間占用較少。目前，有一些第三方控件提供的報表控件很好用，也有一些國人自己制作的報表控件，很適合中國人的習慣。QReport是用來輸出報表的控件，但是，根據經驗來看，此控件不太適合中國人報表的習慣。 此外，還有一些組件與數據庫有關。數據控制組件在組件板上的DataControl頁上。 數據控制組件（Data Control Component）數據控制組件也可以稱為數據顯示組件或數據瀏覽組件。 （5）DataBase控件一般用于建立遠程的數據庫服務器——客戶/服務器結構的數據庫應用程序和數據庫之間的連接。 （3）Query控件是利用SQL（Structured Query Language，結構化查詢語言）通過BDE來操作數據庫的，和Table控件完成的功能相似，它只是采用了SQL來實現(xiàn)。 （2）Table控件是通過數據庫引擎——BDE來存取數據庫中的數據的。 （1）DataSource控件是數據集組件和數據控制組件的連接媒介。這里我們應當注意：Table、Query和Storedproc三個控件，它們稱為“數據集組件”，用于和數據庫連接。 數據庫組件主要分為兩類：“數據訪問組件”和“數據控制組件”，它們和數據庫的關系可用下面的關系圖來示意：圖41 “數據訪問組件”和“數據控制組件” 和數據庫的關系通過BDE，幾乎可以操作目前所有類型的數據庫。事實上，應用程序是通過數據訪問組件和BDE連接，再由BDE去訪問數據庫，完成對數據庫的操作，而并非直接操作BDE。所以，我們把重點放在本地數據庫上。對本地數據庫如果能夠熟練操作，編寫網絡數據庫也就容易上手了。當然，通過其他方式直接訪問數據庫，在Delphi中也都是可以實現(xiàn)的?？丶蒞indows系列操作系統(tǒng)提出并使用，而組件是Borland和其它廠商在對Windows控件做了必要的擴展之后提出來的概念，它們是在不同時期由不同的廠商提出的概念。最后要說明一下，常說的控件實際上是一種組件。在一個應用程序中，如果能在不影響其功能的前提下合理大量地使用圖形組件，將會大減少程序對系統(tǒng)資源的消耗。圖形控件最典型的例子是Tlabel和TspeedButton。圖形組件與窗口組件并列，是另一大類組件。窗口組件類是窗口化的可視化組件類，在Delphi的類庫中占有最大的份額。但也有一些組件不在組件面板上，例如Tform和Tapplication（典型的非可視組件）。組件在Delphi程序的開發(fā)中是最顯眼的角色。（可視化組件庫）組件的體系結構。實際上在Delphi的類庫中，Tobject類派生出了為數相當眾多的子類，它們形成了一個龐大的體系，通常情況下，如果不自行開發(fā)組件，就不必了解整個類的體系結構，只用到類層次樹的葉結點就足夠了。整個類的層次結構就像一棵倒掛的樹，在最頂層的樹根即為Tobject類。 Delphi