Como programar RadioGroup?
Olá galera,
Estou na fase das consultas no sistema que estou desenvolvendo para a escola onde trabalho. Já fiz os formulários, algumas consultas, porém simplesmente travei em uma consulta que achei que seria fácil.
Mas vamos lá, tenho um formulário de consulta sql com basicamente dois componentes: um RadioGroup e um DBGrid. No RadioGroup, o qual dei o nome de grpFundeb, tenho apenas 02 duas opções: Fundeb 40% e Fundeb 60%. Na minha tabela de funcionários tenho um campo chamado FUNDEB char(1) que armazena "Q" quando o funcionário recebe pela folha dos 40% e "S" quando recebe pela folha dos 60%.
Mas, resumindo a história, o que eu quero e que não estou conseguindo fazer é quando eu clicar em uma das duas opções grpFundeb o DBGrid listar apenas os funcionários que recebem pela opção escolhida no referido RadioGroup, ou seja, quando clicar em Fundeb 40% listar apenas os funcionários que recebem pelos 40% ou quando clicar em Fundeb 60% listar apenas os funcionários que recebem pelos 60%, sem btnBotão ou Edit.
Vejam o código que estou utilizando mas que sei que está errado:
procedure TfrmRelFundeb.rgpFundebClick(Sender: TObject);
begin
With dm_dadosSeduc.sql_conRelFunFundeb do
begin
Close;
SQL.Clear;
SQL.Add('select fun_codigo, fun_matricula, fun_nome, fun_fundeb');
SQL.Add('from funcionarios');
if rgpFundeb.ItemIndex = 0 then
SQL.Add('where fun_fundeb = :fundeb40');
ParamByName('fundeb40').Value:=
dm_dadosSeduc.sql_conRelFunFundebFUN_FUNDEB.AsString;
Open;
if rgpFundeb.ItemIndex = 1 then
SQL.Add('where fun_fundeb = :fundeb60');
ParamByName('fundeb60').Value:=
dm_dadosSeduc.sql_conRelFunFundebFUN_FUNDEB.AsString;
Open;
end;
end;
Ajuda são muito bem vindas.
Agradeço desde já.
Discussão (2)
Carregando comentários...