jueves, 30 de septiembre de 2010

UTILIZACION DEL FAST REPORT EN DELPHI

FAST REPORT EN DELPHI

1.    Ejecutar Delphi 7
2.    Abrir el paquete fr7 (se encuentra en las carpetas FastReport2.5\source)
3.    Compile todo el paquete fr7
4.    Instale el paquete fr7
5.    Agregue el camino donde se encuentran los fuentes del paquete FastReport al directorio de librerías de Delphi:

Menú principal Tools
            Environment Options
                Pestaña Library
                    Library Path
                    Add

6.    Pegue en un formulario (en este ejemplo frmReport) un control frReport de la pestaña del FastReport.
7.    Cree en el dmtablas el  IBQuery que va a asociar al reporte.
8.    Cree en el dmtablas un control frDBDataSet (un dataset para reportes de tipo fastreport)
9.    Asocie el frDBDataSet al IBQuery definido en el punto 7. (con la propiedad DataSet)
10.    Vincule el frReport (del punto 6) al frDBDataSet (con la propiedad DataSet), recuerde que hay que usar la unidad.
11.    Diseñe el reporte con bandas (Cabecera de página, cabecera maestra, Datos maestros y pie de página, no se olvide de vincular la banda de Datos Maestros al conjunto de datos virtual en este caso el frDBDataSet, esto se hace  a través de la propiedad DataSource)
12.    Guarde el informe (en este ejemplo se llama frConceptos.frf y se guarda en c:\Recibos\Reports)
13.    Escriba el siguiente código, en el evento que quiera ejecutar el informe:

Procedure Tfrmprincipal.acinformesExecute(Sender: TObject);
begin
 If Not Assigned(frmReport) Then
  Application.CreateForm(TfrmReport,frmReport);
 Dmtablas.Qryconceptos.Close; //se cierra el query asociado al reporte
 Dmtablas.Qryconceptos.Open; // se abre el query que contiene los datos
 frmReport.frReport1.LoadFromFile('C:\Recibos\Reports\frConceptos.frf'); //cargar el informe
 If frmReport.frReport1.PrepareReport Then //pregunta si está preparado el reporte
  frmReport.frReport1.ShowPreparedReport;  // si esta preparado lo muestra
end;

2 comentarios: