65 lines
2.6 KiB
VB.net
65 lines
2.6 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports DigitalData.Modules.Config
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmConfig
|
|
Public Property 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)
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
FormHelper = New FormHelper(pLogConfig)
|
|
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)
|
|
|
|
txtInputDir.EditValue = Config.InputDirectory
|
|
txtOutputDir.EditValue = Config.OutputDirectory
|
|
txtSchemaDir.EditValue = Config.SchemaDirectory
|
|
|
|
txtBaseURL.EditValue = Config.Webservice.BaseUrl
|
|
txtUsername.EditValue = Config.Webservice.Username
|
|
txtPassword.EditValue = Config.Webservice.Password
|
|
txtImportBasePath.EditValue = Config.Webservice.ImportBasePath
|
|
txtImportRelativePath.EditValue = Config.Webservice.ImportRelativePath
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Config.Webservice.BaseUrl = txtBaseURL.EditValue
|
|
Config.Webservice.Username = txtUsername.EditValue
|
|
Config.Webservice.Password = txtPassword.EditValue
|
|
Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
|
|
Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
|
|
|
|
Config.InputDirectory = txtInputDir.EditValue
|
|
Config.OutputDirectory = txtOutputDir.EditValue
|
|
Config.SchemaDirectory = txtSchemaDir.EditValue
|
|
|
|
ConfigManager.Save()
|
|
|
|
Try
|
|
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 |