terça-feira, 21 de novembro de 2017

Trabalhando com Radio Group

procedure TfrSQL.RadioGroup1Click(Sender: TObject);
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:

📌 Tela de Splash, Tela de Login e Tela Principal em Delphi: Aprendendo na Prática

  No desenvolvimento de sistemas, a experiência do usuário começa muito antes de utilizar as principais funcionalidades do software. Elemen...