_ 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() Me.採購成本_tb = New System.Windows.Forms.TextBox() Me.已到_採購成本_tb = New System.Windows.Forms.TextBox() Me.未到_採購成本_tb = New System.Windows.Forms.TextBox() Me.Label22 = 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.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.Label20 = New System.Windows.Forms.Label() 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.顯示彙總表_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() Me.SuspendLayout() ' '採購成本_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(982, 28) Me.採購成本_tb.Name = "採購成本_tb" Me.採購成本_tb.Size = New System.Drawing.Size(100, 23) Me.採購成本_tb.TabIndex = 1073 Me.採購成本_tb.Text = "0" Me.採購成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '已到_採購成本_tb ' Me.已到_採購成本_tb.ForeColor = System.Drawing.Color.Green Me.已到_採購成本_tb.Location = New System.Drawing.Point(761, 28) Me.已到_採購成本_tb.Name = "已到_採購成本_tb" Me.已到_採購成本_tb.Size = New System.Drawing.Size(100, 23) Me.已到_採購成本_tb.TabIndex = 1074 Me.已到_採購成本_tb.Text = "0" Me.已到_採購成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '未到_採購成本_tb ' Me.未到_採購成本_tb.ForeColor = System.Drawing.Color.Maroon Me.未到_採購成本_tb.Location = New System.Drawing.Point(520, 28) Me.未到_採購成本_tb.Name = "未到_採購成本_tb" Me.未到_採購成本_tb.Size = New System.Drawing.Size(100, 23) Me.未到_採購成本_tb.TabIndex = 1075 Me.未到_採購成本_tb.Text = "0" Me.未到_採購成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label22 ' Me.Label22.AutoSize = True Me.Label22.ForeColor = System.Drawing.Color.Black Me.Label22.Location = New System.Drawing.Point(711, 6) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(44, 16) Me.Label22.TabIndex = 1077 Me.Label22.Text = "供應商" ' '依供應商_採購成本_tb ' Me.依供應商_採購成本_tb.ForeColor = System.Drawing.Color.Purple Me.依供應商_採購成本_tb.Location = New System.Drawing.Point(982, 3) Me.依供應商_採購成本_tb.Name = "依供應商_採購成本_tb" Me.依供應商_採購成本_tb.Size = New System.Drawing.Size(100, 23) Me.依供應商_採購成本_tb.TabIndex = 1076 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(920, 31) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(56, 16) Me.Label15.TabIndex = 1069 Me.Label15.Text = "採購成本" ' '供應商_tb ' Me.供應商_tb.ForeColor = System.Drawing.Color.Black Me.供應商_tb.Location = New System.Drawing.Point(761, 3) Me.供應商_tb.Name = "供應商_tb" Me.供應商_tb.Size = New System.Drawing.Size(100, 23) Me.供應商_tb.TabIndex = 1079 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(634, 31) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(121, 16) Me.Label10.TabIndex = 1070 Me.Label10.Text = "採購已到廠_採購成本" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.ForeColor = System.Drawing.Color.Maroon Me.Label7.Location = New System.Drawing.Point(393, 31) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(121, 16) Me.Label7.TabIndex = 1071 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.明細_dgv.Location = New System.Drawing.Point(250, 57) 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(1657, 918) Me.明細_dgv.TabIndex = 1084 ' '下個月_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(208, 29) Me.下個月_bt.Name = "下個月_bt" Me.下個月_bt.Size = New System.Drawing.Size(97, 23) Me.下個月_bt.TabIndex = 1083 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(208, 4) Me.上個月_bt.Name = "上個月_bt" Me.上個月_bt.Size = New System.Drawing.Size(97, 23) Me.上個月_bt.TabIndex = 1082 Me.上個月_bt.Text = "上個月" Me.上個月_bt.UseVisualStyleBackColor = True ' 'Label20 ' Me.Label20.AutoSize = True Me.Label20.ForeColor = System.Drawing.Color.Purple Me.Label20.Location = New System.Drawing.Point(867, 6) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(109, 16) Me.Label20.TabIndex = 1072 Me.Label20.Text = "依供應商_採購成本" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(97, 8) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(20, 16) Me.Label4.TabIndex = 1081 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(119, 4) Me.結束日期_dtp.Name = "結束日期_dtp" Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23) Me.結束日期_dtp.TabIndex = 1080 ' '開始日期_dtp ' Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.開始日期_dtp.Location = New System.Drawing.Point(8, 4) Me.開始日期_dtp.Name = "開始日期_dtp" Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23) Me.開始日期_dtp.TabIndex = 1078 ' '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, 57) 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(237, 918) Me.彙總_dgv.TabIndex = 1085 ' '顯示彙總表_ch ' Me.顯示彙總表_ch.AutoSize = True Me.顯示彙總表_ch.Location = New System.Drawing.Point(311, 30) 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(311, 6) 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(416, 6) Me.隱藏尺寸材質_ch.Name = "隱藏尺寸材質_ch" Me.隱藏尺寸材質_ch.Size = New System.Drawing.Size(111, 20) Me.隱藏尺寸材質_ch.TabIndex = 1093 Me.隱藏尺寸材質_ch.Text = "隱藏尺寸、材質" Me.隱藏尺寸材質_ch.UseVisualStyleBackColor = True ' '一般月_ch ' Me.一般月_ch.AutoSize = True Me.一般月_ch.Location = New System.Drawing.Point(140, 31) Me.一般月_ch.Name = "一般月_ch" Me.一般月_ch.Size = New System.Drawing.Size(63, 20) Me.一般月_ch.TabIndex = 1100 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(11, 31) Me.會計月_ch.Name = "會計月_ch" Me.會計月_ch.Size = New System.Drawing.Size(63, 20) Me.會計月_ch.TabIndex = 1099 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(80, 30) 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(1914, 981) 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.Label7) Me.Controls.Add(Me.顯示彙總表_ch) Me.Controls.Add(Me.彙總_dgv) Me.Controls.Add(Me.採購成本_tb) Me.Controls.Add(Me.已到_採購成本_tb) Me.Controls.Add(Me.未到_採購成本_tb) Me.Controls.Add(Me.依供應商_採購成本_tb) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.供應商_tb) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.明細_dgv) 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.Label22) 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() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 採購成本_tb As TextBox Friend WithEvents 已到_採購成本_tb As TextBox Friend WithEvents 未到_採購成本_tb As TextBox Friend WithEvents Label22 As Label Friend WithEvents 依供應商_採購成本_tb As TextBox Friend WithEvents Label15 As Label Friend WithEvents 供應商_tb As TextBox Friend WithEvents Label10 As Label Friend WithEvents Label7 As Label Friend WithEvents 明細_dgv As DataGridView Friend WithEvents 下個月_bt As Button Friend WithEvents 上個月_bt As Button Friend WithEvents Label20 As Label 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 顯示彙總表_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