Fórum Componente que filtra dados. #455550
17/09/2013
0
Eu uso o programa JFinanças e eles tem um componente para filtrar cidades que eu achei muito interessante! Você começa digitando e ele vai filtrando as cidades, nos meus sistemas eu uso um edit com um dbgrid mas esse componente deles parece fazer a mesma coisa.
http://imageshack.us/photo/my-images/12/hb7h.jpg/
Alguém conhece ele?
Nícolas Braz
Curtir tópico
+ 0Posts
17/09/2013
Joel Rodrigues
Gostei + 0
17/09/2013
Nícolas Braz
Você aconselha o uso ou prefere usar um grid?
Gostei + 0
17/09/2013
Joel Rodrigues
Para essa situação eu acho bastante adequado, inclusive utilizo aqui.
Gostei + 0
17/09/2013
Nícolas Braz
Para essa situação eu acho bastante adequado, inclusive utilizo aqui.
Entendi! Eu não sei se é possível fazer isso com esse componente mas o que eu desejo fazer é que quando o usuário selecionar um estado o meu componente só exiba as cidades que pertencem a esse estado.
Gostei + 0
17/09/2013
Joel Rodrigues
Gostei + 0
18/09/2013
Rodrigo Cordeiro
Da uma olhada:
[url]http://youtu.be/Dfy5AvFd87k[/url]
Ele foi criado logo que saiu o Delphi 7 e não recebeu atualizações para as novas versões (só eu que usava...) recentemente precisei desenvolver um novo projeto em delphi e acabei portando o componente para a versão mais nova, mas sem o "datalink"
Esse não chegou a virar um projeto open source... Eu acredito que hoje em dia deve ter algum equivalente e porque não dizer, mais moderno, mas com tudo que eu pendurei nesse ai eu não conheço. Se quiser dar uma olhadas nos fontes pra ver se aproveita alguma coisa é só dar um toque. Se achar um outro com outros recursos eu gostaria se conhecer também!
Se olhar no vídeo vai perceber que não digitei nenhuma linha de código.
Claro que se fosse no ambiente que você comentou; escolher Estado e depois Cidade; teria que incluir um pouco de código, mas é mínimo tbm... daria para usar um evento do componente lookup da cidade. onBeforeFind
procedure TForm1.edCidadeBeforeFind(Sender: TObject;
var AllowFind: Boolean);
begin
AllowFind := False;
if edEstado.Codigo = '0' then
begin
MessageBox(handle, 'Informe o estado!', 'Atenção', MB_ICONWARNING or MB_OK);
edEstado.SetFocus;
Exit;
end;
edCidade.Where := 'estado_id = ' + edEstado.FieldByName('estado_id').asString;
AllowFind := True;
end;
[]'s
Rodrigo Cordeiro - qmd
qmd@usercontrol.com.br
Gostei + 0
18/09/2013
Natanael
Gostaria de ver os fontes para estudo.
Obrigado. Tenha um bom dia.
Gostei + 0
19/09/2013
Rodrigo Cordeiro
baixa ai:
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_XE4.zip[/url] ( Sem datalink - vc tem que acessar o conteúdo através de propriedades)
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_D7.zip[/url] (Com datalink - vc pode ligá-lo diretamente a um TField/Datasource como o TDBEdit...)
Veja em específico: TKALookupEdit (XE4) e SWLookupEdit (D7). Aquele vídeo eu criei usando o componente deste arquivo Tools_XE4.zip
Tem uns exemplos de como utilizar os componentes. No XE4 eu não cheguei a testar todos...
Use como precisar... os fontes estão ai pra isso ...
[]''s
Rodrigo Cordeiro - qmd
qmd@usercontrol.com.br
Gostei + 0
19/09/2013
Rodrigo Cordeiro
baixa ai:
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_XE4.zip[/url] ( Sem datalink - vc tem que acessar o conteúdo através de propriedades)
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_D7.zip[/url] (Com datalink - vc pode ligá-lo diretamente a um TField/Datasource como o TDBEdit...)
Veja em específico: TKALookupEdit (XE4) e SWLookupEdit (D7). Aquele vídeo eu criei usando o componente deste arquivo Tools_XE4.zip
Tem uns exemplos de como utilizar os componentes. No XE4 eu não cheguei a testar todos...
Use como precisar... os fontes estão ai pra isso ...
[]''s
Rodrigo Cordeiro - qmd
qmd@usercontrol.com.br
Natanael, esqueci de comentar um detalhe: a versão para Delphi 7 requer RXLib instalado porque o componente deriva de uma classe dela...
[]'s
Gostei + 0
19/09/2013
Natanael
baixa ai:
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_XE4.zip[/url] ( Sem datalink - vc tem que acessar o conteúdo através de propriedades)
[url]http://www.usercontrol.com.br/qmd/LookupEdit/Tools_D7.zip[/url] (Com datalink - vc pode ligá-lo diretamente a um TField/Datasource como o TDBEdit...)
Veja em específico: TKALookupEdit (XE4) e SWLookupEdit (D7). Aquele vídeo eu criei usando o componente deste arquivo Tools_XE4.zip
Tem uns exemplos de como utilizar os componentes. No XE4 eu não cheguei a testar todos...
Use como precisar... os fontes estão ai pra isso ...
[]''s
Rodrigo Cordeiro - qmd
qmd@usercontrol.com.br
Natanael, esqueci de comentar um detalhe: a versão para Delphi 7 requer RXLib instalado porque o componente deriva de uma classe dela...
[]'s
Blz. Muito obrigado pela atenção.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)