/
Updater.vb
39 lines (36 loc) · 1.36 KB
/
Updater.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
Imports System
Imports DevExpress.ExpressApp.Updating
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.Persistent.BaseImpl
Namespace WinSolution.Module
Public Class Updater
Inherits ModuleUpdater
Public Sub New(ByVal objectSpace As DevExpress.ExpressApp.IObjectSpace, ByVal currentDBVersion As Version)
MyBase.New(objectSpace, currentDBVersion)
End Sub
Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
MyBase.UpdateDatabaseAfterUpdateSchema()
Dim p1 As Person = ObjectSpace.CreateObject(Of Person)()
p1.FirstName="Person1"
Dim p2 As Person = ObjectSpace.CreateObject(Of Person)()
p2.FirstName = "Person2"
Dim pg As ProjectGroup = ObjectSpace.CreateObject(Of ProjectGroup)()
pg.Name = "ProjectGroup1"
pg.Person = p1
Dim pr As Project = ObjectSpace.CreateObject(Of Project)()
pr.Name = "Project1"
pr.Person = p1
pg.Projects.Add(pr)
Dim pa As ProjectArea = ObjectSpace.CreateObject(Of ProjectArea)()
pa.Name = "ProjectArea1"
pa.Person = p1
pr.ProjectAreas.Add(pa)
p1.Save()
p2.Save()
pa.Save()
pr.Save()
pg.Save()
End Sub
End Class
End Namespace