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 DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.明細_dgv = New System.Windows.Forms.DataGridView() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Label28 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label() Me.Button15 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Label62 = New System.Windows.Forms.Label() Me.一級未審核_dgv = New System.Windows.Forms.DataGridView() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.一級作廢_dgv = New System.Windows.Forms.DataGridView() Me.Label6 = New System.Windows.Forms.Label() Me.二級未核准_dgv = New System.Windows.Forms.DataGridView() Me.Label7 = New System.Windows.Forms.Label() Me.二級作廢_dgv = New System.Windows.Forms.DataGridView() Me.Button3 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.TextBox5 = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label() Me.帳本名稱_cb = New System.Windows.Forms.ComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.帳本編號_cb = New System.Windows.Forms.ComboBox() CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.一級未審核_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.一級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.二級未核准_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.二級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(1036, 9) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(395, 23) Me.TextBox1.TabIndex = 0 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(962, 12) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(68, 16) Me.Label1.TabIndex = 1 Me.Label1.Text = "零用金單號" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(962, 41) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(56, 16) Me.Label2.TabIndex = 3 Me.Label2.Text = "申請部門" ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(1036, 38) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(395, 23) Me.TextBox2.TabIndex = 2 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(962, 70) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(44, 16) Me.Label3.TabIndex = 5 Me.Label3.Text = "申請人" ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(1036, 67) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(395, 23) Me.TextBox3.TabIndex = 4 ' '明細_dgv ' DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.明細_dgv.Location = New System.Drawing.Point(965, 157) Me.明細_dgv.Name = "明細_dgv" Me.明細_dgv.RowHeadersWidth = 5 DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14 Me.明細_dgv.RowTemplate.Height = 24 Me.明細_dgv.Size = New System.Drawing.Size(937, 807) Me.明細_dgv.TabIndex = 589 ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button1.Location = New System.Drawing.Point(1437, 12) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(465, 35) Me.Button1.TabIndex = 590 Me.Button1.Text = "開立零用金支付單" Me.Button1.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button2.Location = New System.Drawing.Point(1437, 53) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(321, 35) Me.Button2.TabIndex = 591 Me.Button2.Text = "申請完成" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) Me.Button2.UseVisualStyleBackColor = True ' 'Label28 ' Me.Label28.AutoSize = True Me.Label28.Location = New System.Drawing.Point(1275, 131) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(32, 16) Me.Label28.TabIndex = 729 Me.Label28.Text = "項次" ' 'Label27 ' Me.Label27.AutoSize = True Me.Label27.Location = New System.Drawing.Point(1127, 131) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(32, 16) Me.Label27.TabIndex = 728 Me.Label27.Text = "選擇" ' 'Button15 ' Me.Button15.ForeColor = System.Drawing.Color.Red Me.Button15.Location = New System.Drawing.Point(1046, 128) Me.Button15.Name = "Button15" Me.Button15.Size = New System.Drawing.Size(75, 23) Me.Button15.TabIndex = 726 Me.Button15.Text = "刪除" Me.Button15.UseVisualStyleBackColor = True ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(965, 128) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(75, 23) Me.Button6.TabIndex = 725 Me.Button6.Text = "新增" Me.Button6.UseVisualStyleBackColor = True ' 'TextBox4 ' Me.TextBox4.Location = New System.Drawing.Point(1165, 128) Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(104, 23) Me.TextBox4.TabIndex = 731 ' 'Timer1 ' Me.Timer1.Interval = 500 ' 'Label62 ' Me.Label62.AutoSize = True Me.Label62.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label62.ForeColor = System.Drawing.Color.Red Me.Label62.Location = New System.Drawing.Point(1764, 55) Me.Label62.Name = "Label62" Me.Label62.Size = New System.Drawing.Size(138, 26) Me.Label62.TabIndex = 734 Me.Label62.Text = "資料尚未存檔" Me.Label62.Visible = False ' '一級未審核_dgv ' DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.一級未審核_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15 Me.一級未審核_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.一級未審核_dgv.Location = New System.Drawing.Point(12, 41) Me.一級未審核_dgv.Name = "一級未審核_dgv" Me.一級未審核_dgv.RowHeadersWidth = 5 Me.一級未審核_dgv.RowTemplate.Height = 24 Me.一級未審核_dgv.Size = New System.Drawing.Size(947, 204) Me.一級未審核_dgv.TabIndex = 735 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(12, 19) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(128, 16) Me.Label4.TabIndex = 736 Me.Label4.Text = "未審核的零用金支付單" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(12, 501) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(140, 16) Me.Label5.TabIndex = 738 Me.Label5.Text = "主管作廢的零用金支付單" ' '一級作廢_dgv ' DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.一級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.一級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.一級作廢_dgv.Location = New System.Drawing.Point(12, 523) Me.一級作廢_dgv.Name = "一級作廢_dgv" Me.一級作廢_dgv.RowHeadersWidth = 5 Me.一級作廢_dgv.RowTemplate.Height = 24 Me.一級作廢_dgv.Size = New System.Drawing.Size(947, 204) Me.一級作廢_dgv.TabIndex = 737 ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(12, 260) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(164, 16) Me.Label6.TabIndex = 740 Me.Label6.Text = "總經理未核准的零用金支付單" ' '二級未核准_dgv ' DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.二級未核准_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.二級未核准_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.二級未核准_dgv.Location = New System.Drawing.Point(12, 282) Me.二級未核准_dgv.Name = "二級未核准_dgv" Me.二級未核准_dgv.RowHeadersWidth = 5 Me.二級未核准_dgv.RowTemplate.Height = 24 Me.二級未核准_dgv.Size = New System.Drawing.Size(947, 204) Me.二級未核准_dgv.TabIndex = 739 ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(12, 738) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(152, 16) Me.Label7.TabIndex = 742 Me.Label7.Text = "總經理作廢的零用金支付單" ' '二級作廢_dgv ' DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.二級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.二級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.二級作廢_dgv.Location = New System.Drawing.Point(12, 760) Me.二級作廢_dgv.Name = "二級作廢_dgv" Me.二級作廢_dgv.RowHeadersWidth = 5 Me.二級作廢_dgv.RowTemplate.Height = 24 Me.二級作廢_dgv.Size = New System.Drawing.Size(947, 204) Me.二級作廢_dgv.TabIndex = 741 ' 'Button3 ' Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button3.ForeColor = System.Drawing.Color.Green Me.Button3.Location = New System.Drawing.Point(1437, 94) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(151, 35) Me.Button3.TabIndex = 743 Me.Button3.Text = "修改" Me.Button3.UseVisualStyleBackColor = True ' 'Button4 ' Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button4.ForeColor = System.Drawing.Color.Green Me.Button4.Location = New System.Drawing.Point(1594, 94) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(151, 35) Me.Button4.TabIndex = 744 Me.Button4.Text = "修改存檔" Me.Button4.UseVisualStyleBackColor = True ' 'Button5 ' Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button5.ForeColor = System.Drawing.Color.Red Me.Button5.Location = New System.Drawing.Point(1751, 94) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(151, 35) Me.Button5.TabIndex = 745 Me.Button5.Text = "刪除" Me.Button5.UseVisualStyleBackColor = True ' 'TextBox5 ' Me.TextBox5.Location = New System.Drawing.Point(1036, 96) Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(395, 23) Me.TextBox5.TabIndex = 777 ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(962, 99) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(44, 16) Me.Label8.TabIndex = 776 Me.Label8.Text = "總金額" ' '帳本名稱_cb ' Me.帳本名稱_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.帳本名稱_cb.ForeColor = System.Drawing.Color.Green Me.帳本名稱_cb.FormattingEnabled = True Me.帳本名稱_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"}) Me.帳本名稱_cb.Location = New System.Drawing.Point(811, 11) Me.帳本名稱_cb.Name = "帳本名稱_cb" Me.帳本名稱_cb.Size = New System.Drawing.Size(145, 24) Me.帳本名稱_cb.TabIndex = 993 ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.ForeColor = System.Drawing.Color.Green Me.Label9.Location = New System.Drawing.Point(773, 14) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(32, 16) Me.Label9.TabIndex = 992 Me.Label9.Text = "帳本" ' '帳本編號_cb ' Me.帳本編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.帳本編號_cb.ForeColor = System.Drawing.Color.Green Me.帳本編號_cb.FormattingEnabled = True Me.帳本編號_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"}) Me.帳本編號_cb.Location = New System.Drawing.Point(811, 53) Me.帳本編號_cb.Name = "帳本編號_cb" Me.帳本編號_cb.Size = New System.Drawing.Size(145, 24) Me.帳本編號_cb.TabIndex = 994 ' '零用金支付申請 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1914, 971) Me.Controls.Add(Me.帳本編號_cb) Me.Controls.Add(Me.帳本名稱_cb) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.TextBox5) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.二級作廢_dgv) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.二級未核准_dgv) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.一級作廢_dgv) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.一級未審核_dgv) Me.Controls.Add(Me.Label62) Me.Controls.Add(Me.TextBox4) Me.Controls.Add(Me.Label28) Me.Controls.Add(Me.Label27) Me.Controls.Add(Me.Button15) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.明細_dgv) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox1) 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() 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 TextBox1 As TextBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents TextBox2 As TextBox Friend WithEvents Label3 As Label Friend WithEvents TextBox3 As TextBox Friend WithEvents 明細_dgv As DataGridView Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button Friend WithEvents Label28 As Label Friend WithEvents Label27 As Label Friend WithEvents Button15 As Button Friend WithEvents Button6 As Button Friend WithEvents TextBox4 As TextBox Friend WithEvents Timer1 As Timer Friend WithEvents Label62 As Label Friend WithEvents 一級未審核_dgv As DataGridView Friend WithEvents Label4 As Label Friend WithEvents Label5 As Label Friend WithEvents 一級作廢_dgv As DataGridView Friend WithEvents Label6 As Label Friend WithEvents 二級未核准_dgv As DataGridView Friend WithEvents Label7 As Label Friend WithEvents 二級作廢_dgv As DataGridView Friend WithEvents Button3 As Button Friend WithEvents Button4 As Button Friend WithEvents Button5 As Button Friend WithEvents TextBox5 As TextBox Friend WithEvents Label8 As Label Friend WithEvents 帳本名稱_cb As ComboBox Friend WithEvents Label9 As Label Friend WithEvents 帳本編號_cb As ComboBox End Class