小弟现在在做一个系统,要同时支持oracle, sql, DB2三个数据库,以后可能还要支持新的数据库,现在想做一个数据库的工厂类,解决三个数据库之间因为语法区别,而生成不同的SQL语句的问题,但是没有好的思路来具体实现,请高手指教.

工厂模式一般采用接口。当然你要用一个虚拟方法的父类，然后不同的数据库从同一个父类继承下来也可以。不过我喜欢用接口，更简洁。

不过，就算用接口，针对不同的数据库，肯定也是不同的类。那么，你的工厂类如何知道该 Create 哪个类？

搞清楚这个问题，实现一个类工厂就不是问题了。这里需要的，就是 TClass 这个东西。你可以去看 Help 关于 TClass 的说明。

<textarea cols="60" rows="10" class="delphi" name="code"> 大概代码如下，假设有一个接口： IMySQL = Interface function SelectMyTableFromDB: OleVariant; end; 假设有3个类，分别对应不同的 DataBase: TMySQL = class(TInterfacedObject, IMySQL) end; TMyOracle... TMyFireBird.... 我有个类工厂： TMyFactory = class public function GetMyDB(AClass: TClass): IMySQL end; 有一个这个工厂类的对象实例： MyFactory 那么，我要 FireBird，就可以： var MyFireBird: IMySQL; begin MyFireBird := MyFactory.GetMyDB(TMyFireBird); end; 那么，这个 GetMyDB 是如何工作的呢？它的代码很简单： Result := IMySQL(AClass.Create); ok,到这里，你想要任何数据库的操作都行，工厂类帮你创建你要的类的实例。你拿到接口后的操作都是相同的，因为接口相同。你的实际操作部分仅仅只需要知道接口的定义，而不用去管 TMyFireBird 是如何实现的。就算你现在增加一个新的什么数据库对应的类，使用接口的部分的代码都不需要做任何的改动。 </textarea>