An Haufen Zeug

2019-08-07 10:45:49 +02:00
parent f2d5c20559
commit d67e84486a
35 changed files with 4382 additions and 658 deletions
--- a/Dokumentation/frmAllgemeinEintrag.vb
+++ b/Dokumentation/frmAllgemeinEintrag.vb
@@ -0,0 +1,81 @@
+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