MS_11.12.2015

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -89,6 +89,14 @@
 
                 Dim constr = MyConnectionString
                 constr = constr.Replace(csb.Password, "XXXXX")
+                Try
+                    txtServer.Text = csb.DataSource
+                    txtUser.Text = csb.UserID
+                    cmbDatenbank.Text = csb.InitialCatalog
+                Catch ex As Exception
+
+                End Try
+
                 Me.txtActualConnection.Text = constr
                 chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
                 chkLogErrorsOnly.Checked = LogErrorsOnly
@@ -170,4 +178,11 @@
     Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         formloaded = True
     End Sub
+
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        Select Case TabControl1.SelectedIndex
+            Case 1
+
+        End Select
+    End Sub
 End Class