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