有在寫資料庫應用ap的朋友,可能都有建立baseform的設計 小弟目前的工作也是同樣的應用 不過,我有幾個一直以來的疑點 1.當初baseform的設計只有對應到bde類的dataset(ttable,tquery),如果要能使用ado,這個baseform延伸出來的很多應用諸如一些共用library等於要一個個挑出來改,還得擔心蜘蛛網會不會延伸跨了太多個unit而沒改到 2.如果原本的baseform是這樣的設計 aform->bform->apforma(例如出貨單) | ->apformb(例如查詢頁面) 我曾想過要大刀闊斧擺脫bform與aform的牽連,做一個比較理想的xform,然後把現有這些寫好的form改為繼承自這個超級xforom. 可是我又發現這些後代form的code裡面,包函了很多"前人"留下來的各個包裝成為function的unit以例如 if self.InheritsFrom(Aform)=true 這樣的程式碼,那等於又陷入蜘蛛網當中繼續當spider man? 3.我看了code6421的 http://delphi.ktop.com.tw/topic.php?topic_id=28754 這一篇,不知道是否有朋友可以幫忙解惑是否引入interface的設計會比較理想,就算是這家公司用不到,以後有機會打造baseform希望能造福人群. 謝謝各位 p.s. 看了http://delphi.ktop.com.tw/topic.php?topic_id=64807 這篇,覺得李維跟code6421的表演真是精彩,可是我都看不懂,我根本不了解什麼是編譯器的中文訊息英文訊息,我也不了解什麼是C /CLI,目前公司用delphi5,就寫的天昏地暗日月無光了,有時想想,是否自己太肉腳,不適合寫程式這個工作. 發表人 - hahalin 於 2005/03/01 11:13:06

If I were you, I would make use of TClientDataSet. The the real implementation is TDataSetProvider + BDE/ADO/etc... Well... that's probably a rewrite  < face='Lucida Console'>http://pywong.hk.st http://www.lazybones.ca

Form也是一个Class. 要减轻 class 之间的耦合程度，用 Interface 是个不错的办法。不知道delphi5对Interface的支持程度如何？ 我个人的感觉，用BaseForm来继承，是为了减轻画GUI的工作量。FORM里面不应该有商业逻辑的代码，应该仅仅是画GUI的代码。 FORM里也不该有BDE/ADO等等东西。那些东西应该是在DataModule里的。这样一来，不管你用BDE还是ADO还是其它什么DataSet，都和FORM无关啊。

不好意思 我所描述的原有baseform的部份可能有所誤會 預設以bde類的dataset來動作,這段話舉例來說 例如存檔,在form中建立一個物件變數 dt:tdataset 然後在存檔時 if dt is tquery then tquery(dt).applyupdate 當然細節還很多,上面的程式碼幫忙說明為主,主要是牽連到的procedure/function等都是預設以bde類的tdataset,更有甚者在master-detail部份中的detail以ttable來處理. 我的想法也是一樣,在baseform中理想狀況應該是不能限定在bde,ado,因此才會想到interface是否可以有這樣的運用. 如有謬誤還請不吝指正,更歡迎有idea的想法一起討論...

如果是我的話，我不會放TDataSet，就如： pcplayer99兄說的，FORM里面不应该有商业逻辑的代码，应该仅仅是画GUI的代码。 但我會使用TDataSource，然後從TDataSource去判斷當時所連結的TDataSet，這樣設計是不是會比較有彈性呢？ 既然是BaseForm那就應該具備有些彈性，以適應變化。

我之前也有跟hahalin桑類似的想法 繼承加上Interface多型的Pattern套用在Delphi的很多設計層面 主要是想降低程式碼間的耦合度與增加修改的彈性 後來發現想增加更多彈性必須套用更多Design Patterns 對我來說反而是種負擔，也是由於我對介面不是很熟吧

引言: 不好意思 我所描述的原有baseform的部份可能有所誤會 預設以bde類的dataset來動作,這段話舉例來說 例如存檔,在form中建立一個物件變數 dt:tdataset 然後在存檔時 if dt is tquery then tquery(dt).applyupdate 當然細節還很多,上面的程式碼幫忙說明為主,主要是牽連到的procedure/function等都是預設以bde類的tdataset,更有甚者在master-detail部份中的detail以ttable來處理. 我的想法也是一樣,在baseform中理想狀況應該是不能限定在bde,ado,因此才會想到interface是否可以有這樣的運用. 如有謬誤還請不吝指正,更歡迎有idea的想法一起討論...

我猜，你的意思是如何把和BDE有关的代码和其它代码分隔开。 如果用 DataModule 来封装 DataSet，并且，在 DataModule 以外的其它FORM里不直接操作 DataModule 里的DataSet，而是改由 DataModule 里声明的public的procedure来操作里面的DataSet。对于数据感知元件，由DataModule里输出的DataSource来让其它FORM里的DBGrid类的数据感知元件连接到DataSet。 那么，当你不用BDE，改用ADO的时候，只要换一个DataModule，把PUBLIC里的procedure 重新copy一份，里面的BDE dataSet 换成 ADODataSet，就一切OK啦。其它地方的FORM不用做改动，只把涉及到DataModule名字的地方换成第2个DataModule就行了。这个做法，没涉及到IInterface. 如果想不用在每个FORM里去改DataModule的名字，就必须要直接改掉原来那个DataModuel，把里面的BDE DataSet改成ADODataSet，而不是新做一个DataModule。或者，DataModule都从BaseDataModule继承下来，BaseDataModule里事先把public里的那些procedure 声明成 vitural;abstract;，让继承的2个DataModule分别实现BDE和ADO，这样FORM里就不用管它究竟是用了哪个DataModule了。 如果用 IInterface，用不同的元件来实现同一个 IInterface，在不同的元件里采用不同的 DataSet，要更换DataSet，使用到IInterface的地方也会更改元件的名字。为了其它FORM里都不用去改涉及到的元件的名字，只好直接把原来那个元件里的DataSet改掉了。 在我自己看来，有时候，用IInterface和用虚拟方法的继承，用法差不多。不同的是IInterface可以让任何元件来实现，虚拟方法的继承必须是在继承的元件里实现。 个人的一点浅见，请高手指正。

引言: 我猜，你的意思是如何把和BDE有关的代码和其它代码分隔开。

感謝您的回應 因為我對interface的用法不熟 如果如同我上面的想法之ㄧ,在建立baseform的時候引入了interface的設計呢?

引言:

引言: 我猜，你的意思是如何把和BDE有关的代码和其它代码分隔开。

感謝您的回應 因為我對interface的用法不熟 如果如同我上面的想法之ㄧ,在建立baseform的時候引入了interface的設計呢?

BaseForm里使用 Interface？我不清楚你想实现什么样的功能？ 我用 Interface，大概是用来解决这个问题： 比如，我有几个不同的class，都有可能被一个class调用里面的一个相同的方法。在设计上，我可能用虚拟继承的方式：

TBaseClass=class
public
  procedure DoSomething(const S:String);virture;abstract;
end;    TMyClass_1=class(TBaseClass)
public
  procedure DoSomething(const S:String);override;
end;    TMyClass_2=class(TBaseClass)
public
  procedure DoSomething(const S:String);override;
end;

但这样做，要求所有class必须是从TBaseClass继承下来。如果我有一个class可能必须从其它class继承下来，但又必须提供这个方法，就只有改成使用Interface了。 这是我自己用Interface的一个理由。采用Interface来实现多态。 不知道你想在 BaseForm 里实现什么样的目的？