Описание
Генерируется по завершении выполнения команды.
Опеделение
| Visual Basic |
|---|
Public Event CommandCompleted( _ ByVal pCommand As TDMSCommand, _ ByVal pObject As TDMSObject _ ) |
Параметры
- pCommand
- Команда, которая была выполнена.
- pObject
- Объект, над которым была выполнена команда.
Заметки
1. Событие нельзя отменить.
2. Обработчик может быть размещен в скрипте команды, профиля и/или общесистемном . Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт команды;
- скрипт профиля пользователя;
- общесистемный скрипт.
3. Событие может регистрироваться в Журнале событий приложения (в зависимости от настроек Журнала для конкретного пользователя) и соответственно добавляться в коллекцию событий TDMSApplication.Events Свойство. Зарегистрированное событие имеет класс TDMSEventClass Перечисление tdmEventClassLogin и тип TDMSEventType Перечисление tdmEventUserLogoff.
4. Схему последовательности генерации событий при выполнении команды на объекте см. на рисунке:
5. Для того, чтобы событие генерировалось при работе через API (вызове метода TDMSApplication.ExecuteQuery Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
Вывести информацию о выполненной команде
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика может быть размещен в скрипте команды, профиля или 'общесистемном скрипте. Sub Command_Completed(Command, Obj) 'Вывести описание команды, которая была выполнена MsgBox "Команда """ & Command.Description & """ была выполнена на объекте """_ & Obj.Description & """.", vbInformation, "Выполнение команды" End Sub '====================================================================== | |