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