MS

app/DD-Record-Organiser/frmMain.vb

@@ -23,27 +23,29 @@ Public Class frmMain
             LabelUser.Caption = Environment.UserName
             LabelMachine.Caption = My.Computer.Name
 
-            SetBackground()
-
-            Dim splash As New frmSplash()
-            splash.ShowDialog()
-
-            If USER_IS_ADMIN = True Then
-                pageAdmin.Visible = True
-            End If
-
-            LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
-
-            'LoadMenuItems()
-            LoadMenuItems2()
-            LoadQuickStartItems()
-            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
-            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+            Load_Connection_Dep_Data()
         Catch ex As Exception
             MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+    Sub Load_Connection_Dep_Data()
+        SetBackground()
 
+        Dim splash As New frmSplash()
+        splash.ShowDialog()
+
+        If USER_IS_ADMIN = True Then
+            pageAdmin.Visible = True
+        End If
+
+        LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
+
+        'LoadMenuItems()
+        LoadMenuItems2()
+        LoadQuickStartItems()
+        VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+        VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+    End Sub
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
             Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
@@ -305,11 +307,6 @@ Public Class frmMain
         OpenFormOverview()
         Cursor = Cursors.Default
     End Sub
-
-    Private Sub DaenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs)
-        frmConfig_Basic.ShowDialog()
-    End Sub
-
     Private Sub KalenderToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Cursor = Cursors.WaitCursor
         OpenFormCalendar()
@@ -438,6 +435,9 @@ Public Class frmMain
 
     Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick
         frmConfig_Basic.ShowDialog()
+        If CONNECTION_CHANGED = True Then
+            Load_Connection_Dep_Data()
+        End If
     End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick