pesquisa simples delphi
Estas funções e procedimentos são utilizadas para pesquisar por informações dentro de tabelas utilizando os componentes TTable e TQuery.
A) FindKey - esta função pesquisa uma determinada informação exata dentro de um campo indexado ou chave primária, retornando True ou False para pesquisas encontradas ou não. Muito útil para quem ainda utiliza o velho paradox e dbase. Pode ser utilizado para procurar por código, numero de registro, numero de nota fiscal e etc.
Para nosso exemplo temos uma tabela Paradox com a seguinte estrutura: DataBase Desktop
Salve com o nome Empregado. DB.E coloque os seguintes dados.
Observe que o campo Código foi marcado como chave primaria e é através deste campo de podemos utilizar as funções e Procedimentos de pesquisa.
No Delphi coloque os seguintes componentes no formulário:
Edit (Paleta Standard)
Button (Paleta Standard) - Caption = Pesquisar Por Código
DbGrid (Paleta Data Control)
Table (Paleta BDE)
DataSoucer (Paleta Data Access)
Seu formulário deve estar como mostrado abaixo:
No Componente Table vamos fazer associar com nossa tabela:
DataBaseName - coloque o caminho onde se encontra sua tabela. No meu caso "C:\meus documentos".
TableName - escolha a tabela Empregados.db
IndexName - escolha o campo Código (Caso usa tabela só tenha uma chave primaria não é preciso informar nada em IndexName. A busca é feita diretamente pelo campo chave, caso contrario é necessário que se escolha qual o campo ser utilizado).
Active - Coloque true.
No componente DataSource em DataSet escolha Table1 e no DbGrid em DataSource escolha DataSource1.
Clique duas vezes no componente Button e digite o código abaixo:
Table1.FindKey([Edit1.Text]);
Execute o programa digite um código no edit e clique em pesquisar código para testar.
Caso você queira uma mensagem se a pesquisa não foi bem sucedida mude para o código abaixo:
If Not Table1.FindKey([Edit1.Text]) then