Происходит до того момента, когда существующая свободная таблица будет добавления в активную базу данных.

Вы можете использовать событие dbc_BeforeAddTable для исполнения кода до того момента, когда таблица будет введена в базу данных. Это полезно для программных целей, таких как управление тем, что будет ли и при каких условиях таблица добавляется в базу данных или для записи в журнал дополнений в базе данных о вводе таблицы. Имеется две версии синтаксиса.

ЗамечаниеЗамечание

Это событие не происходит, когда вы создаете таблицу в базе данных.

PROCEDURE dbc_BeforeAddTable(cTableName, cLongTableName) 
PROCEDURE dbc_BeforeAddTable
LPARAMETERS [cTableName, cLongTableName]

Параметры

cTableName,

Указывает имя вводимой таблицы.

cLongTableName

Указывает длинное имя для вводимой таблицы.

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

Для преотвращения добавления таблицы в базу данных, верните из процедурного кода события значение False (.F.).

Expand imageПример

  CopyCode imageСкопировать код
PROCEDURE dbc_BeforeAddTable ;
         (cTableName, ;
          cLongTableName)
? '     cTableName     = ' + TRANSFORM(cTableName)     + ' - ' ;
                       + TYPE('cTableName ')
? '     cLongTableName = ' + TRANSFORM(cLongTableName) + ' - ' ;
                       + TYPE('cLongTableName ')
userID      = SUBSTR(SYS(0),AT('#',SYS(0))+2)
IF UPPER(userID) = 'MYALIAS'   && only one user can add tables.
   RETURN .T.
ENDIF
   RETURN .F.
ENDIF
ENDPROC

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