Zooflow: Add user relations

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -84,11 +84,10 @@ Public Class ClassDetailForm
             .[Module] = MODULE_USERS,
             .Entity = PAGE_USERS_GROUPLIST
         }},
-        {PAGE_USERS_MODULELIST, New DetailSettings With {
-            .GridTitle = "Modul Übersicht",
-            .NewRecordTitle = "Neues Modul",
+        {PAGE_USERS_USER_GROUP_RELATIONS, New DetailSettings With {
+            .GridTitle = "User Group Relations",
             .[Module] = MODULE_USERS,
-            .Entity = PAGE_USERS_MODULELIST
+            .Entity = PAGE_USERS_USER_GROUP_RELATIONS
         }}
     }
 
@@ -96,6 +95,69 @@ Public Class ClassDetailForm
         MyBase.New(LogConfig)
     End Sub
 
+    Public Function Handle_OpenDetail(PrimaryKey As Integer, Page As String, IsInsert As Boolean) As Boolean
+        Try
+            Dim oForm As Form = Nothing
+
+            Select Case Page
+                Case PAGE_IDB_ATTRIBUTES
+                    oForm = New frmAdmin_IDBAttribute(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_IDB_BUSINESS_ENTITIES
+                    oForm = New frmAdmin_IDBEntity(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_IDB_OBJECT_STORES
+                    oForm = New frmAdmin_IDBObjectStore(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_CW_PROFILES
+                    oForm = New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_GI_PROFILES
+                    GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey
+                    oForm = New frmAdmin_Globix(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_META_SOURCE_SQL
+                    oForm = New frmAdmin_SourceSQL(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_IDB_ATTRIBUTE_REL
+                    oForm = New frmAdmin_IDBBERelations
+
+                Case PAGE_GI_RELATIONS
+                    oForm = New frmAdmin_GlobixRelations
+
+                Case PAGE_IDB_DOCTYPE_CONFIG
+                    oForm = New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_IDB_DOCTYPE
+                    oForm = New frmAdmin_Doctype(0)
+
+                Case PAGE_IDB_DOCTYPE_BE
+                    oForm = New frmAdmin_DoctypeBE()
+
+                Case PAGE_USERS_USERLIST
+                    oForm = New frmAdmin_User(PrimaryKey) With {.IsInsert = IsInsert}
+
+                Case PAGE_USERS_USER_GROUP_RELATIONS
+                    oForm = New frmAdmin_UserGroupRelations(PrimaryKey) With {.isinsert = IsInsert}
+
+            End Select
+
+            ' If the selected form was valid, open it
+            ' and then raise the form closed event for it
+            If oForm IsNot Nothing Then
+                oForm.ShowDialog()
+                RaiseEvent DetailFormClosed(Me, oForm)
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Throw ex
+        End Try
+
+    End Function
+
     Public Function LoadData() As Boolean
         Try
             Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW' ORDER BY GUID")
@@ -132,149 +194,6 @@ Public Class ClassDetailForm
         End Try
     End Function
 
-    Public Function Handle_OpenDetail(PrimaryKey As Integer, Page As String, IsInsert As Boolean) As Boolean
-        Select Case Page
-            Case PAGE_IDB_ATTRIBUTES
-                Load_IDBAttribute(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_IDB_BUSINESS_ENTITIES
-                Load_IDBEntity(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_IDB_OBJECT_STORES
-                Load_IDBObjectstore(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_CW_PROFILES
-                Load_CWProfile(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_GI_PROFILES
-                GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey
-                Load_GLOBIXProfile(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_META_SOURCE_SQL
-                Load_SourceSQL(PrimaryKey, IsInsert)
-                Return True
-
-            Case PAGE_IDB_ATTRIBUTE_REL
-                Dim oForm As New frmAdmin_IDBBERelations
-                oForm.ShowDialog()
-                Return True
-
-            Case PAGE_GI_RELATIONS
-                Dim oForm As New frmAdmin_GlobixRelations
-                oForm.ShowDialog()
-                Return True
-
-            Case PAGE_IDB_DOCTYPE_CONFIG
-                Dim oForm As New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert}
-                oForm.ShowDialog()
-                Return True
-
-            Case PAGE_IDB_DOCTYPE
-                Dim oForm As New frmAdmin_Doctype(0)
-                oForm.ShowDialog()
-                Return True
-            Case PAGE_IDB_DOCTYPE_BE
-                Dim oForm As New frmAdmin_DoctypeBE()
-                oForm.ShowDialog()
-                Return True
-
-            Case PAGE_USERS_USERLIST
-                Load_User(PrimaryKey, IsInsert)
-                Return True
-
-            Case Else
-                Return False
-        End Select
-    End Function
-
-    Private Sub Load_SourceSQL(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Sub Load_IDBAttribute(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Sub Load_User(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_User(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Sub Load_IDBObjectstore(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_IDBObjectStore(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Sub Load_IDBEntity(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_IDBEntity(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Sub Load_CWProfile(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-    Private Sub Load_GLOBIXProfile(PrimaryKey As Integer, IsInsert As Boolean)
-        Try
-            Dim oForm As New frmAdmin_Globix(PrimaryKey) With {.IsInsert = IsInsert}
-            oForm.ShowDialog()
-
-            RaiseEvent DetailFormClosed(Me, oForm)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
     Public Class DetailSettings
         Public Property GridTitle As String
         Public Property [Module] As String