First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,136 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections.Generic
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.Win
+Imports DevExpress.ExpressApp.Updating
+Imports DevExpress.ExpressApp
+Imports System.Configuration
+Imports DevExpress.ExpressApp.Security
+Imports Nuvolar.Module
+Imports DevExpress.Persistent.BaseImpl
+Imports Nuvolar.Module.Win
+Imports DevExpress.Xpo
+Imports DevExpress.Xpo.DB
+Partial Public Class NuvolarWindowsFormsApplication
+    Inherits WinApplication
+    Implements IApplicationFactory
+    Friend WithEvents SystemModule1 As DevExpress.ExpressApp.SystemModule.SystemModule
+    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.SettingsStorageOnString).Values("\DBConnection")
+                TryCast(logonObject, ChangeLogon).SQLServer = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\SQLServer")
+                Select Case TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\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)
+        MyBase.OnLoggingOn(args)
+
+        Dim _connectionString As String
+        Dim _ChangeLogon As ChangeLogon
+        Dim _plattform As String = ""
+
+        _ChangeLogon = TryCast(args.LogonParameters, ChangeLogon)
+
+        GLOBAL_SQLType = _ChangeLogon.SQLType
+        GLOBAL_SQLServer = _ChangeLogon.SQLServer
+        GLOBAL_SQLDatabase = _ChangeLogon.DBConnection
+
+
+        Select Case _ChangeLogon.SQLType
+            Case eSQLType.MSSQL
+                Select Case _ChangeLogon.SQLServer
+                    Case "192.168.1.75"
+                        _connectionString = " User ID=sa; "
+                        _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName))
+                        _connectionString &= " Password=M1cr0s0ft!;"
+                        _connectionString &= " Pooling=false;"
+                        _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
+                        _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
+                        _plattform = "MS SQL"
+                        GLOBAL_SQLUser = "sa"
+                        GLOBAL_SQLPassword = "M1cr0s0ft!"
+                    Case Else
+                        _connectionString = " User ID=sa; "
+                        _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName))
+                        _connectionString &= " Password=pcl718;"
+                        _connectionString &= " Pooling=false;"
+                        _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
+                        _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
+                        _plattform = "MS SQL"
+                        GLOBAL_SQLUser = "sa"
+                        GLOBAL_SQLPassword = "pcl718"
+                End Select
+
+            Case eSQLType.MySQL
+                Select Case _ChangeLogon.SQLServer
+                    Case "84.1.95.74"
+                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection)
+                    Case "192.168.100.182"
+                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection)
+                    Case "81.183.209.96"
+                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection)
+                    Case "localhost"
+                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection)
+                    Case Else
+                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection)
+
+                End Select
+                _plattform = "MySQL"
+                GLOBAL_SQLUser = "root"
+                GLOBAL_SQLPassword = "pcl718"
+            Case eSQLType.PostgreSQL
+                _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection)
+                _plattform = "postgreSQL"
+            Case Else
+                _connectionString = " User ID=sa; "
+                _connectionString &= " Password=pcl718;"
+                _connectionString &= " Pooling=false;"
+                _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
+                _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
+                GLOBAL_SQLUser = "sa"
+                GLOBAL_SQLPassword = "pcl718"
+        End Select
+
+        Dim anm As System.Reflection.AssemblyName = System.Reflection.AssemblyName.GetAssemblyName(Application.StartupPath & "\Nuvolar.Module.dll")
+
+        Me.ConnectionString = _connectionString
+
+        GLOBAL_MainModuleVersion = anm.Version.ToString
+        GLOBAL_ConnectionString = _connectionString
+        GLOBAL_WINFormCaption = String.Format("Nuvolar Framework version: {0} [{1}]", Application.ProductVersion, anm.Version)
+        GLOBAL_WINFormCaption += String.Format(", ({0}) Server: {1}, Database: {2}", _plattform, UCase(_ChangeLogon.SQLServer), UCase(_ChangeLogon.DBConnection))
+        GLOBAL_ApplicationStartupPath = Application.StartupPath & "\"
+    End Sub
+    Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean
+        If WinChangeDatabaseHelper.SkipLogonDialog Then
+            Return True
+        End If
+        Return MyBase.OnLogonFailed(logonParameters, e)
+    End Function
+    Public Shared Function CreateApplication() As NuvolarWindowsFormsApplication
+        Dim winApplication As New NuvolarWindowsFormsApplication
+
+        CType(winApplication.Security, SecurityBase).Authentication = New WinChangeDatabaseStandardAuthentication()
+        Return winApplication
+    End Function
+    Private Function IApplicationFactory_CreateApplication() As WinApplication Implements IApplicationFactory.CreateApplication
+        Return CreateApplication()
+    End Function
+    Protected Overrides Function GetModelAssemblyFilePath() As String
+        Return Nothing
+    End Function
+End Class
+