Происходит до начала исполнения команды COPY PROCEDURE. Имеется две версии синтаксиса.

PROCEDURE dbc_BeforeCopyProc(cFileName, nCodePage, lAdditive) 
PROCEDURE dbc_BeforeCopyProc
LPARAMETERS cFileName, nCodePage, lAdditive

Параметры

cFileName

Указывает имя текстового файла,  в который копируются хранимые процедуры.

nCodePage,

Указывает кодовую страницу текстового файла,  в который копируются хранимые процедуры. Visual FoxPro копирует содержимое и, если это произошло, автоматически конвертирует содержимое текстового файла,  в который копируются хранимые процедуры, в указанную вами кодовую страницу.

lAdditive

Указывает было ли включено ключевое слово ADDITIVE в команду COPY PROCEDURE, которая инициировала это событие.

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

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

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

Expand imageПример

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

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