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

PROCEDURE dbc_CloseData(cDatabaseName, lAll) 
PROCEDURE dbc_CloseData
LPARAMETERS cDatabaseName, lAll

Параметры

cDatabaseName

Указывает имя базы данных, которая закрывается.

lAll

Определяет - было ли включено в команду  CLOSE DATABASES ключевое слово ALL. Если события контейнера базы данных разрешены, эо событие присходит каждый раз, когда база данных закрывается, независимо от того, была ли она закрыта именно командой CLOSE DATABASES.

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

Вы можете использовать событие dbc_CloseData для проверки соответствующих значений cDatabaseName и lAll или использовать эти параметры в процедуре отслеживающей доступ к базе данных, когда база данных должна быть закрыта

Когда одновременно закрывается несколько баз данных, событие dbc_CloseData срабатывает для каждой базы данных. Поэтому, когда вы выдаете команду CLOSE DATABASES ALL, наступает несколько различных событие CloseData и будет исполнено несколько различных методов dbc_CloseData.

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

Expand imageПример

  CopyCode imageСкопировать код
PROCEDURE dbc_CloseData ;
         (cDatabaseName,;
          lAll)
? '     cDatabaseName = ' + TRANSFORM(cDatabaseName) + ' - ' ;
                      + TYPE('cDatabaseName')
? '     lAll          = ' + TRANSFORM(lAll)          + ' - ' ;
                      + TYPE('lAll')+' /end/ '
RETURN .F.     && это предотвратит закрытие базы данных.
ENDPROC

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