Impressao de Relatorio

Delphi

12/02/2003

Amigos,

quero fazer um relatorio onde voce entra com o numero do registro (pedido) ele busca só aquele registro na tabela e manda pro quickreport

alguem tem algum exemplo de como eu faço isso?


Garciabh2

Garciabh2

Curtidas 0

Respostas

Anonymous

Anonymous

12/02/2003

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}


GOSTEI 0
POSTAR