Benutzerberechtigungen eingebaut

2019-08-19 09:32:57 +02:00
parent 43c151d184
commit f470bce279
19 changed files with 610 additions and 154 deletions
--- a/Dokumentation/uscntr_INFO.vb
+++ b/Dokumentation/uscntr_INFO.vb
@@ -0,0 +1,12 @@
+Public Class uscntr_INFO
+    Private Sub uscntr_INFO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim ben As cBenutzer = Class1.LoggedOnUser
+        lblText.Text = ben.BenutzeranmeldeName & vbCrLf &
+                                ben.Vorname & " " & ben.Nachname & vbCrLf &
+                                ben.Mail & vbCrLf &
+                                ben.Domäne & vbCrLf &
+                                ben.distinguishedName & vbCrLf &
+                                  vbCrLf &
+                                  Class1.DebugText
+    End Sub
+End Class