Delphi - 使用不同的 TTable 和 TQuery 作为一个对象

Question

Delphi 2010，Win7 - 64

我正在编写一个涉及连接到不同数据库的应用程序。我使用两个不同的供应商进行数据库访问。我使用 DA-Soft 的 AnyDAC，它允许我连接到“工业”数据库、Oracle、SQL Server 等，我使用 ComponentAce 的 ABS 数据库，这是一个小型的、基于 PC 的 SQL 数据库。 （顺便说一句，我强烈推荐）。我的问题是我需要编写一系列通用例程，这些例程可能会违背任一供应商组件。

这两个组件都有 TTable 和 TQuery 组件。我需要编写一组例程，其中一些是基于TTable的，一些是基于TQuery的。这些例程可能会违背任一供应商的组件。

例如，我需要能够迭代 TTable 中的所有行。我第一次运行该例程时，我需要它来使用 DA-Soft 的 TTable。下次运行它时，我需要它针对 Component Ace 的 TTable 运行它。 TQuery 也存在同样的情况。

我在这里需要一个抽象层——至少我认为我需要。我不想多次编写每个例程。建议采取什么措施来提供这一层抽象/间接。我并不太担心令人眼花缭乱的速度。请记住 - 越简单越好，而且我不是专业程序员......

任何想法表示赞赏。 谢谢大家。

Answer 1

我假设它们都是 TDataSet 的后代。

在最简单的情况下，您可以只编写您只需要 TDataSet 参数的例程。您可以访问 TDataSet.Next 和 FieldByName。这将涵盖相当多的情况。

如果您的例程需要调用一些针对每种 TDataSet 类型不同的代码，那么您最好的选择是使用接口并创建每种类型的自定义后代

IMyDataSetOperations = interface 
  procedure OpenSpecial;
  function GetDataSet: TDataSet;
end;

TMyAnyDacTable = class(TAnyDacTable, IMyDataSetOperations)
  procedure OpenSpecial;
  function GetDataSet: TDataSet;
end;

TMyComponentAceTable = class(TComponentAceTable, IMyDataSetOperations)
  procedure OpenSpecial;
  function GetDataSet: TDataSet;
end;

procedure TMyAnyDacTable.OpenSpecial
begin
  // code specific for AnyDAC dataset
end;

function TMyAnyDacTable.GetDataSet: TDataSet;
begin
  result := self;
end;

然后您可以仅使用 IMyDataSetOperations 接口来编写例程

function CalculateAverage(const AMyDataSet: IMyDataSetOperations): Currency;
var
  total: Currency;
  i: Count;
begin
  AMyDataSet.OpenSpecial;
  i := 0;
  total := 0;
  AMyDataSet.GetDataSet.First;
  while not AMyDataSet.GetDataSet.Eof do
  begin
    total := total + AMyDataSet.GetDataSet.FieldByName('Amount').AsCurrency;
    Inc(i);  
    AMyDataSet.GetDataSet.Next;
  end

  if i > 0 then
    result := total / i
  else
    result := 0;
end

Answer 2

我建议你使用对象持久框架。我认为 Instant Object 是一个很好的 OPF。现在我正在使用它。通过使用OPF，我们的应用程序将独立于DBMS，并且我们不需要多次为每个例程创建例程。