FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 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 Cita:
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; 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
__________________
Saludos ... JLedian. Última edición por !3d1@n fecha: 12-01-2005 a las 18:41:26. Razón: error al escribir |
#2
|
|||
|
|||
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
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
#3
|
||||
|
||||
Los necesito
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.
__________________
Saludos ... JLedian. |
#4
|
|||
|
|||
puedes checar esto en al beforeprint del la banda donde estas agrupando
if Query1.RecNo>0 Then QuickRep1.NewPage;
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
|
|
|