Delphi - 如何泛化查询结果集

Question

我正在同一应用程序中使用多个数据库。我正在使用来自两家不同公司的驱动程序。两家公司都有运行良好的 tTable 和 tQuery 后代。

我需要一种对数据进行通用访问的方法，无论我使用哪个驱动程序/tQuery 组件来返回一组数据。这些数据不会与组件相关，而只会与我的逻辑相关。

例如...（伪代码）让我们创建一个可以针对任一 tQuery 组件运行的函数

function ListAllTables(NameOfDatabase : String) :ReturnSet??
begin

If NameOfDataBase = 'X' then use tQuery(Vendor 1)
    else use tQuery(Vendor 2)
RunQuery;
Return Answer...
end;

当正常运行查询时，我会执行

Query.Open;
While not Query.EOF do
   begin
   Read my rows..
   next;
end;

如果我调用 ListAllTables，我的返回类型是什么，以便我可以迭代行？每个 tQuery 供应商都是不同的，所以我不能使用它（我可以吗？如果是的话，我会想要吗？）我可以构建一个内存表，并将其传回，但这似乎是 ListAllRows 构建一个内存表的额外工作内存表，然后将其传递回调用例程，以便它可以“取消构建”，即迭代行......

您的想法和建议是什么？ 谢谢 GS

Answer 1

几乎所有 Delphi 数据集都源自 TDataset，并且最有用的行为是在 TDataset 上定义的。

因此，如果将每个表或查询分配给 TDataset 类型的变量，则应该能够以供应商中立的方式对该数据集执行逻辑。

我还将数据集的生成隔离到一组工厂函数中，这些函数仅创建特定于供应商的数据集并将其作为 TDataset 返回。每个工厂功能都有自己的单元。然后，只有那些小单元需要了解供应商特定组件。

Answer 2

1. 您可以使用 IProviderSupport 来概括查询执行。我期望所使用的查询支持 IProviderSupport。该接口允许设置命令文本、参数、执行命令等。
2. 所用查询的共同点是 TDataSet。因此，您需要传递 TDataSet 引用。

例如：

var
  oDS: TDataSet;
...
if NameOfDataBase = 'X' then
  oDS := T1Query.Create(nil)
else
  oDS := T2Query.Create(nil);
(oDS as IProviderSupport).PSSetCommandText('select * from mytab');
oDS.Open;
while not oDS.Eof do begin
  //
  oDS.Next;
end;

Answer 3

也许您可以考虑使用通用数据访问组件，例如 UniDAC 或 AnyDAC。这允许您仅使用一个组件集以一致的方式访问不同的数据库。

您可能还对 RemObjects 的 DataAbstract 感兴趣。一个强大的数据抽象、多层、远程处理解决方案，具有许多功能。不便宜，但物超所值。

相关链接：

• http://www.da-soft.com/anydac/
• http://www.devart.com/unidac/
• http://www.remobjects.com/da/

Answer 4

一个简单的方法是让 ListAllTables 返回（或填充）一个字符串列表。