An Haufen Zeug

Dokumentation/EintragBearbeiten.vb

@@ -10,6 +10,7 @@ Public Class EintragBearbeiten
     'Public Titel As String = Main.SenderTitel
     Property rubrik As String = ""
     Property Titel As String = ""
+    Property ID As String = ""
     Public abfrage As String
     Public Linked As String
     Public LinkedWith As String
@@ -19,7 +20,7 @@ Public Class EintragBearbeiten
 
     Private Sub EintragBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         dbload()
-        If Main.Debug = True Then
+        If Class1.DebugMode = True Then
             Panelhinten.Dock = DockStyle.Left
             CmdTest.Visible = True
         End If
@@ -69,6 +70,7 @@ Public Class EintragBearbeiten
                 TxtBenutzername.Text = reader("Benutzer")
                 TxtKennwort.Text = reader("Passwort")
                 TxtLink.Text = reader("LINK")
+                Me.ID = reader("ID")
                 'TxtRubrik.Text = reader("Rubrik")
             Loop
             reader.Close()