高性能 表控件FastReport如何自定义数据库引擎编写,注册组件。
所有组件注册都在“初始化”部分执行。
initialization { use standard pictures indexes 37,38,39 instead of pictures} frxObjects.RegisterObject1(TfrxIBXDataBase, nil, '', '', 0, 37); frxObjects.RegisterObject1(TfrxIBXTable, nil, '', '', 0, 38); frxObjects.RegisterObject1(TfrxIBXQuery, nil, '', '', 0, 39);finalization frxObjects.Unregister(TfrxIBXDataBase); frxObjects.Unregister(TfrxIBXTable); frxObjects.Unregister(TfrxIBXQuery);end.
最好将脚本注册码存放在一个带有 RTTI 后缀的单独文件中。更多关于在脚本系统中注册类的内容请参见相应章节。这是此类文件的示例:
unit frxIBXRTTI;interface{$I frx.inc}implementationuses Windows, Classes, fs_iinterpreter, frxIBXComponents{$IFDEF Delphi6}, Variants{$ENDIF}; type TFunctions = class(TfsRTTIModule) public constructor Create(AScript: TfsScript); override; end;{ TFunctions }constructor TFunctions.Create;begin inherited Create(AScript); with AScript do begin AddClass(TfrxIBXDatabase, 'TfrxComponent'); AddClass(TfrxIBXTable, 'TfrxCustomDataset'); AddClass(TfrxIBXQuery, 'TfrxCustomQuery'); end;end;initialization fsRTTIModules.Add(TFunctions);end.
如果您对 FastReport 感兴趣,欢迎加入 FastReport QQ 交流群:702295239
还想要更多吗可以点击阅读【FastReport 表2021最新资源盘点】,查找需要的教程资源。上是FastReport .NET慧正在 火热销售中!>>查看价格详情
标签:
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!