Verbesserungen für Mestan

This commit is contained in:
ms
2020-10-07 08:06:26 +02:00
parent c142858a98
commit 1d86aa1bb9
9 changed files with 107 additions and 76 deletions

View File

@@ -22,7 +22,7 @@ Partial Class usrcntlAuftraege
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.PanTop = New System.Windows.Forms.Panel()
Me.PanOben = New System.Windows.Forms.Panel()
Me.btnReset = New System.Windows.Forms.Button()
@@ -36,6 +36,7 @@ Partial Class usrcntlAuftraege
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PanButtons = New System.Windows.Forms.Panel()
Me.btnAddTo = New System.Windows.Forms.Button()
Me.btnTrip = New System.Windows.Forms.Button()
Me.btnSuchStat = New System.Windows.Forms.Button()
Me.btnSuchAuswertung = New System.Windows.Forms.Button()
@@ -76,7 +77,6 @@ Partial Class usrcntlAuftraege
Me.Label10 = New System.Windows.Forms.Label()
Me.cbxAbliefer = New System.Windows.Forms.CheckBox()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.btnAddTo = New System.Windows.Forms.Button()
Me.PanTop.SuspendLayout()
Me.PanOben.SuspendLayout()
Me.pnlFilterAuftrag.SuspendLayout()
@@ -98,7 +98,7 @@ Partial Class usrcntlAuftraege
Me.PanTop.Location = New System.Drawing.Point(0, 0)
Me.PanTop.Margin = New System.Windows.Forms.Padding(0)
Me.PanTop.Name = "PanTop"
Me.PanTop.Size = New System.Drawing.Size(1093, 84)
Me.PanTop.Size = New System.Drawing.Size(1279, 84)
Me.PanTop.TabIndex = 3
'
'PanOben
@@ -216,7 +216,7 @@ Partial Class usrcntlAuftraege
'
Me.Panel1.BackColor = System.Drawing.Color.Transparent
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(859, 0)
Me.Panel1.Location = New System.Drawing.Point(1045, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(234, 84)
Me.Panel1.TabIndex = 0
@@ -235,18 +235,33 @@ Partial Class usrcntlAuftraege
Me.PanButtons.Controls.Add(Me.lblMs)
Me.PanButtons.Controls.Add(Me.lblAnzahl)
Me.PanButtons.Dock = System.Windows.Forms.DockStyle.Right
Me.PanButtons.Location = New System.Drawing.Point(994, 84)
Me.PanButtons.Location = New System.Drawing.Point(1180, 84)
Me.PanButtons.Name = "PanButtons"
Me.PanButtons.Size = New System.Drawing.Size(99, 711)
Me.PanButtons.Size = New System.Drawing.Size(99, 743)
Me.PanButtons.TabIndex = 1
'
'btnAddTo
'
Me.btnAddTo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAddTo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddTo.Image = Global.DISPO.My.Resources.Resources.links20
Me.btnAddTo.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAddTo.Location = New System.Drawing.Point(5, 367)
Me.btnAddTo.Name = "btnAddTo"
Me.btnAddTo.Size = New System.Drawing.Size(91, 33)
Me.btnAddTo.TabIndex = 36
Me.btnAddTo.Text = "Hinzufügen"
Me.btnAddTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddTo.UseVisualStyleBackColor = True
Me.btnAddTo.Visible = False
'
'btnTrip
'
Me.btnTrip.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnTrip.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTrip.Image = Global.DISPO.My.Resources.Resources.stift
Me.btnTrip.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTrip.Location = New System.Drawing.Point(5, 312)
Me.btnTrip.Location = New System.Drawing.Point(5, 328)
Me.btnTrip.Name = "btnTrip"
Me.btnTrip.Size = New System.Drawing.Size(91, 33)
Me.btnTrip.TabIndex = 35
@@ -259,7 +274,7 @@ Partial Class usrcntlAuftraege
Me.btnSuchStat.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSuchStat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuchStat.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuchStat.Location = New System.Drawing.Point(5, 490)
Me.btnSuchStat.Location = New System.Drawing.Point(5, 506)
Me.btnSuchStat.Name = "btnSuchStat"
Me.btnSuchStat.Size = New System.Drawing.Size(91, 46)
Me.btnSuchStat.TabIndex = 34
@@ -271,7 +286,7 @@ Partial Class usrcntlAuftraege
Me.btnSuchAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSuchAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuchAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuchAuswertung.Location = New System.Drawing.Point(5, 438)
Me.btnSuchAuswertung.Location = New System.Drawing.Point(5, 454)
Me.btnSuchAuswertung.Name = "btnSuchAuswertung"
Me.btnSuchAuswertung.Size = New System.Drawing.Size(91, 46)
Me.btnSuchAuswertung.TabIndex = 33
@@ -283,7 +298,7 @@ Partial Class usrcntlAuftraege
Me.btnAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAuswertung.Location = New System.Drawing.Point(5, 409)
Me.btnAuswertung.Location = New System.Drawing.Point(5, 425)
Me.btnAuswertung.Name = "btnAuswertung"
Me.btnAuswertung.Size = New System.Drawing.Size(91, 23)
Me.btnAuswertung.TabIndex = 32
@@ -294,7 +309,7 @@ Partial Class usrcntlAuftraege
'
Me.btnDuplicate.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnDuplicate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDuplicate.Location = New System.Drawing.Point(5, 260)
Me.btnDuplicate.Location = New System.Drawing.Point(5, 276)
Me.btnDuplicate.Name = "btnDuplicate"
Me.btnDuplicate.Size = New System.Drawing.Size(91, 33)
Me.btnDuplicate.TabIndex = 26
@@ -307,7 +322,7 @@ Partial Class usrcntlAuftraege
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Image = Global.DISPO.My.Resources.Resources.del
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.Location = New System.Drawing.Point(5, 221)
Me.btnDel.Location = New System.Drawing.Point(5, 237)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(91, 33)
Me.btnDel.TabIndex = 25
@@ -321,7 +336,7 @@ Partial Class usrcntlAuftraege
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChange.Image = Global.DISPO.My.Resources.Resources.stift
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnChange.Location = New System.Drawing.Point(5, 169)
Me.btnChange.Location = New System.Drawing.Point(5, 185)
Me.btnChange.Name = "btnChange"
Me.btnChange.Size = New System.Drawing.Size(91, 33)
Me.btnChange.TabIndex = 24
@@ -335,7 +350,7 @@ Partial Class usrcntlAuftraege
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = Global.DISPO.My.Resources.Resources.plus
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.Location = New System.Drawing.Point(5, 130)
Me.btnNew.Location = New System.Drawing.Point(5, 146)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(91, 33)
Me.btnNew.TabIndex = 23
@@ -347,7 +362,7 @@ Partial Class usrcntlAuftraege
'
Me.lblMs.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblMs.AutoSize = True
Me.lblMs.Location = New System.Drawing.Point(3, 698)
Me.lblMs.Location = New System.Drawing.Point(3, 730)
Me.lblMs.Name = "lblMs"
Me.lblMs.Size = New System.Drawing.Size(47, 13)
Me.lblMs.TabIndex = 2
@@ -357,7 +372,7 @@ Partial Class usrcntlAuftraege
'
Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Location = New System.Drawing.Point(3, 685)
Me.lblAnzahl.Location = New System.Drawing.Point(3, 717)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
Me.lblAnzahl.TabIndex = 1
@@ -367,15 +382,15 @@ Partial Class usrcntlAuftraege
'
Me.dgvAuftraege.AllowUserToAddRows = False
Me.dgvAuftraege.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAuftraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAuftraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvAuftraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAuftraege.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAuftraege.Location = New System.Drawing.Point(0, 0)
Me.dgvAuftraege.Margin = New System.Windows.Forms.Padding(0)
Me.dgvAuftraege.Name = "dgvAuftraege"
Me.dgvAuftraege.ReadOnly = True
Me.dgvAuftraege.Size = New System.Drawing.Size(994, 535)
Me.dgvAuftraege.Size = New System.Drawing.Size(1180, 567)
Me.dgvAuftraege.TabIndex = 0
'
'txtAuftraggeber
@@ -691,26 +706,11 @@ Partial Class usrcntlAuftraege
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.Transparent
Me.SplitContainer1.Panel2.Controls.Add(Me.dgvAuftraege)
Me.SplitContainer1.Size = New System.Drawing.Size(994, 711)
Me.SplitContainer1.Size = New System.Drawing.Size(1180, 743)
Me.SplitContainer1.SplitterDistance = 175
Me.SplitContainer1.SplitterWidth = 1
Me.SplitContainer1.TabIndex = 2
'
'btnAddTo
'
Me.btnAddTo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAddTo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddTo.Image = Global.DISPO.My.Resources.Resources.links20
Me.btnAddTo.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAddTo.Location = New System.Drawing.Point(5, 351)
Me.btnAddTo.Name = "btnAddTo"
Me.btnAddTo.Size = New System.Drawing.Size(91, 33)
Me.btnAddTo.TabIndex = 36
Me.btnAddTo.Text = "Hinzufügen"
Me.btnAddTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddTo.UseVisualStyleBackColor = True
Me.btnAddTo.Visible = False
'
'usrcntlAuftraege
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -723,7 +723,7 @@ Partial Class usrcntlAuftraege
Me.DoubleBuffered = True
Me.MinimumSize = New System.Drawing.Size(1000, 750)
Me.Name = "usrcntlAuftraege"
Me.Size = New System.Drawing.Size(1093, 795)
Me.Size = New System.Drawing.Size(1279, 827)
Me.PanTop.ResumeLayout(False)
Me.PanOben.ResumeLayout(False)
Me.PanOben.PerformLayout()