MS Änderungen an Clickhandle Designer, Adding Controlfields SQLEditor

DD_PM_WINDREAM/frmFormDesigner.vb

@@ -26,18 +26,18 @@
         'Try
         If CURRENT_ProfilGUID > 0 Then
             Dim DT As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND (CTRL_TYPE <> 'LBL')", CURRENT_ProfilGUID), True)
-            gbx_CTRL.Visible = False
+            gbxControl.Visible = False
             For Each row As DataRow In DT.Rows
                 If row.Item("INDEX_NAME").GetType.ToString.ToLower = "system.dbnull" Or row.Item("INDEX_NAME").ToString = "" Then
                     MsgBox("Für das Control '" & row.Item("NAME") & "' wurde noch keine Indexdefintion hinterlegt!", MsgBoxStyle.Exclamation, "Unvollständige Konfiguration:")
                     e.Cancel = True
-                    gbx_CTRL.Visible = True
+                    gbxControl.Visible = True
                 End If
             Next
         End If
         If Application.OpenForms().OfType(Of frmControl_Detail).Any Then
-                frmControl_Detail.Close()
-            End If
+            frmControl_Detail.Close()
+        End If
         '            MessageBox.Show("Opened")
         'Catch ex As Exception
         '    MsgBox("Fehler bei FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
@@ -131,12 +131,19 @@
             Me.cmbIndex.Visible = False
             Me.INDEX_NAMETextBox.Visible = False
             If ID = 0 Then
+                If IsNothing(CURRENT_CONTROL.Tag) Then
+                    Dim ID_CTRL = GetControlGUID(CURRENT_CONTROL.Name)
+                    If ID_CTRL > 0 Then
+                        CURRENT_CONTROL.Tag = ID_CTRL
+                    End If
+                End If
                 CURRENT_CONTROL_ID = CURRENT_CONTROL.Tag
             Else
                 CURRENT_CONTROL_ID = ID
             End If
 
             If CURRENT_CONTROL_ID <> 0 Then
+                gbxControl.Enabled = True
                 TBPM_PROFILE_CONTROLSTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, CURRENT_CONTROL_ID)
                 Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
                 Dim dr As DataRow = dt.Rows(0)
@@ -170,6 +177,7 @@
 
                 End If
             Else
+                gbxControl.Enabled = False
                 tslblAenderungen.Visible = True
                 tslblAenderungen.Text = "Konte das aktuelle Control nicht wählen!!"
             End If
@@ -210,13 +218,18 @@
         Catch ex As Exception
             MsgBox("Fehler bei Controls_laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
         End Try
-      
+
     End Sub
     Private Sub DragDropButtons_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btncmb.MouseDown, btndtp.MouseDown, btnVektor.MouseDown,
             btnTabelle.MouseDown, btnCheckbox.MouseDown
         MouseIsDown = True
         CURRENT_CONTROL = Nothing
-        TBPM_PROFILE_CONTROLSBindingSource.Clear()
+        Try
+            TBPM_PROFILE_CONTROLSBindingSource.Clear()
+        Catch ex As Exception
+
+        End Try
+
     End Sub
 
 
@@ -606,15 +619,15 @@
         'Columns laden
         TBPM_CONTROL_TABLETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, table.Tag)
         Dim DT As DataTable = Me.DD_DMSLiteDataSet.TBPM_CONTROL_TABLE
-            If DT.Rows.Count > 0 Then
-                For Each Row As DataRow In DT.Rows
-                    Dim col As New DataGridViewTextBoxColumn
-                    col.HeaderText = Row.Item("SPALTEN_HEADER")
-                    col.Name = Row.Item("SPALTENNAME")
-                    col.Width = Row.Item("SPALTENBREITE")
-                    table.Columns.Add(col)
-                Next
-            End If
+        If DT.Rows.Count > 0 Then
+            For Each Row As DataRow In DT.Rows
+                Dim col As New DataGridViewTextBoxColumn
+                col.HeaderText = Row.Item("SPALTEN_HEADER")
+                col.Name = Row.Item("SPALTENNAME")
+                col.Width = Row.Item("SPALTENBREITE")
+                table.Columns.Add(col)
+            Next
+        End If
 
         ' table.AutoResizeColumns()
 
@@ -662,7 +675,7 @@
         Me.CheckBoxAuswahlliste.Visible = False
         Me.CHOICE_LISTTextBox.Visible = False
         Me.lblAuswahlliste.Visible = False
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         ' Me.pnlAuswahlliste.Enabled = False
 
         Me.READ_ONLYCheckBox.Visible = False
@@ -674,7 +687,7 @@
         CURRENT_CONTROL = sender
         Dim txt As TextBox = sender
         Set_Active_Color()
-        CURRENT_CONTROL = txt
+
 
         Load_indexe()
         Load_Control()
@@ -690,7 +703,7 @@
         Me.CHOICE_LISTTextBox.Visible = False
         Me.lblAuswahlliste.Visible = False
 
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         ' Me.pnlAuswahlliste.Enabled = False
 
         Me.READ_ONLYCheckBox.Visible = True
@@ -713,7 +726,7 @@
         Me.CheckBoxAuswahlliste.Visible = False
         Me.CHOICE_LISTTextBox.Visible = False
         Me.lblAuswahlliste.Visible = False
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         ' Me.pnlAuswahlliste.Enabled = False
         Me.READ_ONLYCheckBox.Visible = True
         Me.LOAD_IDX_VALUECheckBox.Visible = True
@@ -723,10 +736,7 @@
         Dim cmb As ComboBox = sender
 
         Set_Active_Color()
-        CURRENT_CONTROL = cmb
-
         Load_indexe()
-        Load_Control()
         Me.lblBeschriftung.Visible = False
         Me.CTRL_TEXTTextBox.Visible = False
         Me.lblIndex.Visible = True
@@ -735,7 +745,7 @@
         Me.rbVektor.Visible = True
         Me.CheckBoxAuswahlliste.Visible = True
         Me.VALIDATIONCheckBox.Visible = True
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         If CHOICE_LISTTextBox.Text <> "" Then
             CheckBoxAuswahlliste.Checked = True
         Else
@@ -745,6 +755,8 @@
         '  Me.pnlAuswahlliste.Enabled = True
         Me.READ_ONLYCheckBox.Visible = True
         Me.LOAD_IDX_VALUECheckBox.Visible = True
+        Load_Control()
+
     End Sub
     Public Sub OndtpClick(sender As System.Object, e As System.EventArgs)
 
@@ -762,7 +774,7 @@
 
         Me.CheckBoxAuswahlliste.Visible = False
         Me.VALIDATIONCheckBox.Visible = True
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         CHOICE_LISTTextBox.Visible = False
         ' Me.pnlAuswahlliste.Enabled = False
         Me.READ_ONLYCheckBox.Visible = True
@@ -793,14 +805,14 @@
         Me.lblIndex.Visible = True
         Me.cmbIndex.Visible = True
         Me.rbIndex.Visible = True
-       
+
         Me.CheckBoxAuswahlliste.Visible = False
         Me.CHOICE_LISTTextBox.Visible = False
         Me.lblAuswahlliste.Visible = False
 
         Me.VALIDATIONCheckBox.Visible = True
 
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         CHOICE_LISTTextBox.Visible = False
         'Me.pnlAuswahlliste.Enabled = False
         Me.READ_ONLYCheckBox.Visible = True
@@ -839,7 +851,7 @@
 
         Me.VALIDATIONCheckBox.Visible = True
 
-        gbx_CTRL.Visible = True
+        gbxControl.Visible = True
         ' Me.pnlAuswahlliste.Enabled = False
         Me.READ_ONLYCheckBox.Visible = True
         Me.LOAD_IDX_VALUECheckBox.Visible = True
@@ -990,7 +1002,7 @@
             Set_Active_Color()
             Load_Control()
 
-            gbx_CTRL.Visible = True
+            gbxControl.Visible = True
         End If
     End Sub
     Private Sub MovableCtrl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
@@ -1517,6 +1529,8 @@
 
             Load_Control(CURRENT_CONTROL_ID)
             TabControlEigenschaften.SelectedIndex = 2
+        Else
+            MsgBox("Please choose a control!", MsgBoxStyle.Information)
         End If
 
     End Sub