81 lines
2.7 KiB
VB.net
81 lines
2.7 KiB
VB.net
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 |