Fórum Não Salvar Registro Repetido #195251

16/11/2003

0

Uso Maskedit no meu form, e gostaria que quando fosse salvar, se esse registro já existir, mostrar a mensagem: Campo já cadastrado! e obviamente não gravar na tabela.

O código que está no meu botão salvar é:

if ComboBox1.Text = ´´ then
ShowMessage(´Campo Placa em Branco !!´)
else
if MaskEdit3.Text = ´´ then
ShowMessage(´Campo Descrição em Branco !!´)
else
if FloatEdit1.Text = ´´ then
ShowMessage(´Campo Valor em Branco !!´)
else
begin
DmPrincipal.tbldebitos.Insert;
DmPrincipal.tbldebitoscod_deb.AsString := MaskEdit2.Text;
DmPrincipal.tblveiculo.Locate(´placa´,ComboBox1.Text,[]);
DmPrincipal.tbldebitoscod_veiculo.AsString := DmPrincipal.tblveiculocod_veiculo.AsString;
DmPrincipal.tbldebitosplaca.AsString := ComboBox1.Text;
DmPrincipal.tbldebitosdescricao.AsString := MaskEdit3.Text;
DmPrincipal.tbldebitosvalor.AsString := FloatEdit1.Text;
DmPrincipal.tbldebitos.Post;


Obrigado


Plunky

Plunky

Responder

Posts

16/11/2003

Koplin

Uma vez que vc usa componentes non data aware para fazer a inserção, basta fazer um locate antes:

If DmPrincipal.tbldebitos.locate(´cod_deb´,MaskEdit2.Text,[]) then
ShowMessage(´Existe um registro gravado com este código.´) else begin
...


Responder

Gostei + 0

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

Aceitar