AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Migrate configuration from UserConfig to database

Browse Source
This commit is contained in:
Jonathan Jenne
2021-11-23 11:28:50 +01:00
parent ac50cf661b
commit cdff23b646
11 changed files with 132 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
MultiTool.Form/frmConfig.vb
View File

@@ -30,29 +30,19 @@ Public Class frmConfig
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
txtInputDir.EditValue = My.GeneralConfiguration.InputDirectory
txtOutputDir.EditValue = My.GeneralConfiguration.OutputDirectory
txtSchemaDir.EditValue = My.GeneralConfiguration.TemplateDirectory
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
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
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()