ITableChecks.Add

Синтаксис

Add: ITableCheck;

Описание

Метод Add осуществляет добавление ограничения таблицы.

Пример

Для выполнения примера предполагается наличие в репозитории таблицы с идентификатором "TABLE_1". В таблице имеется числовое поле с идентификатором "NUM_FIELD".

Sub Main;

Var

MB: IMetabase;

Object: IMetabaseObject;

Table: ITable;

Checks: ITableChecks;

Check: ITableCheck;

Begin

MB := MetabaseClass.Active;

Object := MB.ItemById("TABLE_1").Edit;

Table := Object As ITable;

Checks := Table.Checks;

Check := Checks.Add;

Check.Id := "CheckX";

Check.Name := "Ограничение значения цифрового поля";

Check.Text := "ABS(NUM_FIELD)<100";

Object.Save;

End Sub Main;

После выполнения примера в таблице будет создано новое ограничение. Данное ограничение будет проверять абсолютное значение числового поля "NUM_FIELD".

См.также:

ITableChecks