Buscar por:

Editando pesquisa em um bd atraves do component query

Código

{apos ter feito o banco e vinculado no bde e feito os cadastro}

{abra o delphi}

//siga os passos sertos

//inclua o component bde>'query' , bde>table ,data controls>dbtext ,standart>edit ,standart>button eo componet data access>'datasource'

//insira a seguinte properties no object inspector

{

(não e codigo)  object_inspector>properties(geralmente fica no canto esquerdo inferior)

nome dos components

  query.name      ='query1'

  table.name      ='table1'

  datasource.name ='datasource1'

  dbtext.name     ='dbtext1'

  edit.name       ='edit1'

  edit1.text      ='';

  button.name     ='button1'

  button1.caption  ='pesquisar'

  datasource1>dataset='table1'; 

  table1>databasename='nome do database(la no bde)';

  table1>tablename='nome do banco onde vai ser feita pesquisa';

  query1>databasename='nome do database(la no bde)';

  query1>datasource1='datasource1';

  dbtext1>datasouce1='datasource1';

  dbtext1>datafield='nome do campo';//obs:este mesmo tenque ser um campo chave

  table.active     ='true'

}

//no evento onclick do button1;

procedure Tform1{'nome do form onde se encontra'}.Button1Click(Sender: TObject);

begin

If Not Table1.FindKey([Edit1.Text]) then

   ShowMessage('Informação não Encontrada');

end;

//so comentar valeu