Feature Gesamtsicherheiten: Refactorting und Einbau der neuen Funktionen

2022-10-14 16:20:30 +02:00
parent 5961aa77b3
commit 8f213f0789
10 changed files with 364 additions and 293 deletions
--- a/Aviso/frmGesamtsicherheitenMenu.Designer.vb
+++ b/Aviso/frmGesamtsicherheitenMenu.Designer.vb
@@ -0,0 +1,326 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmGesamtsicherheitenMenu
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenu))
+        Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.txtbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
+        Me.chkOffen = New System.Windows.Forms.CheckBox()
+        Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.lblSaldo = New System.Windows.Forms.Label()
+        Me.lblZollsatz = New System.Windows.Forms.Label()
+        Me.lblReferenzwert = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'dgvListe
+        '
+        Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvListe.AllowUserToAddRows = False
+        Me.dgvListe.AllowUserToDeleteRows = False
+        Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvListe.Location = New System.Drawing.Point(0, 156)
+        Me.dgvListe.Name = "dgvListe"
+        Me.dgvListe.ReadOnly = True
+        Me.dgvListe.Size = New System.Drawing.Size(502, 565)
+        Me.dgvListe.TabIndex = 1
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.FlatButton2)
+        Me.Panel1.Controls.Add(Me.btnSucheStarten)
+        Me.Panel1.Controls.Add(Me.txtbis)
+        Me.Panel1.Controls.Add(Me.txtVon)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.FlatButton1)
+        Me.Panel1.Controls.Add(Me.txtSuchbegriff)
+        Me.Panel1.Controls.Add(Me.chkOffen)
+        Me.Panel1.Controls.Add(Me.btnNeu)
+        Me.Panel1.Controls.Add(Me.lblSaldo)
+        Me.Panel1.Controls.Add(Me.lblZollsatz)
+        Me.Panel1.Controls.Add(Me.lblReferenzwert)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(502, 156)
+        Me.Panel1.TabIndex = 0
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.BackColor = System.Drawing.Color.White
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Location = New System.Drawing.Point(112, 101)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
+        Me.FlatButton2.TabIndex = 10
+        Me.FlatButton2.Text = "jedes Datum"
+        Me.FlatButton2.UseVisualStyleBackColor = False
+        '
+        'btnSucheStarten
+        '
+        Me.btnSucheStarten.allowBorder = False
+        Me.btnSucheStarten.BackColor = System.Drawing.Color.White
+        Me.btnSucheStarten.FlatAppearance.BorderSize = 0
+        Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
+        Me.btnSucheStarten.Location = New System.Drawing.Point(201, 127)
+        Me.btnSucheStarten.Name = "btnSucheStarten"
+        Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
+        Me.btnSucheStarten.TabIndex = 11
+        Me.btnSucheStarten.Text = "Suche starten"
+        Me.btnSucheStarten.UseVisualStyleBackColor = False
+        '
+        'txtbis
+        '
+        Me.txtbis._DateTimeOnly = False
+        Me.txtbis._numbersOnly = False
+        Me.txtbis._numbersOnlyKommastellen = ""
+        Me.txtbis._Prozent = False
+        Me.txtbis._ShortDateNew = False
+        Me.txtbis._ShortDateOnly = False
+        Me.txtbis._TimeOnly = False
+        Me.txtbis._value = ""
+        Me.txtbis._Waehrung = False
+        Me.txtbis._WaehrungZeichen = True
+        Me.txtbis.ForeColor = System.Drawing.Color.Black
+        Me.txtbis.Location = New System.Drawing.Point(112, 77)
+        Me.txtbis.MaxLineLength = -1
+        Me.txtbis.MaxLines_Warning = ""
+        Me.txtbis.MaxLines_Warning_Label = Nothing
+        Me.txtbis.Name = "txtbis"
+        Me.txtbis.Size = New System.Drawing.Size(81, 20)
+        Me.txtbis.TabIndex = 8
+        '
+        'txtVon
+        '
+        Me.txtVon._DateTimeOnly = False
+        Me.txtVon._numbersOnly = False
+        Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._Prozent = False
+        Me.txtVon._ShortDateNew = False
+        Me.txtVon._ShortDateOnly = False
+        Me.txtVon._TimeOnly = False
+        Me.txtVon._value = ""
+        Me.txtVon._Waehrung = False
+        Me.txtVon._WaehrungZeichen = True
+        Me.txtVon.ForeColor = System.Drawing.Color.Black
+        Me.txtVon.Location = New System.Drawing.Point(12, 77)
+        Me.txtVon.MaxLineLength = -1
+        Me.txtVon.MaxLines_Warning = ""
+        Me.txtVon.MaxLines_Warning_Label = Nothing
+        Me.txtVon.Name = "txtVon"
+        Me.txtVon.Size = New System.Drawing.Size(81, 20)
+        Me.txtVon.TabIndex = 7
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label3.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label3.Location = New System.Drawing.Point(109, 59)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(24, 15)
+        Me.Label3.TabIndex = 5
+        Me.Label3.Text = "Bis"
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label2.Location = New System.Drawing.Point(12, 59)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(28, 15)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Von"
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label1.Location = New System.Drawing.Point(12, 11)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(45, 15)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Suche:"
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackColor = System.Drawing.Color.White
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh
+        Me.FlatButton1.Location = New System.Drawing.Point(233, 22)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(32, 33)
+        Me.FlatButton1.TabIndex = 2
+        Me.FlatButton1.UseVisualStyleBackColor = False
+        '
+        'txtSuchbegriff
+        '
+        Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 29)
+        Me.txtSuchbegriff.Name = "txtSuchbegriff"
+        Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20)
+        Me.txtSuchbegriff.TabIndex = 1
+        '
+        'chkOffen
+        '
+        Me.chkOffen.AutoSize = True
+        Me.chkOffen.Checked = True
+        Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.chkOffen.Location = New System.Drawing.Point(28, 131)
+        Me.chkOffen.Name = "chkOffen"
+        Me.chkOffen.Size = New System.Drawing.Size(120, 17)
+        Me.chkOffen.TabIndex = 12
+        Me.chkOffen.Text = "nur offene anzeigen"
+        Me.chkOffen.UseVisualStyleBackColor = True
+        '
+        'btnNeu
+        '
+        Me.btnNeu.allowBorder = False
+        Me.btnNeu.BackColor = System.Drawing.Color.White
+        Me.btnNeu.FlatAppearance.BorderSize = 0
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.ForeColor = System.Drawing.Color.Black
+        Me.btnNeu.Location = New System.Drawing.Point(415, 127)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(75, 23)
+        Me.btnNeu.TabIndex = 13
+        Me.btnNeu.Text = "Neu"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'lblSaldo
+        '
+        Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblSaldo.AutoSize = True
+        Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblSaldo.Location = New System.Drawing.Point(294, 24)
+        Me.lblSaldo.Name = "lblSaldo"
+        Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
+        Me.lblSaldo.TabIndex = 3
+        Me.lblSaldo.Text = "Saldo: €80.000"
+        '
+        'lblZollsatz
+        '
+        Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblZollsatz.AutoSize = True
+        Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblZollsatz.Location = New System.Drawing.Point(295, 86)
+        Me.lblZollsatz.Name = "lblZollsatz"
+        Me.lblZollsatz.Size = New System.Drawing.Size(86, 16)
+        Me.lblZollsatz.TabIndex = 9
+        Me.lblZollsatz.Text = "Zollsatz: 12%"
+        '
+        'lblReferenzwert
+        '
+        Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblReferenzwert.AutoSize = True
+        Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59)
+        Me.lblReferenzwert.Name = "lblReferenzwert"
+        Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16)
+        Me.lblReferenzwert.TabIndex = 6
+        Me.lblReferenzwert.Text = "Referenzwert: €80.000"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26)
+        '
+        'ExportCSVToolStripMenuItem
+        '
+        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
+        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
+        '
+        'frmGesSichMenu
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(502, 721)
+        Me.Controls.Add(Me.dgvListe)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximumSize = New System.Drawing.Size(800, 760)
+        Me.MinimumSize = New System.Drawing.Size(499, 760)
+        Me.Name = "frmGesSichMenu"
+        Me.Text = "frmGesSichMenu"
+        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents dgvListe As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lblSaldo As Label
+    Friend WithEvents lblZollsatz As Label
+    Friend WithEvents lblReferenzwert As Label
+    Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents chkOffen As CheckBox
+    Friend WithEvents txtSuchbegriff As TextBox
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtbis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem
+End Class