jj für MS 25.01.17

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -35,7 +35,7 @@ Public Class frmConfig_Basic
                     ClassDatabase.Init()
                 Else
                     ClassProxy.MyPROXYConnectionString = con
-                    clsDatabase.Init(MyConnectionString, ClassProxy.MyPROXYConnectionString)
+                    clsDatabase.Init(MyConnectionString, True)
                 End If
                 My.Settings.Save()
 
@@ -194,6 +194,7 @@ Public Class frmConfig_Basic
     Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
         LogErrorsOnly = chkLogErrorsOnly.Checked
         SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
+        clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
     End Sub
     Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
         Sett_ShowQuickMenue = chkboxQuickMenue.Checked
@@ -447,7 +448,7 @@ Public Class frmConfig_Basic
 
     Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
         If rbConn_Proxy.Checked Then
-            Refresh_Proxy()
+            Display_Proxy_String()
             Me.lblLinkedServer.Visible = True
             Me.txtLinkedServer.Visible = True
         Else
@@ -455,8 +456,8 @@ Public Class frmConfig_Basic
             Me.txtLinkedServer.Visible = False
         End If
     End Sub
-    Sub Refresh_Proxy()
-        If clsDatabase.DB_PROXY_INITIALIZED Then
+    Sub Display_Proxy_String()
+        If clsDatabase.DB_PROXY_INITIALIZED And ClassProxy.MyPROXYConnectionString <> String.Empty Then
             Dim csb As New SqlClient.SqlConnectionStringBuilder
             csb.ConnectionString = ClassProxy.MyPROXYConnectionString
 
@@ -513,14 +514,13 @@ Public Class frmConfig_Basic
     Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
         SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
         ClassProxy.MyPROXYConnectionString = ""
-        Refresh_Proxy()
+        clsDatabase.DB_PROXY_INITIALIZED = False
+        Me.txtActualConnection.Text = ""
         CONNECTION_CHANGED = True
     End Sub
 
     Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
         SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
         ClassProxy.MyLinkedServer = txtLinkedServer.Text
-
-
     End Sub
 End Class