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

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

下面的组件是TfrxIBXDatabase其中的一个。它代表了一个包装器TIBDatabase。

  TfrxIBXDatabase = 类（TfrxCustomDatabase）
  私人的
    FDatabase：TIB 数据库；
    FTransaction: TIBTransaction;
    函数 GetSQLDialect：整数；
    过程 SetSQLDialect(const Value: Integer);
  受保护
    过程 SetConnected(Value: Boolean); 覆盖；
    过程 SetDatabaseName(const Value: String); 覆盖；
    过程 SetLoginPrompt(Value: Boolean); 覆盖；
    过程 SetParams(Value: TStrings); 覆盖；
    函数 GetConnected：布尔值；覆盖；
    函数 GetDatabaseName：字符串；覆盖；
    函数 GetLoginPrompt：布尔值；覆盖；
    函数 GetParams: TStrings; 覆盖；
  上市
    构造函数创建（AOwner：TComponent）；覆盖；
    析构函数销毁；覆盖；
    类函数 GetDescription: String; 覆盖；
    过程 SetLogin(const Login, Password: String); 覆盖；
    属性数据库：TIBDatabase 读取 FDatabase；
  发表
    { 列出 TIBDatabase 属性。注意——一些属性已经存在于基类中 }
    属性数据库名称；
    属性登录提示；
    属性参数；
    属性 SQLDialect：整数读取 GetSQLDialect 写入 SetSQLDialect；
    { 连接的属性应该放在最后！}
    物业已连接；
  结尾;

构造函数 TfrxIBXDatabase.Create(AOwner: TComponent);
开始
  遗传;
  { 创建组件 – 连接 }
  FDatabase := TIBDatabase.Create(nil);
  { 创建组件 - 交易（IBX 的特殊性）}
  FTransaction := TIBTransaction.Create(nil);
  FDatabase.DefaultTransaction := FTransaction;
  {不要忘记这一行！}
  组件:= FDatabase;
结尾;

析构函数 TfrxIBXDatabase.Destroy;
开始
  { 删除交易}
  FTransaction.Free;
  { 父类中的连接会自动删除}
  遗传;
结尾;

{ 组件描述将显示在对象工具栏中的图标旁边 }
类函数 TfrxIBXDatabase.GetDescription: String;
开始
  结果 := 'IBX 数据库';
结尾;

{ 重定向组件属性以覆盖属性，反之亦然 }
函数 TfrxIBXDatabase.GetConnected: Boolean;
开始
  结果：= FDatabase.Connected;
结尾;

函数 TfrxIBXDatabase.GetDatabaseName: String;
开始
  结果：= FDatabase.DatabaseName;
结尾;

函数 TfrxIBXDatabase.GetLoginPrompt: Boolean;
开始
  结果：= FDatabase.LoginPrompt;
结尾;

函数 TfrxIBXDatabase.GetParams: TStrings;
开始
  结果：= FDatabase.Params;
结尾;

函数 TfrxIBXDatabase.GetSQLDialect：整数；
开始
  结果：= FDatabase.SQLDialect;
结尾;

过程 TfrxIBXDatabase.SetConnected(Value: Boolean);
开始
  FDatabase.Connected := 值；
  FTransaction.Active := 值;
结尾;

过程 TfrxIBXDatabase.SetDatabaseName(const Value: String);
开始
  FDatabase.DatabaseName := 值；
结尾;

过程 TfrxIBXDatabase.SetLoginPrompt(Value: Boolean);
开始
  FDatabase.LoginPrompt := 值；
结尾;

过程 TfrxIBXDatabase.SetParams(Value: TStrings);
开始
  FDatabase.Params := 值；
结尾;

过程 TfrxIBXDatabase.SetSQLDialect(const Value: Integer);
开始
  FDatabase.SQLDialect := 值；
结尾;

{ 此方法供 DB 连接向导使用 }
过程 TfrxIBXDatabase.SetLogin(const Login, Password: String);
开始
  Params.Text := 'user_name=' + Login + #13#10 + 'password=' + 密码；
结尾;

如您所见，并没有那么复杂。我们创建 FDatabase:TIBDatabase 对象，然后定义我们希望设计者拥有的属性。为每个属性这写写了“Get”和“Set”方法。

如果您对 FastReport 动物，欢迎加入 FastReport QQ 交流群：702295239

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