_ 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() 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.CXL_ch = New System.Windows.Forms.CheckBox() Me.語轉扭_bt = New System.Windows.Forms.Button() Me.修正_tb = New System.Windows.Forms.Button() Me.倉級1_tb = New System.Windows.Forms.TextBox() Me.倉編_tb = New System.Windows.Forms.TextBox() Me.單號_bt = New System.Windows.Forms.TextBox() Me.入庫無指定_dgv = New System.Windows.Forms.DataGridView() Me.語言_dgv = New System.Windows.Forms.DataGridView() Me.倉名_tb = New System.Windows.Forms.TextBox() Me.倉名編號_tb = New System.Windows.Forms.TextBox() Me.倉級_tb = New System.Windows.Forms.ComboBox() Me.刪除_bt = New System.Windows.Forms.Button() Me.修改_bt = New System.Windows.Forms.Button() Me.新增_bt = New System.Windows.Forms.Button() Me.倉儲區域_dgv = New System.Windows.Forms.DataGridView() Me.倉名_lb = New System.Windows.Forms.Label() Me.倉名編號_lb = New System.Windows.Forms.Label() Me.倉級_lb = New System.Windows.Forms.Label() Me.文字1_lb = New System.Windows.Forms.Label() Me.文字_lb = New System.Windows.Forms.Label() CType(Me.入庫無指定_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.倉儲區域_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'CXL_ch ' Me.CXL_ch.AutoSize = True Me.CXL_ch.Location = New System.Drawing.Point(406, 45) Me.CXL_ch.Name = "CXL_ch" Me.CXL_ch.Size = New System.Drawing.Size(48, 20) Me.CXL_ch.TabIndex = 1674 Me.CXL_ch.Text = "CXL" Me.CXL_ch.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.Black Me.語轉扭_bt.Location = New System.Drawing.Point(666, 93) Me.語轉扭_bt.Name = "語轉扭_bt" Me.語轉扭_bt.Size = New System.Drawing.Size(25, 25) Me.語轉扭_bt.TabIndex = 1672 Me.語轉扭_bt.Text = "L" Me.語轉扭_bt.UseVisualStyleBackColor = True ' '修正_tb ' Me.修正_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.修正_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, 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(1121, 42) Me.修正_tb.Name = "修正_tb" Me.修正_tb.Size = New System.Drawing.Size(225, 25) Me.修正_tb.TabIndex = 1671 Me.修正_tb.Text = "修正" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) Me.修正_tb.UseVisualStyleBackColor = True ' '倉級1_tb ' Me.倉級1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.倉級1_tb.Enabled = False Me.倉級1_tb.Location = New System.Drawing.Point(946, 43) Me.倉級1_tb.Name = "倉級1_tb" Me.倉級1_tb.Size = New System.Drawing.Size(85, 23) Me.倉級1_tb.TabIndex = 1670 Me.倉級1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '倉編_tb ' Me.倉編_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.倉編_tb.Enabled = False Me.倉編_tb.Location = New System.Drawing.Point(1034, 43) Me.倉編_tb.Name = "倉編_tb" Me.倉編_tb.Size = New System.Drawing.Size(85, 23) Me.倉編_tb.TabIndex = 1669 Me.倉編_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '單號_bt ' Me.單號_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.單號_bt.Enabled = False Me.單號_bt.Location = New System.Drawing.Point(779, 43) Me.單號_bt.Name = "單號_bt" Me.單號_bt.Size = New System.Drawing.Size(164, 23) Me.單號_bt.TabIndex = 1668 Me.單號_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '入庫無指定_dgv ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.入庫無指定_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.入庫無指定_dgv.Anchor = CType((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(779, 69) Me.入庫無指定_dgv.Name = "入庫無指定_dgv" Me.入庫無指定_dgv.RowHeadersWidth = 5 DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.入庫無指定_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2 Me.入庫無指定_dgv.RowTemplate.Height = 24 Me.入庫無指定_dgv.Size = New System.Drawing.Size(567, 608) Me.入庫無指定_dgv.TabIndex = 1667 ' '語言_dgv ' Me.語言_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.語言_dgv.Location = New System.Drawing.Point(66, 201) Me.語言_dgv.Name = "語言_dgv" Me.語言_dgv.RowHeadersWidth = 5 Me.語言_dgv.RowTemplate.Height = 24 Me.語言_dgv.Size = New System.Drawing.Size(81, 49) Me.語言_dgv.TabIndex = 1665 Me.語言_dgv.Visible = False ' '倉名_tb ' Me.倉名_tb.Location = New System.Drawing.Point(107, 69) Me.倉名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.倉名_tb.Name = "倉名_tb" Me.倉名_tb.Size = New System.Drawing.Size(593, 23) Me.倉名_tb.TabIndex = 1663 ' '倉名編號_tb ' Me.倉名編號_tb.Location = New System.Drawing.Point(315, 41) Me.倉名編號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.倉名編號_tb.Name = "倉名編號_tb" Me.倉名編號_tb.Size = New System.Drawing.Size(72, 23) Me.倉名編號_tb.TabIndex = 1661 ' '倉級_tb ' Me.倉級_tb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.倉級_tb.FormattingEnabled = True Me.倉級_tb.Items.AddRange(New Object() {"1", "2", "3"}) Me.倉級_tb.Location = New System.Drawing.Point(110, 42) Me.倉級_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.倉級_tb.Name = "倉級_tb" Me.倉級_tb.Size = New System.Drawing.Size(70, 24) Me.倉級_tb.TabIndex = 1659 ' '刪除_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.Red Me.刪除_bt.Location = New System.Drawing.Point(447, 93) Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(217, 25) Me.刪除_bt.TabIndex = 1658 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.Green Me.修改_bt.Location = New System.Drawing.Point(228, 93) Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.修改_bt.Name = "修改_bt" Me.修改_bt.Size = New System.Drawing.Size(217, 25) Me.修改_bt.TabIndex = 1657 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(5, 93) Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.新增_bt.Name = "新增_bt" Me.新增_bt.Size = New System.Drawing.Size(217, 25) Me.新增_bt.TabIndex = 1656 Me.新增_bt.Text = "新增" Me.新增_bt.UseVisualStyleBackColor = True ' '倉儲區域_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(5, 120) Me.倉儲區域_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) 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(768, 557) Me.倉儲區域_dgv.TabIndex = 1655 ' '倉名_lb ' Me.倉名_lb.AutoSize = True Me.倉名_lb.Location = New System.Drawing.Point(5, 73) Me.倉名_lb.Name = "倉名_lb" Me.倉名_lb.Size = New System.Drawing.Size(43, 16) Me.倉名_lb.TabIndex = 1664 Me.倉名_lb.Text = "倉 名" ' '倉名編號_lb ' Me.倉名編號_lb.AutoSize = True Me.倉名編號_lb.Location = New System.Drawing.Point(186, 45) Me.倉名編號_lb.Name = "倉名編號_lb" Me.倉名編號_lb.Size = New System.Drawing.Size(73, 16) Me.倉名編號_lb.TabIndex = 1662 Me.倉名編號_lb.Text = "倉 名 編 號" ' '倉級_lb ' Me.倉級_lb.AutoSize = True Me.倉級_lb.Location = New System.Drawing.Point(5, 47) Me.倉級_lb.Name = "倉級_lb" Me.倉級_lb.Size = New System.Drawing.Size(49, 16) Me.倉級_lb.TabIndex = 1660 Me.倉級_lb.Text = "倉 級" ' '文字1_lb ' Me.文字1_lb.AutoSize = True Me.文字1_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.文字1_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.文字1_lb.Location = New System.Drawing.Point(5, 4) Me.文字1_lb.Name = "文字1_lb" Me.文字1_lb.Size = New System.Drawing.Size(541, 15) Me.文字1_lb.TabIndex = 1673 Me.文字1_lb.Text = "修正指定倉儲單具 : 1、先選擇單據資料。 2、在選擇新的倉儲位置。 3、按下修正後即可修改指定倉儲位置。" ' '文字_lb ' Me.文字_lb.AutoSize = True Me.文字_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.文字_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.文字_lb.Location = New System.Drawing.Point(6, 24) Me.文字_lb.Name = "文字_lb" Me.文字_lb.Size = New System.Drawing.Size(448, 16) Me.文字_lb.TabIndex = 1666 Me.文字_lb.Text = "如果刪除""倉級"",會影響到控制表運作;原有的單號會找不到指定的倉級,產生bug" ' '倉儲分區控制表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1350, 681) Me.Controls.Add(Me.CXL_ch) Me.Controls.Add(Me.語轉扭_bt) Me.Controls.Add(Me.修正_tb) Me.Controls.Add(Me.倉級1_tb) Me.Controls.Add(Me.倉編_tb) Me.Controls.Add(Me.單號_bt) Me.Controls.Add(Me.入庫無指定_dgv) Me.Controls.Add(Me.語言_dgv) Me.Controls.Add(Me.倉名_tb) Me.Controls.Add(Me.倉名編號_tb) Me.Controls.Add(Me.倉級_tb) Me.Controls.Add(Me.刪除_bt) Me.Controls.Add(Me.修改_bt) Me.Controls.Add(Me.新增_bt) Me.Controls.Add(Me.倉儲區域_dgv) Me.Controls.Add(Me.倉名_lb) Me.Controls.Add(Me.倉名編號_lb) Me.Controls.Add(Me.倉級_lb) Me.Controls.Add(Me.文字1_lb) Me.Controls.Add(Me.文字_lb) 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(4, 4, 4, 4) Me.Name = "倉儲分區控制表" Me.Text = "倉儲分區控制表" CType(Me.入庫無指定_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.倉儲區域_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents CXL_ch As CheckBox Friend WithEvents 語轉扭_bt As Button Friend WithEvents 修正_tb As Button Friend WithEvents 倉級1_tb As TextBox Friend WithEvents 倉編_tb As TextBox Friend WithEvents 單號_bt As TextBox Friend WithEvents 入庫無指定_dgv As DataGridView Friend WithEvents 語言_dgv As DataGridView Friend WithEvents 倉名_tb As TextBox Friend WithEvents 倉名編號_tb As TextBox Friend WithEvents 倉級_tb As ComboBox Friend WithEvents 刪除_bt As Button Friend WithEvents 修改_bt As Button Friend WithEvents 新增_bt As Button Friend WithEvents 倉儲區域_dgv As DataGridView Friend WithEvents 倉名_lb As Label Friend WithEvents 倉名編號_lb As Label Friend WithEvents 倉級_lb As Label Friend WithEvents 文字1_lb As Label Friend WithEvents 文字_lb As Label End Class