MS15.02.2016

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -105,6 +105,24 @@ Public Class frmConstructorDesigner
             MsgBox("Error Load_QuickDisplay:" & vbNewLine & ex.Message)
         End Try
     End Sub
+    Public Sub Load_ConstructorUser()
+        Try
+            Dim Sql = String.Format("SELECT GUID,USERNAME FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_IDTextBox.Text)
+            Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
+            Sql = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0}", CONSTRUCTOR_IDTextBox.Text)
+            Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT")
+            ListBoxUserConstructor.DataSource = DT_USER
+            ListBoxUserConstructor.DisplayMember = DT_USER.Columns(1).ColumnName
+            ListBoxUserConstructor.ValueMember = DT_USER.Columns(0).ColumnName
+
+            ListBoxUsersFORConstructor.DataSource = DT_USER_CONSTR
+            ListBoxUsersFORConstructor.DisplayMember = DT_USER_CONSTR.Columns(1).ColumnName
+            ListBoxUsersFORConstructor.ValueMember = DT_USER_CONSTR.Columns(0).ColumnName
+
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_ConstructorUser:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
     Public Sub RecordSearch_Config()
         Try
             'Zurücksetzen
@@ -184,6 +202,7 @@ Public Class frmConstructorDesigner
     Private Sub frmConstructorDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         formloaded = True
         Load_TreeViewEbene()
+        Load_ConstructorUser()
     End Sub
     Sub Load_TreeViewEbene()
         Try
@@ -242,6 +261,7 @@ Public Class frmConstructorDesigner
             Try
                 If CONSTRUCTOR_IDTextBox.Text <> "" Then
                     Load_TreeViewEbene()
+                    Load_ConstructorUser()
                 End If
             Catch ex As Exception
                 MsgBox("Error Loading Construct-Data:" & vbNewLine & ex.Message)
@@ -396,6 +416,8 @@ Public Class frmConstructorDesigner
                 Load_QuickDisplay()
             Case 2
                 RecordSearch_Config()
+            Case 3
+                'Load_ConstructorUser()
         End Select
     End Sub
 
@@ -511,4 +533,48 @@ Public Class frmConstructorDesigner
     Private Sub LOAD_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOAD_DIRECTCheckBox.CheckedChanged
 
     End Sub
+
+    Private Sub btnAddUser2ConstructorREL_Click(sender As Object, e As EventArgs) Handles btnAddUser2ConstructorREL.Click
+        Try
+            Dim i = ListBoxUserConstructor.SelectedValue
+            If Not IsNothing(i) Then
+                Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & i & ",'" & Environment.UserName & "')"
+                If ClassDatabase.Execute_non_Query(insert, True) Then
+                    Load_ConstructorUser()
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click
+        Try
+            Dim i = ListBoxUsersFORConstructor.SelectedValue
+            If Not IsNothing(i) Then
+                Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER  WHERE GUID = " & i
+                If ClassDatabase.Execute_non_Query(delete, True) Then
+                    Load_ConstructorUser()
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub FormDesignerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
+        Try
+            Dim SelectedNode As TreeNode = TryCast(TreeViewDetails.SelectedNode, TreeNode)
+            If SelectedNode IsNot Nothing Then
+                Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = {0}", SelectedNode.Tag)
+                Dim FormId As Integer = ClassDatabase.Execute_Scalar(sql)
+                If FormId > 0 Then
+                    CURRENT_FORM_ID = FormId
+                    OpenFormLevelDesigner()
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class