IVariantsProvider Interface

Implemented by objects that provide a list of view variants available for the specific View, and stores the variant selected by the user.

Namespace: DevExpress.ExpressApp.ViewVariantsModule

Assembly: DevExpress.ExpressApp.ViewVariantsModule.v19.1.dll

Declaration

C#

public interface IVariantsProvider

VB.NET

Public Interface IVariantsProvider

Related API Members

The following members return IVariantsProvider objects:

• FrameVariantsEngine.VariantsProvider
• ViewVariantsModule.VariantsProvider

Remarks

The default implementation of the IVariantsProvider interface used by the View Variants Module is ModelVariantsProvider, that stores view variants in the Application Model. You can create a custom IVariantsProvider implementation and pass it to the ViewVariantsModule.VariantsProvider property.

The following snippet illustrates how to implement an IVariantsProvider that stores View Variants in the database.

C#

public class DatabaseViewVariantsProvider : IVariantsProvider {
    XafApplication application;
    public DatabaseViewVariantsProvider(XafApplication application) {
        Guard.ArgumentNotNull(application, "application");
        this.application = application;
    }
    public VariantsInfo GetVariants(string rootVariantViewId) {
        VariantsInfo result = null;
        if(application.Security.IsAuthenticated) {
            using(IObjectSpace os = application.CreateObjectSpace(typeof(ViewVariantsObject))) {
                ViewVariantsObject variants = os.FindObject<ViewVariantsObject>(
                new BinaryOperator("RootViewId", rootVariantViewId));
                if(variants != null && (variants.Items.Count >= 2)) {
                    List<VariantInfo> items = new List<VariantInfo>();
                    foreach(ViewVariantObject variant in variants.Items) {
                        items.Add(new VariantInfo(variant.Oid.ToString(), variant.ViewId, variant.Caption));
                    }
                    string currentVariantId;
                    if(variants.CurrentVariant != null) {
                        currentVariantId = variants.CurrentVariant.Oid.ToString();
                    }
                    else {
                        currentVariantId = variants.Items[0].Oid.ToString();
                    }
                    result = new VariantsInfo(variants.RootViewId, currentVariantId, items);
                }
            }
        }
        return result;
    }
    public void SaveCurrentVariantId(string rootViewId, string currentVariantId) {
        using(IObjectSpace os = application.ObjectSpaceProvider.CreateObjectSpace()) {
            ViewVariantObject variant = os.GetObjectByKey<ViewVariantObject>(Guid.Parse(currentVariantId));
            if((variant == null) || (variant.Owner == null)) {
                throw new InvalidOperationException();
            }
            variant.Owner.CurrentVariant = variant;
            os.CommitChanges();
        }
    }
}

VB.NET

Public Class DatabaseViewVariantsProvider
    Implements IVariantsProvider
    Private application As XafApplication
    Public Sub New(ByVal application As XafApplication)
        Guard.ArgumentNotNull(application, "application")
        Me.application = application
    End Sub
    Public Function GetVariants(ByVal rootVariantViewId As String) As VariantsInfo
        Dim result As VariantsInfo = Nothing
        If application.Security.IsAuthenticated Then
            Using os As IObjectSpace = application.CreateObjectSpace(GetType(ViewVariantsObject))
                Dim variants As ViewVariantsObject = os.FindObject(Of ViewVariantsObject)( _
                New BinaryOperator("RootViewId", rootVariantViewId))
                If variants IsNot Nothing AndAlso (variants.Items.Count >= 2) Then
                    Dim items As New List(Of VariantInfo)()
                    For Each [variant] As ViewVariantObject In variants.Items
                        items.Add(New VariantInfo([variant].Oid.ToString(), [variant].ViewId, [variant].Caption))
                    Next [variant]
                    Dim currentVariantId As String
                    If variants.CurrentVariant IsNot Nothing Then
                        currentVariantId = variants.CurrentVariant.Oid.ToString()
                    Else
                        currentVariantId = variants.Items(0).Oid.ToString()
                    End If
                    result = New VariantsInfo(variants.RootViewId, currentVariantId, items)
                End If
            End Using
        End If
        Return result
    End Function
    Public Sub SaveCurrentVariantId(ByVal rootViewId As String, ByVal currentVariantId As String)
        Using os As IObjectSpace = application.ObjectSpaceProvider.CreateObjectSpace()
            Dim [variant] As ViewVariantObject = os.GetObjectByKey(Of ViewVariantObject)(Guid.Parse(currentVariantId))
            If ([variant] Is Nothing) OrElse ([variant].Owner Is Nothing) Then
                Throw New InvalidOperationException()
            End If
            [variant].Owner.CurrentVariant = [variant]
            os.CommitChanges()
        End Using
    End Sub
End Class

The following code illustrates persistent objects used by DatabaseViewVariantsProvider to store View Variants:

C#

[DefaultClassOptions, XafDefaultProperty("RootViewId")]
public class ViewVariantsObject : BaseObject {
    public ViewVariantsObject(Session session) : base(session) { }
    [Indexed(Unique = true), RuleUniqueValue]
    public string RootViewId { 
        get { return GetPropertyValue<string>("RootViewId"); } 
        set { SetPropertyValue<string>("RootViewId", value); }
    }
    public ViewVariantObject CurrentVariant { 
        get { return GetPropertyValue<ViewVariantObject>("CurrentVariant"); } 
        set { SetPropertyValue<ViewVariantObject>("CurrentVariant", value); }
    }
    [Association]
    public XPCollection<ViewVariantObject> Items { 
        get { return GetCollection<ViewVariantObject>("Items"); }
    }
}
[XafDefaultProperty("Caption")]
public class ViewVariantObject : BaseObject {
    public ViewVariantObject(Session session) : base(session) { }
    [Association]
    public ViewVariantsObject Owner { 
        get { return GetPropertyValue<ViewVariantsObject>("Owner"); } 
        set { SetPropertyValue<ViewVariantsObject>("Owner", value); }
    }
    public string ViewId { 
        get { return GetPropertyValue<string>("ViewId"); }
        set { SetPropertyValue<string>("ViewId", value); } 
    }
    public string Caption { 
        get { return GetPropertyValue<string>("Caption"); } 
        set { SetPropertyValue<string>("Caption", value); } 
    }
}

VB.NET

<DefaultClassOptions, XafDefaultProperty("RootViewId")>
Public Class ViewVariantsObject
    Inherits BaseObject

    Public Sub New(ByVal session As Session)
        MyBase.New(session)
    End Sub
    <Indexed(Unique := True), RuleUniqueValue>
    Public Property RootViewId() As String
        Get
            Return GetPropertyValue(Of String)("RootViewId")
        End Get
        Set(ByVal value As String)
            SetPropertyValue(Of String)("RootViewId", value)
        End Set
    End Property
    Public Property CurrentVariant() As ViewVariantObject
        Get
            Return GetPropertyValue(Of ViewVariantObject)("CurrentVariant")
        End Get
        Set(ByVal value As ViewVariantObject)
            SetPropertyValue(Of ViewVariantObject)("CurrentVariant", value)
        End Set
    End Property
    <Association>
    Public ReadOnly Property Items() As XPCollection(Of ViewVariantObject)
        Get
            Return GetCollection(Of ViewVariantObject)("Items")
        End Get
    End Property
End Class
<XafDefaultProperty("Caption")>
Public Class ViewVariantObject
    Inherits BaseObject

    Public Sub New(ByVal session As Session)
        MyBase.New(session)
    End Sub
    <Association>
    Public Property Owner() As ViewVariantsObject
        Get
            Return GetPropertyValue(Of ViewVariantsObject)("Owner")
        End Get
        Set(ByVal value As ViewVariantsObject)
            SetPropertyValue(Of ViewVariantsObject)("Owner", value)
        End Set
    End Property
    Public Property ViewId() As String
        Get
            Return GetPropertyValue(Of String)("ViewId")
        End Get
        Set(ByVal value As String)
            SetPropertyValue(Of String)("ViewId", value)
        End Set
    End Property
    Public Property Caption() As String
        Get
            Return GetPropertyValue(Of String)("Caption")
        End Get
        Set(ByVal value As String)
            SetPropertyValue(Of String)("Caption", value)
        End Set
    End Property
End Class