Zooflow: Administration User

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -69,6 +69,18 @@ Public Class ClassDetailForm
             .NewRecordTitle = "Neuer Benutzer",
             .[Module] = MODULE_USERS,
             .Entity = PAGE_USERS_USERLIST
+        }},
+        {PAGE_USERS_GROUPLIST, New DetailSettings With {
+            .GridTitle = "Gruppen Übersicht",
+            .NewRecordTitle = "Neue Gruppe",
+            .[Module] = MODULE_USERS,
+            .Entity = PAGE_USERS_GROUPLIST
+        }},
+        {PAGE_USERS_MODULELIST, New DetailSettings With {
+            .GridTitle = "Modul Übersicht",
+            .NewRecordTitle = "Neues Modul",
+            .[Module] = MODULE_USERS,
+            .Entity = PAGE_USERS_MODULELIST
         }}
     }
 
@@ -154,6 +166,10 @@ Public Class ClassDetailForm
                 oForm.ShowDialog()
                 Return True
 
+            Case PAGE_USERS_USERLIST
+                Load_User(PrimaryKey, IsInsert)
+                Return True
+
             Case Else
                 Return False
         End Select
@@ -182,6 +198,19 @@ Public Class ClassDetailForm
             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}