Distribute an Analysis with the Application

• Jun 25, 2021
• 6 minutes to read

This topic describes how to distribute and update analyses with an application. For this purpose, an Analysis object will be created in code and the layout of its fields in the pivot grid will be saved to the database.

Note

You can find the code demonstrated here in the Main Demo installed with XAF. The MainDemo application is installed in %PUBLIC%\Documents\DevExpress Demos 23.1\Components\XAF\MainDemo.NET.EFCore by default.

• Add the following references to the module project.

  DevExpress.ExpressApp.PivotChart

  DevExpress.PivotGrid.Core

• To create an analysis for the DemoTask business object, open the DatabaseUpdate\Updater.cs (Updater.vb) file from the module project and create a new Analysis object as demonstrated below.

  C#

  public class Updater : ModuleUpdater {
      //...
      public override void UpdateDatabaseAfterUpdateSchema() {
          base.UpdateDatabaseAfterUpdateSchema();
          //...
          Analysis taskAnalysis1 = ObjectSpace.FirstOrDefault<Analysis>(analysis => analysis.Name == "Completed tasks");
          if (taskAnalysis1 == null) {
              taskAnalysis1 = ObjectSpace.CreateObject<Analysis>();
              taskAnalysis1.Name = "Completed tasks";
              taskAnalysis1.ObjectTypeName = typeof(DemoTask).FullName;
              taskAnalysis1.Criteria = "[Status] = ##Enum#DevExpress.Persistent.Base.General.TaskStatus,Completed#";
          }
      }
  }
  

  VB.NET

  Public Class Updater
      Inherits ModuleUpdater
      '...
      Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
          MyBase.UpdateDatabaseAfterUpdateSchema()
          '...
          Dim taskAnalysis1 As Analysis = ObjectSpace.FirstOrDefault(Function(analysis as Analysis) analysis.Name = "Completed tasks")
          If taskAnalysis1 Is Nothing Then
              taskAnalysis1 = ObjectSpace.CreateObject(Of Analysis)()
              taskAnalysis1.Name = "Completed tasks"
              taskAnalysis1.ObjectTypeName = GetType(DemoTask).FullName
              taskAnalysis1.Criteria = "[Status] = ##Enum#DevExpress.Persistent.Base.General.TaskStatus,Completed#"
          End If
      End Sub
  End Class
  

• Check that the analysis is created when running the application.

  

• To save the configuration of the pivot grid fields for the created analysis in code, add the following code to the Updater.cs file inside the module project.

  C#

  using DevExpress.ExpressApp.PivotChart;
  using DevExpress.Persistent.Base;
  using DevExpress.Persistent.BaseImpl.EF;
  
  namespace MySolution.Module.DatabaseUpdate {
      //... 
      public abstract class TaskAnalysisLayoutUpdaterBase {
          protected IObjectSpace objectSpace;
          protected abstract IAnalysisControl CreateAnalysisControl();
          protected abstract IPivotGridSettingsStore CreatePivotGridSettingsStore(IAnalysisControl control);
          public TaskAnalysisLayoutUpdaterBase(IObjectSpace objectSpace) {
              this.objectSpace = objectSpace;
          }
          public void Update(Analysis analysis) {
              if (analysis != null && !PivotGridSettingsHelper.HasPivotGridSettings(analysis)) {
                  IAnalysisControl control = CreateAnalysisControl();
                  control.DataSource = new AnalysisDataSource(analysis, objectSpace.GetObjects(typeof(DemoTask)));
                  control.Fields["Priority"].Area = DevExpress.XtraPivotGrid.PivotArea.ColumnArea;
                  control.Fields["Subject"].Area = DevExpress.XtraPivotGrid.PivotArea.DataArea;
                  control.Fields["AssignedTo.DisplayName"].Area = DevExpress.XtraPivotGrid.PivotArea.RowArea;
                  PivotGridSettingsHelper.SavePivotGridSettings(CreatePivotGridSettingsStore(control), analysis);
              }
          }
      }
  }
  

  VB.NET

  Imports DevExpress.ExpressApp.PivotChart
  Imports DevExpress.Persistent.Base
  Imports DevExpress.Persistent.BaseImpl.EF
  '... 
  Public MustInherit Class TaskAnalysisLayoutUpdaterBase
      Protected objectSpace As IObjectSpace
      Protected MustOverride Function CreateAnalysisControl() As IAnalysisControl
      Protected MustOverride Function CreatePivotGridSettingsStore(ByVal control As IAnalysisControl) As IPivotGridSettingsStore
      Public Sub New(ByVal objectSpace As IObjectSpace)
          Me.objectSpace = objectSpace
      End Sub
      Public Sub Update(ByVal analysis As Analysis)
          If analysis IsNot Nothing AndAlso (Not PivotGridSettingsHelper.HasPivotGridSettings(analysis)) Then
              Dim control As IAnalysisControl = CreateAnalysisControl()
              control.DataSource = New AnalysisDataSource(analysis, objectSpace.GetObjects(GetType(DemoTask)))
              control.Fields("Priority").Area = DevExpress.XtraPivotGrid.PivotArea.ColumnArea
              control.Fields("Subject").Area = DevExpress.XtraPivotGrid.PivotArea.DataArea
              control.Fields("AssignedTo.DisplayName").Area = DevExpress.XtraPivotGrid.PivotArea.RowArea
              PivotGridSettingsHelper.SavePivotGridSettings(CreatePivotGridSettingsStore(control), analysis)
          End If
      End Sub
  End Class
  

  The CreateAnalysisControl and CreatePivotGridSettingsStore methods are abstract because platform-specific controls should be created within them. So, the TaskAnalysisLayoutUpdaterBase class should be inherited in the WinForms and ASP.NET Web Forms modules.

• Implement a descendant of the TaskAnalysisLayoutUpdaterBase class in the WinForms module project and define the WinForms-specific Updater. Right-click the MySolution.Module.Win project and choose Add | New Folder. Set the new folder name to DatabaseUpdate. Right-click the DatabaseUpdate folder and choose Add | Class…. In the invoked Add New Item dialog, set the class name to “Updater” and click Add. Add the following code to the newly created Updater.cs (Updater.vb) file.

  C#

  using System;
  using DevExpress.Data.Filtering;
  using DevExpress.ExpressApp;
  using DevExpress.ExpressApp.PivotChart;
  using DevExpress.ExpressApp.PivotChart.Win;
  using DevExpress.ExpressApp.Updating;
  using DevExpress.Persistent.BaseImpl; //For XPO 
  using DevExpress.Persistent.BaseImpl.EF; //For EF 
  
  namespace MySolution.Module.Win.DatabaseUpdate {
      public class Updater : ModuleUpdater {
          public Updater(IObjectSpace objectSpace, Version currentDBVersion) : 
              base(objectSpace, currentDBVersion) { }
          public override void UpdateDatabaseAfterUpdateSchema() {
              base.UpdateDatabaseAfterUpdateSchema();
              new TaskAnalysisLayoutUpdater(ObjectSpace).Update(ObjectSpace.FirstOrDefault<Analysis>(analysis => analysis.Name == "Completed tasks"));
              ObjectSpace.CommitChanges();
          }
      }
      public class TaskAnalysisLayoutUpdater : 
              MySolution.Module.DatabaseUpdate.TaskAnalysisLayoutUpdaterBase {
          public TaskAnalysisLayoutUpdater(IObjectSpace objectSpace) : base(objectSpace) { }
          protected override IAnalysisControl CreateAnalysisControl() {
              return new AnalysisControlWin();
          }
          protected override DevExpress.Persistent.Base.IPivotGridSettingsStore 
                                        CreatePivotGridSettingsStore(IAnalysisControl control) {
              return new PivotGridControlSettingsStore(((AnalysisControlWin)control).PivotGrid);
          }
      }
  }
  

  VB.NET

  Imports System
  Imports DevExpress.Data.Filtering
  Imports DevExpress.ExpressApp
  Imports DevExpress.ExpressApp.PivotChart
  Imports DevExpress.ExpressApp.PivotChart.Win
  Imports DevExpress.ExpressApp.Updating
  Imports DevExpress.Persistent.BaseImpl 'For XPO 
  Imports DevExpress.Persistent.BaseImpl.EF 'For EF
  
  Public Class Updater
      Inherits ModuleUpdater
      Public Sub New(ByVal objectSpace As IObjectSpace, ByVal currentDBVersion As Version)
          MyBase.New(objectSpace, currentDBVersion)
      End Sub
      Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
          MyBase.UpdateDatabaseAfterUpdateSchema()
          CType(New TaskAnalysisLayoutUpdater(ObjectSpace), TaskAnalysisLayoutUpdater).Update(ObjectSpace.FirstOrDefault(Function(analysis as Analysis) analysis.Name = "Completed tasks"))
          ObjectSpace.CommitChanges()
      End Sub
  End Class
  Public Class TaskAnalysisLayoutUpdater
      Inherits TaskAnalysisLayoutUpdaterBase
      Public Sub New(ByVal objectSpace As IObjectSpace)
          MyBase.New(objectSpace)
      End Sub
      Protected Overrides Function CreateAnalysisControl() As IAnalysisControl
          Return New AnalysisControlWin()
      End Function
      Protected Overrides Function CreatePivotGridSettingsStore(ByVal control As IAnalysisControl) As DevExpress.Persistent.Base.IPivotGridSettingsStore
          Return New PivotGridControlSettingsStore((CType(control, AnalysisControlWin)).PivotGrid)
      End Function
  End Class
  

• Implement a descendant of the TaskAnalysisLayoutUpdaterBase class in the ASP.NET Web Forms module project and define the web-specific Updater. Right-click the MySolution.Module.Web project and select Add | New Folder. Set the new folder name to DatabaseUpdate. Right-click the DatabaseUpdate folder and choose Add | Class…. In the invoked Add New Item dialog, set the class name to “Updater” and click Add. Add the following code to the newly created Updater.cs (Updater.vb) file.

  C#

  using System;
  using DevExpress.Data.Filtering;
  using DevExpress.ExpressApp;
  using DevExpress.ExpressApp.PivotChart;
  using DevExpress.ExpressApp.PivotChart.Web;
  using DevExpress.ExpressApp.Updating;
  using DevExpress.Persistent.BaseImpl.EF;
  using MySolution.Module.BusinessObjects;
  using MySolution.Module.DatabaseUpdate;
  
  namespace MySolution.Module.Web.DatabaseUpdate {
      public class Updater : ModuleUpdater {
          public Updater(IObjectSpace objectSpace, Version currentDBVersion) : 
              base(objectSpace, currentDBVersion) { }
          public override void UpdateDatabaseAfterUpdateSchema() {
              base.UpdateDatabaseAfterUpdateSchema();
              new TaskAnalysisLayoutUpdater(ObjectSpace).Update(ObjectSpace.FirstOrDefault<Analysis>(analysis => analysis.Name == "Completed tasks"));
              ObjectSpace.CommitChanges();
          }
      }
      public class TaskAnalysisLayoutUpdater : 
          MySolution.Module.DatabaseUpdate.TaskAnalysisLayoutUpdaterBase {
          public TaskAnalysisLayoutUpdater(IObjectSpace objectSpace) : base(objectSpace) { }
          protected override IAnalysisControl CreateAnalysisControl() {
              return new AnalysisControlWeb();
          }
          protected override DevExpress.Persistent.Base.IPivotGridSettingsStore 
                  CreatePivotGridSettingsStore(IAnalysisControl control) {
              return new ASPxPivotGridSettingsStore(((AnalysisControlWeb)control).PivotGrid);
          }
      }
  }
  

  VB.NET

  Imports System
  Imports DevExpress.Data.Filtering
  Imports DevExpress.ExpressApp
  Imports DevExpress.ExpressApp.PivotChart
  Imports DevExpress.ExpressApp.PivotChart.Web
  Imports DevExpress.ExpressApp.Updating
  Imports DevExpress.Persistent.BaseImpl.EF
  
  Public Class Updater
      Inherits ModuleUpdater
      Public Sub New(ByVal objectSpace As IObjectSpace, ByVal currentDBVersion As Version)
          MyBase.New(objectSpace, currentDBVersion)
      End Sub
      Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
          MyBase.UpdateDatabaseAfterUpdateSchema()
          CType(New TaskAnalysisLayoutUpdater(ObjectSpace), TaskAnalysisLayoutUpdater) _
                .Update(ObjectSpace.FirstOrDefault(Function(analysis as Analysis) analysis.Name = "Completed tasks"))
          ObjectSpace.CommitChanges()
      End Sub
  End Class
  Public Class TaskAnalysisLayoutUpdater
      Inherits TaskAnalysisLayoutUpdaterBase
      Public Sub New(ByVal objectSpace As IObjectSpace)
          MyBase.New(objectSpace)
      End Sub
      Protected Overrides Function CreateAnalysisControl() As IAnalysisControl
          Return New AnalysisControlWeb()
      End Function
      Protected Overrides Function CreatePivotGridSettingsStore(ByVal control As IAnalysisControl) _
                                             As DevExpress.Persistent.Base.IPivotGridSettingsStore
          Return New ASPxPivotGridSettingsStore((CType(control, AnalysisControlWeb)).PivotGrid)
      End Function
  End Class
  

  When the application is loading, the specified pivot grid configuration for the “Completed tasks” analysis will be saved if the analysis is found in the database.

• To register the created Updater classes, rewrite the GetModuleUpdaters method implementation in both the WinForms and ASP.NET Web Forms modules (WinModule.cs and WebModule.cs, or WinModule.vb and WebModule.vb) as follows.

  C#

  public override IEnumerable<ModuleUpdater> GetModuleUpdaters(
  IObjectSpace objectSpace, Version versionFromDB) {
      ModuleUpdater updater = new DatabaseUpdate.Updater(objectSpace, versionFromDB);
      return new ModuleUpdater[] { updater };
  }
  

  VB.NET

  Public Overrides Function GetModuleUpdaters(ByVal objectSpace As IObjectSpace, ByVal versionFromDB As Version) As IEnumerable(Of ModuleUpdater)
      Dim updater As ModuleUpdater = New Updater(objectSpace, versionFromDB)
      Return New ModuleUpdater() { updater }
  End Function
  

• Now, if you run the WinForms or ASP.NET Web Forms application, invoke the automatically created “Completed tasks” analysis and click the Bind Analysis Data button (). You will see that the pivot grid fields are automatically configured.