[firebase-br] RES: Sugestão de Componentes

[Felix]

Eu fiz o seguinte:

1. Coloco o nome dos TEdit´s conforme nome do campo:
EdCodigo, EdNome ; EdEndereco ; EdBairro ; EdCidade ; EdUF

2. Criei uma rotina que ao ser acionada 'varre' o form a procura desses
componentes e atribui automaticamente os valores, conforme já vem do select:

SQL.add('Select Nome, Endereco, Bairro, Cidade, UF from cadastro where
Codigo = :xCodigo');
.
...bla bla bla...
.
Carrega_campos;

Proc Carrega.campos
Var
   _ii : integer;
Begin
   for _ii := 0 to Self.ComponentCount - 1 do
   begin
      //Edit
      if (Self.Components[_ii].ClassName = 'TEdit')  and
(UpperCase(Copy((Self.Components[_ii] as TEdit).Name,1,2))='ED')  then
         (Self.Components[_ii] as TEdit ).Text := QLeitura.FieldByName(
Copy((Self.Components[_ii] as TEdit ).Name,3,20) ).AsString;
   end;
end;



Fco. Felix
Desenvolvimento de Sistemas
www.soltecnologia.com.br


-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Moacir - GMail
Enviada em: terça-feira, 25 de agosto de 2009 13:55
Para: FireBase
Assunto: Re: [firebase-br] Sugestão de Componentes

Denilson,

É simples:

Zquery.Close;
Zquery.SQL.Text:='select * from tabela";
Zquery.Open;

Edit1.Text := Zquery.FieldByName('NomeDoCampo').AsString;

Sucesso !!

Moacir




Denilson Albuquerque escreveu:
> Estou começando, no dephi e só consigo inserir..
> como eu "recupero" um campo e "jogo" num edit comum..
>
> usando o Zeos,
>
> Zquery.SQL.Add('select * from tabela");
>
> ... o resto nao sei..
>
> desculpa pela pergunta simples
>
>
> 2009/8/25 Magno System <magnosysteminformatica em gmail.com>
>
>   
>

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa