...Например вы установили ограничение UNIQUE для какого либо поля в БД...

Не нашёл такой возможности в конструкторе (v. 3.6).  Как добавить уникальность к полю БД?  Возможность проверки перед сохранением с помощью скриптов видел в ветке  http://myvisualdatabase.com/forum/viewtopic.php?id=1062

Данное событие предназначено для перехвата ошибок связанных с исполнением SQL запросом. События для ошибок связанных с подключением к серверу пока не предусмотрено.

Ясно, жаль

Здравствуйте.

Прощу прощения за задержку с ответом, был в отпуске. Вопрос все еще актуален для Вас?

Да Дмитрий, вопрос актуален.
Обратил внимание что скрипт с обработкой ошибки срабатывает если ошибка вызывается в следствии нажатия на кнопку с предустановленным действием (т.е. с действием кнопки выбранным из визуального интерфейса программы). Если же нажатие на кнопку запускает скрипт запроса в базу SQL, то обработка ошибки просто игнорируется.

Прощу прощения за задержку с ответом, был в отпуске. Вопрос все еще актуален для Вас?

Например вы установили ограничение UNIQUE для какого либо поля в БД. Когда вы пытаетесь создать запись с дубликатом по данному полю, то получите системную ошибку от СУБД, которую можете перехватить и обработать ее так, как вам необходимо. Пример:

// глобальное события для всех ошибок от СУБД
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    // ошибка при выполнении функций SQLExecute или SQLQuery
    if Sender=nil  then
    begin
        result := true; // предотвращает показ системной ошибки
        ShowMessage(Msg); // ваше сообщение об ошибке может быть здесь
    end;

    // ошибка возкнила при выполнении действия кнопки frmEmployee.bSaveEmp
    if Sender = frmEmployee.bSaveEmp then 
    begin
        if Pos('UNIQUE constraint failed', Msg)=1 then // по тексту сообщения узнает тип ошибки.
        begin
            result := True; // предотвращает показ системной ошибки
            MessageBox('Человек с данной фамилией уже присутствует в БД..', 'Error', MB_OK+MB_ICONWARNING);
        end;
    end;
end;



procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    SQLExecute('INSERT INTO employees (lastname) VALUES ("ivanov")');
end;


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
begin
    SQLQuery('INSERT INTO employees (lastname) VALUES ("ivanov")', Results);
end;

Проект с примером: