Метод DeleteComplete (Объект IIngeoDbSysObjectsSink)

Синтаксис

Язык	Описание
VBScript, JavaScript	SubDeleteComplete(aSysObjectType, aSysObjectID, aMy)
Visual Basic	Sub DeleteComplete(ByVal aSysObjectType As TIngeoSysObjectType, ByVal aSysObjectID As String, ByVal aMy As Boolean)
Delphi	procedure DeleteComplete(aSysObjectType: TIngeoSysObjectType; const aSysObjectID: WideString; aMy: WordBool);
C, C++	HRESULT DeleteComplete(TIngeoSysObjectType aSysObjectType, BSTR aSysObjectID, VARIANT_BOOL aMy);

Параметры

aSysObjectType

Тип системного объекта.

aSysObjectID

Идентификатор удаленного системного объекта.

aMy

Признак того, что данное событие возникло в результате выполнения операции в том процессе ИнГео, в котором выполняется модуль расширения.

Пример

sub DBSysObjects_DeleteComplete(aSysObjectType, aSysObject)
s = "Удален"
if aSysObjectType = 0 then
   s = s & "а территория"
end if
if aSysObjectType = 1 then
   s = s & " справочник"
end if
if aSysObjectType = 2 then
   s = s & "а растровая карта"
end if
if aSysObjectType = 3 then
   s = s & "а векторная карта"
end if
if aSysObjectType = 4 then
   s = s & " слой"
end if
if aSysObjectType = 5 then
   s = s & " стиль"
end if
if aSysObjectType = 6 then
   s = s & "а семантическая таблица"
end if

s = s & " с именем " & aSysObject.Name
end sub