Como fazer select com multiplas tabelas em rave reports?

[danycia]

Estou tentando fazer um select com algumas tabelas para jogar no rave reports e não encontrei a forma de fazer isto. Tente fazer um select dentro do evento on before print do componete TRvSystem da seguinte forma:

procedure TFrmDM.RvSysPedidoBeforePrint(Sender: TObject);
begin
  QRelatorio.Close;
  QRelatorio.SQL.Clear;
  QRelatorio.SQL.Add('Select * from TbPedido P, TbItens I, TbProdutos Pr');
  QRelatorio.SQL.Add('where (P.PedCodigo=I.ItePedido)and(I.IteProduto=Pr.ProCodigo)and(P.PedCodigo=1)');
  QRelatorio.Open
end;

Mas até o momento continua na mesma, ou seja a relação das peças aparece todas de cada pedido.

alguém sabe a forma ou o lugar para se usar este código?

grato.

Danilo.

Editado Abril 25, 2008 por Micheus
Adicionada a tag [CODE] para melhor visualização do código. Lembre-se de utilizá-la. ;-)

[Jhonas]

procedure TFrmDM.RvSysPedidoBeforePrint(Sender: TObject);

begin

QRelatorio.Close;

QRelatorio.SQL.Clear;

QRelatorio.SQL.Add('Select * from TbPedido P, TbItens I, TbProdutos Pr');

QRelatorio.SQL.Add('where (P.PedCodigo=I.ItePedido)and(I.IteProduto=Pr.ProCodigo)and(P.PedCodigo=1)');

QRelatorio.Open

end;

Mas até o momento continua na mesma, ou seja a relação das peças aparece todas de cada pedido.

OBS: Da maneira como está a pesquisa trará tudo

Que tal usar parametros para especificar qual item voce quer

procedure TFrmDM.RvSysPedidoBeforePrint(Sender: TObject);
begin
QRelatorio.Close;
QRelatorio.SQL.Clear;
QRelatorio.SQL.Add('Select * from TbPedido P, TbItens I, TbProdutos Pr');
QRelatorio.SQL.Add('where (P.PedCodigo= :Pedido) and (I.IteProduto= :Codigo) and (P.PedCodigo= 1)');
QRelatorio.Open
end;

Neste caso ele traria apenas pelo codigo do pedido e pelo codigo do produto que voce digitasse.

Outras informações sobre relacionamento de tabelas

http://www.activedelphi.com.br/print.php?sid=427

http://www.linhadecodigo.com.br/Artigo.aspx?id=521

abraço