Recuperar Código gravado

Delphi

13/04/2004

Olá amigos
No sistema que estou desenvolvendo o analista, deu a seguinte missão.
O cliente poderá ter mais de um cliente.
Tabela Cliente CodCliente, Nome etc..
Tabela Endereco CodClietne, Logradouro, Nr etc...

Como fazer para gravar o cliente depois recuperar o código para em seguida gravar o(s) endereço(s). Vamos trabalhar com várias estações.
Alguém pode ajudar-me


Oziasl

Oziasl

Curtidas 0

Respostas

Poeta Noturno

Poeta Noturno

13/04/2004

Olá ozias, como vai?

Se bem entendi sua dúvida, você vai ter de fazer o seguinte:

1 - Caso tenha acabado de gravar os dados cliente, esse já estará com o ponteiro da tabela em si, então é só usar comandos do tipo FieldByName(´codigo´).AsInteger para recuperar o código;

2 - Caso o cadastro dos endereços seja feito posteriormente, faça a pesquisa do nome do cliente usando a função LookUp(´campo´,´dado´,´retorno´), onde campo = campo a ser pesquisado; dado = dado informado para a pesquisa; retorno = campo a ter o dado retornado. Ex:

var
codigo: integer;
begin
codigo := tabela.LookUp(´nome´,´Poeta Noturno´,´codigo´);
end;

Espero ter ajudado em algo...

Um abraço

Poeta Noturno


GOSTEI 0
POSTAR