FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的报告和文档创建 VCL 库。它提供了可视化模板设计器，可以访问 30 多种格式，并可以部署到云、网站、电子邮件和打印中。

立即点击下载FastReport VCL v6.9最新版

FastReport 不仅允许基于应用程序中定义的数据构建报告。您也可以直接在报告中定义自己的数据源（与数据库的连接、查询）。FastReport 提供了 ADO、BDE、IBX、DBX、FIB 引擎。您可以创建自己的引擎，然后将其连接到 FastReport。

下图显示了用于创建数据库引擎的类层次结构。新引擎组件以绿色突出显示。

如您所见，一组标准的数据库引擎组件包括数据库、表和查询。您可以创建所有这些组件或其中的一些组件（例如，许多 DB 没有 Table 类型的组件）。您还可以创建不包含在标准集中的组件（例如， StoredProc ）。

让我们详细检查一下基本类。

TfrxDialogComponent是所有非可视化组件的基础类，可以放在一个FastReport报表设计对话窗体上。其中没有定义任何重要的属性或方法。

TfrxCustomDatabase class 是“Database”类型的 DB 组件的基本类。

  TfrxCustomDatabase = class(TfrxDialogComponent)
  protected
    procedure SetConnected(Value: Boolean); virtual;
    procedure SetDatabaseName(const Value: String); virtual;
    procedure SetLoginPrompt(Value: Boolean); virtual;
    procedure SetParams(Value: TStrings); virtual;
    function GetConnected: Boolean; virtual;
    function GetDatabaseName: String; virtual;
    function GetLoginPrompt: Boolean; virtual;
    function GetParams: TStrings; virtual;
  public
    procedure SetLogin(const Login, Password: String); virtual;
    property Connected: Boolean read GetConnected write SetConnected default False;
    property DatabaseName: String read GetDatabaseName write SetDatabaseName;
    property LoginPrompt: Boolean read GetLoginPrompt write SetLoginPrompt default True;
    property Params: TStrings read GetParams write SetParams;
  end;

此类中定义了以下属性：

• Connected – 数据库连接是否处于活动状态；
• DatabaseName - 数据库名称;
• LoginPrompt – 连接数据库时是否要求登录；
• Params – 连接参数。

从给定的类TDatabase继承了一个类型的组件。对于它的创建，有必要覆盖所有虚拟方法并将必要的属性放在 topublished 部分中。此外，还需要为您的组件添加特定的属性。

TfrxDataset, TfrxCustomDBDataset,TfrxDBDataset类提供数据访问的功能。FastReport 核心使用这些组件进行导航和寻址数据输入字段。在这种情况下，它们是公共层次结构的一部分，我们不感兴趣。

TfrxCustomDataSet是派生自TDataSet. 从此类继承的组件是“Query”、“Table”和“StoredProc”克隆。事实上，这个类将TDataSet.

  TfrxCustomDataset = class(TfrxDBDataSet)
  protected
    procedure SetMaster(const Value: TDataSource); virtual;
    procedure SetMasterFields(const Value: String); virtual;
  public
    property DataSet: TDataSet;
    property Fields: TFields readonly;
    property MasterFields: String;
    property Active: Boolean;
  published
    property Filter: String;
    property Filtered: Boolean;
    property Master: TfrxDBDataSet;
  end;

类中定义了以下属性：

• DataSet是指向埋藏对象TDataSet类型的链接；
• Fields 是指向 DataSet.Fields 的链接；
• Active - 数据集是否处于活动状态；
• Filter - 过滤表达式；
• Filtered – 过滤是否处于活动状态；
• Master 是指向主从关系中的主数据集的链接。
• MasterFields是字段列表，如 field1=field2。用于主从关系。

TfrxCustomTable– 表类型的数据库组件的基本类。类涵盖了 Table 类的组件。

  TfrxCustomTable = class(TfrxCustomDataset)
  protected
    function GetIndexFieldNames: String; virtual;
    function GetIndexName: String; virtual;
    function GetTableName: String; virtual;
    procedure SetIndexFieldNames(const Value: String); virtual;
    procedure SetIndexName(const Value: String); virtual;
    procedure SetTableName(const Value: String); virtual;
  published
    property MasterFields;
    property TableName: String read GetTableName write SetTableName;
    property IndexName: String read GetIndexName write SetIndexName;
    property IndexFieldNames: String read GetIndexFieldNames write SetIndexFieldNames;
  end;

类中定义了以下属性：

• TableName – 表名；
• IndexName – 索引名称；
• IndexFieldNames – 索引字段名称。

Table 类型的组件继承自该类。对于它的创建，有必要像往常一样定义所需的属性，数据库。也有必要覆盖来自TfrxCustomDataset,TfrxCustomTable类的虚拟方法。

TfrxCustomQuery是“查询”类型的数据库组件的基本类。此类是查询类型组件的封面。

  TfrxCustomQuery = class(TfrxCustomDataset)
  protected
    procedure SetSQL(Value: TStrings); virtual; abstract;
    function GetSQL: TStrings; virtual; abstract;
  public
    procedure UpdateParams; virtual; abstract;
  published
    property Params: TfrxParams;
    property SQL: TStrings;
  end;

SQL和Params属性（对于所有 Query 组件都是通用的）在类中定义。由于不同的 Query 组件具有不同的参数实现（例如，TParams和TParameters），因此“Params”属性具有TfrxParams类型，并且是具体参数类型的包装器。
此类中定义了以下方法：

• SetSQL是设置SQL“查询”类型的组件属性；
• GetSQL是获取SQL“Query”类型的组件属性；
• UpdateParams是将参数值复制到 Query 类型的组件中。如果查询组件参数是TParams类型，则通过frxParamsToTParams标准程序执行复制。

让我们使用 IBX 示例来说明数据库引擎的创建。完整的引擎原文可以在 SOURCE\IBX 目录中找到。下面是一些引自原文的引文和我们的评论。

围绕我们将建立包装IBX组件TIBDatabase，TIBTable和TIBQuery。因此，我们的组件将被命名为TfrxIBXDatabase、TfrxIBXTable和TfrxIBXQuery。

如果您对 FastReport 感兴趣，欢迎加入 FastReport QQ 交流群：702295239

还想要更多吗？您可以点击阅读【FastReport报表2021最新资源盘点】，查找需要的教程资源。上是FastReport .NET慧正在网火热销售中!>>查看价格详情