iBase.ru Forum

Как на клиенте с помощью компонета ApplicationEvents выловить номерок этого exeption

Merlin писал(а):А девушка про реляционную модель, нормальные формы, reference integrity, foreign keys и видимость версий записей транзакциями с различными уровнями изоляции что-нить слышала? Это к вопросу о проверке допустимости удаления в триггере вообще.

У меня на текущую табличку повешен тригер, что текущую запись удалить не льзя, пока есть дубликат этой записи в другой таблице (связь по внешним ключам)

Вот именно номер это исключение я теперь хочу поймать на клиенте и обработать его по-своему

Марина писал(а): выловить номерок этого exeption

//общая для проверки ошибок
procedure TdmBase.Check_SRV_Error(E:EFIBError);
var
 FLog:TextFile;
 S_log:string;
begin
 case E.IBErrorCode of
  335544569:MessageDlg('Ошибка выполнения!', mtError, [mbOk], 0);
  335544345:MessageDlg('Запись занята другим пользователем!', mtError, [mbOk], 0);
  335544665:MessageDlg('Запись с таким кодом уже есть!', mtError, [mbOk], 0);
  335544347:MessageDlg('Вы не заполнили обязательные для занесения данные', mtError, [mbOk], 0);
  335544466:MessageDlg('Нет соответствующей записи в головной таблице!', mtError, [mbOk], 0);
  335544349:MessageDlg('Запись с таким кодом уже есть!', mtError, [mbOk], 0);
 else
  MessageDlg('Необрабатываемая ошибка! '+IntTostr(E.IBErrorCode), mtError, [mbOk], 0);
 end;
 try
  if not FileExists('Err.log') then
   begin
    AssignFile(FLog,'Err.log');
    ReWrite(FLog);
   end
   else
    begin
     AssignFile(FLog,'Err.log');
     Append(FLog);
    end;
  s_log:=DateTimeToStr(Now)+' ';
  //s_log:=s_log+Form1.USER_Name+' ';
  s_log:=s_log+E.ClassName+': '+E.IBMessage+' Код: '+IntTostr(E.IBErrorCode);
  Writeln(Flog,s_log);
  CloseFile(Flog);	
 except
  //
 end;
end

function TdmBase.on_Save_DSet(DSet:TpFIBDataSet):integer;
begin
 try
  result:=0;
  if not(DSet.UpdateTransaction.Active) then DSet.UpdateTransaction.StartTransaction;
    DSet.Post;
    DSet.UpdateTransaction.Commit;
 except
  on E:EFIBInterBaseError do
  begin
   Check_SRV_Error(E);
   DSet.Cancel;
   DSet.UpdateTransaction.Rollback;
   result:=-1;
  end;
 end;
end;

Но правильно ли так будет?

А прикол то всей затеи в том, что если попробовать удалить ткущую запись в IBExpert, то выведется исключение и удаления не произойдет.

Например, есть exception в триггере - тогда ловим exception ВООБЩЕ в Application.OnException, и в отладчике наблюдаем отловленный класс со всеми его свойствами, номерами ошибок и т.п.

И как в отладчике OnExeption наблюдаем отловленный класс со всеми его свойствами и номерами ошибок?

Марина писал(а):procedure TdmBase.Check_SRV_Error(E:EFIBError);
а это где такое взять? компонент что ли какой-то специальный, где его взять такой?

девушка, купите же книжку какую-нибудь по программированию в дельфях.

это же элементарные вещи, которые надо знать ДО работы с базами данных. и которые к БД никакого отношения не имеют.

и вообще я студент.

И в моей книжке тоже нет такого... конечно вам то конечно хорошо! у вас значит есть, а у меня нет!

Dimitry Sibiryakov писал(а):Дэвушка, какой придурок учил вас программировать? Найдите его и посоветуйте убиться ап стенку.