Delphi dicas

Codigo para um botão fazer uma busca

{este código faz com que seja realizada uma busca parcial , sem a necessidade de que o código ou nome sejam digitados de forma completa , pode se usar de forma a planejar qual o tipo de dado que se quer buscar

ou seja a busca pode ser feita por vários tipos de campo }





procedure TF_Principal.BitBtn7Click(Sender: TObject);

begin

        inherited;



        //esta linha permite que as linhas compreendidas por estes 2 comandos

        // utilizem sempre a TB_AEscola

        with TB_AEscola do

        begin

                // o comando locate permite que o conteudo do Edit_descrição seja localizado

                // por um dado digitado parcialmente

                Locate ('Alu_Cidade', Edit6.Text, [lopartialkey]);

                // o If testa se a condição é falsa ou verdadeira se for falsa ela permite uma mensagem de erro

                // e limpa o Edit_Codigo e o Edit_descrição se verdadeira ela preenche os campos de acordo

                // com o registro selecionado no DBGrid

                if Locate ('Alu_Cidade', Edit6.Text, [lopartialkey]) =False then

                Begin

                        MessageDLG('Cidade Inexistente', mtError, [mbOk], 0);

                        Edit1.Text:='';

                        Edit2.Text:='';

                        Edit3.Text:='';

                        Edit4.Text:='';

                        Edit5.Text:='';

                        Edit6.Text:='';

                end

                else

                Begin

                        Edit1.Text := TB_AEscola.FieldByName('Alu_Cod').AsString;

                        Edit2.Text := TB_AEscola.FieldByName('Alu_Nome').AsString;

                        Edit3.Text := TB_AEscola.FieldByName('Alu_Tel').AsString;

                        Edit4.Text := TB_AEscola.FieldByName('Alu_Cel').AsString;

                        Edit5.Text := TB_AEscola.FieldByName('Alu_Idade').AsString;

                        Edit6.Text := TB_AEscola.FieldByName('Alu_Cidade').AsString;

                end

        end



end;