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

PROCEDURE dbc_BeforeValidateData
(lRecover, lNoConsole, lPrint, lFile [, cFilename]) 
PROCEDURE dbc_BeforeValidateData
LPARAMETERS lRecover, lNoConsole, lPrint, lFile [, cFilename]

Параметры

lRecover

Определяет было или нет включено в команду VALIDATE DATABASE ключевое слово RECOVER, которая вызвала срабатывание этого события.

lNoConsole

Определяет было или нет включено в команду VALIDATE DATABASE ключевое слово NOCONSOLE, которая вызвала срабатывание этого события.

lPrint

Определяет было или нет включено в команду VALIDATE DATABASE ключевое слово PRINT, которая вызвала срабатывание этого события.

lFile

Определяет было или нет включено в команду VALIDATE DATABASE ключевое слово FILE , которая вызвала срабатывание этого события.

cFilename

Определяет имя файла вывода, именованного в опции TO FILE команды VALIDATE DATABASE. cFilename представляет собой необязательный параметр, но если вы опустите его и при этом будете использовать опцию TO FILE в команде VALIDATE DATABASE, вы получите сообщение об ошибке "Must specify additional parameters." Если вы не используете опцию TO FILE , но включите в команду параметр cFilename, то он будет преобразован в значение .F..

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

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

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

Expand imageПример

  CopyCode imageСкопировать код
* отображает на экране имя события и программы из которой оно было вызвано, а также ;
* переданные параметры.
PROCEDURE dbc_BeforeValidateData;
         (lRecover, ;
          lNoConsole, ;
          lPrint, ;
          lFile, ;
          cFileName)
 ? '>>   ' + PROGRAM()
 ?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     lRecover   = ' + TRANSFORM(lRecover)   + ' - ' ;
                    + TYPE('lRecover')
 ? '     lNoConsole = ' + TRANSFORM(lNoConsole) + ' - ' ;
                    + TYPE('lNoConsole')
 ? '     lPrint     = ' + TRANSFORM(lPrint)     + ' - ' ;
                    + TYPE('lPrint')
 ? '     lFile      = ' + TRANSFORM(lFile)      + ' - ' ;
                    + TYPE('lFile')
 ? '     cFileName  = ' + TRANSFORM(cFileName)  + ' - ' ;
                    + TYPE('cFileName ')+' /end/ '
ENDPROC

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