Описание
Опеделение
| Visual Basic |
|---|
Public Event FileBeforeCheckIn( _ ByVal pFile As TDMSFile, _ ByVal pObject As TDMSObject, _ ByRef bCancel As Boolean _ ) |
Параметры
- pFile
- Ссылка на файл, который должен быть добавлен к объекту или обновлен.
- pObject
- Ссылка на объект, с файловым составом которого производится работа.
- bCancel
- TRUE - отменить добавление/обновление файла.
Заметки
1. Событие является отменяемым: если параметру bCancel присвоено значение TRUE, файл не будет загружен в хранилище (или отменено его обновление, если файл существовал).
2. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт объекта;
- скрипт профиля пользователя;
- общесистемный скрипт.
Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.
3. Схему последовательности генерации событий при работе с файлами объекта см. на рис.1
рис.2:
4. Для того, чтобы событие генерировалось при работе с файлами через API (напр., вызове метода TDMSFile.CheckIn Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'==================================================== 'Текст обработчика может быть размещен в скрипте формы, профиля или 'общесистемном скрипте. Sub File_BeforeCheckIn(File, Object, Cancel) 'Запросить подтверждение операции msg = "Обновить файл """ & File.FileName & """" & _ Chr(13) & "объекта """ & Object.Description & """?" If ((MsgBox(msg, vbYesNo + vbQuestion, "Работа с файлами объекта")) <> VbYes) Then Cancel = True End Sub '==================================================== | |