xavehoo
/
XAF_how-to-prevent-altering-the-legacy-database-schema-when-creating-an-xaf-application-e1150
Public
forked from DevExpress-Examples/xaf-how-to-prevent-altering-the-legacy-database-schema-when-creating-an-xaf-application
-
Notifications
You must be signed in to change notification settings - Fork 0
/
XpoDataStoreProxyProvider.vb
50 lines (47 loc) · 2.18 KB
/
XpoDataStoreProxyProvider.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
42
43
44
45
46
47
48
49
50
Imports System
Imports DevExpress.Xpo.Metadata
Imports DevExpress.ExpressApp.Xpo
Namespace WinWebSolution.Module
Public Class XpoDataStoreProxyProvider
Implements IXpoDataStoreProvider
Private proxy As XpoDataStoreProxy
Public Sub New()
proxy = New XpoDataStoreProxy()
End Sub
Public Function CreateUpdatingStore(ByVal allowUpdateSchema As Boolean, <System.Runtime.InteropServices.Out()> ByRef disposableObjects() As IDisposable) As DevExpress.Xpo.DB.IDataStore Implements IXpoDataStoreProvider.CreateUpdatingStore
disposableObjects = Nothing
Return proxy
End Function
Public Function CreateWorkingStore(<System.Runtime.InteropServices.Out()> ByRef disposableObjects() As IDisposable) As DevExpress.Xpo.DB.IDataStore Implements IXpoDataStoreProvider.CreateWorkingStore
disposableObjects = Nothing
Return proxy
End Function
Public Function CreateSchemaCheckingStore(<System.Runtime.InteropServices.Out()> ByRef disposableObjects() As IDisposable) As DevExpress.Xpo.DB.IDataStore Implements IXpoDataStoreProvider.CreateSchemaCheckingStore
disposableObjects = Nothing
Return proxy
End Function
Public ReadOnly Property XPDictionary() As XPDictionary
Get
Return Nothing
End Get
End Property
Public ReadOnly Property ConnectionString() As String Implements IXpoDataStoreProvider.ConnectionString
Get
Return Nothing
End Get
End Property
Private privateIsInitialized As Boolean
Public Property IsInitialized() As Boolean
Get
Return privateIsInitialized
End Get
Private Set(ByVal value As Boolean)
privateIsInitialized = value
End Set
End Property
Public Sub Initialize(ByVal dictionary As XPDictionary, ByVal legacyConnectionString As String, ByVal tempConnectionString As String)
proxy.Initialize(dictionary, legacyConnectionString, tempConnectionString)
IsInitialized = True
End Sub
End Class
End Namespace