Наступает незамедлительно после выдачи команды MODIFY DATABASE. Используется для препятствования открытию окна дизайнера баз данных. Имеется две версии синтаксиса.

PROCEDURE dbc_ModifyData(cDatabaseName, lNoWait, lNoEdit )
 
PROCEDURE dbc_ModifyData
LPARAMETERS [cDatabaseName, lNoWait, lNoEdit ]

Параметры

CDatabaseName

Указывает имя базы данных, которую нужно модифицировать.

lNoWait

Указывает, было ли включено в команду MODIFY DATABASE ключевое слово NOWAIT, следствием чего будет продолжение исполнения программы после того, как откроется Database Designer.

lNoEdit

Указывает было ли включено в команду MODIFY DATABASE ключевое слово NOEDIT, которое предотвратит редактирование базы данных.

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

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

Expand imageПример

  CopyCode imageСкопировать код
PROCEDURE dbc_ModifyData ;
         (CDatabaseName, ;
            lNoWait, ;
            lNoEdit)
? '     cDatabaseName = ' + cDatabaseName + ' - ' ;
                      + TYPE('cDatabaseName ')
 ? '     lNoWait       = ' + TRANSFORM(lNoWait) + ' - ' ;
                       + TYPE('lNoWait')
 ? '     lNoEdit       = ' + TRANSFORM(lNoEdit) + ' - ' ;
                       + TYPE('lNoEdit')+' /end/ '
* Остановить пользователя и не дать ему редактировать базу данных в Дизайнере.
IF lNoEdit
   RETURN .T.
ELSE
   RETURN .F.
ENDIF
ENDPROC

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