Reconfigure for GIT
This commit is contained in:
@@ -0,0 +1,91 @@
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Security
|
||||
|
||||
Imports DevExpress.Persistent.AuditTrail
|
||||
Imports Microsoft.VisualBasic
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Imports DevExpress.ExpressApp.Model.Core
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports SISBusiness.Module
|
||||
Imports DevExpress.ExpressApp.Web
|
||||
|
||||
Public Class UserStore
|
||||
Inherits ModelDifferenceStore
|
||||
Private Shared ReadOnly xmlHeader As String = "<?xml version=""1.0"" encoding=""utf-8""?>" & System.Environment.NewLine
|
||||
Private application As WebApplication
|
||||
|
||||
Public Overrides ReadOnly Property Name() As String
|
||||
Get
|
||||
Return "UserStore"
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal WebApplication As WebApplication)
|
||||
application = WebApplication
|
||||
End Sub
|
||||
|
||||
Private Function FindStoreByAspect(ByVal stores As XPCollection(Of XmlStore), ByVal aspect As String) As XmlStore
|
||||
For Each store As XmlStore In stores
|
||||
If store.Aspect = aspect Then
|
||||
Return store
|
||||
End If
|
||||
Next store
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Private Function FindXmlUserByCurrentUser() As XmlUser
|
||||
Dim objectSpace As IObjectSpace = application.CreateObjectSpace()
|
||||
Dim currentUser As DevExpress.Persistent.BaseImpl.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User))
|
||||
Dim user As XmlUser = Nothing
|
||||
Try
|
||||
user = objectSpace.FindObject(Of XmlUser)(CriteriaOperator.Parse("User=?", currentUser), True)
|
||||
Catch
|
||||
End Try
|
||||
Return user
|
||||
End Function
|
||||
|
||||
Public Overrides Sub Load(ByVal model As ModelApplicationBase)
|
||||
Dim xmlReader As New ModelXmlReader()
|
||||
Dim user As XmlUser = FindXmlUserByCurrentUser()
|
||||
If user IsNot Nothing Then
|
||||
For Each store As XmlStore In user.Aspects
|
||||
xmlReader.ReadFromString(model, store.Aspect, store.XmlData)
|
||||
Next store
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub SaveDifference(ByVal model As ModelApplicationBase)
|
||||
Dim objectSpace As IObjectSpace = application.CreateObjectSpace()
|
||||
Dim user As XmlUser = objectSpace.GetObject(FindXmlUserByCurrentUser())
|
||||
If user Is Nothing Then
|
||||
user = New XmlUser(TryCast(objectSpace, Xpo.XPObjectSpace).Session)
|
||||
user.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User))
|
||||
End If
|
||||
For i As Integer = 0 To model.AspectCount - 1
|
||||
Dim xmlWriter As New ModelXmlWriter()
|
||||
Dim aspect As String = model.GetAspect(i)
|
||||
Dim xmlContent As String = xmlWriter.WriteToString(model, i)
|
||||
If (Not String.IsNullOrEmpty(xmlContent)) Then
|
||||
Dim store As XmlStore = FindStoreByAspect(user.Aspects, aspect)
|
||||
If store Is Nothing Then
|
||||
store = New XmlStore(TryCast(objectSpace, Xpo.XPObjectSpace).Session)
|
||||
End If
|
||||
store.User = user
|
||||
store.Aspect = aspect
|
||||
store.XmlData = xmlHeader & xmlContent
|
||||
End If
|
||||
Next i
|
||||
objectSpace.CommitChanges()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,199 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Collections.Generic
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.Web
|
||||
Imports DevExpress.ExpressApp.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Partial Public Class SISBusinessAspNetApplication
|
||||
Inherits WebApplication
|
||||
Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule
|
||||
Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule
|
||||
Private module3 As SISBusiness.Module.SISBusinessModule
|
||||
Private module4 As SISBusiness.Module.Web.SISBusinessAspNetModule
|
||||
Private module5 As DevExpress.ExpressApp.Validation.ValidationModule
|
||||
Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule
|
||||
Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule
|
||||
Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule
|
||||
Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule
|
||||
Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule
|
||||
Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule
|
||||
Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard
|
||||
Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex
|
||||
Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule
|
||||
Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule
|
||||
Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule
|
||||
Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule
|
||||
Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule
|
||||
Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule
|
||||
Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase
|
||||
Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule
|
||||
Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule
|
||||
Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule
|
||||
Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule
|
||||
Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule
|
||||
Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase
|
||||
Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule
|
||||
Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase
|
||||
|
||||
Private sqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
|
||||
Private Sub SISBusinessAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch
|
||||
#If EASYTEST Then
|
||||
e.Updater.Update()
|
||||
e.Handled = True
|
||||
#Else
|
||||
If System.Diagnostics.Debugger.IsAttached Then
|
||||
e.Updater.Update()
|
||||
e.Handled = True
|
||||
Else
|
||||
Throw New InvalidOperationException( _
|
||||
"The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _
|
||||
"This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _
|
||||
"To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _
|
||||
"source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _
|
||||
"or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _
|
||||
"Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _
|
||||
"for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/")
|
||||
End If
|
||||
#End If
|
||||
End Sub
|
||||
Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs)
|
||||
args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection)
|
||||
End Sub
|
||||
Private Sub InitializeComponent()
|
||||
Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule()
|
||||
Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule()
|
||||
Me.module3 = New SISBusiness.[Module].SISBusinessModule()
|
||||
Me.module4 = New SISBusiness.[Module].Web.SISBusinessAspNetModule()
|
||||
Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule()
|
||||
Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule()
|
||||
Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule()
|
||||
Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule()
|
||||
Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule()
|
||||
Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule()
|
||||
Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule()
|
||||
Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard()
|
||||
Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex()
|
||||
Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule()
|
||||
Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule()
|
||||
Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule()
|
||||
Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule()
|
||||
Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule()
|
||||
Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule()
|
||||
Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase()
|
||||
Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule()
|
||||
Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule()
|
||||
Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule()
|
||||
Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule()
|
||||
Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule()
|
||||
Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase()
|
||||
Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule()
|
||||
Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'module5
|
||||
'
|
||||
Me.module5.AllowValidationDetailsAccess = True
|
||||
'
|
||||
'sqlConnection1
|
||||
'
|
||||
Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISBusiness;Integrated Security=SSPI;Pooling=" & _
|
||||
"false"
|
||||
Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False
|
||||
'
|
||||
'AuditTrailModule1
|
||||
'
|
||||
Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent)
|
||||
'
|
||||
'ViewVariantsModule1
|
||||
'
|
||||
Me.ViewVariantsModule1.GenerateVariantsNode = True
|
||||
Me.ViewVariantsModule1.ShowAdditionalNavigation = False
|
||||
'
|
||||
'AuthenticationStandard1
|
||||
'
|
||||
'Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters)
|
||||
Me.AuthenticationStandard1.LogonParametersType = GetType(SISBusiness.Module.ChangeLogon)
|
||||
'
|
||||
'SecurityComplex1
|
||||
'
|
||||
Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1
|
||||
Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role)
|
||||
Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User)
|
||||
'
|
||||
'PivotChartModuleBase1
|
||||
'
|
||||
Me.PivotChartModuleBase1.ShowAdditionalNavigation = False
|
||||
'
|
||||
'ReportsModule1
|
||||
'
|
||||
Me.ReportsModule1.EnableInplaceReports = True
|
||||
Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData)
|
||||
'
|
||||
'SISBusinessAspNetApplication
|
||||
'
|
||||
Me.ApplicationName = "SISBusiness"
|
||||
Me.Connection = Me.sqlConnection1
|
||||
Me.Modules.Add(Me.module1)
|
||||
Me.Modules.Add(Me.module2)
|
||||
Me.Modules.Add(Me.module6)
|
||||
Me.Modules.Add(Me.AuditTrailModule1)
|
||||
Me.Modules.Add(Me.CloneObjectModule1)
|
||||
Me.Modules.Add(Me.ConditionalAppearanceModule1)
|
||||
Me.Modules.Add(Me.module5)
|
||||
Me.Modules.Add(Me.ViewVariantsModule1)
|
||||
Me.Modules.Add(Me.securityModule1)
|
||||
Me.Modules.Add(Me.module3)
|
||||
Me.Modules.Add(Me.ChartModule1)
|
||||
Me.Modules.Add(Me.ChartAspNetModule1)
|
||||
Me.Modules.Add(Me.FileAttachmentsAspNetModule1)
|
||||
Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1)
|
||||
Me.Modules.Add(Me.KpiModule1)
|
||||
Me.Modules.Add(Me.PivotChartModuleBase1)
|
||||
Me.Modules.Add(Me.PivotChartAspNetModule1)
|
||||
Me.Modules.Add(Me.PivotGridModule1)
|
||||
Me.Modules.Add(Me.PivotGridAspNetModule1)
|
||||
Me.Modules.Add(Me.ReportsModule1)
|
||||
Me.Modules.Add(Me.ReportsAspNetModule1)
|
||||
Me.Modules.Add(Me.SchedulerModuleBase1)
|
||||
Me.Modules.Add(Me.SchedulerAspNetModule1)
|
||||
Me.Modules.Add(Me.module4)
|
||||
Me.Modules.Add(Me.TreeListEditorsModuleBase1)
|
||||
Me.Modules.Add(Me.TreeListEditorsAspNetModule1)
|
||||
Me.Security = Me.SecurityComplex1
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnLoggedOn(args As DevExpress.ExpressApp.LogonEventArgs)
|
||||
MyBase.OnLoggedOn(args)
|
||||
CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _
|
||||
DevExpress.ExpressApp.Editors.ViewEditMode.Edit
|
||||
|
||||
Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace()
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId))
|
||||
SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User)
|
||||
End Sub
|
||||
Protected Overrides Sub OnLoggingOff(args As LoggingOffEventArgs)
|
||||
|
||||
'Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace()
|
||||
'Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
'Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId))
|
||||
'SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User)
|
||||
|
||||
'MyBase.OnLoggingOff(args)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -0,0 +1,112 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Collections.Generic
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.Web
|
||||
Imports SISBusiness.Module.Web
|
||||
Imports System.Web
|
||||
Imports DevExpress.Xpo.DB.Helpers
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports SISBusiness.Module
|
||||
Imports System.Web.Security
|
||||
Imports DevExpress.Xpo.DB
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.Security
|
||||
|
||||
Partial Public Class SISBusinessAspNetApplication
|
||||
Inherits WebApplication
|
||||
Protected Overrides Sub ReadSecuredLogonParameters()
|
||||
MyBase.ReadSecuredLogonParameters() ' the "UserName" is restored in the base method.
|
||||
End Sub
|
||||
Private canReadSecuredLogonParameters_Renamed As Boolean = True
|
||||
Protected Overrides Function CanReadSecuredLogonParameters() As Boolean
|
||||
If (Not canReadSecuredLogonParameters_Renamed) Then
|
||||
Return False
|
||||
End If
|
||||
Return MyBase.CanReadSecuredLogonParameters()
|
||||
End Function
|
||||
Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean
|
||||
If CanReadSecuredLogonParameters() Then
|
||||
FormsAuthentication.SignOut()
|
||||
canReadSecuredLogonParameters_Renamed = False
|
||||
Try
|
||||
Start()
|
||||
Finally
|
||||
canReadSecuredLogonParameters_Renamed = True
|
||||
End Try
|
||||
Return True
|
||||
Else
|
||||
Return MyBase.OnLogonFailed(logonParameters, e)
|
||||
End If
|
||||
End Function
|
||||
Protected Overrides Sub ReadLastLogonParametersCore(ByVal storage As DevExpress.ExpressApp.Utils.SettingsStorage, ByVal logonObject As Object)
|
||||
Dim standardLogonParameters As AuthenticationStandardLogonParameters = TryCast(logonObject, AuthenticationStandardLogonParameters)
|
||||
If (standardLogonParameters IsNot Nothing) AndAlso String.IsNullOrEmpty(standardLogonParameters.UserName) Then
|
||||
MyBase.ReadLastLogonParametersCore(storage, logonObject)
|
||||
Try
|
||||
TryCast(logonObject, ChangeLogon).DBConnection = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "DBConnection")
|
||||
TryCast(logonObject, ChangeLogon).SQLServer = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "SQLServer")
|
||||
Select Case TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "SQLType")
|
||||
Case "MSSQL"
|
||||
TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MSSQL
|
||||
Case "PostgreSQL"
|
||||
TryCast(logonObject, ChangeLogon).SQLType = eSQLType.PostgreSQL
|
||||
Case "MySQL"
|
||||
TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MySQL
|
||||
End Select
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnLoggingOn(ByVal args As LogonEventArgs)
|
||||
Dim connstr As String
|
||||
Dim _ChangeLogon As ChangeLogon
|
||||
Dim _plattform As String = ""
|
||||
MyBase.OnLoggingOn(args)
|
||||
_ChangeLogon = TryCast(args.LogonParameters, ChangeLogon)
|
||||
|
||||
GLOBAL_SQLType = _ChangeLogon.SQLType
|
||||
GLOBAL_SQLServer = _ChangeLogon.SQLServer
|
||||
GLOBAL_SQLDatabase = _ChangeLogon.DBConnection
|
||||
|
||||
Select Case _ChangeLogon.SQLType
|
||||
Case eSQLType.MSSQL
|
||||
connstr = " User ID=sa; "
|
||||
connstr &= " Password=pcl718;"
|
||||
connstr &= " Pooling=false;"
|
||||
connstr &= " Data Source=" & _ChangeLogon.SQLServer & ";"
|
||||
connstr &= " Initial Catalog=" & _ChangeLogon.DBConnection
|
||||
_plattform = "MS SQL"
|
||||
GLOBAL_SQLUser = "sa"
|
||||
GLOBAL_SQLPassword = "pcl718"
|
||||
Case eSQLType.MySQL
|
||||
connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection)
|
||||
_plattform = "MySQL"
|
||||
GLOBAL_SQLUser = "root"
|
||||
GLOBAL_SQLPassword = "pcl718"
|
||||
Case eSQLType.PostgreSQL
|
||||
connstr = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection)
|
||||
_plattform = "postgreSQL"
|
||||
GLOBAL_SQLUser = "root"
|
||||
GLOBAL_SQLPassword = "pcl718"
|
||||
Case Else
|
||||
connstr = " User ID=sa; "
|
||||
connstr &= " Password=pcl718;"
|
||||
connstr &= " Pooling=false;"
|
||||
connstr &= " Data Source=" & _ChangeLogon.SQLServer & ";"
|
||||
connstr &= " Initial Catalog=" & _ChangeLogon.DBConnection
|
||||
GLOBAL_SQLUser = "sa"
|
||||
GLOBAL_SQLPassword = "pcl718"
|
||||
End Select
|
||||
|
||||
Me.ConnectionString = connstr
|
||||
'GLOBAL_ConnectionString = connstr
|
||||
'GLOBAL_WINFormCaption = "SISBusiness Framework version: " & Application.ProductVersion
|
||||
'GLOBAL_WINFormCaption += ", (" & _plattform & ") Server: " & UCase(_ChangeLogon.SQLServer) & ", Database: " & UCase(_ChangeLogon.DBConnection)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user