Mi dolor de cabeza

!3d1@n · #1 12-01-2005

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.

quetzal · #2 13-01-2005

mmmm,
has tu consulta, y cuando tengas los resultados, lo enlazas a un quickreport
poner QRGroup1 y en expresion le pones por el campo que quieras agrupar en este caso por el de oficinas, y pones una banda de detalles en la cual pones los campos del empleados.

espero haberme dado a entender

!3d1@n · #3 19-01-2005

Hola quetzal :

Pues te cuento que así lo hice. Solo que ... ¿Como hacer que me cambie de página segun ese agrupado?

En espera de su ayuda un fiel servidor.

quetzal · #4 20-01-2005

puedes checar esto en al beforeprint del la banda donde estas agrupando

if Query1.RecNo>0 Then
QuickRep1.NewPage;