Pesquisa bacana
Olá amigos, gostaria de implementar uma pesquisa da seguinte forma:
Tenho um cadastro de clientes e nele possuo um campo codbai (codigo do bairro), ao chegar neste campo, se o usuário digitar 0 (zero) e Enter se abrirá um outro form para consulta do bairro pelo nome, quando o usuário digitar o nome faço uma busca com sql no cadastro de bairros, até aí tudo bem.
Como faço quando o usuário digitar um enter sobre o bairro desejado, para retornar o código deste bairro para o form anterior?
Tipo Assim:
function EditCodigoBairro.OnKeyPress
Consulta a lusta de bairros.showmodal
codigodobairronesteform := codigoretornadonaconsultaacim
end;
Obrigado pela atenção de todos
Mario
Tenho um cadastro de clientes e nele possuo um campo codbai (codigo do bairro), ao chegar neste campo, se o usuário digitar 0 (zero) e Enter se abrirá um outro form para consulta do bairro pelo nome, quando o usuário digitar o nome faço uma busca com sql no cadastro de bairros, até aí tudo bem.
Como faço quando o usuário digitar um enter sobre o bairro desejado, para retornar o código deste bairro para o form anterior?
Tipo Assim:
function EditCodigoBairro.OnKeyPress
Consulta a lusta de bairros.showmodal
codigodobairronesteform := codigoretornadonaconsultaacim
end;
Obrigado pela atenção de todos
Mario
Aldus
Curtidas 0
Respostas
Emerson Nascimento
09/06/2004
deve ser algo assim:
function EditCodigoBairro.OnKeyPress(tarará, tarará...);
begin
if ConsultaListaDeBairros.ShowModal = mrOk then
codigodobairronesteform := ConsultaListaDeBairros.TabelaCampoCodigo;
end;
para o exemplo funcionar, no form ConsultaListaDeBairros deve ter um botao com a propriedade ModalResult como mrOk.
function EditCodigoBairro.OnKeyPress(tarará, tarará...);
begin
if ConsultaListaDeBairros.ShowModal = mrOk then
codigodobairronesteform := ConsultaListaDeBairros.TabelaCampoCodigo;
end;
para o exemplo funcionar, no form ConsultaListaDeBairros deve ter um botao com a propriedade ModalResult como mrOk.
GOSTEI 0