montar relatório em um memo

[UMC - ASTEC 0]

Olá pessoal estou precisando montar um relatório em um "memo"

que exiba da seguinte forma

---------Relatório-------------

COD - NOME - CPF

VENDEDOR: João

1 - Cliente1 - 123456789

2 - Cliente2 - 123456789

Sub-total de clientes: 2

VENDEDOR: Paulo

3 - Cliente3 - 123456789

4 - Cliente4 - 123456789

5 - Cliente5 - 123456789

Sub-total de clientes: 3

 

Total de clientes : 5

Total de vendedores : 2

---------Relatório-------------

 

acontece que estou iniciando em delphi e não sei como fazer isso!

 

Script das tableas

tabela cliente
idcliente integer,
nome varchar(200),
cpf varchar(200),
idvendedor integer

tabela vendedor
idvendedor integer,
nome varchar(200),
funcao varchar(200)

Obrigado pela atenção!

[UMC - ASTEC 0]

Pessoal tentei fazer algo assim

 

procedure TForm2.Button4Click(Sender: TObject);
begin
 
  Memo1.Lines.Add('ID - NOME - CPF'+#13#10);
DataModule2.QueryRel.First;
Showmessage(inttostr(DataModule2.QueryRel.SQL.Count));
 while not DataModule2.QueryRel.EOF do
 // for  I := 0 to 3 do

    begin

      ShowMessage('QueryRel - ' +DataModule2.QueryRelIDVENDEDOR.AsString);
      DataModule2.QueryTes.ParamByName('id').AsInteger :=  DataModule2.QueryRel.FieldByName('IDVENDEDOR').AsInteger; // DataModule2.QueryRelIDVENDEDOR.AsInteger;
      DataModule2.QueryTes.open;
      Memo1.Lines.Add('Vend: - '+DataModule2.QueryTesNOME.AsString+#13#10);
      //DataModule2.QueryTes.First;
      DataModule2.QueryTes.open;
        while not DataModule2.QueryTes.EOF do
        //for x := 0 to   DataModule2.QueryTes.SQL.Count - 1 do
          begin

            ShowMessage('QueryTes - '+DataModule2.QueryTesNOME.AsString );
            Memo1.Lines.Add(DataModule2.QueryTesNOME.AsString +' - '+
            DataModule2.QueryTesNOME_1.AsString);
            DataModule2.QueryTes.next;
          end;
       //DataModule2.QueryRel.open;
      DataModule2.QueryRel.next;

    end;

end;

acontece que ele esta imprimindo assim!

 

ID - NOME - CPF

 

Vend: - vendedor

 

vendedor - hehe

vendedor - umc

Vend: - vendedor //aqui deveria sair o vendedor 'venda' e como cliente 'astec'

 

Vend: - vendedor // aqui deveriaa sair o vendedor 'vendido' e como cliente 'jose'

 

 

QueryRel - select distinct idvendedor from cliente

QueryTes - select distinct v.nome,c.nome from cliente c

join vendedor v on (v.idvendedor = c.idvendedor) where c.idvendedor = :id

 

vlw pessoal!