MS Administration ProfileGrid, Config Charts, LU Grid Add MEthod disappeared

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -14,7 +14,7 @@ Public Class frmAdministration
     Dim formloaded As Boolean
     Dim change_BindingSource As Boolean
     Private INSERT_ACTIVE As Boolean = False
-
+    Dim DT_CHART_CONFIG As DataTable
 
     Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         formloaded = False
@@ -255,11 +255,6 @@ Public Class frmAdministration
     End Sub
 
 
-
-
-
-
-
     Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs)
         ' wenn im Formular der OK-Button geklickt wurde
         If Me.FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
@@ -271,7 +266,7 @@ Public Class frmAdministration
     Private Sub ADDED_WHOLabel_Click(sender As System.Object, e As System.EventArgs)
 
     End Sub
-    Sub FillProfile_User(profileId As Integer)
+    Sub FillProfile_Zuordnung(profileId As Integer)
         Try
             If Not IsNothing(profileId) Then
                 TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
@@ -283,7 +278,7 @@ Public Class frmAdministration
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profilzuordnung:")
         End Try
     End Sub
 
@@ -292,7 +287,7 @@ Public Class frmAdministration
     End Sub
 
     Private Function GetCurrentProfileId() As Integer
-        Dim rowView As DataRowView = viewAvailableProfiles.GetFocusedRow()
+        Dim rowView As DataRowView = GridViewProfile.GetFocusedRow()
 
         If IsNothing(rowView) = False Then
             Dim profileId As Integer = rowView.Item("GUID")
@@ -302,20 +297,6 @@ Public Class frmAdministration
         End If
     End Function
 
-    Private Sub viewAvailableProfiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles viewAvailableProfiles.FocusedRowChanged
-        If TabControl1.SelectedIndex = 1 And formloaded Then
-            Try
-                Dim profileId As Integer = GetCurrentProfileId()
-
-                If Not IsNothing(profileId) Then
-                    FillProfile_User(profileId)
-                End If
-            Catch ex As Exception
-                LOGGER.Error(ex)
-                MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical)
-            End Try
-        End If
-    End Sub
     Private Sub gridAssignedUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedUsers.DragDrop
         Try
             Dim data As String = e.Data.GetData(DataFormats.Text)
@@ -323,7 +304,7 @@ Public Class frmAdministration
 
             Dim profileId = GetCurrentProfileId()
             TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
-            FillProfile_User(profileId)
+            FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
@@ -337,7 +318,7 @@ Public Class frmAdministration
 
             Dim profileId = GetCurrentProfileId()
             TBPROFILE_USERTableAdapter.CmdDelete(profileId, userId)
-            FillProfile_User(profileId)
+            FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:")
@@ -353,7 +334,7 @@ Public Class frmAdministration
 
             TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, USER_USERNAME)
             ' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
-            FillProfile_User(profileId)
+            FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
@@ -369,7 +350,7 @@ Public Class frmAdministration
 
             TBPROFILE_GROUPTableAdapter.CmdDelete(profileId, groupId)
             'TBPROFILE_USERTableAdapter.cmdDelete(userId)
-            FillProfile_User(profileId)
+            FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen einer Gruppe:")
@@ -405,6 +386,7 @@ Public Class frmAdministration
         TabControl1.SelectedIndex = 0
         formloaded = True
         RibbonPageGroup2.Enabled = False
+        RibbonPageGroup4.Enabled = False
     End Sub
 
 
@@ -425,6 +407,7 @@ Public Class frmAdministration
         Select Case tabctrl_Profilkonfig.SelectedIndex
             Case 0
                 RibbonPageGroup2.Enabled = False
+                RibbonPageGroup4.Enabled = False
             Case 1
                 CURRENT_OBJECTTYPE = cmbObjekttypen.Text
                 Refresh_Final_indexe()
@@ -436,18 +419,100 @@ Public Class frmAdministration
     Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 0
+                GridControl1.Enabled = True
                 RibbonPageGroup1.Enabled = True
 
             Case 1
+                GridControl1.Enabled = True
                 RibbonPageGroup1.Enabled = False
                 RibbonPageGroup2.Enabled = False
+                RibbonPageGroup4.Enabled = False
                 If PROFILGUIDTextBox.Text = String.Empty Then
                     MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical)
                 Else
-                    FillProfile_User(PROFILGUIDTextBox.Text)
+                    FillProfile_Zuordnung(PROFILGUIDTextBox.Text)
+                End If
+            Case 2
+                RibbonPageGroup1.Enabled = False
+                RibbonPageGroup2.Enabled = False
+                RibbonPageGroup4.Enabled = True
+                GridControl1.Enabled = False
+                Load_Chart_Konfig
+        End Select
+    End Sub
+    Sub Load_Chart_Konfig()
+        Try
+            Series1GUID.Text = ""
+            Series1Type.SelectedIndex = -1
+            Series1SQL.Tag = ""
+            Series1Argument.Text = ""
+            Series1Column.Text = ""
+            Series1Title.Text = ""
+            Series1Sequence.Value = 1
+            Series2GUID.Text = ""
+            Series2Type.SelectedIndex = -1
+            Series2SQL.Tag = Nothing
+            Series2Argument.Text = ""
+            Series2Column.Text = ""
+            Series2Title.Text = ""
+            Series2Sequence.Value = 1
+            Series3GUID.Text = ""
+            Series3Type.SelectedIndex = -1
+            Series3SQL.Tag = Nothing
+            Series3Argument.Text = ""
+            Series3Column.Text = ""
+            Series3Title.Text = ""
+            Series3Sequence.Value = 1
+            Series4GUID.Text = ""
+            Series4Type.SelectedIndex = -1
+            Series4SQL.Tag = Nothing
+            Series4Argument.Text = ""
+            Series4Column.Text = ""
+            Series4Title.Text = ""
+            Series4Sequence.Value = 1
+
+            Dim oSQLChart As String = "SELECT * FROM TBPM_CHART ORDER BY GROUP_ID"
+            DT_CHART_CONFIG = ClassDatabase.Return_Datatable(oSQLChart)
+            For Each oROW As DataRow In DT_CHART_CONFIG.Rows
+                If oROW.Item("GROUP_ID") = 1 Then
+                    Series1GUID.Text = oROW.Item("GUID")
+                    Series1Type.SelectedIndex = Series1Type.FindStringExact(oROW.Item("TYPE_CHART"))
+                    Series1SQL.Tag = oROW.Item("SQL_COMMAND")
+                    Series1Argument.Text = oROW.Item("ARGUMENT")
+                    Series1Column.Text = oROW.Item("VALUE")
+                    Series1Title.Text = oROW.Item("TITLE")
+                    Series1Sequence.Value = oROW.Item("GROUP_ID")
+                ElseIf oROW.Item("GROUP_ID") = 2 Then
+                    Series2GUID.Text = oROW.Item("GUID")
+                    Series2Type.SelectedIndex = Series1Type.FindStringExact(oROW.Item("TYPE_CHART"))
+                    Series2SQL.Tag = oROW.Item("SQL_COMMAND")
+                    Series2Argument.Text = oROW.Item("ARGUMENT")
+                    Series2Column.Text = oROW.Item("VALUE")
+                    Series2Title.Text = oROW.Item("TITLE")
+                    Series2Sequence.Value = oROW.Item("GROUP_ID")
+                ElseIf oROW.Item("GROUP_ID") = 3 Then
+                    Series3GUID.Text = oROW.Item("GUID")
+                    Series3Type.SelectedIndex = Series1Type.FindStringExact(oROW.Item("TYPE_CHART"))
+                    Series3SQL.Tag = oROW.Item("SQL_COMMAND")
+                    Series3Argument.Text = oROW.Item("ARGUMENT")
+                    Series3Column.Text = oROW.Item("VALUE")
+                    Series3Title.Text = oROW.Item("TITLE")
+                    Series3Sequence.Value = oROW.Item("GROUP_ID")
+                ElseIf oROW.Item("GROUP_ID") = 4 Then
+                    Series4GUID.Text = oROW.Item("GUID")
+                    Series4Type.SelectedIndex = Series1Type.FindStringExact(oROW.Item("TYPE_CHART"))
+                    Series4SQL.Tag = oROW.Item("SQL_COMMAND")
+                    Series4Argument.Text = oROW.Item("ARGUMENT")
+                    Series4Column.Text = oROW.Item("VALUE")
+                    Series4Title.Text = oROW.Item("TITLE")
+                    Series4Sequence.Value = oROW.Item("GROUP_ID")
+
                 End If
 
-        End Select
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Chart Konfig:")
+        End Try
     End Sub
     'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
     '    If cmbIndexe.SelectedIndex <> -1 Then
@@ -1362,15 +1427,25 @@ Public Class frmAdministration
         'UNSAVED_CHANGES_PROFILE = True
     End Sub
 
-    Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
+    Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfile.FocusedRowChanged
         If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
             Exit Sub
-
+        End If
+        If TabControl1.SelectedIndex = 1 And formloaded Then
+            Try
+                Dim profileId As Integer = GetCurrentProfileId()
+                If Not IsNothing(profileId) Then
+                    FillProfile_Zuordnung(profileId)
+                End If
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical)
+            End Try
         End If
         'change_BindingSource = True
     End Sub
 
-    Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
+    Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridViewProfile.ValidateRow
         If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
             Exit Sub
 
@@ -1386,4 +1461,176 @@ Public Class frmAdministration
         change_BindingSource = True
         Check_Changes()
     End Sub
+
+    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
+
+    End Sub
+    Private Function Update_ChartRow(pGUID As Integer, pTitle As String, pArgument As String, pColumn As String, pType As String, pSQL As String, pSequence As String)
+        pSQL = pSQL.Replace("'", "''")
+        Dim oUpdate = $"Update [dbo].[TBPM_CHART] SET [SQL_COMMAND] = '{pSQL}',[TYPE_CHART] = '{pType}'
+              ,[ARGUMENT] = '{pArgument}'
+              ,[VALUE] = '{pColumn}'
+              ,[TITLE] = '{pTitle}'
+              ,[CHANGED_WHO] = '{USER_USERNAME}'
+              ,[GROUP_ID] = '{pSequence}'
+                WHERE GUID = {pGUID}"
+        Return ClassDatabase.Execute_non_Query(oUpdate)
+    End Function
+    Private Function Insert_ChartRow(pTitle As String, pArgument As String, pColumn As String, pType As String, pSQL As String, pSequence As String)
+        pSQL = pSQL.Replace("'", "''")
+        Dim oInsert = $"INSERT INTO [dbo].[TBPM_CHART]
+           ([SQL_COMMAND]
+           ,[TYPE_CHART]
+           ,[ARGUMENT]
+           ,[VALUE]
+           ,[TITLE]
+           ,[ADDED_WHO]
+           ,[GROUP_ID])
+     VALUES
+           ('{pSQL}'
+           ,'{pType}'
+           ,'{pArgument}'
+           ,'{pColumn}'
+           ,'{pTitle}'
+           ,'{USER_USERNAME}'
+           ,'{pSequence}')"
+        Return ClassDatabase.Execute_non_Query(oInsert)
+    End Function
+
+    Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+        Dim oUpdate As String
+        Dim oCtrlSeriesSQL As Button
+        Dim oCtrlSeriesType As ComboBox
+        Dim oCtrlSeriesArgument As TextBox
+        Dim oCtrlSeriesColumn As TextBox
+        Dim oCtrlSeriesTitle As TextBox
+        Dim oCtrlSeriesSequence As NumericUpDown
+        Dim oCtrlSeriesGUID As TextBox
+        Dim oTypeSQL As String = "Update"
+        If Series1GUID.Text <> String.Empty Or Series1Title.Text <> String.Empty Then
+            oCtrlSeriesType = Series1Type
+            oCtrlSeriesSQL = Series1SQL
+            oCtrlSeriesArgument = Series1Argument
+            oCtrlSeriesColumn = Series1Column
+            oCtrlSeriesTitle = Series1Title
+            oCtrlSeriesSequence = Series1Sequence
+            oCtrlSeriesGUID = Series1GUID
+            If Series1GUID.Text = String.Empty Then
+                oTypeSQL = "Insert"
+            End If
+        End If
+
+        If Not IsNothing(oCtrlSeriesGUID) Then
+            If oTypeSQL = "Update" Then
+                Update_ChartRow(oCtrlSeriesGUID.Text, oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+
+            Else
+                Insert_ChartRow(oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+            End If
+        End If
+        oCtrlSeriesGUID = Nothing
+        oTypeSQL = "Update"
+        If Series2GUID.Text <> String.Empty Or Series2Title.Text <> String.Empty Then
+            oCtrlSeriesType = Series2Type
+            oCtrlSeriesSQL = Series2SQL
+            oCtrlSeriesArgument = Series2Argument
+            oCtrlSeriesColumn = Series2Column
+            oCtrlSeriesTitle = Series2Title
+            oCtrlSeriesSequence = Series2Sequence
+            oCtrlSeriesGUID = Series2GUID
+            If Series2GUID.Text = String.Empty Then
+                oTypeSQL = "Insert"
+            End If
+            If Not IsNothing(oCtrlSeriesGUID) Then
+                If oTypeSQL = "Update" Then
+                    Update_ChartRow(oCtrlSeriesGUID.Text, oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                Else
+                    Insert_ChartRow(oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                End If
+            End If
+        End If
+        oCtrlSeriesGUID = Nothing
+        oTypeSQL = "Update"
+        If Series3GUID.Text <> String.Empty Or Series3Title.Text <> String.Empty Then
+            oCtrlSeriesType = Series3Type
+            oCtrlSeriesSQL = Series3SQL
+            oCtrlSeriesArgument = Series3Argument
+            oCtrlSeriesColumn = Series3Column
+            oCtrlSeriesTitle = Series3Title
+            oCtrlSeriesSequence = Series3Sequence
+            oCtrlSeriesGUID = Series3GUID
+            If Series3GUID.Text = String.Empty Then
+                oTypeSQL = "Insert"
+            End If
+            If Not IsNothing(oCtrlSeriesGUID) Then
+                If oTypeSQL = "Update" Then
+                    Update_ChartRow(oCtrlSeriesGUID.Text, oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                Else
+                    Insert_ChartRow(oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                End If
+            End If
+        End If
+        oCtrlSeriesGUID = Nothing
+        oTypeSQL = "Update"
+        If Series4GUID.Text <> String.Empty Or Series4Title.Text <> String.Empty Then
+            oCtrlSeriesType = Series4Type
+            oCtrlSeriesSQL = Series4SQL
+            oCtrlSeriesArgument = Series4Argument
+            oCtrlSeriesColumn = Series4Column
+            oCtrlSeriesTitle = Series4Title
+            oCtrlSeriesSequence = Series4Sequence
+            oCtrlSeriesGUID = Series4GUID
+            If Series4GUID.Text = String.Empty Then
+                oTypeSQL = "Insert"
+            End If
+            If Not IsNothing(oCtrlSeriesGUID) Then
+                If oTypeSQL = "Update" Then
+                    Update_ChartRow(oCtrlSeriesGUID.Text, oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                Else
+                    Insert_ChartRow(oCtrlSeriesTitle.Text, oCtrlSeriesArgument.Text, oCtrlSeriesColumn.Text, oCtrlSeriesType.Text, oCtrlSeriesSQL.Tag, oCtrlSeriesSequence.Value)
+                End If
+            End If
+        End If
+        Load_Chart_Konfig()
+    End Sub
+
+    Private Sub Series2SQL_Click(sender As Object, e As EventArgs) Handles Series1SQL.Click, Series2SQL.Click, Series3SQL.Click, Series4SQL.Click
+        Dim obutton As Button = sender
+        Dim oForm As New frmSQL_DESIGNER() With { .SQLCommand = obutton.Tag}
+        Dim oResult = oForm.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            If oForm.SQLCommand <> obutton.Tag Then
+                obutton.Tag = oForm.SQLCommand.Replace(" '", "''")
+        End If
+        End If
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        If DELETE_ChartRow(Series1GUID.Text) = True Then
+            Load_Chart_Konfig()
+        End If
+    End Sub
+    Private Function DELETE_ChartRow(pGUID As String)
+        Dim oDelete = $"DELETE FROM [dbo].[TBPM_CHART] WHERE GUID = {pGUID}"
+        Return ClassDatabase.Execute_non_Query(oDelete)
+    End Function
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If DELETE_ChartRow(Series2GUID.Text) = True Then
+            Load_Chart_Konfig()
+        End If
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If DELETE_ChartRow(Series3GUID.Text) = True Then
+            Load_Chart_Konfig()
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If DELETE_ChartRow(Series4GUID.Text) = True Then
+            Load_Chart_Konfig()
+        End If
+    End Sub
 End Class