Ver Mensaje Individual
  #1  
Antiguo 20-11-2009
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 16
microbiano Va por buen camino
Adoquery y Qucikreport

hola estoy en la etapa de impresion de un pequeño sistema y la verdad no veo la forma de imprimir con Quickreport.

les planteo el problema.

1.- base de datos sqlserver2000
2.- no se como pasar el resultado de un Adoquery al Quickreport, el Adoquery toma la conexion de un modulo en el cual se valida el usuario con el usuario con los permisos de la base de datos ejemplo usuario "SA".

en un form tengo el siguiente un boton con el siguiente codigo. el cual llama al reporte de impresion

Código Delphi [-]
procedure Tfcontribuyente.BitBtn4Click(Sender: TObject);
begin
  Application.CreateForm(Tfrepor_contr, frepor_contr);
  frepor_contr.Qresultado.SQL.Add('select nombre as [nombre] from sap_contrato');
  frepor_contr.Qresultado.Open;
end;

y cuando creo el reporte de impresion pongo lo siguiente

Código Delphi [-]
procedure Tfrepor_contr.FormCreate(Sender: TObject);
begin
frepor_contr.nombre.DataField:=frepor_contr.Qresultado.Recordset.Fields['nombre'].value;
frepor_contr.QuickRep1.Preview;
end;

problemas.

1.- me muestra el informe sin ningun dato.
2.- me muestra el informe con el primer registro cuando en mi base de datos tengo 50 registros.

espero me puedan ayudar.
Responder Con Cita