GdcLBRBTreeMetadata.GetLBRBTreeDependentNames

Версия 17:01, 11 апреля 2011

Delphi:

 function GetLBRBTreeDependentNames(const ARelName: String; const ATr: TIBTRansaction;
 out Names: TLBRBTreeMetaNames): Integer;

Описание

Функция возвращает имена объектов метаданных интервального дерева для заданной таблицы и количество зависимых от нее процедур и тригеров.

Параметры

Names

Запись типа gdcLBRBTreeMetadata.TLBRBTreeMetaNames с именами объектов метаданных интервального дерева.

ARelName

Имя таблицы.

ATr

Открытая транзакция. Если не задана, функция вернет -1 и запись Names, заполненную пустыми строками.

Функция возвращает количество зависимых от указанной таблицы процедур и тригеров.

Пример использования

...
procedure TgdcLBRBTreeTable.DropTable;
var
  ...
  Names: TLBRBTreeMetaNames;
begin
  if GetLBRBTreeDependentNames(FieldByName('relationname').AsString, ReadTransaction, Names) > 3 then  // 3 SP
    raise EgdcIBError.Create('Нельзя удалить таблицу т.к. она используется в процедурах или представлениях');
...