Buscar por:

Criando um radiogroup para buscas específicas

Código

{esta parte do código especifica como o RadioGroup vai trabalhar

temos a Tabela de escola que esta salva no database como TB_AEscola

e estaremos usando 5campos desta tabela

Este código serve para que seja selecionado pelo Radiogroup qual

será o parametro de busca

Sendo selecionado este parametro no Radiogroup será direcionado o cursor

para o campo edit respectivo onde será digitada a busca}

procedure TF_Principal.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

     0 : TB_AEscola.FieldByName('Alu_Cod').AsString;

     1 : TB_AEscola.FieldByName('Alu_Nome').AsString;

     2 : TB_AEscola.FieldByName('Alu_Tel').AsString;

     3 : TB_AEscola.FieldByName('Alu_Cel').AsString;

     4 : TB_AEscola.FieldByName('Alu_Idade').AsString;

     5 : TB_AEscola.FieldByName('Alu_Cidade').AsString;

end;

           Begin

           {aqui é indicado como será feita

           EX: se o radiogroup1.campo =0 ( que acima indicamos

           que usa o campo de Alu_Cod) será feita uma busca

           atravéz destes dados (código) e os demais edit´s serão

           apagadados para que assim que a busca localize os dados

           procurados os edit´s possam ser preenchidos }

               if RadioGroup1.ItemIndex = 0 then

                   Begin

                       Edit1.setfocus;

                       Edit2.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

           {aqui fazemos a mesma coisa mas indicando agora

           que estamos trabalhando com o campo indicado

           com os dados de nome dos alunos }

               if RadioGroup1.ItemIndex = 1 then

                   Begin

                       Edit2.setfocus;

                       Edit1.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

{ aqui continuamos a criar o mesmo comando especificando os demais itens 

do RadioGroup fazendo com que cada vez que selecionemos um determinado item os demais edites sejam apagados da mesma forma }

Aqui vai o código completo para desenvolver este Radiogroup

procedure TF_Principal.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

     0 : TB_AEscola.FieldByName('Alu_Cod').AsString;

     1 : TB_AEscola.FieldByName('Alu_Nome').AsString;

     2 : TB_AEscola.FieldByName('Alu_Tel').AsString;

     3 : TB_AEscola.FieldByName('Alu_Cel').AsString;

     4 : TB_AEscola.FieldByName('Alu_Idade').AsString;

     5 : TB_AEscola.FieldByName('Alu_Cidade').AsString;

end;

           Begin

               if RadioGroup1.ItemIndex = 0 then

                   Begin

                       Edit1.setfocus;

                       Edit2.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

               if RadioGroup1.ItemIndex = 1 then

                   Begin

                       Edit2.setfocus;

                       Edit1.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

               if RadioGroup1.ItemIndex = 2 then

                   Begin

                       Edit3.setfocus;

                       Edit2.Clear;

                       Edit1.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

               if RadioGroup1.ItemIndex = 3 then

                   Begin

                       Edit4.setfocus;

                       Edit2.Clear;

                       Edit3.Clear;

                       Edit1.Clear;

                       Edit5.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

               if RadioGroup1.ItemIndex = 4 then

                   Begin

                       Edit5.setfocus;

                       Edit2.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit1.Clear;

                       Edit6.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

           Begin

               if RadioGroup1.ItemIndex = 5 then

                   Begin

                       Edit6.setfocus;

                       Edit2.Clear;

                       Edit3.Clear;

                       Edit4.Clear;

                       Edit5.Clear;

                       Edit1.Clear;

                          TB_AEscola.Filtered:=True;

                   end;

           end;

end;

{Espero que ajude alguem por ai 

se quizerem mandem um email 

cgfj05ozzy@hotmail.com

um abraço}