FastReport VCL报表开发人员手册：自定义数据库引擎编写

FastReport 提供了 ADO、BDE、IBX、DBX、FIB 引擎。您可以创建自己的引擎，然后将其连接到 FastReport。

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

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

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

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 示例来说明数据库引擎的创建。完整的引擎原文可以在 SOURCEIBX 目录中找到。下面是一些引自原文的引文和我们的评论。

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

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

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

标签：

来源：慧都