duplicar registro

14/02/2003

0

gostaria de duplicar registros por exemplo este sistema é de lançamento de notas fiscais e eu queria que na hora que fosse inserido um novo registro este fosse a data de lançamento, numero da nota, destino etc igual ao registro anterior para que eu possa usar este registro ou não .......


Anonymous

Anonymous

Responder

Posts

14/02/2003

Anonymous

OI,
Existem várias maneiras de fazer isso. Dependendo do Banco de Dados e do sistema, você pode por exemplo dar valores default aos campos, e aí sempre que você der um insert ou append os novos valores já vão aparecer. Outra maneira é você criar variáveis públicas e dar valores a elas na inserção de novos registros. Aí, quando você der um append, você iguala os novos campos às variaveis. Há que tomar cuidado, também, para que as variáveis já tenham valor ao abrir o sistema. Para isso, ao mostrar a tela de cadastramento, iguale as variaveis ao último registro da tabela. Mais ou menos assim:

var
num:integer;
nome:String;
Valor: Currency;

...
Proceduro form1.Onshow(...);
begin
table.last;
num:=tableNum.value;
nome:=tableNom.value;
Valor:=tableValor.value;
end;

Procedure BtnSalvar.click(sender:Tobject);
begin
num:=tableNum.value;
nome:=tableNom.value;
Valor:=tableValor.value;
table.Post;
end;

Procedure BtnInserir.click(sender:TObject);
begin
table.append;
tableNum.value:=num;
tableNom.value:=nome;
tableValor.value:=valor;
dbedit4.setfocus;
end;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar