diff --git a/Aviso/frmEssensbestellungen.Designer.vb b/Aviso/frmEssensbestellungen.Designer.vb index cf1a3fa..38051c0 100644 --- a/Aviso/frmEssensbestellungen.Designer.vb +++ b/Aviso/frmEssensbestellungen.Designer.vb @@ -23,24 +23,46 @@ Partial Class frmEssensbestellungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblWochenkarte = New System.Windows.Forms.Label() Me.btnSave = New System.Windows.Forms.Button() Me.lblDatum = New System.Windows.Forms.Label() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.pbMontag = New System.Windows.Forms.PictureBox() - Me.cbMontag = New System.Windows.Forms.CheckBox() - Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components) + Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components) + 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) + Me.lblAbteilung = New System.Windows.Forms.Label() + Me.lblGebaeude = New System.Windows.Forms.Label() + Me.lblBestellungen = New System.Windows.Forms.Label() + Me.lblBestellungBis = New System.Windows.Forms.Label() + Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.txtPreis = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() Me.Dienstag = New System.Windows.Forms.GroupBox() Me.pbDienstag = New System.Windows.Forms.PictureBox() Me.cbDienstag = New System.Windows.Forms.CheckBox() Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.rbMenuAlt_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.lbl1 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.pbMontag = New System.Windows.Forms.PictureBox() + Me.cbMontag = New System.Windows.Forms.CheckBox() + Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.pbFreitag = New System.Windows.Forms.PictureBox() + Me.cbFreitag = New System.Windows.Forms.CheckBox() + Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.txtAnzahlLaCart = New System.Windows.Forms.Label() + Me.lbl2 = New System.Windows.Forms.Label() Me.Mittwoch = New System.Windows.Forms.GroupBox() Me.pbMittwoch = New System.Windows.Forms.PictureBox() Me.cbMittwoch = New System.Windows.Forms.CheckBox() @@ -53,43 +75,21 @@ Partial Class frmEssensbestellungen Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.rbMenuAlt_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.pbFreitag = New System.Windows.Forms.PictureBox() - Me.cbFreitag = New System.Windows.Forms.CheckBox() - Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rbMenuAlt_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.rbMenu_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.lbl1 = New System.Windows.Forms.Label() - Me.lbl2 = New System.Windows.Forms.Label() Me.txtAnzahlMenu = New System.Windows.Forms.Label() - Me.txtAnzahlLaCart = New System.Windows.Forms.Label() - Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components) - Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components) - 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) Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblAbteilung = New System.Windows.Forms.Label() - Me.lblGebaeude = New System.Windows.Forms.Label() - Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) - Me.lblBestellungen = New System.Windows.Forms.Label() - Me.txtPreis = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblBestellungBis = New System.Windows.Forms.Label() - Me.GroupBox1.SuspendLayout() - CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MyPanel1.SuspendLayout() Me.Dienstag.SuspendLayout() CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit() Me.Mittwoch.SuspendLayout() CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox5.SuspendLayout() - CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() - Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' 'lblWochenkarte @@ -119,6 +119,180 @@ Partial Class frmEssensbestellungen Me.lblDatum.TabIndex = 11 Me.lblDatum.Text = "Datum:" ' + 'lblAbteilung + ' + Me.lblAbteilung.AutoSize = True + Me.lblAbteilung.Location = New System.Drawing.Point(511, 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(511, 27) + Me.lblGebaeude.Name = "lblGebaeude" + Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) + Me.lblGebaeude.TabIndex = 19 + Me.lblGebaeude.Text = "Gebäude:" + ' + 'lblBestellungen + ' + Me.lblBestellungen.AutoSize = True + Me.lblBestellungen.Location = New System.Drawing.Point(9, 335) + Me.lblBestellungen.Name = "lblBestellungen" + Me.lblBestellungen.Size = New System.Drawing.Size(100, 13) + Me.lblBestellungen.TabIndex = 20 + Me.lblBestellungen.Text = "Meine Bestellungen" + ' + 'lblBestellungBis + ' + Me.lblBestellungBis.AutoSize = True + Me.lblBestellungBis.Location = New System.Drawing.Point(167, 38) + Me.lblBestellungBis.Name = "lblBestellungBis" + Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13) + Me.lblBestellungBis.TabIndex = 22 + Me.lblBestellungBis.Text = "Bestellung möglich bis:" + ' + 'cbxGebauede + ' + Me.cbxGebauede._allowedValuesFreiText = Nothing + Me.cbxGebauede._allowFreiText = False + Me.cbxGebauede._value = "" + Me.cbxGebauede.FormattingEnabled = True + Me.cbxGebauede.Location = New System.Drawing.Point(580, 24) + Me.cbxGebauede.Name = "cbxGebauede" + Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) + Me.cbxGebauede.TabIndex = 21 + ' + 'MyPanel1 + ' + Me.MyPanel1.Controls.Add(Me.txtPreis) + Me.MyPanel1.Controls.Add(Me.Label2) + Me.MyPanel1.Controls.Add(Me.Dienstag) + Me.MyPanel1.Controls.Add(Me.lbl1) + Me.MyPanel1.Controls.Add(Me.GroupBox1) + Me.MyPanel1.Controls.Add(Me.GroupBox5) + Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) + Me.MyPanel1.Controls.Add(Me.lbl2) + Me.MyPanel1.Controls.Add(Me.Mittwoch) + Me.MyPanel1.Controls.Add(Me.GroupBox4) + Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) + Me.MyPanel1.Location = New System.Drawing.Point(12, 67) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(667, 240) + Me.MyPanel1.TabIndex = 18 + ' + 'txtPreis + ' + Me.txtPreis.AutoSize = True + Me.txtPreis.Location = New System.Drawing.Point(553, 181) + Me.txtPreis.Name = "txtPreis" + Me.txtPreis.Size = New System.Drawing.Size(13, 13) + Me.txtPreis.TabIndex = 19 + Me.txtPreis.Text = "0" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(463, 181) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(68, 13) + Me.Label2.TabIndex = 18 + Me.Label2.Text = "Gesamtpreis:" + ' + 'Dienstag + ' + Me.Dienstag.Controls.Add(Me.pbDienstag) + Me.Dienstag.Controls.Add(Me.cbDienstag) + Me.Dienstag.Controls.Add(Me.txtAltDi) + Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di) + Me.Dienstag.Controls.Add(Me.rbMenu_Di) + Me.Dienstag.Location = New System.Drawing.Point(225, 8) + Me.Dienstag.Name = "Dienstag" + Me.Dienstag.Size = New System.Drawing.Size(200, 95) + Me.Dienstag.TabIndex = 13 + Me.Dienstag.TabStop = False + Me.Dienstag.Text = "Dienstag" + ' + 'pbDienstag + ' + Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pbDienstag.Location = New System.Drawing.Point(61, 23) + Me.pbDienstag.Name = "pbDienstag" + Me.pbDienstag.Size = New System.Drawing.Size(17, 13) + Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pbDienstag.TabIndex = 5 + Me.pbDienstag.TabStop = False + ' + '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 + Me.txtAltDi._numbersOnly = False + Me.txtAltDi._numbersOnlyKommastellen = "" + Me.txtAltDi._numbersOnlyTrennzeichen = True + Me.txtAltDi._Prozent = False + Me.txtAltDi._ShortDateNew = False + Me.txtAltDi._ShortDateOnly = False + Me.txtAltDi._TimeOnly = False + Me.txtAltDi._TimeOnly_Seconds = False + Me.txtAltDi._value = "" + Me.txtAltDi._Waehrung = False + Me.txtAltDi._WaehrungZeichen = True + Me.txtAltDi.ForeColor = System.Drawing.Color.Black + Me.txtAltDi.Location = New System.Drawing.Point(0, 65) + Me.txtAltDi.MaxLineLength = -1 + Me.txtAltDi.MaxLines_Warning = "" + Me.txtAltDi.MaxLines_Warning_Label = Nothing + Me.txtAltDi.Name = "txtAltDi" + Me.txtAltDi.Size = New System.Drawing.Size(177, 20) + Me.txtAltDi.TabIndex = 2 + Me.txtAltDi.Visible = False + ' + 'rbMenuAlt_Di + ' + Me.rbMenuAlt_Di.AutoSize = True + Me.rbMenuAlt_Di.GroupName = "Dienstag" + Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42) + Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di" + Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_Di.TabIndex = 1 + Me.rbMenuAlt_Di.TabStop = True + Me.rbMenuAlt_Di.Text = "A la carte" + Me.rbMenuAlt_Di.UseVisualStyleBackColor = True + ' + 'rbMenu_Di + ' + Me.rbMenu_Di.AutoSize = True + Me.rbMenu_Di.GroupName = "Dienstag" + Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_Di.Name = "rbMenu_Di" + Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_Di.TabIndex = 0 + Me.rbMenu_Di.TabStop = True + Me.rbMenu_Di.Text = "Menü" + Me.rbMenu_Di.UseVisualStyleBackColor = True + ' + 'lbl1 + ' + Me.lbl1.AutoSize = True + Me.lbl1.Location = New System.Drawing.Point(463, 128) + Me.lbl1.Name = "lbl1" + Me.lbl1.Size = New System.Drawing.Size(72, 13) + Me.lbl1.TabIndex = 14 + Me.lbl1.Text = "Anzahl Menü:" + ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.pbMontag) @@ -201,87 +375,105 @@ Partial Class frmEssensbestellungen Me.rbMenu_Mo.Text = "Menü" Me.rbMenu_Mo.UseVisualStyleBackColor = True ' - 'Dienstag + 'GroupBox5 ' - Me.Dienstag.Controls.Add(Me.pbDienstag) - Me.Dienstag.Controls.Add(Me.cbDienstag) - Me.Dienstag.Controls.Add(Me.txtAltDi) - Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di) - Me.Dienstag.Controls.Add(Me.rbMenu_Di) - Me.Dienstag.Location = New System.Drawing.Point(225, 8) - Me.Dienstag.Name = "Dienstag" - Me.Dienstag.Size = New System.Drawing.Size(200, 95) - Me.Dienstag.TabIndex = 13 - Me.Dienstag.TabStop = False - Me.Dienstag.Text = "Dienstag" + Me.GroupBox5.Controls.Add(Me.pbFreitag) + Me.GroupBox5.Controls.Add(Me.cbFreitag) + Me.GroupBox5.Controls.Add(Me.txtAltFr) + Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr) + Me.GroupBox5.Controls.Add(Me.rbMenu_Fr) + Me.GroupBox5.Location = New System.Drawing.Point(225, 109) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(200, 95) + Me.GroupBox5.TabIndex = 13 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "Freitag" ' - 'pbDienstag + 'pbFreitag ' - Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbDienstag.Location = New System.Drawing.Point(61, 23) - Me.pbDienstag.Name = "pbDienstag" - Me.pbDienstag.Size = New System.Drawing.Size(17, 13) - Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbDienstag.TabIndex = 5 - Me.pbDienstag.TabStop = False + Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pbFreitag.Location = New System.Drawing.Point(61, 23) + Me.pbFreitag.Name = "pbFreitag" + Me.pbFreitag.Size = New System.Drawing.Size(17, 13) + Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pbFreitag.TabIndex = 8 + Me.pbFreitag.TabStop = False ' - 'cbDienstag + 'cbFreitag ' - 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 + 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 ' - 'txtAltDi + 'txtAltFr ' - Me.txtAltDi._DateTimeOnly = False - Me.txtAltDi._numbersOnly = False - Me.txtAltDi._numbersOnlyKommastellen = "" - Me.txtAltDi._numbersOnlyTrennzeichen = True - Me.txtAltDi._Prozent = False - Me.txtAltDi._ShortDateNew = False - Me.txtAltDi._ShortDateOnly = False - Me.txtAltDi._TimeOnly = False - Me.txtAltDi._TimeOnly_Seconds = False - Me.txtAltDi._value = "" - Me.txtAltDi._Waehrung = False - Me.txtAltDi._WaehrungZeichen = True - Me.txtAltDi.ForeColor = System.Drawing.Color.Black - Me.txtAltDi.Location = New System.Drawing.Point(0, 65) - Me.txtAltDi.MaxLineLength = -1 - Me.txtAltDi.MaxLines_Warning = "" - Me.txtAltDi.MaxLines_Warning_Label = Nothing - Me.txtAltDi.Name = "txtAltDi" - Me.txtAltDi.Size = New System.Drawing.Size(177, 20) - Me.txtAltDi.TabIndex = 2 - Me.txtAltDi.Visible = False + Me.txtAltFr._DateTimeOnly = False + Me.txtAltFr._numbersOnly = False + Me.txtAltFr._numbersOnlyKommastellen = "" + Me.txtAltFr._numbersOnlyTrennzeichen = True + Me.txtAltFr._Prozent = False + Me.txtAltFr._ShortDateNew = False + Me.txtAltFr._ShortDateOnly = False + Me.txtAltFr._TimeOnly = False + Me.txtAltFr._TimeOnly_Seconds = False + Me.txtAltFr._value = "" + Me.txtAltFr._Waehrung = False + Me.txtAltFr._WaehrungZeichen = True + Me.txtAltFr.ForeColor = System.Drawing.Color.Black + Me.txtAltFr.Location = New System.Drawing.Point(0, 65) + Me.txtAltFr.MaxLineLength = -1 + Me.txtAltFr.MaxLines_Warning = "" + Me.txtAltFr.MaxLines_Warning_Label = Nothing + Me.txtAltFr.Name = "txtAltFr" + Me.txtAltFr.Size = New System.Drawing.Size(177, 20) + Me.txtAltFr.TabIndex = 2 + Me.txtAltFr.Visible = False ' - 'rbMenuAlt_Di + 'rbMenuAlt_Fr ' - Me.rbMenuAlt_Di.AutoSize = True - Me.rbMenuAlt_Di.GroupName = "Dienstag" - Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42) - Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di" - Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_Di.TabIndex = 1 - Me.rbMenuAlt_Di.TabStop = True - Me.rbMenuAlt_Di.Text = "A la carte" - Me.rbMenuAlt_Di.UseVisualStyleBackColor = True + Me.rbMenuAlt_Fr.AutoSize = True + Me.rbMenuAlt_Fr.GroupName = "Freitag" + Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42) + Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr" + Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_Fr.TabIndex = 1 + Me.rbMenuAlt_Fr.TabStop = True + Me.rbMenuAlt_Fr.Text = "A la carte" + Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True ' - 'rbMenu_Di + 'rbMenu_Fr ' - Me.rbMenu_Di.AutoSize = True - Me.rbMenu_Di.GroupName = "Dienstag" - Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_Di.Name = "rbMenu_Di" - Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_Di.TabIndex = 0 - Me.rbMenu_Di.TabStop = True - Me.rbMenu_Di.Text = "Menü" - Me.rbMenu_Di.UseVisualStyleBackColor = True + Me.rbMenu_Fr.AutoSize = True + Me.rbMenu_Fr.GroupName = "Freitag" + Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_Fr.Name = "rbMenu_Fr" + Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_Fr.TabIndex = 0 + Me.rbMenu_Fr.TabStop = True + Me.rbMenu_Fr.Text = "Menü" + Me.rbMenu_Fr.UseVisualStyleBackColor = True + ' + 'txtAnzahlLaCart + ' + Me.txtAnzahlLaCart.AutoSize = True + Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155) + Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart" + Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13) + Me.txtAnzahlLaCart.TabIndex = 17 + Me.txtAnzahlLaCart.Text = "0" + ' + 'lbl2 + ' + Me.lbl2.AutoSize = True + Me.lbl2.Location = New System.Drawing.Point(463, 155) + Me.lbl2.Name = "lbl2" + Me.lbl2.Size = New System.Drawing.Size(90, 13) + Me.lbl2.TabIndex = 15 + Me.lbl2.Text = "Anzahl a la Carte:" ' 'Mittwoch ' @@ -447,106 +639,6 @@ Partial Class frmEssensbestellungen Me.rbMenu_Do.Text = "Menü" Me.rbMenu_Do.UseVisualStyleBackColor = True ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.pbFreitag) - Me.GroupBox5.Controls.Add(Me.cbFreitag) - Me.GroupBox5.Controls.Add(Me.txtAltFr) - Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr) - Me.GroupBox5.Controls.Add(Me.rbMenu_Fr) - Me.GroupBox5.Location = New System.Drawing.Point(225, 109) - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(200, 95) - Me.GroupBox5.TabIndex = 13 - Me.GroupBox5.TabStop = False - Me.GroupBox5.Text = "Freitag" - ' - 'pbFreitag - ' - Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbFreitag.Location = New System.Drawing.Point(61, 23) - Me.pbFreitag.Name = "pbFreitag" - Me.pbFreitag.Size = New System.Drawing.Size(17, 13) - Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbFreitag.TabIndex = 8 - Me.pbFreitag.TabStop = False - ' - '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 - Me.txtAltFr._numbersOnly = False - Me.txtAltFr._numbersOnlyKommastellen = "" - Me.txtAltFr._numbersOnlyTrennzeichen = True - Me.txtAltFr._Prozent = False - Me.txtAltFr._ShortDateNew = False - Me.txtAltFr._ShortDateOnly = False - Me.txtAltFr._TimeOnly = False - Me.txtAltFr._TimeOnly_Seconds = False - Me.txtAltFr._value = "" - Me.txtAltFr._Waehrung = False - Me.txtAltFr._WaehrungZeichen = True - Me.txtAltFr.ForeColor = System.Drawing.Color.Black - Me.txtAltFr.Location = New System.Drawing.Point(0, 65) - Me.txtAltFr.MaxLineLength = -1 - Me.txtAltFr.MaxLines_Warning = "" - Me.txtAltFr.MaxLines_Warning_Label = Nothing - Me.txtAltFr.Name = "txtAltFr" - Me.txtAltFr.Size = New System.Drawing.Size(177, 20) - Me.txtAltFr.TabIndex = 2 - Me.txtAltFr.Visible = False - ' - 'rbMenuAlt_Fr - ' - Me.rbMenuAlt_Fr.AutoSize = True - Me.rbMenuAlt_Fr.GroupName = "Freitag" - Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42) - Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr" - Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_Fr.TabIndex = 1 - Me.rbMenuAlt_Fr.TabStop = True - Me.rbMenuAlt_Fr.Text = "A la carte" - Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True - ' - 'rbMenu_Fr - ' - Me.rbMenu_Fr.AutoSize = True - Me.rbMenu_Fr.GroupName = "Freitag" - Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_Fr.Name = "rbMenu_Fr" - Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_Fr.TabIndex = 0 - Me.rbMenu_Fr.TabStop = True - Me.rbMenu_Fr.Text = "Menü" - Me.rbMenu_Fr.UseVisualStyleBackColor = True - ' - 'lbl1 - ' - Me.lbl1.AutoSize = True - Me.lbl1.Location = New System.Drawing.Point(463, 128) - Me.lbl1.Name = "lbl1" - Me.lbl1.Size = New System.Drawing.Size(72, 13) - Me.lbl1.TabIndex = 14 - Me.lbl1.Text = "Anzahl Menü:" - ' - 'lbl2 - ' - Me.lbl2.AutoSize = True - Me.lbl2.Location = New System.Drawing.Point(463, 155) - Me.lbl2.Name = "lbl2" - Me.lbl2.Size = New System.Drawing.Size(90, 13) - Me.lbl2.TabIndex = 15 - Me.lbl2.Text = "Anzahl a la Carte:" - ' 'txtAnzahlMenu ' Me.txtAnzahlMenu.AutoSize = True @@ -556,15 +648,6 @@ Partial Class frmEssensbestellungen Me.txtAnzahlMenu.TabIndex = 16 Me.txtAnzahlMenu.Text = "0" ' - 'txtAnzahlLaCart - ' - Me.txtAnzahlLaCart.AutoSize = True - Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155) - Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart" - Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13) - Me.txtAnzahlLaCart.TabIndex = 17 - Me.txtAnzahlLaCart.Text = "0" - ' 'dgvBestellungen ' Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1 @@ -572,34 +655,34 @@ Partial Class frmEssensbestellungen 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 + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 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 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvBestellungen.Location = New System.Drawing.Point(12, 351) Me.dgvBestellungen.Name = "dgvBestellungen" Me.dgvBestellungen.ReadOnly = True - 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 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvBestellungen.ShowEditingIcon = False Me.dgvBestellungen.Size = New System.Drawing.Size(663, 127) @@ -616,89 +699,6 @@ Partial Class frmEssensbestellungen Me.cbxMenu.Size = New System.Drawing.Size(95, 21) Me.cbxMenu.TabIndex = 0 ' - 'lblAbteilung - ' - Me.lblAbteilung.AutoSize = True - Me.lblAbteilung.Location = New System.Drawing.Point(511, 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(511, 27) - Me.lblGebaeude.Name = "lblGebaeude" - Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) - Me.lblGebaeude.TabIndex = 19 - Me.lblGebaeude.Text = "Gebäude:" - ' - 'MyPanel1 - ' - Me.MyPanel1.Controls.Add(Me.txtPreis) - Me.MyPanel1.Controls.Add(Me.Label2) - Me.MyPanel1.Controls.Add(Me.Dienstag) - Me.MyPanel1.Controls.Add(Me.lbl1) - Me.MyPanel1.Controls.Add(Me.GroupBox1) - Me.MyPanel1.Controls.Add(Me.GroupBox5) - Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) - Me.MyPanel1.Controls.Add(Me.lbl2) - Me.MyPanel1.Controls.Add(Me.Mittwoch) - Me.MyPanel1.Controls.Add(Me.GroupBox4) - Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) - Me.MyPanel1.Location = New System.Drawing.Point(12, 67) - Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(667, 240) - Me.MyPanel1.TabIndex = 18 - ' - 'lblBestellungen - ' - Me.lblBestellungen.AutoSize = True - Me.lblBestellungen.Location = New System.Drawing.Point(9, 335) - Me.lblBestellungen.Name = "lblBestellungen" - Me.lblBestellungen.Size = New System.Drawing.Size(100, 13) - Me.lblBestellungen.TabIndex = 20 - Me.lblBestellungen.Text = "Meine Bestellungen" - ' - 'txtPreis - ' - Me.txtPreis.AutoSize = True - Me.txtPreis.Location = New System.Drawing.Point(553, 181) - Me.txtPreis.Name = "txtPreis" - Me.txtPreis.Size = New System.Drawing.Size(13, 13) - Me.txtPreis.TabIndex = 19 - Me.txtPreis.Text = "0" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(463, 181) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(68, 13) - Me.Label2.TabIndex = 18 - Me.Label2.Text = "Gesamtpreis:" - ' - 'cbxGebauede - ' - Me.cbxGebauede._allowedValuesFreiText = Nothing - Me.cbxGebauede._allowFreiText = False - Me.cbxGebauede._value = "" - Me.cbxGebauede.FormattingEnabled = True - Me.cbxGebauede.Location = New System.Drawing.Point(580, 24) - Me.cbxGebauede.Name = "cbxGebauede" - Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) - Me.cbxGebauede.TabIndex = 21 - ' - 'lblBestellungBis - ' - Me.lblBestellungBis.AutoSize = True - Me.lblBestellungBis.Location = New System.Drawing.Point(167, 38) - Me.lblBestellungBis.Name = "lblBestellungBis" - Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13) - Me.lblBestellungBis.TabIndex = 22 - Me.lblBestellungBis.Text = "Bestellung möglich bis:" - ' 'frmEssensbestellungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -717,24 +717,24 @@ Partial Class frmEssensbestellungen Me.Controls.Add(Me.cbxMenu) Me.Name = "frmEssensbestellungen" Me.Text = "Essensbestellung" - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit() + Me.MyPanel1.ResumeLayout(False) + Me.MyPanel1.PerformLayout() Me.Dienstag.ResumeLayout(False) Me.Dienstag.PerformLayout() CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit() Me.Mittwoch.ResumeLayout(False) Me.Mittwoch.PerformLayout() CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() - Me.MyPanel1.ResumeLayout(False) - Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index 6e2d325..fbe3edb 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/Aviso/frmEssensbestellungen.vb @@ -94,6 +94,9 @@ Public Class frmEssensbestellungen If txtPreis.Text IsNot "" Then essen.eb_preis = CDbl(txtPreis.Text) End If + + essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) + essen.SAVE() loadDGVBestellungen() @@ -437,4 +440,7 @@ Public Class frmEssensbestellungen End Function + Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click + countChecks() + End Sub End Class \ No newline at end of file