Описание

Генерируется перед добавлением файла к объекту. Если добавляется группа файлов - событие генерируется для каждого файла в отдельности.

Опеделение

Visual Basic
Public Event FileBeforeAdd( _ ByVal pFile As TDMSFile, _ ByVal pObject As TDMSObject, _ ByRef bCancel As Boolean, _ ByVal sFilePath As String _ )

Параметры

pFile: Ссылка на файл, который должен быть добавлен к объекту.
pObject: Ссылка на объект, к которому должен быть добавлен файл.
bCancel: TRUE - отменить добавление файла к объекту.
sFilePath: Исходный полный путь к файлу. Параметр только для чтения.

Заметки

1. Событие является отменяемым: если параметру bCancel присвоено значение TRUE, добавление текущего файла будет отменено.

2. В случае "ручного" добавления файлов событие генерируется после выбора файла в окне диалога, но перед внесением любых связанных изменений в базу.

3. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:

скрипт объекта;
скрипт профиля пользователя;
общесистемный скрипт.

Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.

4. Схему последовательности генерации событий при добавлении файлов в файловый состав объекта см. на рисунке:

5. Для того, чтобы событие генерировалось при работе с файлами через API, должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).

Пример

VB Script (Visual Basic)	Скопировать код
'==================================================== 'Текст обработчика может быть размещен в скрипте формы, профиля или 'общесистемном скрипте. Sub File_BeforeAdd(File, Object, Cancel) 'Запросить подтверждение операции msg = "Добавить файл """ & File.FileName & """" & _ Chr(13) & "к объекту """ & Object.Description & """?" If ((MsgBox(msg, vbYesNo + vbQuestion, "Работа с файлами объекта")) <> VbYes) Then Cancel = True End Sub '====================================================

VB Script (Visual Basic)

Скопировать код

'==================================================== 
'Текст обработчика может быть размещен в скрипте формы, профиля или
'общесистемном скрипте.

Sub File_BeforeAdd(File, Object, Cancel)
        'Запросить подтверждение операции
        msg = "Добавить файл """ & File.FileName & """" & _
        Chr(13) & "к объекту """ & Object.Description & """?"
        If ((MsgBox(msg, vbYesNo + vbQuestion, "Работа с файлами объекта")) <> VbYes)  Then Cancel = True
End Sub
'====================================================

Смотри также

TDMSApplication Объект | TDMSApplication Члены класса | TDMSFile

Справочное руководство по TDMS 7.0 API
FileBeforeAdd Событие
Смотри также Пример Отправить замечание