51 lines
2.0 KiB
VB.net
51 lines
2.0 KiB
VB.net
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)
|
|
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 |