Происзодит до момента удаления таблицы из базы данных. Имеется две версии синтаксиса. 

PROCEDURE dbc_BeforeRemoveTable(cTableName, lDelete, lRecycle) 

PROCEDURE dbc_BeforeRemoveTable
LPARAMETERS cTableName, lDelete, lRecycle

Параметры

cTableName

Указывает имя таблицы, которая будет удалена из базы данных.

lDelete

Определяет - будет ли таблица удалена или сконвертирована в свободную таблицу.

lRecycle

Определяет - будет ли таблица помещена в мусорную корзину Windows Recycle Bin или просто удалена с диска. Некоторые данные таблицы, такие как свойства, присущие только таблицам, связанным с базой данной будут потеряны, даже если таблица помещена в мусорную корзину, а также в случае, если таблица будет сконвертирована в свободную таблицу.

Expand imageПримечания

Вы можете использовать событие dbc_BeforeRemoveTable event для отследивания или управления доступом к базе данных до того, как таблица будет удалена из нее или удалена с диска.

Возврат этой процедуров значения .F. предотвратит удаление таблицы из базы данных.

Expand imageПример

  CopyCode imageСкопировать код
* Reports to the screen Event name, where it is called from and ;
* пересылка параметров.
PROCEDURE dbc_BeforeRemoveTable ;
         (cTableName, ;
          lDelete, ;
          lRecycle)
? '>>   ' + PROGRAM()
?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
? '     cTableName = ' + TRANSFORM(cTableName) + ' - ' ;
                   + TYPE('cTableName ')
? '     lDelete    = ' + TRANSFORM(lDelete)    + ' - ' ;
                   + TYPE('lDelete')
? '     lRecycle   = ' + TRANSFORM(lRecycle)   + ' - ' ;
                   + TYPE('lRecycle')+' /end/ '
ENDPROC

Expand image Смотрите также