Query no QuickReport (consulta)

Delphi

30/03/2004

Galera, com fazer uma consulta no quick report
no meu form inicial, no menu relatorio, tenho este cod
var
  cod:string;
begin
  InputQuery(´Pesquisa´,´Digite o cod do produto´,cod);
  if cod=´´ then
    ShowMessage(´Informe o codigo´)
  else
    begin
      if not DM.tabProduto.Locate(´cod´, cod,[loCaseInsensitive, loPartialKey]) then
        ShowMessage(´Produto não Cadastrado!´)
      else
        begin
          FormRelEst.cod:=cod;
          FormRelEst.QuickRep1.Preview
        end;
    end;

end;


e na query, no form relatorio, faço o comando basico
select * from table where table.cod=cod//esse sendo informado no formm inicial, so q ñ da o resultado, no form relatorio, tenho duas tabelas

testei isso no dbgrid, da certo, como fazer no quick, ñ precissa ser esta logica, so quero fazer uma listagem no query


Wolverine

Wolverine

Curtidas 0

Respostas

Wolverine

Wolverine

30/03/2004

:cry:


GOSTEI 0
POSTAR