Benutzerberechtigungen eingebaut

2019-08-19 09:32:57 +02:00
parent 43c151d184
commit f470bce279
19 changed files with 610 additions and 154 deletions
--- a/Dokumentation/frmAllgemeinEintrag.Designer.vb
+++ b/Dokumentation/frmAllgemeinEintrag.Designer.vb
@@ -26,6 +26,11 @@ Partial Class frmAllgemeinEintrag
        Me.CmdTest = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.TxtInfo = New System.Windows.Forms.TextBox()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.PanContr = New System.Windows.Forms.Panel()
+        Me.CmdLink = New System.Windows.Forms.Button()
+        Me.CmdDateien = New System.Windows.Forms.Button()
+        Me.CmdAbbrechen = New System.Windows.Forms.Button()
        Me.PanWrite = New System.Windows.Forms.Panel()
        Me.btnBerechtigungen = New System.Windows.Forms.Button()
        Me.Label7 = New System.Windows.Forms.Label()
@@ -33,13 +38,10 @@ Partial Class frmAllgemeinEintrag
        Me.TxtBenutzername = New System.Windows.Forms.TextBox()
        Me.TxtKennwort = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.CmdLink = New System.Windows.Forms.Button()
        Me.LblLink = New System.Windows.Forms.Label()
-        Me.CmdDateien = New System.Windows.Forms.Button()
        Me.TxtLink = New System.Windows.Forms.TextBox()
        Me.CmdDelete = New System.Windows.Forms.Button()
        Me.CmdSave = New System.Windows.Forms.Button()
-        Me.CmdAbbrechen = New System.Windows.Forms.Button()
        Me.CmdReset = New System.Windows.Forms.Button()
        Me.Panelhinten = New System.Windows.Forms.Panel()
        Me.PanTop = New System.Windows.Forms.Panel()
@@ -47,14 +49,12 @@ Partial Class frmAllgemeinEintrag
        Me.TxtTitel = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TxtRubrik = New System.Windows.Forms.TextBox()
-        Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.PanContr = New System.Windows.Forms.Panel()
        Me.Panel2.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        Me.PanContr.SuspendLayout()
        Me.PanWrite.SuspendLayout()
        Me.Panelhinten.SuspendLayout()
        Me.PanTop.SuspendLayout()
-        Me.Panel4.SuspendLayout()
-        Me.PanContr.SuspendLayout()
        Me.SuspendLayout()
        '
        'CmdTest
@@ -62,7 +62,7 @@ Partial Class frmAllgemeinEintrag
        Me.CmdTest.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdTest.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdTest.Location = New System.Drawing.Point(15, 10)
+        Me.CmdTest.Location = New System.Drawing.Point(12, 10)
        Me.CmdTest.Name = "CmdTest"
        Me.CmdTest.Size = New System.Drawing.Size(94, 23)
        Me.CmdTest.TabIndex = 108
@@ -77,7 +77,7 @@ Partial Class frmAllgemeinEintrag
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel2.Location = New System.Drawing.Point(0, 100)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(790, 591)
+        Me.Panel2.Size = New System.Drawing.Size(642, 590)
        Me.Panel2.TabIndex = 108
        '
        'TxtInfo
@@ -87,9 +87,69 @@ Partial Class frmAllgemeinEintrag
        Me.TxtInfo.Multiline = True
        Me.TxtInfo.Name = "TxtInfo"
        Me.TxtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.TxtInfo.Size = New System.Drawing.Size(790, 426)
+        Me.TxtInfo.Size = New System.Drawing.Size(642, 425)
        Me.TxtInfo.TabIndex = 3
        '
+        'Panel4
+        '
+        Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel4.Controls.Add(Me.PanContr)
+        Me.Panel4.Controls.Add(Me.PanWrite)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel4.Location = New System.Drawing.Point(0, 425)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(642, 165)
+        Me.Panel4.TabIndex = 110
+        '
+        'PanContr
+        '
+        Me.PanContr.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.PanContr.Controls.Add(Me.CmdLink)
+        Me.PanContr.Controls.Add(Me.CmdTest)
+        Me.PanContr.Controls.Add(Me.CmdDateien)
+        Me.PanContr.Controls.Add(Me.CmdAbbrechen)
+        Me.PanContr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.PanContr.Location = New System.Drawing.Point(479, 0)
+        Me.PanContr.Name = "PanContr"
+        Me.PanContr.Size = New System.Drawing.Size(163, 165)
+        Me.PanContr.TabIndex = 110
+        '
+        'CmdLink
+        '
+        Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdLink.Location = New System.Drawing.Point(3, 81)
+        Me.CmdLink.Name = "CmdLink"
+        Me.CmdLink.Size = New System.Drawing.Size(90, 23)
+        Me.CmdLink.TabIndex = 102
+        Me.CmdLink.Text = "Link öffnen"
+        Me.CmdLink.UseVisualStyleBackColor = False
+        '
+        'CmdDateien
+        '
+        Me.CmdDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdDateien.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdDateien.Location = New System.Drawing.Point(3, 51)
+        Me.CmdDateien.Name = "CmdDateien"
+        Me.CmdDateien.Size = New System.Drawing.Size(90, 23)
+        Me.CmdDateien.TabIndex = 98
+        Me.CmdDateien.Text = "Dateien"
+        Me.CmdDateien.UseVisualStyleBackColor = False
+        '
+        'CmdAbbrechen
+        '
+        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdAbbrechen.Location = New System.Drawing.Point(60, 130)
+        Me.CmdAbbrechen.Name = "CmdAbbrechen"
+        Me.CmdAbbrechen.Size = New System.Drawing.Size(90, 23)
+        Me.CmdAbbrechen.TabIndex = 9
+        Me.CmdAbbrechen.Text = "Schließen"
+        Me.CmdAbbrechen.UseVisualStyleBackColor = False
+        '
        'PanWrite
        '
        Me.PanWrite.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -107,7 +167,7 @@ Partial Class frmAllgemeinEintrag
        Me.PanWrite.Dock = System.Windows.Forms.DockStyle.Left
        Me.PanWrite.Location = New System.Drawing.Point(0, 0)
        Me.PanWrite.Name = "PanWrite"
-        Me.PanWrite.Size = New System.Drawing.Size(587, 165)
+        Me.PanWrite.Size = New System.Drawing.Size(473, 165)
        Me.PanWrite.TabIndex = 109
        '
        'btnBerechtigungen
@@ -115,7 +175,7 @@ Partial Class frmAllgemeinEintrag
        Me.btnBerechtigungen.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnBerechtigungen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.btnBerechtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnBerechtigungen.Location = New System.Drawing.Point(203, 91)
+        Me.btnBerechtigungen.Location = New System.Drawing.Point(380, 80)
        Me.btnBerechtigungen.Name = "btnBerechtigungen"
        Me.btnBerechtigungen.Size = New System.Drawing.Size(90, 23)
        Me.btnBerechtigungen.TabIndex = 109
@@ -134,7 +194,7 @@ Partial Class frmAllgemeinEintrag
        'ChkKennwortAnzeigen
        '
        Me.ChkKennwortAnzeigen.AutoSize = True
-        Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(393, 9)
+        Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(223, 48)
        Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
        Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
        Me.ChkKennwortAnzeigen.TabIndex = 6
@@ -150,7 +210,7 @@ Partial Class frmAllgemeinEintrag
        '
        'TxtKennwort
        '
-        Me.TxtKennwort.Location = New System.Drawing.Point(299, 26)
+        Me.TxtKennwort.Location = New System.Drawing.Point(11, 65)
        Me.TxtKennwort.Name = "TxtKennwort"
        Me.TxtKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
        Me.TxtKennwort.Size = New System.Drawing.Size(282, 20)
@@ -159,48 +219,24 @@ Partial Class frmAllgemeinEintrag
        'Label6
        '
        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(296, 9)
+        Me.Label6.Location = New System.Drawing.Point(8, 49)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(55, 13)
        Me.Label6.TabIndex = 91
        Me.Label6.Text = "Kennwort:"
        '
-        'CmdLink
-        '
-        Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdLink.Location = New System.Drawing.Point(15, 94)
-        Me.CmdLink.Name = "CmdLink"
-        Me.CmdLink.Size = New System.Drawing.Size(90, 23)
-        Me.CmdLink.TabIndex = 102
-        Me.CmdLink.Text = "Link öffnen"
-        Me.CmdLink.UseVisualStyleBackColor = False
-        '
        'LblLink
        '
        Me.LblLink.AutoSize = True
-        Me.LblLink.Location = New System.Drawing.Point(8, 49)
+        Me.LblLink.Location = New System.Drawing.Point(8, 88)
        Me.LblLink.Name = "LblLink"
        Me.LblLink.Size = New System.Drawing.Size(85, 13)
        Me.LblLink.TabIndex = 92
        Me.LblLink.Text = "Link zum Dienst:"
        '
-        'CmdDateien
-        '
-        Me.CmdDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.CmdDateien.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdDateien.Location = New System.Drawing.Point(15, 65)
-        Me.CmdDateien.Name = "CmdDateien"
-        Me.CmdDateien.Size = New System.Drawing.Size(90, 23)
-        Me.CmdDateien.TabIndex = 98
-        Me.CmdDateien.Text = "Dateien"
-        Me.CmdDateien.UseVisualStyleBackColor = False
-        '
        'TxtLink
        '
-        Me.TxtLink.Location = New System.Drawing.Point(11, 65)
+        Me.TxtLink.Location = New System.Drawing.Point(11, 104)
        Me.TxtLink.Name = "TxtLink"
        Me.TxtLink.Size = New System.Drawing.Size(282, 20)
        Me.TxtLink.TabIndex = 7
@@ -210,7 +246,7 @@ Partial Class frmAllgemeinEintrag
        Me.CmdDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdDelete.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdDelete.Location = New System.Drawing.Point(11, 91)
+        Me.CmdDelete.Location = New System.Drawing.Point(380, 23)
        Me.CmdDelete.Name = "CmdDelete"
        Me.CmdDelete.Size = New System.Drawing.Size(90, 23)
        Me.CmdDelete.TabIndex = 97
@@ -222,31 +258,19 @@ Partial Class frmAllgemeinEintrag
        Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdSave.Location = New System.Drawing.Point(393, 91)
+        Me.CmdSave.Location = New System.Drawing.Point(380, 109)
        Me.CmdSave.Name = "CmdSave"
        Me.CmdSave.Size = New System.Drawing.Size(90, 23)
        Me.CmdSave.TabIndex = 8
        Me.CmdSave.Text = "Speichern"
        Me.CmdSave.UseVisualStyleBackColor = False
        '
-        'CmdAbbrechen
-        '
-        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdAbbrechen.Location = New System.Drawing.Point(98, 130)
-        Me.CmdAbbrechen.Name = "CmdAbbrechen"
-        Me.CmdAbbrechen.Size = New System.Drawing.Size(90, 23)
-        Me.CmdAbbrechen.TabIndex = 9
-        Me.CmdAbbrechen.Text = "Schließen"
-        Me.CmdAbbrechen.UseVisualStyleBackColor = False
-        '
        'CmdReset
        '
        Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdReset.Location = New System.Drawing.Point(107, 91)
+        Me.CmdReset.Location = New System.Drawing.Point(380, 51)
        Me.CmdReset.Name = "CmdReset"
        Me.CmdReset.Size = New System.Drawing.Size(90, 23)
        Me.CmdReset.TabIndex = 94
@@ -260,7 +284,7 @@ Partial Class frmAllgemeinEintrag
        Me.Panelhinten.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panelhinten.Location = New System.Drawing.Point(0, 0)
        Me.Panelhinten.Name = "Panelhinten"
-        Me.Panelhinten.Size = New System.Drawing.Size(790, 691)
+        Me.Panelhinten.Size = New System.Drawing.Size(642, 690)
        Me.Panelhinten.TabIndex = 110
        '
        'PanTop
@@ -273,7 +297,7 @@ Partial Class frmAllgemeinEintrag
        Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.PanTop.Location = New System.Drawing.Point(0, 0)
        Me.PanTop.Name = "PanTop"
-        Me.PanTop.Size = New System.Drawing.Size(790, 100)
+        Me.PanTop.Size = New System.Drawing.Size(642, 100)
        Me.PanTop.TabIndex = 107
        '
        'Label1
@@ -308,47 +332,24 @@ Partial Class frmAllgemeinEintrag
        Me.TxtRubrik.Size = New System.Drawing.Size(618, 20)
        Me.TxtRubrik.TabIndex = 1
        '
-        'Panel4
-        '
-        Me.Panel4.Controls.Add(Me.PanContr)
-        Me.Panel4.Controls.Add(Me.PanWrite)
-        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel4.Location = New System.Drawing.Point(0, 426)
-        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(790, 165)
-        Me.Panel4.TabIndex = 110
-        '
-        'PanContr
-        '
-        Me.PanContr.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
-        Me.PanContr.Controls.Add(Me.CmdLink)
-        Me.PanContr.Controls.Add(Me.CmdTest)
-        Me.PanContr.Controls.Add(Me.CmdDateien)
-        Me.PanContr.Controls.Add(Me.CmdAbbrechen)
-        Me.PanContr.Dock = System.Windows.Forms.DockStyle.Right
-        Me.PanContr.Location = New System.Drawing.Point(590, 0)
-        Me.PanContr.Name = "PanContr"
-        Me.PanContr.Size = New System.Drawing.Size(200, 165)
-        Me.PanContr.TabIndex = 110
-        '
        'frmAllgemeinEintrag
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(790, 691)
+        Me.ClientSize = New System.Drawing.Size(642, 690)
        Me.Controls.Add(Me.Panelhinten)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmAllgemeinEintrag"
        Me.Text = "frmAllgemeinEintrag"
        Me.Panel2.ResumeLayout(False)
        Me.Panel2.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        Me.PanContr.ResumeLayout(False)
        Me.PanWrite.ResumeLayout(False)
        Me.PanWrite.PerformLayout()
        Me.Panelhinten.ResumeLayout(False)
        Me.PanTop.ResumeLayout(False)
        Me.PanTop.PerformLayout()
-        Me.Panel4.ResumeLayout(False)
-        Me.PanContr.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub