Debranet GL projekt hozzáadása

2020-07-26 18:32:32 +02:00
parent 291939e03f
commit 4f84215aee
60 changed files with 5590 additions and 17 deletions
@@ -0,0 +1,115 @@
+
+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
+'6-hoz egy commit
+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 NuvolarWindowsFormsDebranetGL
+            If LogOnDB.NewApplication Is Nothing Then
+                winApplication = NuvolarWindowsFormsDebranetGL.CreateApplication()
+            Else
+                winApplication = CType(LogOnDB.NewApplication, NuvolarWindowsFormsDebranetGL)
+                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
+                winApplication.DatabaseUpdateMode = DatabaseUpdateMode.UpdateOldDatabase
+
+                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
+
+
+