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

  我們?cè)谲浖�開發(fā)中，經(jīng)常會(huì)碰到多處代碼相同或相似的地方，如何處理這種情況，不僅對(duì)個(gè)人，而且對(duì)于一個(gè)團(tuán)隊(duì)，是一個(gè)重要的問題。代碼復(fù)用的作用也不僅是使得代碼編寫簡(jiǎn)單、減少工作量。只討論在一個(gè)只使用delphi作為開發(fā)工具的團(tuán)隊(duì)如何有效的進(jìn)行代碼復(fù)用，如何在開發(fā)進(jìn)度、軟件維護(hù)之間取得平衡。這里以領(lǐng)導(dǎo)的一次開發(fā)作為例子。

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

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

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

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

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

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

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

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

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

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

　　框架被程序員了解后得到了大量的使用。大家感到確實(shí)能非常方便的解決很多問題。而且，對(duì)于框架的修改會(huì)被所以使用它的窗口有效，不用因?yàn)橐�修改某個(gè)共同的地方找遍工程中的每個(gè)窗口了。

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

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

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

轉(zhuǎn)帖于：軟件水平考試_考試吧