Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Consejo referente a una gestion de reportes generica. (https://www.clubdelphi.com/foros/showthread.php?t=78276)

Critter 04-04-2012 08:59:35

Consejo referente a una gestion de reportes generica.
 
Ante todo saludos a todos los foreros.

Quisiera ver si me podriais orientar respecto a una gestión de reportes generica y centralizada para mi aplicación mediante fastreport y fibplus.

He realizado una clase, la cual accede contiene 2 datamodules separados, 1 para los componentes de los reportes y otro para las dataset de la tabla.

los datasets y los frdbdataset del fastrecord se crean en tiempo de ejecución, pero los reportes son tan variados, a veces preciso actuar sobre varias propiedades o eventos. Está claro que en tiempo de diseño es más fácil, pero desearia una forma que a la vez fuese fácil incorporar nuevos reportes. Además a ver si me podeis aconsejar como tener todos los reportes centralizados para su edición.

¿ Existe alguna otra forma de facilitar esto ?

la clase es algo así, por supuesto con alguna que otra propiedad más, y no tengais en cuenta la sintaxis, es erronea, es solo para mostraros una idea.

Código Delphi [-]
TPrintReport=class
private
  FDataSetsList: TList;              // List con  los datasets creados en runtime.
  FfrDBDataSetsList: TList;         // List con los frDbDataSets creados en runtime.
  FRptDataModule: TFdtmReports;  // Modulo de datos con los componentes FastReport.
  FDataModule: TFdtmCustomPrint; // Modulo de datos con los componentes del acceso a datos.
public
  procedure print;
  procedure Design;
  property RptDataModule: TdtmReports read FdtmReports write FdtmReports;
  property FDataModule: TFdtmCustomPrint read FdtmCustomPrint write FdtmCustomPrint
  property ReportName: string read FReportName write FReportName;
  property DataSetsList: TList;
  property frDBDataSetsList: TList read FfrDataSetsList write FfrDataSetsList;
  property DataSetsList: TList read FDataSetsList write FDataSetsList;
end;

Gracias por anticipado.


La franja horaria es GMT +2. Ahora son las 15:58:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi