estou tentando verificar, pelo código, se um registro já existe...dessa forma:
eu preencho todos os campos do form, inclusive o código, aí pelo código abaixo, verifica se o código digitado já existe em algum registro da tabela...
with dm.QueryBusca do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM ESTAPRO.dbf');
SQL.Add('WHERE PROCOD = :pCODIGO');
ParambyName('pCODIGO').AsString := txtCadPro_CodPro.Text;
Open;
if not(IsEmpty) then
begin
ShowMessage('Registro já existente!');
Exit;
end
else
begin
dm.tblCadPro.Post;
dm.tblCadPro.Last;
end;
end;
só que o problema está no if....
pois quando digito um código já existente, a mensagem aparece, mas não é pra executar o else, mas executa....porque o registro é gravado do mesmo jeito...
na verdade, eu depurei o código aqui e não passa pelo else....então não passa pelo Post, mas tá gravando o registro mesmo assim..
Pergunta
Gabriel Cabral
Bom dia, galera....então...
estou tentando verificar, pelo código, se um registro já existe...dessa forma:
eu preencho todos os campos do form, inclusive o código, aí pelo código abaixo, verifica se o código digitado já existe em algum registro da tabela...
só que o problema está no if....
pois quando digito um código já existente, a mensagem aparece, mas não é pra executar o else, mas executa....porque o registro é gravado do mesmo jeito...
na verdade, eu depurei o código aqui e não passa pelo else....então não passa pelo Post, mas tá gravando o registro mesmo assim..
tem algo errado ae??
ou outra forma q eu posso fazer isso??
Obrigado
Editado por Gabriel CabralLink para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.