F�rum Como Filtrar dados usando o DBLoockup #386310

14/09/2010

Ol� galera, estou programando em Delphi e estou usando o Firebird 2.5 como banco de dados. Utilizo o dbExpress como componente para a conex�o. Estou desenvolvendo uma aplica��o de cadastro de clientes e estou com uma duvida em filtrar alguns dados. O meu banco possui 4 tabelas:

1- TAB_CAD_CLI (Destinada para dados cadastrais do cliente como COD_CLI, NOME, CPF....)
2- TAB_UF (Destinada para cadastrar Estados)
3- TAB_CIDADE (Destinada para cadastrar Cidades)
4- TAB_BAIRRO (Destinada para cadastrar Bairros)

Como que eu fa�o para relacionar as tabelas (TAB_UF, TAB_CIDADE, TAB_BAIRRO) com a TAB_CAD_CLI?
A minha inten��o � que quando eu estiver fazendo de algum cadastro de cliente, j� apare�a por exemplo todos estados cadastrados na TAB_UF para que eu possa escolher. E ainda mais, quando eu escolher um estado, na parte de CIDADE j� apare�a as cidades cadastradas na TAB_CIDADE pertencentes ao estado escolhido. O mesmo aconteceria com o bairro.

Ex.: Estou cadastrando um cliente, na parte referente aos dados de endere�o, (no caso irei usar um Dropdown para aparecer as op��es de UF, CIDADE, BAIRRO) seleciono o estado MG. Depois aparece todas as cidades cadastradas em MG. Escolho alguma cidade, por exemplo Belo Horizonte. Depois aparece todos os bairros cadastrados na cidade Divin�polis e escolho um.

Algu�m tem uma id�ia de como posso estar fazendo esse filtro?
Essa � a tela de cadastro.
Obrigado!!

Pedro Henrique

Curtir t�pico

+ 0

Responder

Posts

14/09/2010

Leonardo Xavier

como esta o seu banco de dados para este seu formulario de cadastro? Pois pelo que pude perceber voc� ter� que ter tres tabelas uma para bairro, outra para estado e outra para cidade, para que fique mais simples. Mas se voc6e quiser trabalhar com uma tabela somente da tambem. Como vai funcionar o seu banco de dados?

Responder

Gostei + 0

14/09/2010

Pedro Henrique

O meu DER esta modelado da seguinte forma.

Como voc� comentou, meu banco possui as 3 tabelas. Uma tabela para Estado, Cidade, e Bairro.

Responder

Gostei + 0

14/09/2010

Pietro Braga

Pode tentar assim, lembrando que n�o testei mais a l�gica deve ser esta:

dsxx = DataSource que vc usa no lookupcombobox xx.

lucbb = DbLookupComboBox

Tente isso depois que voc� selecionou o estado.

dscidades.filtered:= false;
dscidades.filter:= 'FK_Cod_Estado = ' + lucbbEstado.KeyField.Value.asString;
dsCidades.Filtered:= True;

Responder

Gostei + 0

14/09/2010

Leonardo Xavier

O meu DER esta modelado da seguinte forma.

Como voc� comentou, meu banco possui as 3 tabelas. Uma tabela para Estado, Cidade, e Bairro.

Cara eu faria assim, construiria uma consulta.
Ao terminar de selecionar o estado.

var
pais:string;
begin
pais:=inttostr(meulokupdopais.keyvalue);
minhatabela.close;
minhatabela.sql.clear;
minhatabela.sql.add('Select distintc sgl_estado,nom_estado,fk cod_pais from estado where cod_pais="'+pais+'"');
minhatabela.prepared;
minhatabela.open;

Faz um teste ai.

Responder

Gostei + 0

16/09/2010

Pedro Henrique

Em qual evento eu devo colocar essas l�gicas? Seria no evento "OnExit" do Loockup Estado ou no evento "OnEnter" do Loockup Cidade?

Responder

Gostei + 0

16/09/2010

Pietro Braga

Cara, se for com o c�digo que postei pode colocar no OnChange do lookup estado.

S� mude o KeyField.Value.asString para KeyValue.asString ou str(KeyValue)

Responder

Gostei + 0

17/09/2010

Pedro Henrique

Pietro e Leandro, muito obrigado pelas dicas que vcs me passaram
Estou tentando usar pelo modo que o Pietro me falou. Porem, quando eu insiro o c�digo que voc� digitou no evento OnChange do Loockup estado (ja fazendo as altera��es) me retorna o seguintes erros

Abaixo est� o c�digo que coloquei no evento OnChange

procedure Tfrmcad.DSUFDataChange(Sender: TObject; Field: TField);begin  DSCidade.DataSet.Filtered:= False;  DSCidade.DataSet.Filter := 'FK_COD_ESTADO = ' + DB_LCB_UF.KeyValue.asString;  DSCidade.DataSet.Filtered:= True;end;

Tem algo errado no c�digo? Tem alguma sugest�o de como posso estar resolvendo esse problema?Obrigado pela compreens�o.

Responder

Gostei + 0