Объекты DIRECTUM

 

Объект IObject

 

Метод AddFrom – добавить таблицу в запрос набора данных

Синтаксис:

function AddFrom(

  const TableName: WideString): Integer;

Параметры:

TableName – имя таблицы в формате <Имя таблицы>[ <Алиас таблицы>]. Имя таблицы можно получать с помощью свойств SQLTableName или IDataSet.SQLTableName. Алиас таблицы может быть произвольным, но должен совпадать с алиасом, указанным при вызове AddSelect. Для формирования параметра удобно использовать функцию Format.

Возвращаемое значение:

Идентификатор таблицы в запросе.

Описание:

Метод добавляет таблицу в раздел from SQL-запроса набора данных. Идентификатор таблицы в запросе следует использовать в качестве параметра метода DelFrom для удаления таблицы из запроса.

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

 

// Показать все справочники, в которых используется данный реквизит.

RequisiteCode ='ISBEDocStrg'

Reference = References.SYSREF_REFERENCE_TYPES.GetComponent

Reference.ComponentForm.View.ViewMode = vmNavigation

RequisitesDataSet = Reference.DataSet.DetailDataSet(1)

ReferenceTable = Reference.TableName

RequisitesTable = RequisitesDataSet.TableName

 

AddFrom = Reference.AddFrom(RequisitesTable)

 

// Установить связь между реквизитами и справочниками,

// которые их используют.

AddWhere1 = Reference.AddWhere(Format("%0:s.%1:s = %2:s.%3:s";

  ArrayOf(ReferenceTable; Reference.Requisites(SYSREQ_ID).FieldName;

  RequisitesTable; RequisitesDataSet.Requisites(

  SYSREQ_MAIN_RECORD_ID).FieldName)))

 

// Задать реквизит.

AddWhere2 = Reference.AddWhere(Format("%0:s.%1:s = '%2:s'";

  ArrayOf(RequisitesTable; RequisitesDataSet.Requisites(

  SYSREQ_REF_TYPE_REQ_CODE).FieldName; RequisiteCode)))

 

// Исключить действия с кодом равным RequisiteCode,

// т.к. действия хранятся в той же таблице, что и реквизиты.

AddWhere3 = Reference.AddWhere(Format("%0:s.%1:s <> 'K'";

  ArrayOf(RequisitesTable; RequisitesDataSet.Requisites(

  SYSREQ_REF_TYPE_REQ_SECTION).FieldName)))

 

Reference.ComponentForm.Show

 

Reference.DelFrom(AddFrom)

Reference.DelWhere(AddWhere1)

Reference.DelWhere(AddWhere2)

Reference.DelWhere(AddWhere3)

 

 

См. также:

·         метод AddSelect;

·         метод AddWhere;

·         метод DelFrom;

·         свойство SQLTableName;

·         свойство IDataSet.SQLTableName.