[Resolvido] filtro em pesquisa

[Marostegan 0]

olá pessoal,

 

eu to fazendo um sisteminha onde vai ter cadastro de clientes e busca por eles... (estou usando banco de dados em ACCESS)

 

na busca eu fiz da seguinte forma:

 

begin

if not f_lista_clientes.ADOTable1.Locate('empresa',Edit1.Text,[loCaseInsensitive, loPartialKey]) then

begin

ShowMessage('Cliente não encontrado!');

end

else begin

edit1.Clear;

f_lista_clientes.show;

 

até ai beleza, está encontrado o cliente... mas ele vai no primeiro cadastrado... o que eu queria é o seguinte:

 

vamos supor que eu tenha cadastrado o cliente: TERRA, TETRA e ALCON.

 

quando eu digitar TE ele abra uma outra janela só com os clientes que começa com TE os outro não devem aparecer nessa busca.

 

 

como que eu faço isso?

 

 

obrigado.

[mariorgrossi 0]

olá pessoal,

 

eu to fazendo um sisteminha onde vai ter cadastro de clientes e busca por eles... (estou usando banco de dados em ACCESS)

 

na busca eu fiz da seguinte forma:

 

begin

if not f_lista_clientes.ADOTable1.Locate('empresa',Edit1.Text,[loCaseInsensitive, loPartialKey]) then

begin

ShowMessage('Cliente não encontrado!');

end

else begin

edit1.Clear;

f_lista_clientes.show;

 

até ai beleza, está encontrado o cliente... mas ele vai no primeiro cadastrado... o que eu queria é o seguinte:

 

vamos supor que eu tenha cadastrado o cliente: TERRA, TETRA e ALCON.

 

quando eu digitar TE ele abra uma outra janela só com os clientes que começa com TE os outro não devem aparecer nessa busca.

 

 

como que eu faço isso?

 

 

obrigado.

Dai você tem que usar comandos like do SQL

[flavioavilela 0]

olá pessoal,

 

eu to fazendo um sisteminha onde vai ter cadastro de clientes e busca por eles... (estou usando banco de dados em ACCESS)

 

na busca eu fiz da seguinte forma:

 

begin

if not f_lista_clientes.ADOTable1.Locate('empresa',Edit1.Text,[loCaseInsensitive, loPartialKey]) then

begin

ShowMessage('Cliente não encontrado!');

end

else begin

edit1.Clear;

f_lista_clientes.show;

 

até ai beleza, está encontrado o cliente... mas ele vai no primeiro cadastrado... o que eu queria é o seguinte:

 

vamos supor que eu tenha cadastrado o cliente: TERRA, TETRA e ALCON.

 

quando eu digitar TE ele abra uma outra janela só com os clientes que começa com TE os outro não devem aparecer nessa busca.

 

 

como que eu faço isso?

 

 

obrigado.

Dai você tem que usar comandos like do SQL

 

e ai amigão... vamos ver se posso te ajudar... aqui eu uso query, não sei oq você usa pra comunicar, mesmo assim, a idéia é a mesma... tente isso aqui:

 

query.close;

query.SQL.Clear;

query.SQL.Add('select * from TABELA where CAMPO like '''+ EDIT.TXT+'%''');

query.open;

 

espero ter ajudado... http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[Marostegan 0]

oii amigo..

 

entao, fiz isso e rodei o programa... mas quando tento fazer a pesquisa nada acontece...

 

usei um ADOQuery e na propriedade SQL coloquei select * from tbl_cliente

 

usei junto com o ADOQuery um DataSource...

 

pq será q naum funfa? o0''

[Marostegan 0]

ooii..

 

aeeee.... agora funcionou!!!

 

nao sei se tem alguma coisa a ver

mas eu coloquei mais um comando:

 

adoquery1.Prepared;

 

e dai funcionou normal.... o0''

 

 

brigadaooo pela ajudaa!!!

 

=DDDDD http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Marostegan 0]

olá pessoal,

 

eu to fazendo um sisteminha onde vai ter cadastro de clientes e busca por eles... (estou usando banco de dados em ACCESS)

 

na busca eu fiz da seguinte forma:

 

begin

if not f_lista_clientes.ADOTable1.Locate('empresa',Edit1.Text,[loCaseInsensitive, loPartialKey]) then

begin

ShowMessage('Cliente não encontrado!');

end

else begin

edit1.Clear;

f_lista_clientes.show;

 

até ai beleza, está encontrado o cliente... mas ele vai no primeiro cadastrado... o que eu queria é o seguinte:

 

vamos supor que eu tenha cadastrado o cliente: TERRA, TETRA e ALCON.

 

quando eu digitar TE ele abra uma outra janela só com os clientes que começa com TE os outro não devem aparecer nessa busca.

 

 

como que eu faço isso?

 

 

obrigado.

Dai você tem que usar comandos like do SQL

 

e ai amigão... vamos ver se posso te ajudar... aqui eu uso query, não sei oq você usa pra comunicar, mesmo assim, a idéia é a mesma... tente isso aqui:

 

query.close;

query.SQL.Clear;

query.SQL.Add('select * from TABELA where CAMPO like '''+ EDIT.TXT+'%''');

query.open;

 

espero ter ajudado... http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

 

------------

 

 

 

amigoo... agora só tenho mais uma duvida...

 

como faço pra se a pesquisa num achar nada aparecer uma msg que não foi possível localizar

 

 

e como faço para se a pessoa nao digitar nada e clicar em pesquisar aparecer o dbrig em branco ou uma msg pra mandar a pessoa digitar alguma cosa no edit1 ?

 

 

obrigado

[Rodrigo Miss 1]

if (Trim(Edit1.Text) = '') or  (ADOQuery1.RecordCount = 0) then 

begin

ShowMessage('Nenhum registro encontrado!');

end;

[Marostegan 0]

valew.... funcionou certinho!!!

 

ultima duvida...

 

depois que foi feito a pesquisa os dados sao exibidos no DBGrid...

 

tem como eu dar 2 cliques na linha do DBGrid e abrir um determinado form (que é aonde está o cadastro com todas as informações do meu cliente)

 

 

obrigado pela ajuda galera!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[Rodrigo Miss 1]

Sim.

No Duplo clique do DBGrid, você verifica se tem registros, caso positivo, voce cria o form que desejar. Neste form, basta instanciar os DBEdit ligados com o mesmo dataset do DBGrid ...

 

if (ADOQuery1.REcordCount >0) then
begin
	frmDadosCliente:= TfrmDadosCliente.Create(Application);
	frmDadosCliente.ShowModal(); //Este é o suposto form que tem os DBEdits ligados com o dataset do dbgrid....
end;

[Marostegan 0]

os dados estao aparecendo tudo certinho aqui na DBgrid...

 

mas para eu dar 2 cliques em cima da linha de uma das informações q apareceram a programação é:

 

 

frmDadosCliente:= TfrmDadosCliente.Create(Application);

 

??

 

 

não entendi!

 

o0´´

[Rodrigo Miss 1]

Isso mesmo ...

Coloca o codigo que lhe enviei no evento onClick do DBGrid ...

Isto quer dizer que, quando o elemento clicar no DbGrid, vai ser executado o codigo que vai criar o formulario pra exibir os dados ...

[Marostegan 0]

deu certinho...

 

brigadaooo msm!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Rodrigo Miss 1]

Certo fera! Qualquer coisa poste ai... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif