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