Como faco para me dar uma msg de erro na hora de excluir o registro relacionado (chave estrangeira)?
Se possivel, sem q eu tenha q ir na tbl e verificar se tem algo relacionado a este codigo.
// codigo no botao de exclusao
procedure Tfrmpesqcadbanco.btnexcluirClick(Sender: TObject);
begin
with dados do
if sdsbanco.IsEmpty then
begin
beep;
ShowMessage('Não existem dados para exclusão!');
end
else
if application.messagebox(PCHAR('Deseja exluir o Banco '+ dados.sdsbancoCODBANCO.AsString +' - '+ dados.sdsbancoDESCBANCO.AsString +' ?'),'Atenção!',mb_iconQuestion+mb_yesno)=idno then
Abort
else
begin
sdsbanco.Delete;
sdsbanco.ApplyUpdates(0);
end;
end;
//
Pergunta
Lucianorw
Ola,
Como faco para me dar uma msg de erro na hora de excluir o registro relacionado (chave estrangeira)?
Se possivel, sem q eu tenha q ir na tbl e verificar se tem algo relacionado a este codigo.
D7+fb1.5
Grato a todos
Luciano
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados