|
Usuários |
|
64 Usuários Online
|
|
[Artigos]
Construindo uma aplicação simples com Delphi e Firebird (parte 3) |
Publicado por ActiveDelphi : Quinta, Janeiro 26, 2012 - 12:31 GMT-3 (1231 leituras)
 comentar  Enviar para um amigo  Versão para impressão
|
Olá amigos, este artigo finaliza nossa série de artigos, "Construindo uma aplicação simples com Delphi e Firebird
- Leia a Parte1 e Parte 2 clicando nos links.
Nesse último artigo veremos como fazer uma pesquisa no ClientDataSet, e faremos a conclusão do projeto.
1) Criando o Evento de Pesquisa
Renomeie os campos de pesquisa para:
edtPTipo = Esse campo será responsável pela pesquisa por TIPO
edtPNome = Esse campo será responsável pela pesquisa pelo NOME
No evento OnChange do campo edtPTipo
procedure TForm1.edtPTipoChange(Sender: TObject);
begin
DM.cdsClientes.Filtered := False;
DM.cdsClientes.Filter := 'TIPO LIKE '+QuotedStr('%'+edtPTipo.Text+'%');
DM.cdsClientes.Filtered := True;
end;
No evento OnChange do campo edtPNome
procedure TForm1.edtPNomeChange(Sender: TObject);
begin
DM.cdsClientes.Filtered := False;
DM.cdsClientes.Filter := 'NOME LIKE '+QuotedStr('%'+edtPNome.Text+'%');
DM.cdsClientes.Filtered := True;
end;
Com isso finalizamos este artigo. Lembre-se existem várias maneiras de se trabalhar com a pesquisa, eu demonstrei apenas uma delas...
Para fazer o download do exemplo completo clique aqui
Um grade abraço e até o próximo artigo!
Por: Bruno Giovani Caltran
Contato: bruno@pirabyte.com.br |
Twitter: http://twitter.com/bgcaltran
|
|
 Comentários | |
| | Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos. |
|
|
Edição 112 |
|
|
50 Programas Fontes |
|
|
Produtos |
|
|
