¿fastreport indicarle por codigo que query hacer?

[JXJ]

acabo de instalr el fastrepor de prueba.

estoy comenzando con el diseño del reporte

y quiero poder indicarle al
fasterport desde codigo delphi
que haga el reportes solo de el cliente cuyo ID = 1

se supone que va a genearse asi

ID EMPRESA
EMPRESA
DIRECCCION
TELEFONO
OTROS DATOS

COMPRASDELCLIENTE //AQUI es donde quiero que sean las compras del cliente cuyo ID = al que le indique por codigo delphi
COMPRASDELCLINTE


como se hace para pasar informacion desde delphi a fastreport?

[heroe]

Primero necesitas agregar por lo menos 3 componentes:
1 - frxReport
2 - frxDBDataset (En la propiedad DataSet, selecciona el componente query)
3 - Un Query(puede ser un ADOQuer, si estas trabajando con ADO)

Ahora agrega la instrucción SQL al componente query. Y Abre el componente frxReport. Para agregar los datos, ve menu Report, Data, has clic en el DataSet, con el que vas a trabajar, y has clic en OK.

Ya puedes empezar a construir tu reporte.

Nota: Para llamarlo por código, usa frxReport.ShowReport();

[JXJ]

dejame probarlo croe que ya entendi

[JXJ]

Empezado por JXJ

dejame probarlo croe que ya entendi

no le entiendo nada..

no entiendo como se diseña el reporte ni como se enlazan los datos

yo quiero poer un boton

en delphi

begin

/// aqui el fast report frxReport1 le quiero enviar una variable
//en este caso 1 que es el ID de la empresa de la que quiero
// obtener sus datos
// y con ese valor el fastrepor obtenga las compras de ese cliente//

end

[heroe]

Para acceder al diseño del reporte, coloca un componente frxReport1, y has doble clic en el.

Ahora para agregar variables, ve al Menu, Report, y has clic en variables.
Añade una nueva variable, has clic en OK.

Finalmente, ve a DataTree(a la derecha de la pantalla) y selecciona la pestaña variables, ahora arrastra la variable al Reporte.

Desde el código, primero debes llenar las variables y luego mostrar el reporte, por ejemplo:

Código Delphi [-]
frxReport1.Variables['Variable1'] := QuotedStr(Empresa);
frxReport.ShowReport();

Nota: Entre paréntesis va el nombre de la variable definida en el reporte. Además si vas a pasar valores tipo string usa la instrucción QuotedStr.

[JXJ]

Empezado por heroe

Para acceder al diseño del reporte, coloca un componente frxReport1, y has doble clic en el.

Ahora para agregar variables, ve al Menu, Report, y has clic en variables.
Añade una nueva variable, has clic en OK.

Finalmente, ve a DataTree(a la derecha de la pantalla) y selecciona la pestaña variables, ahora arrastra la variable al Reporte.

Desde el código, primero debes llenar las variables y luego mostrar el reporte, por ejemplo:


Código Delphi [-]
frxReport1.Variables['Variable1'] := QuotedStr(Empresa);
frxReport.ShowReport();





Nota: Entre paréntesis va el nombre de la variable definida en el reporte. Además si vas a pasar valores tipo string usa la instrucción QuotedStr.

de esta forma si me esta funcoinando..
ya veo el nombre e id de la empresa

es posible pasar por variable una imagen que tengo en la base de datos
firebird 2.1 como cambpo blob. subtype binary al reporte
para mostrar la imagen o logo de la empresa (tambien quiero mostras imagenes de lo que compro, en el detalle )?

tengo esta query en delphi l aejecuto
y del resultado tomo los valores y los paso por variable al fastreport

Código Delphi [-]
SELECT 
  EMPRESA.ID,
  EMPRESA.TOTALVENTA, // campo numeric (14, 4) lo manejo como variable real
  EMPRESA.RFC,
  EMPRESA.NOMBRE,
  EMPRESA.PAIS,  // campo string
  EMPRESA.ESTADO,
   EMPRESA.TELEFONO, //campo integer
    EMPRESA.LOGO, //campo blob subtype binary

FROM
  EMPRESA
WHERE
  ID = 1
 
asi
 
var
  EMPRESA_ID:integer
  EMPRESA_TOTALVENTA :Real;
  EMPRESA_RFC  :String;
  EMPRESA_NOMBRE:string;
  EMPRESA_PAIS :string;
  EMPRESA_ESTADO:String
  EMPRESA_TELEFONO :String
  EMPRESA_LOGO: // no tengo idea de como manajarlo con que tipo 
begin
            try
              QryCliente.Close;
              QryCliente.SQL.Clear;
              QryCliente.SQL.Add(sSql ); //aqui  esta la sentencia sql de mas arriba
              QryCliente.Execute;
            finally
            end;
               try
                 for j := 0 to  QryCliente.RecordCount - 1 do
                 begin
                 empresa id := QryCliente.Fields[0].AsInteger;
                 EMPRESA_LOGO := QryCliente.Fields[1].AsString;//==??
                end;
 
end;

creo que la misma query dentro de fastreport se puede usar
y asignar componente de imagen para el campo blob algo asi.

SELECT
EMPRESA.ID,
EMPRESA.TOTALVENTA, // campo numeric (14, 4) lo manejo como variable real
EMPRESA.RFC,
EMPRESA.NOMBRE,
EMPRESA.PAIS, // campo string
EMPRESA.ESTADO,
EMPRESA.TELEFONO, //campo integer
EMPRESA.LOGO, //campo blob subtype binary

FROM
EMPRESA
WHERE
ID = :Variable1
[/delphi]

eso es loq ue ahora estoy probando hacerlo funcional..

gracias
heroe