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