Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2005
Avatar de !3d1@n
!3d1@n !3d1@n is offline
Miembro
 
Registrado: ene 2005
Ubicación: Ciudad Habana - Cuba
Posts: 46
Poder: 0
!3d1@n Va por buen camino
Angry Mi dolor de cabeza

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.
__________________
Saludos ... JLedian.

Última edición por !3d1@n fecha: 12-01-2005 a las 18:41:26. Razón: error al escribir
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:49:01.


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
Copyright 1996-2007 Club Delphi