Report, Dynamic SQL

MultiTool.Form/frmConfig.vb

@@ -4,7 +4,7 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 
 Public Class frmConfig
-    Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
+    Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
     Private ReadOnly FormHelper As FormHelper
 
     Private ReadOnly Property Config As MultiTool.Shared.Config
@@ -13,15 +13,17 @@ Public Class frmConfig
         End Get
     End Property
 
-    Public Sub New(pLogConfig As LogConfig)
+    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"
@@ -30,21 +32,15 @@ Public Class frmConfig
         TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
         TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS)
 
-        txtInputDir.EditValue = My.GeneralConfiguration.InputDirectory
-        txtOutputDir.EditValue = My.GeneralConfiguration.OutputDirectory
-        txtSchemaDir.EditValue = My.GeneralConfiguration.TemplateDirectory
-
-        txtBaseURL.EditValue = My.GeneralConfiguration.Webservice.BaseUrl
-        txtUsername.EditValue = My.GeneralConfiguration.Webservice.Username
-        txtPassword.EditValue = My.GeneralConfiguration.Webservice.Password
-        txtImportBasePath.EditValue = My.GeneralConfiguration.Webservice.ImportBasePath
-        txtImportRelativePath.EditValue = My.GeneralConfiguration.Webservice.ImportRelativePath
+        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