fireDAC访问连接对象，如BDE

Question

在下面的代码片段中，使用Sessions Object为TQuery分配了一个DatabaseName。 您能否建议我们如何在fireDAC中执行以下操作？

TmpQuery := TQuery.Create(nil);
try
  with TmpQuery do
  begin
    SessionName := Sessions.CurrentSession.SessionName;
    DatabaseName := Sessions.CurrentSession.Databases[0].DatabaseName;
    SQL.Add('select tendr_type, tendr_code');
    SQL.Add('from asatendr where tendr_status="A" ');
    Open;
    while not EOF do
    begin // do the name value pair so i can find them...
      FaTenderList.Add(Trim(Fields[0].AsString) + '=' + Trim(Fields[1].AsString));
      Next;
    end;
    Close;

在firedac中我们有TFDManager，TFDConnection，TFDQuery Object。我想知道的是，不同的.pas文件中的多个TFDQueries可以访问类似的连接。如何在fireDAC中管理它？

Answer 1

我已经使用FireDAC TFDManager对象解决了这个问题。

我正在使用的项目文件：

ConnectionName := FDManager.Connections[0].ConnectionName; 

它有效。