Cadastro

Delphi

11/04/2003

Como posso fazer para quando colocar incluir, abrir um novo registro com os dados do último registro? Após concluir fazer o salvamento imediato( só salva depois de fechar o programa! ).

agradeço desde já!!!


Franck.c

Franck.c

Curtidas 0

Respostas

Theofernandes

Theofernandes

11/04/2003

Acredito que terás que usar ou 2 tabelas ou variáveis.
No primeiro caso, tu terás que colocar no AfterInsert tu colocaria mais ou menos assim:

TABELABASE.OPEN;
TABELABASE.LAST;

TABELADEINSERÇAO.CAMPO1. VALUE := TABELABASE.CAMPO1.VALUE;
TABELADEINSERÇAO.CAMPO2. VALUE := TABELABASE.CAMPO2.VALUE;
TABELADEINSERÇAO.CAMPO3. VALUE := TABELABASE.CAMPO3.VALUE;

TABELABASE.CLOSE;

Na segunda opção, tu colocarias no BeforeInsert assim:
VAR
VARCAMPO1 : STRING;
VARCAMPO2 : STRING;
VARCAMPO3 : DOUBLE;
BEGIN

VARCAMPO1.VALUE := TABELADEINSERÇAO.CAMPO1. VALUE;
VARCAMPO2.VALUE := TABELADEINSERÇAO.CAMPO2. VALUE;
VARCAMPO3.VALUE := TABELADEINSERÇAO.CAMPO3. VALUE;

END;

No AfterInsert

TABELADEINSERÇAO.CAMPO1. VALUE := VARCAMPO1.VALUE;
TABELADEINSERÇAO.CAMPO2. VALUE := VARCAMPO2.VALUE;
TABELADEINSERÇAO.CAMPO3. VALUE := VARCAMPO3.VALUE;

*****
Nos dois casos verifique se é mesmo AfterInsert ou BeforeInsert. Posso estar enganado.


GOSTEI 0
POSTAR