IDimOrmManager.CreateClass

Копировать пример

Class UserForm: Form
    uidim: UiDimension;
    cmdSearch: Button;
    tree: DimensionTree;
    txtPattern: EditBox;
    
    Sub cmdSearchOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        pMan : IDimOrmManager;
        pClass : IDimOrmClass;
        pCondition : IDimOrmCondition;
        pCriteria : IDimTextCriteria;
        pOptions : IDimConditionSelect;
    Begin
        pMan := New DimOrmManager.Create;
        pClass := pMan.CreateClass(uidim.Dimension);
        pCondition := pClass.CreateCondition;
        pCriteria := New DimTextCriteria.Create;
        pCriteria.CriteriaOptions := TextCriteriaOptions.FreeText Or TextCriteriaOptions.SearchStringAttributes;
        pCriteria.Text := txtPattern.Text;
        pCondition.SetTextCriteria(pCriteria);
        pOptions := New DimTextCriteria.Create;
        pOptions.SelectOptions := ConditionSelectOptions.SelectedOnly;
        pCondition.SelectElements(tree.Selection, pOptions);
    End Sub cmdSearchOnClick;
End Class UserForm;