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 : btnNope.PerformClick()
            Case "R"
                btnLesen.BackColor = Color.Yellow : btnLesen.PerformClick()
            Case "W"
                btnSchreiben.BackColor = Color.Green : btnSchreiben.PerformClick()
        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