FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的報告和文檔創(chuàng)建 VCL 庫。它提供了可視化模板設計器，可以訪問 30 多種格式，并可以部署到云、網(wǎng)站、電子郵件和打印中。

立即點擊下載FastReport VCL v6.9最新版

TfrxIBXComponents是我們應該創(chuàng)建的第一個組件；注冊引擎時（在Delphi環(huán)境下）會放入FastReport組件面板中。只要將此組件放入項目中，Delphi 就會自動將我們引擎單元的鏈接添加到“使用”列表中。應該在該組件中再分配一項任務，即在其中定義DefaultDatabase屬性，該屬性指的是與數(shù)據(jù)庫的現(xiàn)有連接。默認情況下，所有TfrxIBXTable和TfrxIBXQuery組件都將引用此連接。有必要從TfrxDBComponents類繼承組件：

  TfrxDBComponents = class(TComponent)
  public
    function GetDescription: String; virtual; abstract;
  end;

type
  TfrxIBXComponents = class(TfrxDBComponents)
  private
    FDefaultDatabase: TIBDatabase;
    FOldComponents: TfrxIBXComponents;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function GetDescription: String; override;
  published
    property DefaultDatabase: TIBDatabase read FDefaultDatabase write FDefaultDatabase;
  end;

var
  IBXComponents: TfrxIBXComponents;

constructor TfrxIBXComponents.Create(AOwner: TComponent);
begin
  inherited;
  FOldComponents := IBXComponents;
  IBXComponents := Self;
end;

destructor TfrxIBXComponents.Destroy;
begin
  if IBXComponents = Self then
    IBXComponents := FOldComponents;
  inherited;
end;

function TfrxIBXComponents.GetDescription: String;
begin
  Result := 'IBX';
end;

可以將項目中已存在的連接到 DB 的鏈接放置到DefaultDatabase屬性中。我們將編寫的方式TfrxIBXTable，TfrxIBXQuery組件允許它們默認使用此連接（實際上，這就是我們需要 IBXComponents 全局變量的目的）。

如果您對 FastReport 感興趣，歡迎加入 FastReport QQ 交流群：702295239

還想要更多嗎？您可以點擊閱讀【FastReport報表2021最新資源盤點】，查找需要的教程資源。上是FastReport .NET慧正在網(wǎng)火熱銷售中!>>查看價格詳情