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
Curtir tópico
+ 0
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;
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
Clique aqui para fazer login e interagir na Comunidade :)