110 lines
3.6 KiB
VB.net
110 lines
3.6 KiB
VB.net
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
|