An Haufen Zeug

Dokumentation/uscntr_Berechtigungen.vb

@@ -0,0 +1,52 @@
+Public Class uscntr_Berechtigungen
+
+    Property User As cBenutzer = Nothing
+    Property Standort As String = ""
+    Property Berechtigung As New cBerechtigungen
+
+    Private Sub uscntr_Berechtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        Berechtigung.Benutzeranmeldename = User.BenutzeranmeldeName
+        Berechtigung.Standort = Standort
+        Berechtigung.getFromSQL()
+
+        ZeigeBerechtigung()
+    End Sub
+
+    Function ZeigeBerechtigung()
+        Select Case Berechtigung.Zugriff
+            Case "0"
+                btnNope.BackColor = Color.Red
+            Case "R"
+                btnLesen.BackColor = Color.Yellow
+            Case "W"
+                btnSchreiben.BackColor = Color.Green
+        End Select
+    End Function
+
+    Private Sub btnNope_Click(sender As Object, e As EventArgs) Handles btnNope.Click, btnSchreiben.Click, btnLesen.Click
+        Deselect()
+        Select Case sender.name
+            Case "btnNope"
+                sender.backcolor = Color.Red
+                Berechtigung.Zugriff = "0" : Berechtigung.SaveToSQL()
+            Case "btnSchreiben"
+                sender.backcolor = Color.Green
+                Berechtigung.Zugriff = "W" : Berechtigung.SaveToSQL()
+            Case "btnLesen"
+                sender.backcolor = Color.Yellow
+                Berechtigung.Zugriff = "R" : Berechtigung.SaveToSQL()
+        End Select
+
+    End Sub
+
+
+
+    Function Deselect()
+
+        For Each button As Windows.Forms.Button In Panel1.Controls
+            button.BackColor = Color.White
+        Next
+
+    End Function
+End Class