Происходит до завершения команды APPEND PROCEDURES. Имеется две версии синтаксиса. 

PROCEDURE dbc_BeforeAppendProc(cFileName, nCodePage, lOverwrite) 
PROCEDURE dbc_BeforeAppendProc
LPARAMETERS cFileName, nCodePage, lOverwrite

Параметры

cFileName

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

nCodePage,

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

lOverwrite

Указывает - было ли включено ключевок слово OVERWRITE в команду APPEND PROCEDURE. Если OVERWRITE было опущено, текущие хранимые процедуры добавляются к дополняемым, в противном случае происходит перепись существующих хранимых процедур.

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

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

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

Expand imageПример

  CopyCode imageСкопировать код
* Отображает на экране имя события, откуда оно было вызвано и ;
* переданные параметры.
PROCEDURE dbc_BeforeAppendProc ;
         (cFileName,;
          nCodePage,;
          lOverwrite)
 ? '>>   ' + 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')
 ? '     lOverwrite      = ' + TRANSFORM(lOverwrite) + ' - ' ;
                         + TYPE('lOverwrite')+' /end/ '
ENDPROC

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