Fórum [Ajuda]Tratamento de Excecoes DBExpress #400918

if (e is EDBEngineError) then
    with EDBEngineError(e) do
    begin
      case Errors[ErrorCount - 1].ErrorCode of

        DBIERR_KEYVIOL:
          Application.MessageBox('Registro ja incluso!', 'Aviso', mb_IconError);
        DBIERR_REQDERR:
          Application.MessageBox('Campo obrigatório não preenchido!', 'Aviso',
            mb_IconError);
        DBIERR_MAXVALERR:
          Application.MessageBox('Valor maximo excedido!', 'Aviso',
            mb_IconError);
        DBIERR_FORIEGNKEYERR:
          Application.MessageBox
            ('Erro de chave externa, como em integridade referencial', 'Aviso',
            mb_IconError);
        DBIERR_LOCKED:
          Application.MessageBox
            ('O registro ja esta sendo editado por outro usuario!', 'Aviso',
            mb_IconError);
        DBIERR_FILELOCKED:
          Application.MessageBox('Arquivo travado', 'Aviso', mb_IconError);
        DBIERR_NETMULTIPLE:
          Application.MessageBox('Mais de um diretório usado como NetFileDir!',
            'Aviso', mb_IconError);
        DBIERR_MINVALERR:
          Application.MessageBox('Campo com valor mais baixo que valor mínimo!',
            'Aviso', mb_IconError);

        DBIERR_LOOKUPTABLEERR:
          Application.MessageBox('Erro em tabela Lookup!', 'Aviso',
            mb_IconError);

      end;

    end;

 DBIERR_REQDERR:

          Application.MessageBox('Campo obrigatório não preenchido!', 'Aviso',

            mb_IconError);