An Haufen Zeug

Dokumentation/uscntr_FunktionAdmin.vb

@@ -0,0 +1,42 @@
+Public Class uscntr_FunktionAdmin
+
+    Property User As cBenutzer = Nothing
+    Property Funktion As String = ""
+    Dim Berechtigung As New cBerechtigungen
+
+    Private Sub uscntr_Berechtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        Berechtigung.Benutzeranmeldename = User.BenutzeranmeldeName
+        Berechtigung.Standort = Funktion
+        Berechtigung.getFromSQL()
+
+        ZeigeBerechtigung()
+    End Sub
+
+    Function ZeigeBerechtigung()
+        Select Case Berechtigung.Zugriff
+            Case "0"
+                btnNein.BackColor = Color.Red
+            Case "Y"
+                btnJa.BackColor = Color.Green
+        End Select
+    End Function
+
+    Private Sub btnJaNein_Click(sender As Object, e As EventArgs) Handles btnJa.Click, btnNein.Click
+        For Each button As System.Windows.Forms.Button In Panel1.Controls
+            button.BackColor = Color.White
+        Next
+
+        Select Case sender.name
+            Case "btnJa"
+                btnJa.BackColor = Color.Green : Berechtigung.Zugriff = "Y" : Berechtigung.SaveToSQL()
+                SQL.UpdateSQL("TbL_Berechtigungen", "Zugriff = 'W'", "Benutzeranmeldename = '" & User.BenutzeranmeldeName & "' AND NOT Standort = 'DokuAdmin'")
+            Case "btnNein"
+                btnNein.BackColor = Color.Red : Berechtigung.Zugriff = "0" : Berechtigung.SaveToSQL()
+        End Select
+    End Sub
+
+
+
+
+End Class