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_Berechtigungen.vb
+++ b/Dokumentation/uscntr_Berechtigungen.vb
@@ -16,11 +16,11 @@
    Function ZeigeBerechtigung()
        Select Case Berechtigung.Zugriff
            Case "0"
-                btnNope.BackColor = Color.Red
+                btnNope.BackColor = Color.Red : btnNope.PerformClick()
            Case "R"
-                btnLesen.BackColor = Color.Yellow
+                btnLesen.BackColor = Color.Yellow : btnLesen.PerformClick()
            Case "W"
-                btnSchreiben.BackColor = Color.Green
+                btnSchreiben.BackColor = Color.Green : btnSchreiben.PerformClick()
        End Select
    End Function