Partial Class 生產控制表 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 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 '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() 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() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label22 = New System.Windows.Forms.Label() Me.依客戶_成本_tb = New System.Windows.Forms.TextBox() Me.客戶名稱_tb = New System.Windows.Forms.TextBox() Me.Label20 = New System.Windows.Forms.Label() Me.總成本_tb = New System.Windows.Forms.TextBox() Me.Label15 = New System.Windows.Forms.Label() Me.已完成_成本_tb = New System.Windows.Forms.TextBox() Me.Label10 = New System.Windows.Forms.Label() Me.未完成_成本_tb = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.部分清單_dgv = New System.Windows.Forms.DataGridView() Me.下個月_bt = New System.Windows.Forms.Button() Me.上個月_bt = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker() Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.彙總_dgv = New System.Windows.Forms.DataGridView() Me.完整清單_dgv = New System.Windows.Forms.DataGridView() Me.顯示彙總_ch = New System.Windows.Forms.CheckBox() Me.隱藏單據編號_ch = New System.Windows.Forms.CheckBox() Me.隱藏供應商_ch = New System.Windows.Forms.CheckBox() Me.隱藏尺寸材質_ch = New System.Windows.Forms.CheckBox() Me.隱藏完成資料_ch = New System.Windows.Forms.CheckBox() Me.一般月_ch = New System.Windows.Forms.CheckBox() Me.會計月_ch = New System.Windows.Forms.CheckBox() Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker() CType(Me.部分清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.完整清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label22 ' Me.Label22.AutoSize = True Me.Label22.ForeColor = System.Drawing.Color.Black Me.Label22.Location = New System.Drawing.Point(900, 8) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(32, 16) Me.Label22.TabIndex = 1063 Me.Label22.Text = "客戶" ' '依客戶_成本_tb ' Me.依客戶_成本_tb.ForeColor = System.Drawing.Color.Purple Me.依客戶_成本_tb.Location = New System.Drawing.Point(1137, 5) Me.依客戶_成本_tb.Name = "依客戶_成本_tb" Me.依客戶_成本_tb.Size = New System.Drawing.Size(100, 23) Me.依客戶_成本_tb.TabIndex = 1051 Me.依客戶_成本_tb.Text = "0" Me.依客戶_成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '客戶名稱_tb ' Me.客戶名稱_tb.ForeColor = System.Drawing.Color.Black Me.客戶名稱_tb.Location = New System.Drawing.Point(938, 5) Me.客戶名稱_tb.Name = "客戶名稱_tb" Me.客戶名稱_tb.Size = New System.Drawing.Size(100, 23) Me.客戶名稱_tb.TabIndex = 1064 Me.客戶名稱_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label20 ' Me.Label20.AutoSize = True Me.Label20.ForeColor = System.Drawing.Color.Purple Me.Label20.Location = New System.Drawing.Point(1040, 8) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(97, 16) Me.Label20.TabIndex = 1050 Me.Label20.Text = "物料成本_依客戶" ' '總成本_tb ' Me.總成本_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.總成本_tb.Location = New System.Drawing.Point(1137, 31) Me.總成本_tb.Name = "總成本_tb" Me.總成本_tb.Size = New System.Drawing.Size(100, 23) Me.總成本_tb.TabIndex = 1051 Me.總成本_tb.Text = "0" Me.總成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label15 ' Me.Label15.AutoSize = True Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Label15.Location = New System.Drawing.Point(1051, 34) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(80, 16) Me.Label15.TabIndex = 1050 Me.Label15.Text = "組裝物料成本" ' '已完成_成本_tb ' Me.已完成_成本_tb.ForeColor = System.Drawing.Color.Green Me.已完成_成本_tb.Location = New System.Drawing.Point(938, 31) Me.已完成_成本_tb.Name = "已完成_成本_tb" Me.已完成_成本_tb.Size = New System.Drawing.Size(100, 23) Me.已完成_成本_tb.TabIndex = 1051 Me.已完成_成本_tb.Text = "0" Me.已完成_成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.ForeColor = System.Drawing.Color.Green Me.Label10.Location = New System.Drawing.Point(811, 34) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(121, 16) Me.Label10.TabIndex = 1050 Me.Label10.Text = "已完成組裝_物料成本" ' '未完成_成本_tb ' Me.未完成_成本_tb.ForeColor = System.Drawing.Color.Maroon Me.未完成_成本_tb.Location = New System.Drawing.Point(705, 31) Me.未完成_成本_tb.Name = "未完成_成本_tb" Me.未完成_成本_tb.Size = New System.Drawing.Size(100, 23) Me.未完成_成本_tb.TabIndex = 1051 Me.未完成_成本_tb.Text = "0" Me.未完成_成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.ForeColor = System.Drawing.Color.Maroon Me.Label7.Location = New System.Drawing.Point(578, 34) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(121, 16) Me.Label7.TabIndex = 1050 Me.Label7.Text = "未完成組裝_物料成本" ' '部分清單_dgv ' Me.部分清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.部分清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.部分清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.部分清單_dgv.Location = New System.Drawing.Point(425, 55) Me.部分清單_dgv.Name = "部分清單_dgv" Me.部分清單_dgv.RowHeadersWidth = 5 DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.部分清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1 Me.部分清單_dgv.RowTemplate.Height = 24 Me.部分清單_dgv.Size = New System.Drawing.Size(817, 550) Me.部分清單_dgv.TabIndex = 1068 ' '下個月_bt ' Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.下個月_bt.Location = New System.Drawing.Point(211, 27) Me.下個月_bt.Name = "下個月_bt" Me.下個月_bt.Size = New System.Drawing.Size(97, 23) Me.下個月_bt.TabIndex = 1067 Me.下個月_bt.Text = "下個月" Me.下個月_bt.UseVisualStyleBackColor = True ' '上個月_bt ' Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.上個月_bt.Location = New System.Drawing.Point(211, 4) Me.上個月_bt.Name = "上個月_bt" Me.上個月_bt.Size = New System.Drawing.Size(97, 23) Me.上個月_bt.TabIndex = 1066 Me.上個月_bt.Text = "上個月" Me.上個月_bt.UseVisualStyleBackColor = True ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(96, 8) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(20, 16) Me.Label4.TabIndex = 1065 Me.Label4.Text = "到" ' '結束日期_dtp ' Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.結束日期_dtp.Location = New System.Drawing.Point(118, 4) Me.結束日期_dtp.Name = "結束日期_dtp" Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23) Me.結束日期_dtp.TabIndex = 1064 ' '開始日期_dtp ' Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.開始日期_dtp.Location = New System.Drawing.Point(7, 4) Me.開始日期_dtp.Name = "開始日期_dtp" Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23) Me.開始日期_dtp.TabIndex = 1063 ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26) ' '重新整理ToolStripMenuItem ' Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem" Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(122, 22) Me.重新整理ToolStripMenuItem.Text = "重新整理" ' '彙總_dgv ' DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.彙總_dgv.Location = New System.Drawing.Point(7, 55) Me.彙總_dgv.Name = "彙總_dgv" Me.彙總_dgv.RowHeadersWidth = 5 DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.彙總_dgv.RowTemplate.Height = 24 Me.彙總_dgv.Size = New System.Drawing.Size(412, 550) Me.彙總_dgv.TabIndex = 1086 ' '完整清單_dgv ' Me.完整清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.完整清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.完整清單_dgv.Location = New System.Drawing.Point(425, 55) Me.完整清單_dgv.Name = "完整清單_dgv" Me.完整清單_dgv.RowHeadersWidth = 5 DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.完整清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4 Me.完整清單_dgv.RowTemplate.Height = 24 Me.完整清單_dgv.Size = New System.Drawing.Size(817, 550) Me.完整清單_dgv.TabIndex = 1087 ' '顯示彙總_ch ' Me.顯示彙總_ch.AutoSize = True Me.顯示彙總_ch.Location = New System.Drawing.Point(314, 6) Me.顯示彙總_ch.Name = "顯示彙總_ch" Me.顯示彙總_ch.Size = New System.Drawing.Size(87, 20) Me.顯示彙總_ch.TabIndex = 1091 Me.顯示彙總_ch.Text = "顯示彙總表" Me.顯示彙總_ch.UseVisualStyleBackColor = True ' '隱藏單據編號_ch ' Me.隱藏單據編號_ch.AutoSize = True Me.隱藏單據編號_ch.Location = New System.Drawing.Point(314, 29) Me.隱藏單據編號_ch.Name = "隱藏單據編號_ch" Me.隱藏單據編號_ch.Size = New System.Drawing.Size(99, 20) Me.隱藏單據編號_ch.TabIndex = 1094 Me.隱藏單據編號_ch.Text = "隱藏單據編號" Me.隱藏單據編號_ch.UseVisualStyleBackColor = True ' '隱藏供應商_ch ' Me.隱藏供應商_ch.AutoSize = True Me.隱藏供應商_ch.Location = New System.Drawing.Point(425, 6) Me.隱藏供應商_ch.Name = "隱藏供應商_ch" Me.隱藏供應商_ch.Size = New System.Drawing.Size(87, 20) Me.隱藏供應商_ch.TabIndex = 1093 Me.隱藏供應商_ch.Text = "隱藏供應商" Me.隱藏供應商_ch.UseVisualStyleBackColor = True ' '隱藏尺寸材質_ch ' Me.隱藏尺寸材質_ch.AutoSize = True Me.隱藏尺寸材質_ch.Location = New System.Drawing.Point(518, 6) Me.隱藏尺寸材質_ch.Name = "隱藏尺寸材質_ch" Me.隱藏尺寸材質_ch.Size = New System.Drawing.Size(111, 20) Me.隱藏尺寸材質_ch.TabIndex = 1095 Me.隱藏尺寸材質_ch.Text = "隱藏尺寸、材質" Me.隱藏尺寸材質_ch.UseVisualStyleBackColor = True ' '隱藏完成資料_ch ' Me.隱藏完成資料_ch.AutoSize = True Me.隱藏完成資料_ch.Location = New System.Drawing.Point(425, 33) Me.隱藏完成資料_ch.Name = "隱藏完成資料_ch" Me.隱藏完成資料_ch.Size = New System.Drawing.Size(99, 20) Me.隱藏完成資料_ch.TabIndex = 1096 Me.隱藏完成資料_ch.Text = "隱藏完成資料" Me.隱藏完成資料_ch.UseVisualStyleBackColor = True ' '一般月_ch ' Me.一般月_ch.AutoSize = True Me.一般月_ch.Location = New System.Drawing.Point(140, 30) Me.一般月_ch.Name = "一般月_ch" Me.一般月_ch.Size = New System.Drawing.Size(63, 20) Me.一般月_ch.TabIndex = 1098 Me.一般月_ch.Text = "一般月" Me.一般月_ch.UseVisualStyleBackColor = True ' '會計月_ch ' Me.會計月_ch.AutoSize = True Me.會計月_ch.Checked = True Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked Me.會計月_ch.Location = New System.Drawing.Point(10, 30) Me.會計月_ch.Name = "會計月_ch" Me.會計月_ch.Size = New System.Drawing.Size(63, 20) Me.會計月_ch.TabIndex = 1097 Me.會計月_ch.Text = "會計月" Me.會計月_ch.UseVisualStyleBackColor = True ' '中間日期_dtp ' Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.中間日期_dtp.Location = New System.Drawing.Point(79, 29) Me.中間日期_dtp.Name = "中間日期_dtp" Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23) Me.中間日期_dtp.TabIndex = 1167 ' '生產控制表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1249, 611) Me.ContextMenuStrip = Me.ContextMenuStrip1 Me.Controls.Add(Me.中間日期_dtp) Me.Controls.Add(Me.一般月_ch) Me.Controls.Add(Me.會計月_ch) Me.Controls.Add(Me.隱藏完成資料_ch) Me.Controls.Add(Me.隱藏尺寸材質_ch) Me.Controls.Add(Me.隱藏單據編號_ch) Me.Controls.Add(Me.隱藏供應商_ch) Me.Controls.Add(Me.顯示彙總_ch) Me.Controls.Add(Me.總成本_tb) Me.Controls.Add(Me.已完成_成本_tb) Me.Controls.Add(Me.未完成_成本_tb) Me.Controls.Add(Me.Label22) Me.Controls.Add(Me.依客戶_成本_tb) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.客戶名稱_tb) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.下個月_bt) Me.Controls.Add(Me.上個月_bt) Me.Controls.Add(Me.Label20) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.結束日期_dtp) Me.Controls.Add(Me.開始日期_dtp) Me.Controls.Add(Me.彙總_dgv) Me.Controls.Add(Me.完整清單_dgv) Me.Controls.Add(Me.部分清單_dgv) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "生產控制表" Me.Text = "生產控制表" CType(Me.部分清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.完整清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label22 As Label Friend WithEvents 依客戶_成本_tb As TextBox Friend WithEvents 客戶名稱_tb As TextBox Friend WithEvents Label20 As Label Friend WithEvents 總成本_tb As TextBox Friend WithEvents Label15 As Label Friend WithEvents 已完成_成本_tb As TextBox Friend WithEvents Label10 As Label Friend WithEvents 未完成_成本_tb As TextBox Friend WithEvents Label7 As Label Friend WithEvents 部分清單_dgv As DataGridView Friend WithEvents 下個月_bt As Button Friend WithEvents 上個月_bt As Button Friend WithEvents Label4 As Label Friend WithEvents 結束日期_dtp As DateTimePicker Friend WithEvents 開始日期_dtp As DateTimePicker Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem Friend WithEvents 彙總_dgv As DataGridView Friend WithEvents 完整清單_dgv As DataGridView Friend WithEvents 顯示彙總_ch As CheckBox Friend WithEvents 隱藏單據編號_ch As CheckBox Friend WithEvents 隱藏供應商_ch As CheckBox Friend WithEvents 隱藏尺寸材質_ch As CheckBox Friend WithEvents 隱藏完成資料_ch As CheckBox Friend WithEvents 一般月_ch As CheckBox Friend WithEvents 會計月_ch As CheckBox Friend WithEvents 中間日期_dtp As DateTimePicker End Class