MS - 21.09

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -1,5 +1,5 @@
 Public Class frmConfig_Basic
-
+    Dim formloaded As Boolean = False
     Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
         Try
             Dim con As String
@@ -83,17 +83,38 @@
 
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Not MyConnectionString = String.Empty Then
-            Dim csb As New SqlClient.SqlConnectionStringBuilder
-            csb.ConnectionString = MyConnectionString
+            Try
+                Dim csb As New SqlClient.SqlConnectionStringBuilder
+                csb.ConnectionString = MyConnectionString
+
+                Dim constr = MyConnectionString
+                constr = constr.Replace(csb.Password, "XXXXX")
+                Me.txtActualConnection.Text = constr
+                chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
+                chkLogErrorsOnly.Checked = LogErrorsOnly
+                txtwdSearch_Count.Text = WDResultListCount
+                chkboxQuickMenue.Checked = Sett_ShowQuickMenue
+                CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
+                Dim sql As String = "SELECT GUID, FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR ORDER BY SEQUENCE_MENU"
+                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ConstructorForms - from Config")
+                If DT.Rows.Count > 0 Then
+                    cmbConstructor.Enabled = True
+                    cmbConstructor.DataSource = DT
+                    cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
+                    cmbConstructor.ValueMember = DT.Columns(0).ColumnName
+                    If Sett_ConstructorStart <> 0 Then
+                        cmbConstructor.SelectedValue = Sett_ConstructorStart
+                    End If
+
+                Else
+                    cmbConstructor.Enabled = False
+                End If
+            Catch ex As Exception
+                MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+           
+
 
-            Dim constr = MyConnectionString
-            constr = constr.Replace(csb.Password, "XXXXX")
-            Me.txtActualConnection.Text = constr
-            chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
-            chkLogErrorsOnly.Checked = LogErrorsOnly
-            txtwdSearch_Count.Text = WDResultListCount
-            chkboxQuickMenue.Checked = Sett_ShowQuickMenue
-            CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
         End If
     End Sub
 
@@ -135,4 +156,18 @@
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
         My.Settings.Save()
     End Sub
+
+    Private Sub cmbConstructor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConstructor.SelectedIndexChanged
+        If cmbConstructor.SelectedIndex <> -1 And formloaded = True Then
+            If Sett_ConstructorStart <> cmbConstructor.SelectedValue Then
+                Sett_ConstructorStart = cmbConstructor.SelectedValue
+                SaveMySettingsValue("Sett_ConstructorStart", Sett_ConstructorStart)
+            End If
+
+        End If
+    End Sub
+
+    Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        formloaded = True
+    End Sub
 End Class