FastReport中国社区FastReport联系电话 联系电话:023-68661681

FastReport VCL报表开发人员手册:数据库组件

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

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慧正在网火热销售中!>>查看价格详情

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

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


在线
客服
微信
QQ 电话
023-68661681
返回
顶部