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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(訂單採購需求申請)) Me.非當天日期_ch = New System.Windows.Forms.CheckBox() Me.供應商交期_dtp = New System.Windows.Forms.DateTimePicker() Me.Label14 = New System.Windows.Forms.Label() Me.採購下單_dtp = New System.Windows.Forms.DateTimePicker() Me.單據號碼_tb = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() Me.廠商關鍵字_tb = New System.Windows.Forms.TextBox() Me.Label15 = New System.Windows.Forms.Label() Me.供應商編號_cb = New System.Windows.Forms.ComboBox() Me.供應商_cb = New System.Windows.Forms.ComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.訂單明細_dgv = New System.Windows.Forms.DataGridView() Me.開立採購單_bt = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.開立新的採購單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.訂單明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' '非當天日期_ch ' Me.非當天日期_ch.AutoSize = True Me.非當天日期_ch.Location = New System.Drawing.Point(789, 6) Me.非當天日期_ch.Name = "非當天日期_ch" Me.非當天日期_ch.Size = New System.Drawing.Size(39, 20) Me.非當天日期_ch.TabIndex = 1083 Me.非當天日期_ch.Text = "補" Me.非當天日期_ch.UseVisualStyleBackColor = True ' '供應商交期_dtp ' Me.供應商交期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.供應商交期_dtp.Location = New System.Drawing.Point(899, 4) Me.供應商交期_dtp.Name = "供應商交期_dtp" Me.供應商交期_dtp.Size = New System.Drawing.Size(94, 23) Me.供應商交期_dtp.TabIndex = 1081 ' 'Label14 ' Me.Label14.AutoSize = True Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Label14.Location = New System.Drawing.Point(834, 7) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(68, 16) Me.Label14.TabIndex = 1082 Me.Label14.Text = "供應商交期" ' '採購下單_dtp ' Me.採購下單_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.採購下單_dtp.Location = New System.Drawing.Point(689, 4) Me.採購下單_dtp.Name = "採購下單_dtp" Me.採購下單_dtp.Size = New System.Drawing.Size(94, 23) Me.採購下單_dtp.TabIndex = 1079 ' '單據號碼_tb ' Me.單據號碼_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) 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(72, 4) Me.單據號碼_tb.Name = "單據號碼_tb" Me.單據號碼_tb.Size = New System.Drawing.Size(152, 25) Me.單據號碼_tb.TabIndex = 1076 ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Label16.Location = New System.Drawing.Point(12, 8) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(56, 16) Me.Label16.TabIndex = 1075 Me.Label16.Text = "單據編號" ' '廠商關鍵字_tb ' Me.廠商關鍵字_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.廠商關鍵字_tb.ForeColor = System.Drawing.Color.Green Me.廠商關鍵字_tb.Location = New System.Drawing.Point(299, 4) Me.廠商關鍵字_tb.Name = "廠商關鍵字_tb" Me.廠商關鍵字_tb.Size = New System.Drawing.Size(93, 25) Me.廠商關鍵字_tb.TabIndex = 1074 ' 'Label15 ' Me.Label15.AutoSize = True Me.Label15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label15.ForeColor = System.Drawing.Color.Green Me.Label15.Location = New System.Drawing.Point(230, 9) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(68, 16) Me.Label15.TabIndex = 1073 Me.Label15.Text = "廠商關鍵字" ' '供應商編號_cb ' Me.供應商編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.供應商編號_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.供應商編號_cb.ForeColor = System.Drawing.Color.Green Me.供應商編號_cb.FormattingEnabled = True Me.供應商編號_cb.Items.AddRange(New Object() {"男", "女", "NA"}) Me.供應商編號_cb.Location = New System.Drawing.Point(466, 50) Me.供應商編號_cb.Name = "供應商編號_cb" Me.供應商編號_cb.Size = New System.Drawing.Size(152, 24) Me.供應商編號_cb.TabIndex = 1072 ' '供應商_cb ' Me.供應商_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.供應商_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.供應商_cb.ForeColor = System.Drawing.Color.Green Me.供應商_cb.FormattingEnabled = True Me.供應商_cb.Items.AddRange(New Object() {"NA", "女", "男"}) Me.供應商_cb.Location = New System.Drawing.Point(466, 4) Me.供應商_cb.Name = "供應商_cb" Me.供應商_cb.Size = New System.Drawing.Size(152, 24) Me.供應商_cb.TabIndex = 1071 ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label9.ForeColor = System.Drawing.Color.Green Me.Label9.Location = New System.Drawing.Point(396, 7) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(68, 16) Me.Label9.TabIndex = 1070 Me.Label9.Text = "供應商簡稱" ' 'Label20 ' Me.Label20.AutoSize = True Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Label20.Location = New System.Drawing.Point(624, 7) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(68, 16) Me.Label20.TabIndex = 1080 Me.Label20.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(7, 32) 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(1235, 570) 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(999, 3) Me.開立採購單_bt.Name = "開立採購單_bt" Me.開立採購單_bt.Size = New System.Drawing.Size(112, 25) Me.開立採購單_bt.TabIndex = 1161 Me.開立採購單_bt.Text = "開立採購單" Me.開立採購單_bt.UseVisualStyleBackColor = True ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator3, Me.開立新的採購單ToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(135, 54) ' '重新整理ToolStripMenuItem ' Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem" Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(134, 22) Me.重新整理ToolStripMenuItem.Text = "重新整理" ' 'ToolStripSeparator3 ' Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Size = New System.Drawing.Size(131, 6) ' '開立新的採購單ToolStripMenuItem ' Me.開立新的採購單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.開立新的採購單ToolStripMenuItem.Name = "開立新的採購單ToolStripMenuItem" Me.開立新的採購單ToolStripMenuItem.Size = New System.Drawing.Size(134, 22) Me.開立新的採購單ToolStripMenuItem.Text = "開立採購單" ' '訂單採購需求申請 ' 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.開立採購單_bt) Me.Controls.Add(Me.非當天日期_ch) Me.Controls.Add(Me.供應商交期_dtp) Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.採購下單_dtp) Me.Controls.Add(Me.單據號碼_tb) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.廠商關鍵字_tb) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.供應商編號_cb) Me.Controls.Add(Me.供應商_cb) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label20) 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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 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) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 非當天日期_ch As CheckBox Friend WithEvents 供應商交期_dtp As DateTimePicker Friend WithEvents Label14 As Label Friend WithEvents 採購下單_dtp As DateTimePicker Friend WithEvents 單據號碼_tb As TextBox Friend WithEvents Label16 As Label Friend WithEvents 廠商關鍵字_tb As TextBox Friend WithEvents Label15 As Label Friend WithEvents 供應商編號_cb As ComboBox Friend WithEvents 供應商_cb As ComboBox Friend WithEvents Label9 As Label Friend WithEvents Label20 As Label Friend WithEvents 訂單明細_dgv As DataGridView Friend WithEvents 開立採購單_bt As Button Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem Friend WithEvents ToolStripSeparator3 As ToolStripSeparator Friend WithEvents 開立新的採購單ToolStripMenuItem As ToolStripMenuItem End Class