Fórum Oque há de errado no codigo salvar..... #188950
15/10/2003
0
Ola pessoall...
Tenho um cadastro com um botão insert e outro salvar...
Clico em insert
TBComputadores.insert; (ele me habilita o cadastro)
quando clico em salvar ele insere mais um registro alem daquele que já foi inserido quando clico em insert...
vejam, o codigo salvar
o que há de errado....
if TBComputadores.findkey([dbtext1.field.value])= true
then
Begin
TbComputadores.Append;
TbComputadoresnomedamaq.value:=(Edit2.Text);
TbComputadoresip.value:=(Edit3.text);
TbComputadoresMemoriaRam.value:=(Edit4.Text);
TbComputadoresHD.value:=(Edit1.Text);
TbComputadoresProcessador.value:=(Edit5.Text);
TbComputadoresModelo.value:=(Edit6.Text);
TbComputadoresNdeSerie.value:=(Edit7.Text);
TbComputadoresETQNAUS.value:=(Edit8.Text);
TbComputadoresETQY2K.value:=(Edit9.Text);
TbComputadores.post;
GroupBox1.enabled:=False;
Edit2.enabled:=false;
Edit3.enabled:=false;
Edit4.enabled:=false;
Edit1.enabled:=false;
Edit5.enabled:=false;
Edit6.enabled:=false;
Edit7.enabled:=false;
Edit8.enabled:=false;
Edit9.enabled:=false;
DBlookUpComboBox1.enabled:=false;
TbComputadores.post;
end
else
Begin
TbComputadores.Edit;
end;
end;
Tenho um cadastro com um botão insert e outro salvar...
Clico em insert
TBComputadores.insert; (ele me habilita o cadastro)
quando clico em salvar ele insere mais um registro alem daquele que já foi inserido quando clico em insert...
vejam, o codigo salvar
o que há de errado....
if TBComputadores.findkey([dbtext1.field.value])= true
then
Begin
TbComputadores.Append;
TbComputadoresnomedamaq.value:=(Edit2.Text);
TbComputadoresip.value:=(Edit3.text);
TbComputadoresMemoriaRam.value:=(Edit4.Text);
TbComputadoresHD.value:=(Edit1.Text);
TbComputadoresProcessador.value:=(Edit5.Text);
TbComputadoresModelo.value:=(Edit6.Text);
TbComputadoresNdeSerie.value:=(Edit7.Text);
TbComputadoresETQNAUS.value:=(Edit8.Text);
TbComputadoresETQY2K.value:=(Edit9.Text);
TbComputadores.post;
GroupBox1.enabled:=False;
Edit2.enabled:=false;
Edit3.enabled:=false;
Edit4.enabled:=false;
Edit1.enabled:=false;
Edit5.enabled:=false;
Edit6.enabled:=false;
Edit7.enabled:=false;
Edit8.enabled:=false;
Edit9.enabled:=false;
DBlookUpComboBox1.enabled:=false;
TbComputadores.post;
end
else
Begin
TbComputadores.Edit;
end;
end;
Junior#
Curtir tópico
+ 0
Responder
Posts
15/10/2003
Théo
Olá Júnior...
Você não teria q tirar...
TbComputadores.Append; ???
... q está logo no início. Tanto TDataSet.Insert quanto TDataSet.Append criarão um novo registro.
A diferença está no fato de .Insert criar um novo registro na posição atual do cursor e .Append no fim do DataSet.
Você não teria q tirar...
TbComputadores.Append; ???
... q está logo no início. Tanto TDataSet.Insert quanto TDataSet.Append criarão um novo registro.
A diferença está no fato de .Insert criar um novo registro na posição atual do cursor e .Append no fim do DataSet.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)