Q:如何執行 Access 資料庫的報表?
A:以下程式碼由 Bill Todd (TeamB) 提供

procedure dgAccessRunReport(AliasName,
                            ReportName,
                            WhereCondition: String);
{Runs an Access report using automation.}
var
  Access:          Variant;
  AliasParams:     TStringList;
  Database:        String;
  I:               Integer;
begin
  {Get the path to the Access database using the alias name.}
  AliasParams := TStringList.Create;
  try
    Session.GetAliasParams(AliasName, AliasParams);
    for I := 0 to Pred(AliasParams.Count) do
      if Pos('DATABASE NAME', AliasParams[I]) > 0 then
      begin
        DataBase := Copy(AliasParams[I], 15, Length(AliasParams[I]) - 14);
        Break;
      end; file://if
  finally
    AliasParams.Free;
  end; file://try
  Access := CreateOleObject('Access.Application');
  Access.OpenCurrentDatabase(Database);
  {Print the report.}
  if WhereCondition = '' then
    Access.DoCmd.OpenReport(ReportName)
  else
    Access.DoCmd.OpenReport(ReportName,,,WhereCondition);
  {Close Access.}
  Access.Quit;
  Access := varNull;
end;