FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的报告和文档创建 VCL 库。它提供了可视化模板设计器,可以访问 30 多种格式,并可以部署到云、网站、电子邮件和打印中。
下面的组件是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
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/3160.html