Происходит после завершения исполнения функции DBSetProp( ). Имеется две версии синтаксиса. 

PROCEDURE dbc_AfterDBSetProp(cName, cType, cProperty, ePropertyValue) 
PROCEDURE dbc_AfterDBSetProp
LPARAMETERS cName, cType, cProperty, ePropertyValue

Параметры

cName

Указывает значение первого параметра в функции DBSetProp( ) - имя базы данных, поля, именованного соединения, таблицы или представления для которого DBSETPROP( ) изменит значения.

cType

Указывает значение второго параметра в функции DBSetProp( ) - тип объекта предмета, указанного в cName.

cProperty

 ) function, the property for which DBSETPROP( Указывает значение третьего параметра в функции DBSetProp( ) - свойство, для которого DBSETPROP( ) изменит значение.

ePropertyValue

Указывает значение четвертого параметра в функции DBSetProp( ) - значение, которое будет присвоено свойству, указанному в cProperty.

Для получения подробной информации о значениях cType и cProperty смотрите DBSETPROP( ) и DBGETPROP( ) в справке.

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

Вы можете использовать событие dbc_AfterDBCSetProp для отслеживания доступа к базе данных после запуска DBGETPROP( ).

Некоторые значения свойств могуть быть изменены с помощью DBSetProp( ) или с помощью дизайнера. Например, вы можете изменить свойство Comment таблицы, используя функцию DBSetProp()  или в табличном дизайнере. Поскольку DBSetProp( ) сама производит изменени непосредственно в базе данных  dbc_BeforeModifyTable или dbc_AfterModifyTable не отловят изменений, произведенных DBSETPROP( ). Для перехвата этих изменений, которые могут быть сделаны любым из указанных путей, могли бы использовать dbc_BeforeDBSetProp, dbc_AfterDBSetProp, dbc_BeforeModifyTable и dbc_AfterModifyTable для контроля соответствующих изменений.

Expand imageПример

  CopyCode imageскопировать код
* Отображает на экране имя события, программу, из которой оно вызвано и ;
* переданные параметры.
PROCEDURE dbc_AfterDBSetProp ;
         (cName,;
          cType,;
          cProperty,;
          ePropertyValue)
 ? '>>   ' + PROGRAM()
 ?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     Current DBC:     ' + SUBSTR(DBC(),RAT('\',DBC())+1)
 ? '     cName          = ' + TRANSFORM(cName)          + ' - ' + TYPE('cName')
 ? '     cType          = ' + TRANSFORM(cType)          + ' - ' + TYPE('cType')
 ? '     cProperty      = ' + TRANSFORM(cProperty)      + ' - ' + TYPE('cProperty')
 ? '     ePropertyValue = ' + TRANSFORM(ePropertyValue) + ' - ' + TYPE('ePropertyValue')+' /end/ '
ENDPROC

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