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

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

Параметры

cFileName

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

nCodePage,

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

lAdditive

Определяет - было ли включено в команду COPY PROCEDURE, которая инициировала это событие, ключевое слово ADDITIVE. Если ADDITIVE было опущено, хранимые процедуры замещают содержание программного файла.

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

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

Expand imageПример

  CopyCode imageСкопировать код
* Отображает на экране имя события, откуда оно вызвано и ;
* переданные параметры.
PROCEDURE dbc_AfterCopyProc ;
         (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Смотрите также