_ 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() Me.人員_dgv = New System.Windows.Forms.DataGridView() Me.明細_dgv = New System.Windows.Forms.DataGridView() Me.查詢月份1_cb = New System.Windows.Forms.ComboBox() Me.查詢月份_cb = New System.Windows.Forms.ComboBox() Me.查詢月份_lb = New System.Windows.Forms.Label() Me.選擇資料流水號_tb = New System.Windows.Forms.TextBox() Me.選擇資料流水號_lb = New System.Windows.Forms.Label() Me.刪除_bt = New System.Windows.Forms.Button() Me.新增_bt = New System.Windows.Forms.Button() Me.選擇行政物料_cb = New System.Windows.Forms.ComboBox() Me.選擇行政物料_lb = New System.Windows.Forms.Label() Me.存檔_bt = New System.Windows.Forms.Button() Me.新增物料清單_bt = New System.Windows.Forms.Button() CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '人員_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.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.BackgroundColor = System.Drawing.Color.White Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.人員_dgv.Location = New System.Drawing.Point(3, 30) Me.人員_dgv.Name = "人員_dgv" Me.人員_dgv.RowHeadersWidth = 5 Me.人員_dgv.RowTemplate.Height = 24 Me.人員_dgv.Size = New System.Drawing.Size(156, 648) Me.人員_dgv.TabIndex = 28 ' '明細_dgv ' DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, 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) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.明細_dgv.BackgroundColor = System.Drawing.Color.White Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.明細_dgv.Location = New System.Drawing.Point(158, 30) Me.明細_dgv.Name = "明細_dgv" Me.明細_dgv.RowHeadersWidth = 5 Me.明細_dgv.RowTemplate.Height = 24 Me.明細_dgv.Size = New System.Drawing.Size(1186, 648) Me.明細_dgv.TabIndex = 30 ' '查詢月份1_cb ' Me.查詢月份1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.查詢月份1_cb.FormattingEnabled = True Me.查詢月份1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"}) Me.查詢月份1_cb.Location = New System.Drawing.Point(135, 2) Me.查詢月份1_cb.Name = "查詢月份1_cb" Me.查詢月份1_cb.Size = New System.Drawing.Size(38, 24) Me.查詢月份1_cb.TabIndex = 534 ' '查詢月份_cb ' Me.查詢月份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.查詢月份_cb.FormattingEnabled = True Me.查詢月份_cb.Items.AddRange(New Object() {"2019"}) Me.查詢月份_cb.Location = New System.Drawing.Point(67, 2) Me.查詢月份_cb.Name = "查詢月份_cb" Me.查詢月份_cb.Size = New System.Drawing.Size(67, 24) Me.查詢月份_cb.TabIndex = 533 ' '查詢月份_lb ' Me.查詢月份_lb.AutoSize = True 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(5, 6) Me.查詢月份_lb.Name = "查詢月份_lb" Me.查詢月份_lb.Size = New System.Drawing.Size(56, 16) Me.查詢月份_lb.TabIndex = 532 Me.查詢月份_lb.Text = "查詢月份" ' '選擇資料流水號_tb ' Me.選擇資料流水號_tb.Location = New System.Drawing.Point(914, 3) Me.選擇資料流水號_tb.Name = "選擇資料流水號_tb" Me.選擇資料流水號_tb.Size = New System.Drawing.Size(141, 23) Me.選擇資料流水號_tb.TabIndex = 736 ' '選擇資料流水號_lb ' Me.選擇資料流水號_lb.AutoSize = True Me.選擇資料流水號_lb.Location = New System.Drawing.Point(821, 7) Me.選擇資料流水號_lb.Name = "選擇資料流水號_lb" Me.選擇資料流水號_lb.Size = New System.Drawing.Size(92, 16) Me.選擇資料流水號_lb.TabIndex = 734 Me.選擇資料流水號_lb.Text = "選擇資料流水號" ' '刪除_bt ' Me.刪除_bt.ForeColor = System.Drawing.Color.Red Me.刪除_bt.Location = New System.Drawing.Point(1057, 1) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(54, 26) Me.刪除_bt.TabIndex = 733 Me.刪除_bt.Text = "刪除" Me.刪除_bt.UseVisualStyleBackColor = True ' '新增_bt ' Me.新增_bt.Location = New System.Drawing.Point(766, 1) Me.新增_bt.Name = "新增_bt" Me.新增_bt.Size = New System.Drawing.Size(54, 26) Me.新增_bt.TabIndex = 732 Me.新增_bt.Text = "新增" Me.新增_bt.UseVisualStyleBackColor = True ' '選擇行政物料_cb ' Me.選擇行政物料_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.選擇行政物料_cb.FormattingEnabled = True Me.選擇行政物料_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"}) Me.選擇行政物料_cb.Location = New System.Drawing.Point(254, 2) Me.選擇行政物料_cb.Name = "選擇行政物料_cb" Me.選擇行政物料_cb.Size = New System.Drawing.Size(410, 24) Me.選擇行政物料_cb.TabIndex = 737 ' '選擇行政物料_lb ' Me.選擇行政物料_lb.AutoSize = True 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(175, 6) Me.選擇行政物料_lb.Name = "選擇行政物料_lb" Me.選擇行政物料_lb.Size = New System.Drawing.Size(80, 16) Me.選擇行政物料_lb.TabIndex = 738 Me.選擇行政物料_lb.Text = "選擇行政物料" ' '存檔_bt ' Me.存檔_bt.ForeColor = System.Drawing.Color.Green Me.存檔_bt.Location = New System.Drawing.Point(1112, 1) Me.存檔_bt.Name = "存檔_bt" Me.存檔_bt.Size = New System.Drawing.Size(54, 26) Me.存檔_bt.TabIndex = 739 Me.存檔_bt.Text = "存檔" Me.存檔_bt.UseVisualStyleBackColor = True ' '新增物料清單_bt ' Me.新增物料清單_bt.ForeColor = System.Drawing.Color.Olive Me.新增物料清單_bt.Location = New System.Drawing.Point(665, 1) Me.新增物料清單_bt.Name = "新增物料清單_bt" Me.新增物料清單_bt.Size = New System.Drawing.Size(96, 26) Me.新增物料清單_bt.TabIndex = 740 Me.新增物料清單_bt.Text = "新增物料清單" Me.新增物料清單_bt.UseVisualStyleBackColor = True ' '人員行政物料領用記錄表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1349, 681) Me.Controls.Add(Me.新增物料清單_bt) Me.Controls.Add(Me.存檔_bt) Me.Controls.Add(Me.選擇行政物料_lb) Me.Controls.Add(Me.選擇行政物料_cb) Me.Controls.Add(Me.選擇資料流水號_tb) Me.Controls.Add(Me.選擇資料流水號_lb) Me.Controls.Add(Me.刪除_bt) Me.Controls.Add(Me.新增_bt) Me.Controls.Add(Me.查詢月份1_cb) Me.Controls.Add(Me.查詢月份_cb) Me.Controls.Add(Me.查詢月份_lb) 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() CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 人員_dgv As DataGridView Friend WithEvents 明細_dgv As DataGridView Friend WithEvents 查詢月份1_cb As ComboBox Friend WithEvents 查詢月份_cb As ComboBox Friend WithEvents 查詢月份_lb As Label Friend WithEvents 選擇資料流水號_tb As TextBox Friend WithEvents 選擇資料流水號_lb As Label Friend WithEvents 刪除_bt As Button Friend WithEvents 新增_bt As Button Friend WithEvents 選擇行政物料_cb As ComboBox Friend WithEvents 選擇行政物料_lb As Label Friend WithEvents 存檔_bt As Button Friend WithEvents 新增物料清單_bt As Button End Class