An Haufen Zeug

2019-08-07 10:45:49 +02:00
parent f2d5c20559
commit d67e84486a
35 changed files with 4382 additions and 658 deletions
--- a/Dokumentation/uscntr_Benutzer.vb
+++ b/Dokumentation/uscntr_Benutzer.vb
@@ -0,0 +1,109 @@
+Public Class uscntr_Benutzer
+
+    Private Sub uscntr_Benutzer_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Laden()
+    End Sub
+
+    Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
+        Laden()
+        'LoadGroupmembers()
+    End Sub
+
+    Function Laden()
+        With dgvBenutzer
+            .DataSource = LoadGroupmembers()
+
+            For Each columns In dgvBenutzer.Columns
+                columns.visible = False
+            Next
+
+            .Columns("Vorname").Visible = True
+            .Columns("Vorname").DisplayIndex = 1
+            .Columns("Vorname").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+            .Columns("Nachname").Visible = True
+            .Columns("Nachname").DisplayIndex = 2
+            .Columns("Domäne").Visible = True
+            .Columns("Domäne").DisplayIndex = 3
+            .Columns("Mail").Visible = True
+            .Columns("Mail").DisplayIndex = 4
+            .Columns("Mail").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        End With
+    End Function
+
+
+    Function LoadGroupmembers()
+        Dim GroupMembers As New List(Of String)
+        GroupMembers = cBenutzergruppe.GetUsersInGroup("SG_DOKU_USER_FULL")
+
+        Dim GroupMembersList As New List(Of cBenutzer)
+
+        For Each Benutzer In GroupMembers
+            Dim tem As New cBenutzer
+            tem.FillFromDC(Benutzer)
+            GroupMembersList.Add(tem)
+        Next
+        Return GroupMembersList
+    End Function
+
+    Private Sub dgvBenutzer_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBenutzer.CellDoubleClick, dgvBenutzer.CellClick
+        PanRechts.Controls.Clear()
+        PanRechts.Visible = True
+        Dim i As Integer = 0
+        Dim Width As Integer = 0
+        Dim Height As Integer = 0
+
+        Dim selectedUser As New cBenutzer
+        selectedUser.FillFromDC(dgvBenutzer.CurrentRow.Cells("localdistinguishedName").Value, "distinguishedName")
+
+        'Dim frm As New frmLeer
+
+        Me.ParentForm.Text = "Berechtigungen " & dgvBenutzer.CurrentRow.Cells("Vorname").Value & " " & dgvBenutzer.CurrentRow.Cells("Nachname").Value & ", " & dgvBenutzer.CurrentRow.Cells("Domäne").Value
+
+        For Each Standort As String In Class1.AlleStandorte
+            Dim usrcntrl As New uscntr_Berechtigungen
+            usrcntrl.User = selectedUser
+            usrcntrl.lblName.Text = Standort
+            usrcntrl.Name = Standort
+            usrcntrl.Standort = Standort
+            usrcntrl.Location = New Point(0, i * usrcntrl.Height)
+            i = i + 1
+            PanRechts.Controls.Add(usrcntrl)
+            Width = usrcntrl.Width
+            Height = ((i) * usrcntrl.Height)
+        Next
+
+        Dim usrcntrlFunktionen As New uscntr_FunktionAdmin
+        usrcntrlFunktionen.User = selectedUser
+        usrcntrlFunktionen.lblName.Text = "DokuAdmin"
+        usrcntrlFunktionen.Name = "DokuAdmin"
+        usrcntrlFunktionen.Funktion = "DokuAdmin"
+        usrcntrlFunktionen.Location = New Point(0, Height + 5)
+        PanRechts.Controls.Add(usrcntrlFunktionen)
+
+        Height = Height + usrcntrlFunktionen.Height + 10
+
+        PanRechts.Width = Width
+        PanRechts.Height = Height
+
+        'frm.Show()
+
+
+
+    End Sub
+
+    Public Shared Function LoadAllGroupmembers()
+        Dim GroupMembers As New List(Of String)
+        GroupMembers = cBenutzergruppe.GetUsersInGroup("SG_DOKU_USER_FULL")
+
+        Dim GroupMembersList As New List(Of cBenutzer)
+
+        For Each Benutzer In GroupMembers
+            Dim tem As New cBenutzer
+            tem.FillFromDC(Benutzer)
+            GroupMembersList.Add(tem)
+        Next
+        Return GroupMembersList
+    End Function
+
+End Class