Блокировка записи в FireBird

[denisbobrov3]

Всем здравствуйте. Есть база на FireBird, клиентское приложение разрабатывается в Delphi 7. В базе есть две таблицы - клиенты и карточки клиентов. На форме два комбобокса - один с ФИО клиентов, другой при выборе клиента заполняется номерами карт. В общем, необходимо, чтобы при выборе карты Х пользователем А соответствующая запись в таблице "блокировалась", то есть пользователь В при попытке выбора карты Х получал сообщение "C данной картой работает другой пользователь".

[Скандербег]

В самом сервере FB никак из-за изолированности транзакций.
В своем проекте я делал доп. таблицу с перечнем пользователей, где помимо самих пользователей записывались идентификаторы записей из таблиц (идентификаторы со сквозной нумерацей по всем таблицам, можно чего-то и другое придумать), которые вызываются пользователем на редактирование. После окончания редактирования признак этот в доп. таблице снимался.
Дополнительная таблица дает возможность приложению проверять редактируется ли запись другим пользователем и, и если да, то другие не могут этого делать (приложение не запускает форму для редактирования с предупреждением).
На самом деле, это лишняя головная боль для разработчика. Если подключение некорректно отрубилось при редактировании, то признак редактирования надо как-то снимать. А вот как... Это уже проблемка.
А вообще то, есть более профессиональные подходы к "блокировке", о которых можно почитать здесь:
IBase Как заблокировать запись в InterBase/Firebird