MS
This commit is contained in:
@@ -3,6 +3,7 @@ Imports System.Globalization
|
||||
Imports DevExpress.LookAndFeel
|
||||
Imports DD_LIB_Standards
|
||||
Imports System.IO
|
||||
Imports DevExpress.XtraCharts.Native
|
||||
|
||||
Public Class frmConfig_Basic
|
||||
Private _Helper As New ClassHelper
|
||||
@@ -50,7 +51,9 @@ Public Class frmConfig_Basic
|
||||
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
|
||||
End If
|
||||
If rbConnDefault.Checked Then
|
||||
SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
|
||||
CONFIG.Config.ConnectionString = con
|
||||
CONFIG.Save(ForceAll:=True)
|
||||
' SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
|
||||
Else
|
||||
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
|
||||
End If
|
||||
@@ -193,7 +196,6 @@ Public Class frmConfig_Basic
|
||||
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
|
||||
LOGCONFIG.Debug = DEBUG
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||||
My.Settings.Save()
|
||||
|
||||
Reference in New Issue
Block a user