Vc esta dando um edit na tabela, vc dever dar um Insert ...
André Luis da Silveira
Laticínios Morrinhos Ind Com Ltda
Desenvolvedor
----- Original Message -----
From: Info Desenvolvimento
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 03, 2005 8:37 AM
Subject: [delphi-br] Auto-Incremento
Possuo uma tabela que o campo é auto-incremento. Como faço para que sejam
gravados registros nesta tabela
Estou mandando gravar, mas não está gravando, está gravando por cima
Exemplo no meu botão gravar, onde está o erro?
if(Application.MessageBox
('Confirma a Gravação dos dados?',
'CONFIRMAÇÃO',mb_IconQuestion+mb_YESNO)=idyes)then
BEGIN
LStatus.Visible:= True;
LSTATUS.Caption:= 'Inclusão de Registro!';
DataModulo.TREGRA.Open;
DataModulo.TREGRA.Edit;
DataModulo.TREGRA.FieldByName('CDREGRA').Value:=
DataModulo.TREGRA.FieldByName('CDREGRA').Value + 1;
DataModulo.TREGRA.FieldByName('DESCRICAO').Value:= EDESCRICAO.Text;
DataModulo.TREGRA.FieldByName('PERCENTUAL').Value:= EPERC.Text;
DataModulo.TREGRA.FieldByName('VAL_LIMITE').Value:= ELIMITE.Text;
DataModulo.TREGRA.FieldByName('DTINI_RETENCAO').AsDateTime:=
strtodate(EINICIO.Text);
DataModulo.TREGRA.FieldByName('DTFIM_RETENCAO').AsDateTime:=
strtodate(EINICIO.Text);
IF RGRETENCAO.ItemIndex = 0 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:= 's';//Semanal
IF RGRETENCAO.ItemIndex = 1 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:= 'q';//Quinzenal
IF RGRETENCAO.ItemIndex = 2 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:= 'm';//Mensal
IF RGRETENCAO.ItemIndex = 3 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:=
't';//Trimestral
IF RGRETENCAO.ItemIndex = 4 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:=
'e';//Semestral
IF RGRETENCAO.ItemIndex = 5 THEN
DataModulo.TREGRA.FieldByName('TP_RETENCAO').AsString:= 'a';//Anual
DataModulo.TREGRA.FieldByName('DTINI_VALIDADE').AsDateTime:=
strtodate(EINIVALID.Text);
DataModulo.TREGRA.FieldByName('DTFIM_VALIDADE').AsDateTime:=
strtodate(EFIMVALID.Text);
DataModulo.TREGRA.Post;
ShowMessage('Operação realizada com sucesso!');
LStatus.Visible:= False;
EDESCRICAO.Clear;
EPERC.Clear;
ELIMITE.Clear;
EINICIO.Clear;
EFIM.Clear;
EINIVALID.Clear;
EFIMVALID.Clear;
EDESCRICAO.Enabled:= False;
EPERC.Enabled:= False;
ELIMITE.Enabled:= False;
EINICIO.Enabled:= False;
EFIM.Enabled:= False;
EINIVALID.Enabled:= False;
EFIMVALID.Enabled:= False;
BitGrava.Enabled:= False;
BitEdita.Enabled:=False;
BitCancela.Enabled:=False;
BitDeleta.Enabled:= False;
RGRETENCAO.ItemIndex:= -1;
RGRETENCAO.SetFocus;
END;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
