Essensbestellungen

This commit is contained in:
2022-11-28 17:37:49 +01:00
parent 926580e58f
commit 4882bdfa18
2 changed files with 252 additions and 78 deletions

View File

@@ -26,28 +26,31 @@ Partial Class frmEssensbestellungen
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblWochenkarte = New System.Windows.Forms.Label()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnSave = New System.Windows.Forms.Button()
Me.lblDatum = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.cbMontag = New System.Windows.Forms.CheckBox()
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cbDienstag = New System.Windows.Forms.CheckBox()
Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cbMittwoch = New System.Windows.Forms.CheckBox()
Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cbDonnerstag = New System.Windows.Forms.CheckBox()
Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cbFreitag = New System.Windows.Forms.CheckBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuFrAlt = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuFr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
@@ -60,25 +63,18 @@ Partial Class frmEssensbestellungen
Me.ToolTipInfoMi = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoDo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoFr = New System.Windows.Forms.ToolTip(Me.components)
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAbteilung = New System.Windows.Forms.Label()
Me.lblGebaeude = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(12, 30)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(95, 21)
Me.MyComboBox1.TabIndex = 0
'
'lblWochenkarte
'
Me.lblWochenkarte.AutoSize = True
@@ -88,43 +84,6 @@ Partial Class frmEssensbestellungen
Me.lblWochenkarte.TabIndex = 1
Me.lblWochenkarte.Text = "Menü"
'
'dgvBestellungen
'
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBestellungen.AllowUserToAddRows = False
Me.dgvBestellungen.AllowUserToDeleteRows = False
Me.dgvBestellungen.AllowUserToOrderColumns = True
Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298)
Me.dgvBestellungen.Name = "dgvBestellungen"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150)
Me.dgvBestellungen.TabIndex = 2
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(565, 249)
@@ -145,6 +104,7 @@ Partial Class frmEssensbestellungen
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbMontag)
Me.GroupBox1.Controls.Add(Me.txtAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenoAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenuMo)
@@ -155,29 +115,15 @@ Partial Class frmEssensbestellungen
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Montag"
'
'rbMenuMo
'cbMontag
'
Me.rbMenuMo.AutoSize = True
Me.rbMenuMo.GroupName = Nothing
Me.rbMenuMo.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMo.Name = "rbMenuMo"
Me.rbMenuMo.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMo.TabIndex = 0
Me.rbMenuMo.TabStop = True
Me.rbMenuMo.Text = "Menü"
Me.rbMenuMo.UseVisualStyleBackColor = True
'
'rbMenoAltMo
'
Me.rbMenoAltMo.AutoSize = True
Me.rbMenoAltMo.GroupName = Nothing
Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42)
Me.rbMenoAltMo.Name = "rbMenoAltMo"
Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAltMo.TabIndex = 1
Me.rbMenoAltMo.TabStop = True
Me.rbMenoAltMo.Text = "A la carte"
Me.rbMenoAltMo.UseVisualStyleBackColor = True
Me.cbMontag.AutoSize = True
Me.cbMontag.Location = New System.Drawing.Point(3, 0)
Me.cbMontag.Name = "cbMontag"
Me.cbMontag.Size = New System.Drawing.Size(62, 17)
Me.cbMontag.TabIndex = 3
Me.cbMontag.Text = "Montag"
Me.cbMontag.UseVisualStyleBackColor = True
'
'txtAltMo
'
@@ -203,8 +149,33 @@ Partial Class frmEssensbestellungen
Me.txtAltMo.TabIndex = 2
Me.txtAltMo.Visible = False
'
'rbMenoAltMo
'
Me.rbMenoAltMo.AutoSize = True
Me.rbMenoAltMo.GroupName = "GroupBox1"
Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42)
Me.rbMenoAltMo.Name = "rbMenoAltMo"
Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAltMo.TabIndex = 1
Me.rbMenoAltMo.TabStop = True
Me.rbMenoAltMo.Text = "A la carte"
Me.rbMenoAltMo.UseVisualStyleBackColor = True
'
'rbMenuMo
'
Me.rbMenuMo.AutoSize = True
Me.rbMenuMo.GroupName = "GroupBox1"
Me.rbMenuMo.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMo.Name = "rbMenuMo"
Me.rbMenuMo.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMo.TabIndex = 0
Me.rbMenuMo.TabStop = True
Me.rbMenuMo.Text = "Menü"
Me.rbMenuMo.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.cbDienstag)
Me.GroupBox2.Controls.Add(Me.txtAltDi)
Me.GroupBox2.Controls.Add(Me.rbMenuAltDi)
Me.GroupBox2.Controls.Add(Me.rbMenuDi)
@@ -215,6 +186,16 @@ Partial Class frmEssensbestellungen
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dienstag"
'
'cbDienstag
'
Me.cbDienstag.AutoSize = True
Me.cbDienstag.Location = New System.Drawing.Point(0, 0)
Me.cbDienstag.Name = "cbDienstag"
Me.cbDienstag.Size = New System.Drawing.Size(68, 17)
Me.cbDienstag.TabIndex = 4
Me.cbDienstag.Text = "Dienstag"
Me.cbDienstag.UseVisualStyleBackColor = True
'
'txtAltDi
'
Me.txtAltDi._DateTimeOnly = False
@@ -265,6 +246,7 @@ Partial Class frmEssensbestellungen
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbMittwoch)
Me.GroupBox3.Controls.Add(Me.txtAltMi)
Me.GroupBox3.Controls.Add(Me.rbMenuAltMi)
Me.GroupBox3.Controls.Add(Me.rbMenuMi)
@@ -275,6 +257,16 @@ Partial Class frmEssensbestellungen
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Mittwoch"
'
'cbMittwoch
'
Me.cbMittwoch.AutoSize = True
Me.cbMittwoch.Location = New System.Drawing.Point(0, 0)
Me.cbMittwoch.Name = "cbMittwoch"
Me.cbMittwoch.Size = New System.Drawing.Size(69, 17)
Me.cbMittwoch.TabIndex = 5
Me.cbMittwoch.Text = "Mittwoch"
Me.cbMittwoch.UseVisualStyleBackColor = True
'
'txtAltMi
'
Me.txtAltMi._DateTimeOnly = False
@@ -325,6 +317,7 @@ Partial Class frmEssensbestellungen
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.cbDonnerstag)
Me.GroupBox4.Controls.Add(Me.txtAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuDo)
@@ -335,6 +328,16 @@ Partial Class frmEssensbestellungen
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Donnerstag"
'
'cbDonnerstag
'
Me.cbDonnerstag.AutoSize = True
Me.cbDonnerstag.Location = New System.Drawing.Point(3, 0)
Me.cbDonnerstag.Name = "cbDonnerstag"
Me.cbDonnerstag.Size = New System.Drawing.Size(81, 17)
Me.cbDonnerstag.TabIndex = 7
Me.cbDonnerstag.Text = "Donnerstag"
Me.cbDonnerstag.UseVisualStyleBackColor = True
'
'txtAltDo
'
Me.txtAltDo._DateTimeOnly = False
@@ -385,6 +388,7 @@ Partial Class frmEssensbestellungen
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt)
Me.GroupBox5.Controls.Add(Me.rbMenuFr)
@@ -395,6 +399,16 @@ Partial Class frmEssensbestellungen
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Freitag"
'
'cbFreitag
'
Me.cbFreitag.AutoSize = True
Me.cbFreitag.Location = New System.Drawing.Point(3, 0)
Me.cbFreitag.Name = "cbFreitag"
Me.cbFreitag.Size = New System.Drawing.Size(58, 17)
Me.cbFreitag.TabIndex = 6
Me.cbFreitag.Text = "Freitag"
Me.cbFreitag.UseVisualStyleBackColor = True
'
'txtAltFr
'
Me.txtAltFr._DateTimeOnly = False
@@ -479,11 +493,79 @@ Partial Class frmEssensbestellungen
Me.txtAnzahlLaCart.TabIndex = 17
Me.txtAnzahlLaCart.Text = "0"
'
'dgvBestellungen
'
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBestellungen.AllowUserToAddRows = False
Me.dgvBestellungen.AllowUserToDeleteRows = False
Me.dgvBestellungen.AllowUserToOrderColumns = True
Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298)
Me.dgvBestellungen.Name = "dgvBestellungen"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150)
Me.dgvBestellungen.TabIndex = 2
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(12, 30)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(95, 21)
Me.MyComboBox1.TabIndex = 0
'
'lblAbteilung
'
Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(472, 9)
Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18
Me.lblAbteilung.Text = "Abteilung:"
'
'lblGebaeude
'
Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(472, 30)
Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19
Me.lblGebaeude.Text = "Gebäude:"
'
'frmEssensbestellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(680, 476)
Me.Controls.Add(Me.lblGebaeude)
Me.Controls.Add(Me.lblAbteilung)
Me.Controls.Add(Me.txtAnzahlLaCart)
Me.Controls.Add(Me.txtAnzahlMenu)
Me.Controls.Add(Me.lbl2)
@@ -500,7 +582,6 @@ Partial Class frmEssensbestellungen
Me.Controls.Add(Me.MyComboBox1)
Me.Name = "frmEssensbestellungen"
Me.Text = "Essensbestellung"
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -511,6 +592,7 @@ Partial Class frmEssensbestellungen
Me.GroupBox4.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -550,4 +632,11 @@ Partial Class frmEssensbestellungen
Friend WithEvents ToolTipInfoMi As ToolTip
Friend WithEvents ToolTipInfoDo As ToolTip
Friend WithEvents ToolTipInfoFr As ToolTip
Friend WithEvents cbMontag As CheckBox
Friend WithEvents cbDienstag As CheckBox
Friend WithEvents cbMittwoch As CheckBox
Friend WithEvents cbDonnerstag As CheckBox
Friend WithEvents cbFreitag As CheckBox
Friend WithEvents lblAbteilung As Label
Friend WithEvents lblGebaeude As Label
End Class