114 lines
4.8 KiB
VB.net
114 lines
4.8 KiB
VB.net
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Security
|
|
Imports DevExpress.ExpressApp.Win
|
|
|
|
Imports Nuvolar.Module.Win
|
|
Imports DevExpress.Persistent.AuditTrail
|
|
|
|
|
|
Imports Nuvolar.Module
|
|
'Itt egy kommit Transfer branch
|
|
Friend NotInheritable Class Program
|
|
Private Sub New()
|
|
End Sub
|
|
<STAThread()> _
|
|
Public Shared Sub Main(ByVal arguments() As String)
|
|
#If EASYTEST Then
|
|
DevExpress.ExpressApp.EasyTest.WinAdapter.RemotingRegistration.Register(4100)
|
|
#End If
|
|
|
|
Application.EnableVisualStyles()
|
|
Application.SetCompatibleTextRenderingDefault(False)
|
|
EditModelPermission.AlwaysGranted = System.Diagnostics.Debugger.IsAttached
|
|
|
|
'-- Eredeti kód
|
|
'Dim _application As NuvolarWindowsFormsApplication_DB = New NuvolarWindowsFormsApplication_DB()
|
|
|
|
'If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then
|
|
' _application.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString
|
|
'End If
|
|
'If System.Diagnostics.Debugger.IsAttached Then
|
|
' _application.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways
|
|
'End If
|
|
'Try
|
|
' Dim timeStampStrategy As IAuditTimestampStrategy = New Nuvolar.Module.TimeStamp
|
|
' AuditTrailService.Instance.TimestampStrategy = timeStampStrategy
|
|
|
|
' _application.Setup()
|
|
' _application.Start()
|
|
'Catch e As Exception
|
|
' _application.HandleException(e)
|
|
'End Try
|
|
|
|
'-- Új kód
|
|
Do
|
|
Dim winApplication As NuvolarWindowsFormsApplication
|
|
If LogOnDB.NewApplication Is Nothing Then
|
|
winApplication = NuvolarWindowsFormsApplication.CreateApplication()
|
|
Else
|
|
winApplication = CType(LogOnDB.NewApplication, NuvolarWindowsFormsApplication)
|
|
LogOnDB.NewApplication = Nothing
|
|
End If
|
|
Try
|
|
AddHandler AuditTrailService.Instance.SaveAuditTrailData, AddressOf Instance_SaveAuditTrailData
|
|
AddHandler winApplication.CreateCustomUserModelDifferenceStore, AddressOf winApplication_CreateCustomUserModelDifferenceStore
|
|
AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting
|
|
AddHandler winApplication.CustomHandleException, AddressOf winApplication_CustomHandleException
|
|
winApplication.DelayedViewItemsInitialization = True
|
|
winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen
|
|
|
|
AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.CreationOnly
|
|
|
|
winApplication.Setup()
|
|
winApplication.Start()
|
|
If WinChangeDatabaseHelper.AuthenticatedUserLogonFailed Then
|
|
WinChangeDatabaseHelper.SkipLogonDialog = False
|
|
winApplication.Start()
|
|
End If
|
|
Catch e As Exception
|
|
winApplication.HandleException(e)
|
|
End Try
|
|
winApplication.Dispose()
|
|
Loop While LogOnDB.NewApplication IsNot Nothing
|
|
'-- Új kód vége
|
|
End Sub
|
|
Shared Sub winApplication_CreateCustomUserModelDifferenceStore(ByVal sender As Object, ByVal e As CreateCustomModelDifferenceStoreEventArgs)
|
|
Dim userDiffs As New UserStore(CType(sender, WinApplication))
|
|
e.Store = userDiffs
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Shared Sub Instance_SaveAuditTrailData(sender As Object, e As SaveAuditTrailDataEventArgs)
|
|
' TESZT MIATT !!!
|
|
e.Handled = True
|
|
'If GLOBAL_HAS_Audit = False Then
|
|
'e.Handled = True
|
|
'End If
|
|
End Sub
|
|
Shared Sub winApplication_LastLogonParametersWriting(ByVal sender As Object, ByVal e As LastLogonParametersWritingEventArgs)
|
|
'If (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName <> "SysAdmin" Then
|
|
e.SettingsStorage.SaveOption("", "UserName", (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName)
|
|
e.SettingsStorage.SaveOption("", "DBConnection", GLOBAL_SQLDatabase)
|
|
e.SettingsStorage.SaveOption("", "SQLServer", GLOBAL_SQLServer)
|
|
Select Case GLOBAL_SQLType
|
|
Case eSQLType.MSSQL
|
|
e.SettingsStorage.SaveOption("", "SQLType", "MSSQL")
|
|
Case eSQLType.MySQL
|
|
e.SettingsStorage.SaveOption("", "SQLType", "MySQL")
|
|
Case eSQLType.PostgreSQL
|
|
e.SettingsStorage.SaveOption("", "SQLType", "PostgreSQL")
|
|
End Select
|
|
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Shared Sub winApplication_CustomHandleException(sender As Object, e As CustomHandleExceptionEventArgs)
|
|
'// Egyéni hiba kezelés !!!
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
|