Buscar

Codigo para um botão fazer uma busca

Código

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

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 29/11/07
Por: Claudinho Wylde
Visualizada: 7836 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009