Pesquisa String ou Integer: Delphi

Neste artigo estarei demonstrando como se fazer pesquisa no Delphi usando o componente ClientDataSet, eu criei um banco de dados e uma tabela chamada Pessoa que nos servirá de demonstração.

Tabela Pessoa

            Crie uma nova Aplicação e uma nova conexão e adicione em nosso formulário os seguintes componentes e altere-os como descreve os quadro abaixo:

SqlDataSet

Onde temos WHERE IDPESSOA =:pIDPESSOA, estou passando o paramento através da variável pIDPESSOA            para alimentar nossa claususula WHERE.

DataSetProvider

ClientDataSet

DataSource

E por fim um DbGrid, mude a propriedade name para dbgPesquisa e a DataSource para dtsPesquisa. Adicione também um Edit e no evento OnKeyPress coloque o seguinte código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

1  if key = #13 then

2 begin

3    With cdsPesquisa do

 4  begin

 5   close;

 6     FetchParams;

 7     Params.ParamByName('pIDPESSOA').AsInteger:=StrToInt(Edit1.Text);

 8    Open;

    end;

  end;

end;

Linha 1: Se a tecla for o Enter faça, #13 é a representação da tecla Enter.

Linha 3: Com o cdsPesquisa faça.

Linha 5: Fechamos o ClientDataSet cdsPesquisa, para receber o parâmetro.

Linha 6: Passamos o parâmetro pIDPESSOA.

Linha 7: Alimenta o parâmetro pIDPESSOA.

Linha 8: Abrimos o ClientDataSet..

Campo String

Vamos aprender agora como pesquisar por campo string, é muito simples, vamos modificar o nosso SQL, deixe-o como descrito a seguir:

SqlDataSet

A única diferença a clausula Where, trocamos a compo IDPESSOA por NOME e retirei o singal de (=) afinal queremos passar o parâmetro.

Retorne ao evento OnkeyPress do Edit e modifique o código deixando igual ao descrito a seguir:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

1  if key = #13 then

2 begin

3    With cdsPesquisa do

 4  begin

 5   close;

 6     FetchParams;

 7     Params.ParamByName('pNOME').AsString:=Edit1.Text+’%’;

 8    Open;

    end;

  end;

end;

Só mudei a linha 7 para alterarmos o nome do parâmetro, e não convertermos em integer, afinal o campo edit já é string.

LIKE: Com este operador, podemos comparar cadeias de caracteres utilizando padrões de comparação (Wildcard) para um ou mais caracteres. Normalmente o caracter percentual (%) substitui zero, um ou mais caracteres e sublinha (_) substitui um caractere.

            Utilizando a combinação desses caracteres especiais com o que se quer localizar, pode-se conseguir uma variedade muito grande de expressões. Veja na tabela abaixo:

CONTAINING: Este operador tem a mesma função do LIKE, com a diferença que ele não difere se maiúsculo ou minúsculo, ele também busca em qualquer parte do nome ou seja se você digitar João ele trará João Carlos, Carlos João, Roberto João da Silva e etc.

Exemplo

select

BAIRRO,

CIDADE,

DATACADASTRO,

ENDERECO,

IDPESSOA,

NOME,

SALARIO,

TELEFONE from PESSOA

WHERE NOME Containing :pNOME

Fico por aqui, até o próximo arigo.

Rubens Antunes

Autor do Livro: Delphi – Faça Uma Aplicação Comercial