[firebase-br] RES: Sugestão de Componentes
Felix
felix2005 em oi.com.br
Ter Ago 25 15:08:59 -03 2009
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
Mais detalhes sobre a lista de discussão lista