CreateDbLock(TableName, FieldName : String; Id : Integer) : DbLock
Заблокировать записи базы данных

Функция CreateDbLock пытается заблокировать все записи таблицы базы данных TableName у которых поле FieldName содержит значение Id. Если запись уже была заблокирована, то происходит исключение. Функция CreateDbLock возвращает объект класса DbLock. Блокировка уничтожается, как только возвращенный объект будет разрушен (т.е. на объект не будет указывать ни одна переменная).

Блокировка действует только на открытие документов платформой или вызов функции CreateForm с аргументами emEdit, emDelete. SQL-запросы выполняются без исключений.

Функция работает только если в свойствах программы включена опция "Включить блокировку документов". После включения этой опции обязательно сравните программу с базой данных и примените изменения на сервере. Платформа создаст необходимые для работы блокировки объекты базы данных.

Если опция "Включить блокировку документов" не включена, то функция CreateDbLock выполняется без исключений.

Пример:

Procedure OnCreate;
Var
  L1, L2 : DbLock;
Begin
  L1 := CreateDbLock('Table1', 'Id', 100);
  L2 := CreateDbLock('Table1Detail', 'Parent', 100);
  // Здесь документ заблокирован
End;

Смотри: DbLock.Table, DbLock.Field, DbLock.Id, CreateDbLock - ресурс.

© RTIT