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 |
|
|
|