begin
IBQuery1.Close;
IBQuery1.Sql.Clear;
IBQuery1.Sql.Add('Select * from Professor');
IBQuery1.Sql.Add('inner join Titulo');
IBQuery1.Sql.Add('on Professor.CdTitulo = Titulo.CdTitulo');
case RadioGroup1.ItemIndex of
0: IBQuery1.Sql.Add('order by DscTitulo, NomeProf');
1: IBQuery1.Sql.Add('order by NomeProf');
2: IBQuery1.Sql.Add('order by Sexo, NomeProf');
3: IBQuery1.Sql.Add('order by Idade desc');
end;
IBQuery1.Open;
end;
Nenhum comentário:
Postar um comentário