Происходит до переименования соединения. Имеется две версии синтаксиса.

PROCEDURE dbc_BeforeRenameConnection(cPreviousName,cNewName)
 
PROCEDURE dbc_BeforeRenameConnection
LPARAMETERS cPreviousName, cNewName

Параметры

cPreviousName

Указывает текущее имя соединения.

cNewName

Указывает новое имя соеденения.

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

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

Возврат .F. из процедурного кода события предотвратить переименование соединения.

Expand imageПример

  CopyCode imageСкопировать код
* Отображает имя события, откуда оно вызвано и  ;
* переданные параметры.
PROCEDURE dbc_BeforeRenameConnection ;
         (cPreviousName, cNewName)
 ? '>>   ' + PROGRAM()
 ?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     cPreviousName = ' + TRANSFORM(cPreviousName)    + ' - ' ;
                       + TYPE('cPreviousName ')
 ? '     cNewName      = ' + TRANSFORM(cNewName)         + ' - ' ;
                       + TYPE('cNewName ')+' /end/ '
ENDPROC

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