/
Module.vb
41 lines (40 loc) · 1.67 KB
/
Module.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.Linq
Imports DevExpress.ExpressApp
Imports System.ComponentModel
Imports DevExpress.ExpressApp.DC
Imports System.Collections.Generic
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Updating
Imports DevExpress.ExpressApp.Model.Core
Imports DevExpress.ExpressApp.Model.DomainLogics
Imports DevExpress.ExpressApp.Model.NodeGenerators
Imports DevExpress.ExpressApp.Xpo
Namespace CustomFileDataSolution.Module
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppModuleBasetopic.
Public NotInheritable Partial Class CustomFileDataSolutionModule
Inherits ModuleBase
Public Sub New()
InitializeComponent()
BaseObject.OidInitializationMode = OidInitializationMode.AfterConstruction
End Sub
Public Overrides Function GetModuleUpdaters(ByVal objectSpace As IObjectSpace, ByVal versionFromDB As Version) As IEnumerable(Of ModuleUpdater)
Dim updater As ModuleUpdater = New DatabaseUpdate.Updater(objectSpace, versionFromDB)
Return New ModuleUpdater() { updater }
End Function
Public Overrides Sub Setup(ByVal application As XafApplication)
MyBase.Setup(application)
' Manage various aspects of the application UI and behavior at the module level.
End Sub
Public Overrides Sub CustomizeTypesInfo(ByVal typesInfo As ITypesInfo)
MyBase.CustomizeTypesInfo(typesInfo)
CalculatedPersistentAliasHelper.CustomizeTypesInfo(typesInfo)
End Sub
End Class
End Namespace