Mensagem pra contornar erro de Integridade Referencial

Delphi

06/10/2007

Galera, o código abaixo aparentemente é pra funcionar tratando de forma genérica as mensagens de retorno de erro por exclusáo de um valor utilizado por outra tabela (integridade referencial), mas o problema é que o showmessage nao é aceito pelo datamodulo, por acaso vocês conhecem uma outra maneira de tratar erros qdo se tenta excluir um registro utilizado por outra tabela?

Obrigado aos que tentarem me ajudar...

procedure TDataModulo.IBQPessoaDeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
var
  Mensagem : String;
begin
  Mensagem := E.Message;
  if(pos(´FOREIGN KEY´,MENSAGEM)>0) then
    begin
      ShowMessage(´Não pode ser excluido pois está contido em outros Cadastros.´);
      abort;
    end;
end;



Cgomesnet

Cgomesnet

Curtidas 0

Respostas

Mayron Cachina

Mayron Cachina

06/10/2007

Olá cgomesnet,

Tenta colocar a Uses Dialogs, no datamodule..

assim você vai poder usar o showmessage.


GOSTEI 0
Cgomesnet

Cgomesnet

06/10/2007

Olá Mayron, realmente, vc estava certo com relaçao ao ShowMessage bastava usar o Dialogs na cláusula USES, porém o código ainda está errado ou eu estou colocando em algum evento errado pois ele nao busca o erro e exibe a mensagem. :(


GOSTEI 0
POSTAR