Como tratar integridade do banco !

Question

Como tratar integridade do banco !Ol� pessoal, estou com dificuldades em tratar a integridade do banco, no meu caso Firebird 1.5 + Delphi 7 + IBX, o que est� acontecendo � o seguinte quando vou deleta...

Paulo · Answer

Experimentou colocar num bloco Try...Except? No except voc� trata a mensagem do erro da forma como voc� quiser. Pode usar o ApplicationsEvents tamb�m(Acho que d� tamb�m, acho)....

Afterdev · Answer

Tentei dessa forma, mas ainda n�o funciona !

procedure TformPadrao1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  if E is EIBInterBaseError then
begin
  case EIBInterBaseError(E).IBErrorCode of
    -530: {Viola��o de chave estrangeira, 335544466}
      Application.MessageBox(PChar(�N�o � poss�vel excluir este registro.�),
        �Aten��o !!!�, MB_ICONEXCLAMATION);

    -803: {Viola��o de chave prim�ria, 335544665}
      Application.MessageBox(PChar(�Registro j� cadastrado.�),
        �Aten��o !!!�, MB_ICONEXCLAMATION);
  else
    Application.MessageBox(PChar(E.ClassName + � - � + E.Message),
      �Aten��o !!!�, MB_ICONEXCLAMATION);
  end;
end;
end;

preciso de ajuda............

Afterdev · Answer

Bom tentei utilizar o Application Events e funcionou somente fora do delphi, algu�m tem uma solu��o que pode ser feita por dentro do delphi ou seja compilando o projeto no delphi !

procedure TformPadrao1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  if ( E is EIBInterBaseError ) then
  begin
     if ( EIBInterBaseError(E).IBErrorCode = 335544466 ) then
        Application.MessageBox( PChar( �N�o � poss�vel excluir este registro, pois existem outras informa��es no sistema que dependem do mesmo.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else if ( EIBInterBaseError(E).IBErrorCode = 335544375 ) then
        Application.MessageBox( PChar( �O servidor de banco de dados n�o est� aberto.� + #13 + �Verifique e tente novamente.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else if ( EIBInterBaseError(E).IBErrorCode = 335544344 ) then
        Application.MessageBox( PChar( �N�o foi poss�vel encontrar o banco de dados.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else
        Application.MessageBox( PChar( E.ClassName + � - � + E.Message ), �Aten��o !!!�, MB_ICONEXCLAMATION );
  end;
end;

valeu.......