Hola a todos :
Trabajo con Delphi 6 y la base de datos es en Access. A la hora de hacer el reporte necesito mostrar los datos de todos los trabajadores, pero listando estos datos en hojas separadas segun la oficina donde trabajen.
Suponguemos que estos son los valores que tego en mi Base de Datos :
Código:
Oficina Nombre Edad Sexo
01 Jose 23 m
02 Ledian 23 m
03 Carlos 40 m
02 Yarmi 19 f
01 Lidia 42 f
01 Tere 63 f
Y lo que busco mostrar es esto :
Código:
Oficina : 01
Nombre Edad Sexo
Jose 23 m
Lidia 42 f
Tere 63 f
.
.
.
pag 1
Código:
Oficina : 02
Nombre Edad Sexo
Ledian 23 m
Yarmi 19 f
.
.
.
pag 2
Código:
Oficina : 03
Nombre Edad Sexo
Carlos 40 m
.
.
.
Pag 3
Lo último que se me a ocurrido es ...
Cita:
Insertar un TQuickReport con las sgutes bandas :
TitleBand1
ColumnHeaderBand1
DetailBand1
PageFooterBand1
|
Aquí está el código del formulario, tiene dos procedimientos:
Código:
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if oficina <> ADOQuery1CCOSTO.AsInteger then
begin
oficina := ADOQuery1Oficina.AsInteger;
QuickRep1.NewPage;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
try
ADOQuery1.Open;
ADOQuery1.First;
oficina := ADOQuery1Oficina.AsInteger;
QuickRep1.Preview;
finally
ADOQuery1.Close;
end;
end;
Pero no me salen las bandas TitleBand1 y ColumnHeaderBand1 .
Por lo que obtengo es esto :
Código:
Jose 23 m
Lidia 42 f
Tere 63 f
.
.
.
Pag 2
Código:
Ledian 23 m
Yarmi 19 f
.
.
.
Pag 2
Código:
Carlos 40 m
.
.
.
Pag 3
Grasias a todos ... y en espera de su respuesta un servidor.