Relacionar dois dblookupcombobox
Olá amigos do fórum, uma boa tarde a todos.
Venho pedir uma ajuda a um problema, na qual eu procurei aqui no fórum e infelizmente não consegui achar.
Tenho em meu banco de dados o cadastro de cidades, e um de bairros, na hora de cadastrar o bairro eu pego o código da cidade.
Então na hora do cadastro do cliente, terei dois loockup, o primeiro cidade e o segundo bairros, como fazer, quando eu selecionar a cidade, ele trará no segundo dblookup os bairros relacionados a aquela cidade.
Obrigado a todos.
Venho pedir uma ajuda a um problema, na qual eu procurei aqui no fórum e infelizmente não consegui achar.
Tenho em meu banco de dados o cadastro de cidades, e um de bairros, na hora de cadastrar o bairro eu pego o código da cidade.
Então na hora do cadastro do cliente, terei dois loockup, o primeiro cidade e o segundo bairros, como fazer, quando eu selecionar a cidade, ele trará no segundo dblookup os bairros relacionados a aquela cidade.
Obrigado a todos.
Junior-programador
Curtidas 0
Respostas
Janbaceiredo
15/09/2008
Olha Junior, eu maneira de fazer isso seria on evento OnExit do componente DbLookupComboBox do campo [CIDADE].
Se vc estiver usando o IBX, voce pode colocar um componente IBQuery e um DataSource no seu formulario fazer a devida ligação entre eles e deixar sua propriedade Active como False;
On evento OnExit do DbLookupComboBox do campo [CIDADE] vc adiciona o seguinte comando:
Dessa forma, quando vc selecionar a cidade no DBLookUpComboBox iremos pegar o ID TBL_CIDADE e ira fazer uma pesquisa na TBL_BAIRRO pelo ID_CIDADE (TBL_BAIRRO) = ID (TBL_CIDADE).
Quando vc executar o comando IBQueryBairro.Open o mesmo ira carregar os dados no DBLookUpComboBox do Bairro.
Qualquer duvida entrar em contato.
Se vc estiver usando o IBX, voce pode colocar um componente IBQuery e um DataSource no seu formulario fazer a devida ligação entre eles e deixar sua propriedade Active como False;
On evento OnExit do DbLookupComboBox do campo [CIDADE] vc adiciona o seguinte comando:
var strSQL: String; begin strSQL:= ´SELECT * FROM TBL_BAIRRO ´ strSQL:= strSQL + ´ WHERE ID_CIDADE = ´ + #39 + IBQueryCidade.FieldyByName(´ID´).AsInteger + 39; strSQL:= strSQL + ´ ORDER BY NOME_BAIRRO´ IBQueryBairro.Close; IBQueryBairro.SQL.Clear; IBQueryBairro.SQL.ADD(strSQL); IBQueryBairro.Open; end;
Dessa forma, quando vc selecionar a cidade no DBLookUpComboBox iremos pegar o ID TBL_CIDADE e ira fazer uma pesquisa na TBL_BAIRRO pelo ID_CIDADE (TBL_BAIRRO) = ID (TBL_CIDADE).
Quando vc executar o comando IBQueryBairro.Open o mesmo ira carregar os dados no DBLookUpComboBox do Bairro.
Qualquer duvida entrar em contato.
GOSTEI 0
Junior-programador
15/09/2008
Agradeço o amigo pela atenção, desculpe a demora em responder, problemas, mas hoje estarei testando e ao final do dia colocarei o retorno.
Obrigado.
Obrigado.
GOSTEI 0