F�rum Seleciona item no combobox e preenche outro edit, como fazer #347109

08/10/2007

Ol� amigos do forum, antes de colocar essa d�vida, olhei em todos os posts que falavam de combo, e n�o encontrei o que eu queria, achei a vers�o ao contr�rio, ent�o vamos l�,

Tenho um cadastro de cliente, em um determinado local tem cidade e estado
que seria
cidade - combobox
estado - edt
estou usando o combobox, eu poderia usar o dblookup como eu uso sempre, mas nesta janela, ela sempre ser� s� para cadastro, e como eu preciso que o combo fa�a uma localiza��o, ent�o optei por ele.

Quando a atendente digitar a cidade desejada no combo, e der tab, ou na qual ela vai escolhendo no combol, o edtuf vai sendo preenchido como estado baseado na escolha da cidade do combo..
esse combo busca as informa��es na tabela cidade onde tem dois campos (cidade, uf), e trar� essa informa��o para o form do cliente., o codigo abaixo serve para trazer as informa��es da tabela cidade ao combo.

   with qrcidade do
      begin
      close;
      sql.clear;
      sql.Add(�SELECT * from tbcidade where cidade like�+ quotedstr(edtcidade.text+���));
      open;
      if qrcidade.recordcount > 0 then
         begin
            edtcidade.Items.clear;
            qrcidade.first;
            while not qrcidade.Eof do
            begin
               edtcidade.items.add(fieldbyname(�cidade�).AsString);
               next;
            end;
         end;
      end;

baseado nesse c�digo ou outra dica, como fazer ao ela digitar a cidade que esta no combo e der enter por exemplo, o campo uf se completa com o estado que esta na tabela cidade.

Obrigado a todos.

Junior-programador

Curtir t�pico

+ 0

Responder

Posts

08/10/2007

Junior-programador

problema resolvido amigos, segue abaixo como fazer.
Agradecimentos a adriano servitec.

procedure TForm1.edt_cidadeChange(Sender: TObject); 
begin 
 with ibquery1 do 
         begin 
         close; 
         sql.clear; 
         sql.add(�Select * from cidadeS where cidade like � + quotedstr(edt_cidade.Text+���)); 
         open; 
         edit1.Text:=FieldByName(�uf�).AsString; 
  end; 
end;

Responder

Gostei + 0