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

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

Параметры

lRecover

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

lNoConsole

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

lPrint

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

lFile

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

cFilename

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

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

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

Expand imageПример

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