Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,100 @@
+Imports DevExpress.DashboardCommon
+Imports DevExpress.DataAccess
+Imports DevExpress.DataAccess.ConnectionParameters
+Imports DevExpress.DataAccess.Sql
+
+Public Class DashboardViewerUserControl
+
+    Private _DashboardViewerInfo As String
+    Private _UserName As String
+    Private _Password As String
+    Private _Database As String
+    Private _SQLServer As String
+    Private _SQLType As eSQLType
+
+
+    Public ReadOnly Property DashboardViewer() As DevExpress.DashboardWin.DashboardViewer
+        Get
+            Return Me.DashboardViewer1
+        End Get
+    End Property
+    Public Property DashboardViewerInfo As String
+        Get
+            Return _DashboardViewerInfo
+        End Get
+        Set(value As String)
+            _DashboardViewerInfo = value
+        End Set
+    End Property
+    Public Property UserName As String
+        Get
+            Return _UserName
+        End Get
+        Set(value As String)
+            _UserName = value
+        End Set
+    End Property
+    Public Property Password As String
+        Get
+            Return _Password
+        End Get
+        Set(value As String)
+            _Password = value
+        End Set
+    End Property
+    Public Property Database As String
+        Get
+            Return _Database
+        End Get
+        Set(value As String)
+            _Database = value
+        End Set
+    End Property
+    Property SQLServer As String
+        Get
+            Return _SQLServer
+        End Get
+        Set(value As String)
+            _SQLServer = value
+        End Set
+    End Property
+    Public Property SQLType As eSQLType
+        Get
+            Return _SQLType
+        End Get
+        Set(value As eSQLType)
+            _SQLType = value
+        End Set
+    End Property
+
+    Private Sub DashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles DashboardViewer1.ConfigureDataConnection
+        Select Case Me.SQLType.ToString
+            Case "MySQL"
+                Dim _ConnectionParameters As New MySqlConnectionParameters
+
+                _ConnectionParameters.DatabaseName = Me.Database
+                _ConnectionParameters.UserName = Me.UserName
+                _ConnectionParameters.Password = Me.Password
+                _ConnectionParameters.ServerName = Me.SQLServer
+
+                e.ConnectionParameters = _ConnectionParameters
+            Case "PostgreSQL"
+                Dim _ConnectionParameters As New PostgreSqlConnectionParameters
+                _ConnectionParameters.DatabaseName = Me.Database
+                _ConnectionParameters.UserName = Me.UserName
+                _ConnectionParameters.Password = Me.Password
+                _ConnectionParameters.ServerName = Me.SQLServer
+
+                e.ConnectionParameters = _ConnectionParameters
+            Case "MSSQL"
+                Dim _ConnectionParameters As New MsSqlConnectionParameters
+                _ConnectionParameters.DatabaseName = Me.Database
+                _ConnectionParameters.UserName = Me.UserName
+                _ConnectionParameters.Password = Me.Password
+                _ConnectionParameters.ServerName = Me.SQLServer
+
+                e.ConnectionParameters = _ConnectionParameters
+        End Select
+    End Sub
+
+End Class