Статья: Проблемы совместного доступа к данным в Oracle
except
// документ заблокирован, поэтому открываем его только для чтения
odsDocs.SQL.Text:=oldSql;
Showmessage ('Документ заблокирован другим пользователем, открываем только для чтения');
odsDocs.open;
odsDocs.Readonly:=true;
end; end;
Когда пользователь решит отредактировать какой-либо документ, следует открыть отдельное окно, в котором будет выбран именно этот документ и на него будет установлена блокировка. Например:
SELECT *
FROM Docs
WHERE PrimaryKey=10
FOR UPDATE
В этом примере мы выбираем и блокируем запись из таблицы Docs с первичным ключом, равным 10. Блокировка будет поставлена только на одну запись и этот документ больше никто не сможет открыть. Так как в окне реестра документов выполняется запрос SELECT без FOR UPDATE, то он продолжит работать, и остальные пользователи смогут его просматривать и открывать для редактирования другие незаблокированные документы.
Не ждите!
А что произойдет, если пользователь попытается открыть документ, который уже заблокирован другим пользователем? Ответ прост—запрос зависнет в ожидании освобождения ресурсов. Если в вашей программе не предусмотрено возможности прерывания запросов, а блокировка оказалась мертвой, то программа зависнет навечно. Завершить работу можно будет только прерыванием процесса. Самое страшное, если какой-то пользователь открыл окно и ушел на обед. Ресурс оказывается заблокированным надолго, и это мешает работе других пользователей.
Если процесс прерывается аварийно, то и все заблокированные этим пользователем ресурсы блокируются. Чтобы их освободить, необходимо подключиться к серверу с правами системного администратора и завершить сессии.
Чтобы сессия не зависла из-за бесконечного ожидания заблокированных данных, я рекомендую добавлять еще опцию NOWAIT:
SELECT *
FROM Docs
WHERE PrimaryKey=10
FOR UPDATE NOWAIT
Такой запрос попытается получить данные и установить на них блокировку, но если это невозможно, то ожидания не будет. Сервер просто вернет ошибку с номером ORA-00054:
ORA-00054 Resource busy and acquire
with NOWAIT specified
Теперь, когда мы увидели, что данные заблокированы, можно показать пользователю сообщение о том, что кто-то уже редактирует таблицу, и открыть карточку документа, но только в режиме редактирования. Для этого нужно снова выполнить запрос SELECT без попытки блокирования ресурсов.
Пример
Давайте посмотрим, как реализовать возможность открытия карточки редактирования с использованием блокировок на Delphi. Допустим, у нас есть форма TSomeDocument для редактирования и данные выбираются с помощью компонента TOracleDataSet (назовем его odsDocs) из состава DOA (Direct Oracle Access, прямой доступ к Oracle). В компоненте odsDocs прописан запрос на выборку данных без каких-либо блокировок. По событию OnShow для формы пишем код, показанный в листинге! Разберем содержимое представленного листинга. Сначала сохраняем запрос, который прописан в компоненте, а затем добавляем к запросу опции FOR UPDATE NOWAIT. Теперь открываем набор данных внутри блока try... except. Если код отработал нормально, то ресурс свободен и уже заблокирован нами. Нужно только проверить количество записей на 0. А вдруг, пока мы работали с выборкой в реестре документов, этот документ уже кто-то удалил?
Если во время открытия набора данных произошла ошибка из-за блокировки, то выполнение программы переходит на блок except. Здесь возвращаем сохраненный запрос в компонент odsDocs, сообщаем пользователю, что данные невозможно открыть для редактирования, и открываем набор данных, но уже без опции FOR UPDATE NOWAIT.
Это достаточно простой, но эффективный способ блокирования документов.
Блокировки в связанных запросах
Допустим, что у нас есть две таблицы Docs и Users. В таблице Docs есть поле UserlD, где сохраняется первичный ключ из таблицы Users. Таким образом, каждый документ привязан к определенному пользователю, например, создавшему, ответственному или кому-то еще. Посмотрим, как будет выглядеть запрос на выборку данных для редактирования:
SELECT *