FastReport使用交流,FastReport中国社区FastReport联系电话 联系电话:17347785263

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

来源:   发布时间:2021-07-20   浏览:次

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

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

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

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

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

如您所见,一组标准的数据库引擎组件包括数据库、表和查询。您可以创建所有这些组件或其中的一些组件(例如,许多 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慧正在网火热销售中!>>查看价格详情

本站文章除注明转载外,均为本站原创或翻译
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/3152.html

联系我们
  • 重庆总部 17347785263
购买
  • sales@evget.com
合作
  • business@evget.com


在线
客服
在线
QQ
电话
咨询
023-68661681
返回
顶部