Delphi dicas

Criando um radiogroup para buscas específicas

{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}