Delphi開發(fā)中幾種代碼復用方式及其比較

　　最原始的辦法，復制、粘貼，不同的地方稍作修改。恐怕每個人都曾經使用過這種方法。這無疑在寫程序時是最快的方法。不過，其缺點也是明顯的，別的不說，這種方式阻礙了人的思考，功能確實完成了，但是錯過了自己提升自己的機會。表面看是節(jié)約了時間，實際是浪費了自己。我當年使用這種方法時，總覺得自己更象一個泥瓦匠。

　　誰都會對這種方式說"不"嗎？問題在于我在實踐中發(fā)現(xiàn)，更多的程序員傾向于這樣編程。我不得不強制執(zhí)行一些看起來是微不足道甚至是不完全正確的的細節(jié)標準，例如：所有的SQL語句必須在DataModal中。大多數(shù)程序員反對這一條，反對的理由有很多種，有些不乏道理。不過更多的是程序員感覺這樣編程變得繁瑣，感到受到了約束。他們反問在Form中直接寫sql語句多好，又容易看懂，不需要看程序時跳來跳去的。我只好打開他們曾經完成的系統(tǒng)，使用Find in File 功能，搜索結果表明同樣的sql語句出現(xiàn)了若干次。如果不有效的解決這個問題，我實在難以想象如何向程序員灌輸如同業(yè)務邏輯和界面邏輯分開的概念。好在有些程序員開始考慮這個問題，他向我提出這樣的方案：把所有的sql語句寫在單獨unit中，供所有的unit調用。雖然我知道，這樣做只是為了復用而復用，但是我仍然鼓勵這種做法，因為能復用總比不能復用強，半塊面包總強于沒有面包。

　　使用函數(shù)。我發(fā)現(xiàn)這是大多數(shù)程序員喜歡使用的方法。從面向過程的程序來說，函數(shù)調用幾乎是唯一的代碼復用方法了。在開發(fā)組討論的過程中，程序員們也最喜歡使用這種方式作為系統(tǒng)之間的接口。這次開發(fā)中終于把權限、流程和打印系統(tǒng)單獨分裂出來，由單獨的程序員開發(fā)，提供給其他系統(tǒng)調用。如何調用？程序員首先想到的就是函數(shù)調用。確實函數(shù)調用也解決了不少的問題。

　　隨著程序不斷的開發(fā)，系統(tǒng)的復雜度也在不斷增加，這時候以函數(shù)作為接口的方式也顯得越來越復雜。以一個簡單的例子而言，權限系統(tǒng)處理操作員管理、系統(tǒng)登陸驗證等功能，所以系統(tǒng)都需要當前登陸操作員的信息。開始是想的比較簡單，只要知道登陸操作員的id，那么其他相關信息都可以通過權限系統(tǒng)不同的引出函數(shù)來查詢，但考慮到操作員信息的通用性，而且為其提供若干個引出函數(shù)就顯得過于繁瑣。我們設計了一個操作員類，每個系統(tǒng)都有其接口聲明，而具體實現(xiàn)在權限系統(tǒng)中。在系統(tǒng)中增加一個全局操作員對象，這個對象在系統(tǒng)登陸時創(chuàng)建，記錄了登陸操作員的所有信息。其他系統(tǒng)只要訪問這個全局對象就能得到登陸操作員的信息，包括其所屬部門，登陸時間等等。這樣做的好處有

　　（1）隱藏了實現(xiàn)的細節(jié)，不僅隱藏了數(shù)據(jù)庫設計，也隱藏了代碼實現(xiàn)的細節(jié)。例如后來由于種種原因，操作員的表結構發(fā)生了變化，而其他系統(tǒng)對此可以一無所知。后來權限系統(tǒng)也重寫了讀取權限部分，同樣，其他系統(tǒng)也一無所知，只是感覺速度變快了。

　�。�2）模塊之間是松耦合。

　�。�3）提高程序員的水平。

　　最后一點恐怕有人懷疑，我要更多的解釋。在討論如何得到當前登陸操作員信息時，開始甚至有程序員提出這樣的方法：設置全局變量操作員編號變量，讓其他系統(tǒng)利用這個id直接讀數(shù)據(jù)庫中得到信息的。

　　代碼復用還有應該重要的方面是界面的復用。一次開發(fā)中必然會有部門界面使用了相同的元素。這里的代碼復用主要有三個手段，框架、控件、窗口繼承。

　　還是舉一個簡單的例子，這次開發(fā)中的部門是按照樹型結構來描述的，很多個界面上需要出現(xiàn)這個部門樹，比如資料管理界面、比如人員管理界面，界面的左邊都是這顆部門樹。在不同的界面中又有不同的處理，相應不同的事件。這方面，Delphi為我們提供了一個好的方法：Tframe。我更傾向于認為Frame就是一組控件及相關代碼的集合，雖然在設計時它和Form比較相似。在部門樹這個Frame中，只有一個Treeview，關鍵在于它已經具備了按照樹型顯示部門能力，而且，更進一步，你可以在其上面進行拖拽來完成部門調整的功能。當然對于不需要這個功能的窗口，可以簡單的設置一個屬性來禁止這個功能。

　　框架被程序員了解后得到了大量的使用。大家感到確實能非常方便的解決很多問題。而且，對于框架的修改會被所以使用它的窗口有效，不用因為要修改某個共同的地方找遍工程中的每個窗口了。

　　在Delphi推出Tframe之前的版本，可以使用窗口來代替它。其中的區(qū)別不在中討論了。

　　控件無疑是Delphi最令人心動的了，在眼花繚亂的無數(shù)控件面前往往會迷失�？丶�和框架的作用有相似的地方，不過普遍認為控件更加通用一些，而框架只是用在特定的程序中。如果團隊中擁有擅場于此的高手自然能讓團隊如虎添翼，沒有也不必黯然神傷，因為普通的控件編寫也沒有想象的那么難。

　　同樣舉一個簡單的例子。這次開發(fā)使用了Ado作為數(shù)據(jù)聯(lián)接，adoDataset有sort屬性，可以完成本地排序的功能。大家知道許多優(yōu)秀的Dbgrid控件都能實現(xiàn)點擊標題欄自動排序的功能。我們也做了一個增強的dbgrid來實現(xiàn)這個功能，利用ado的特性，非常簡單，幾句代碼就可以了。當然還有其他增強，來適應這個專業(yè)系統(tǒng)的其他方面。