 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Santinello
Novato
Registrado: Sábado, 1 de Dezembro de 2018
Mensagens: 30
|
 Enviada: Qua Mar 13, 2019 1:53 pm Assunto: DBLookupComboBox |
 |
|
Olá, boa tarde.
Colegas,
Num Cadastro de Motoristas, um mesmo motorista pode ter mais de um veículo. No cadastro, tenho o mesmo nome com um caminhão placas AAA0101, outro caminhão, placas AAA0102, um carro de placa AAA0208, no caso da movimentação de abastecimento, tenho um DBLookupComboBox, que seleciono o motorista, quero por outro DBLookupComboBox, mas quero que este me traga apenas as placas daquele motorista selecionado.
Como fazer o teste para o Delphi trazer apenas as placas em questão
Grato pelo apoio |
|
| Voltar ao Topo |
|
 |
mrjorio
Novato
Registrado: Segunda-Feira, 24 de Setembro de 2012
Mensagens: 85
|
| Enviada: Qua Fev 19, 2020 11:32 am Assunto: |
|
|
Santinello bom dia,
Entendi que você tem uma Tabela com os Motoristas e outra Veículos onde deve ter um campo motorista.
Caso seja isso você pode fazer um filtro na Query do dbLookupCombobox fazendo ela apresentar somente os veículos que tem aquele motorista.
Você pode fazer uma sql onde você passe o parâmetro motorista.
| Código: |
with Query do
begin
Sql.text := 'SELECT * FROM VEICULOS WHERE MOTORISTA = :MOTORISTA';
Sql.parambyname('Motorista').asstring := DBLookupComboboxMotorista.keyvalue;
Open;
end;
|
Acho que vai dar certo. |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qua Fev 19, 2020 11:42 am Assunto: |
|
|
| mrjorio escreveu: | Santinello bom dia,
Entendi que você tem uma Tabela com os Motoristas e outra Veículos onde deve ter um campo motorista.
Caso seja isso você pode fazer um filtro na Query do dbLookupCombobox fazendo ela apresentar somente os veículos que tem aquele motorista.
Você pode fazer uma sql onde você passe o parâmetro motorista.
| Código: |
with Query do
begin
Sql.text := 'SELECT * FROM VEICULOS WHERE MOTORISTA = :MOTORISTA';
Sql.parambyname('Motorista').asstring := DBLookupComboboxMotorista.keyvalue;
Open;
end;
|
Acho que vai dar certo. |
poe esse codigo no OnChange do edit do motorista.
so ajeita isto:
| Código: |
with Query do
begin
if DBLookupComboboxMotorista.Text <> '' then
begin
Sql.text := 'SELECT * FROM VEICULOS WHERE MOTORISTA = :MOTORISTA';
Sql.parambyname('Motorista').asstring := DBLookupComboboxMotorista.keyvalue;
Open;
end;
end;
|
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
