Relatorio Repetitivo!

[Guest Vinicius Sant'Anna]

É o seguinte galera, fiz um programa de cadastro de alunos e turmas e tenho que gerarum Lista de Chamadas, só que a lista está repetindo 3 vezes cada nome de aluno....o código é esse aqui:

procedure TForm6.Button1Click(Sender: TObject);
begin
Form18.Query1.Close;
Form18.Query1.SQL.Clear;
Form18.Query1.SQL.Add('select Turma.Modulo, Turma.Instrutor, Turma.Monitor, Alunos.Nome_do_Aluno');
Form18.Query1.SQL.Add('From Turma, Alunos');
Form18.Query1.SQL.Add('inner join Alunos');
Form18.Query1.SQL.Add('on Turma.Turma = Alunos.Turma');
Form18.Query1.SQL.Add('where Turma.Turma =:paramTURMA');
Form18.Query1.ParamByName('paramTURMA').AsString := Form6.Edit1.Text;
Form18.Query1.Active:= False;
Form18.Query1.Open;

if Form18.Query1.recordcount > 0 then
Form18.QuickRep1.Preview
else
showmessage('Nenhum Registro Encontrado');
Form6.Hide;
end;

OBS: Ele não da msg de erro nenhuma.

alguém pode me ajudar?

[Progr'amador]

Olá,

Use o distinct,

'select distinct Turma.Modulo, Turma.Instrutor,...'

Abs. Progr'amador.

B)

[Guest Visitante]

Cara EU TE AMOOOOOOO...no bom sentido é claro!!!!!!!!