Imports System.Data.SqlClient
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging

Public Class frmConfig
    Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
    Private ReadOnly FormHelper As FormHelper

    Private ReadOnly Property Config As MultiTool.Shared.Config
        Get
            Return ConfigManager?.Config
        End Get
    End Property

    Public Sub New(pLogConfig As LogConfig, pConfigManager As ConfigManager(Of MultiTool.Shared.Config))
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        FormHelper = New FormHelper(pLogConfig, Me)
        ConfigManager = pConfigManager
    End Sub

    Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
        Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With {
            .InitialCatalog = "DD_ECM"
        }

        TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
        TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS)

        TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
        TBEDI_XML_CONFIGTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_CONFIG)
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Try
            TBEDI_XML_CONFIGBindingSource.EndEdit()
            TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG)

            TBEDIXMLITEMSBindingSource.EndEdit()
            TBEDI_XML_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_ITEMS)
        Catch ex As Exception
            FormHelper.ShowError(ex, "Speichern der Konfiguration")
        End Try

    End Sub
End Class