Public Class frmAllgemeinEintrag

    Property Eintrag As New cEintrag
    Property Berechtigung As New cBerechtigungen
    Property NewID As Boolean = False

    Private Sub frmAllgemeinEintrag_Load(sender As Object, e As EventArgs) Handles Me.Load
        CmdTest.Visible = Class1.DebugMode
        FillIn()
        If GetRights() = "R" Then
            PanTop.Enabled = False : TxtInfo.Enabled = False : PanWrite.Enabled = False
        End If
    End Sub

    Function FillIn()
        TxtRubrik.Text = Eintrag.rubrik
        TxtTitel.Text = Eintrag.Titel
        TxtInfo.Text = Eintrag.Info
        TxtBenutzername.Text = Eintrag.Benutzer
        TxtKennwort.Text = Eintrag.Passwort
        TxtLink.Text = Eintrag.Link
    End Function

    Function ReadOut()
        Eintrag.rubrik = TxtRubrik.Text
        Eintrag.Titel = TxtTitel.Text
        Eintrag.Info = Class1.hochkomma(TxtInfo.Text)
        Eintrag.Benutzer = TxtBenutzername.Text
        Eintrag.Passwort = TxtKennwort.Text
        Eintrag.Link = TxtLink.Text
    End Function


    Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged
        If ChkKennwortAnzeigen.Checked Then
            TxtKennwort.PasswordChar = ""
        Else
            TxtKennwort.PasswordChar = "*"
        End If
    End Sub

    Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
        Ext_Programme.startlink(TxtLink.Text)
    End Sub

    Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
        MsgBox(Eintrag.ID)
    End Sub

    Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
        ReadOut()
        Eintrag.Save()
    End Sub

    Private Sub btnBerechtigungen_Click(sender As Object, e As EventArgs) Handles btnBerechtigungen.Click
        CmdSave.PerformClick()
        Dim i As Integer = 0
        Dim frm As New frmLeer
        frm.Text = "Berechtigungen für " & Eintrag.Titel

        For Each Benutzer As cBenutzer In Class1.GroupUsers
            Dim usrcntrl As New uscntr_Berechtigungen
            usrcntrl.User = Benutzer
            usrcntrl.Standort = Eintrag.ID
            usrcntrl.lblName.Text = Benutzer.Vorname & " " & Benutzer.Nachname
            usrcntrl.Berechtigung.StandardZugriff = "W"
            usrcntrl.Location = New Point(0, i * usrcntrl.Height)
            i = i + 1
            frm.PanMain.Controls.Add(usrcntrl)
        Next

        frm.Show()
    End Sub

    Function GetRights() As String
        Berechtigung.Benutzeranmeldename = Class1.LoggedOnUser.BenutzeranmeldeName
        Berechtigung.Standort = Eintrag.ID
        Berechtigung.getFromSQL()
        Return Berechtigung.Zugriff
    End Function
End Class