Não Salvar Registro Repetido
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
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
Curtidas 0
Respostas
Koplin
16/11/2003
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
...
If DmPrincipal.tbldebitos.locate(´cod_deb´,MaskEdit2.Text,[]) then
ShowMessage(´Existe um registro gravado com este código.´) else begin
...
GOSTEI 0