Ir para conteúdo
Fórum Script Brasil
  • 0

Mensagem De Erro


Lucianorw

Pergunta

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.

// 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;
//

D7+fb1.5

Grato a todos

Luciano

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Ola,

Achei isto, mas não sei onde colocar para chamar o erro.

//

procedure Tdados.appeventException(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 = 335544510 ) then
        Application.MessageBox( PChar( 'Não é possível continuar com a operação.' + #13 + 'O banco de dados está sendo utilizado.' ), '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;

Grato

Luciano

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...