Fórum Impressao de Relatorio #136161

A sua consulta deve ser algo do tipo:

*chama-se query1
*Select * from Table1 where Table1.Pedido=:Pedido;

Vamos supor que vc quer abrir o relatorio que se baseia nesta consulta e ja esta pronto, ele chama-se ´report´ e esta no formulario ´form2´ que deve ser aberto apartir do formulario principal que é ´form1´.Faça então:
*crie um botão;
*coloque no evento onclick do botão:
var numpedido:integer {cria a variável inteira chamada numpedido}
begin
numpedido:=strtoint(inputbox(´Titulo´,´Numero do Pedido´,1);
{faz com que numpedido receba o valor da inputbox que sera informada pelo usuário}
with Query1 do
begin
if active then close;
ParambyName(Pedido).AsInteger:=numpedido;
Open;
end;
{aqui nós fechamos a consulta para limpa-la caso estivesse aberta e então abrimos novamente passando o valor do parametro numero do pedido que foi informado pelo usuario}
Form2:=TForm1.Create(Application);
Form2.Report.Preview;
{em seguida nos carregamos o formulario em que esta o relatorio e entao visualizamos o relatorio, vc pode trocar o comando preview por print e imprimir direto o relatório}