ainda nao acertei
pessoal ainda sou novato no delphi e gostaria de saber como faço para que num banco de dados Table Paradox
gostaria de saber como faço para que quando o usuario mandar inserir um novo registro os valores dos campos continuasem os mesmo valores
do valor anterior
para que o usuario possa fazer só pequenas alteraçoes
isso tudo é para que o usuario nao fique digitando sempre a mesma coisa
gostaria de saber como faço para que quando o usuario mandar inserir um novo registro os valores dos campos continuasem os mesmo valores
do valor anterior
para que o usuario possa fazer só pequenas alteraçoes
isso tudo é para que o usuario nao fique digitando sempre a mesma coisa
Keliniciante
Curtidas 0
Respostas
Rm
26/10/2003
Se colocar no evento ´insert´ da table este procedimento sempre se repetirá o que não tem muito sentido.
procedure
var
copia:string;//se for
begin
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;
Melhor colocar em um button a ser clicado quando é para ser apenas cópia.
procedure
var
copia:string;//se for
begin
table1.insert
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;
Não testei mas creio ser por aí ou parecido. Tente que irá conseguir.
Abraço
procedure
var
copia:string;//se for
begin
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;
Melhor colocar em um button a ser clicado quando é para ser apenas cópia.
procedure
var
copia:string;//se for
begin
table1.insert
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;
Não testei mas creio ser por aí ou parecido. Tente que irá conseguir.
Abraço
GOSTEI 0
Koplin
26/10/2003
Se voce quer valores dafault:
Você pode definir valores dafault ao criar os campos da tabela ou faze no código. Eu prefiro a 2ª opção, que me dá mais autonomia.
No evento AfterInsert da tabela faça
Campo1Nomedocampo.value:=valor;
Campo2Nomedocampo.value:=valor;
Se voce quer apenas o do ultimo registro voce pode pegar as informações do ultimo registro com uma query ou outra table e usar o mesmo princípio
No evento AfterInsert da tabela faça algo como:
table2.last;
Campo1Nomedocampo.value:=Query1Nomedocampo.value;
Acho que tem uma função que replica um registro, mas não sei qual é.
Você pode definir valores dafault ao criar os campos da tabela ou faze no código. Eu prefiro a 2ª opção, que me dá mais autonomia.
No evento AfterInsert da tabela faça
Campo1Nomedocampo.value:=valor;
Campo2Nomedocampo.value:=valor;
Se voce quer apenas o do ultimo registro voce pode pegar as informações do ultimo registro com uma query ou outra table e usar o mesmo princípio
No evento AfterInsert da tabela faça algo como:
table2.last;
Campo1Nomedocampo.value:=Query1Nomedocampo.value;
Acho que tem uma função que replica um registro, mas não sei qual é.
GOSTEI 0