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() Me.月清單_DGV = New System.Windows.Forms.DataGridView() Me.休假核准_bt = New System.Windows.Forms.Button() Me.事由_tb = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.請假日期_tb = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() Me.員工編號_tb = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.申請人_tb = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.請假類別_cb = New System.Windows.Forms.ComboBox() Me.月份_cb = New System.Windows.Forms.ComboBox() Me.年份_cb = New System.Windows.Forms.ComboBox() Me.Label16 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.人員_dgv = New System.Windows.Forms.DataGridView() Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.圖片流水號_tb = New System.Windows.Forms.TextBox() Me.資料指定圖庫_tb = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.假期統計_dgv = New System.Windows.Forms.DataGridView() Me.Label8 = New System.Windows.Forms.Label() Me.休假未准_bt = New System.Windows.Forms.Button() Me.時數_tb = New System.Windows.Forms.TextBox() CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.假期統計_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '月清單_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.BackgroundColor = System.Drawing.Color.White Me.月清單_DGV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.月清單_DGV.Location = New System.Drawing.Point(2, 123) Me.月清單_DGV.Name = "月清單_DGV" Me.月清單_DGV.RowHeadersWidth = 5 Me.月清單_DGV.RowTemplate.Height = 24 Me.月清單_DGV.Size = New System.Drawing.Size(942, 532) Me.月清單_DGV.TabIndex = 784 ' '休假核准_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.Blue Me.休假核准_bt.Location = New System.Drawing.Point(2, 99) Me.休假核准_bt.Name = "休假核准_bt" Me.休假核准_bt.Size = New System.Drawing.Size(186, 23) Me.休假核准_bt.TabIndex = 783 Me.休假核准_bt.Text = "休假核准" Me.休假核准_bt.UseVisualStyleBackColor = True ' '事由_tb ' Me.事由_tb.Location = New System.Drawing.Point(54, 54) Me.事由_tb.Multiline = True Me.事由_tb.Name = "事由_tb" Me.事由_tb.Size = New System.Drawing.Size(367, 44) Me.事由_tb.TabIndex = 782 ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(4, 57) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(43, 16) Me.Label7.TabIndex = 781 Me.Label7.Text = "事 由" ' '請假日期_tb ' Me.請假日期_tb.Enabled = False Me.請假日期_tb.Location = New System.Drawing.Point(308, 3) Me.請假日期_tb.Name = "請假日期_tb" Me.請假日期_tb.Size = New System.Drawing.Size(113, 23) Me.請假日期_tb.TabIndex = 780 ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(246, 6) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(55, 16) Me.Label6.TabIndex = 779 Me.Label6.Text = "請假日期" ' '員工編號_tb ' Me.員工編號_tb.Enabled = False Me.員工編號_tb.Location = New System.Drawing.Point(189, 29) Me.員工編號_tb.Name = "員工編號_tb" Me.員工編號_tb.Size = New System.Drawing.Size(51, 23) Me.員工編號_tb.TabIndex = 778 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(127, 32) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(55, 16) Me.Label4.TabIndex = 777 Me.Label4.Text = "員工編號" ' '申請人_tb ' Me.申請人_tb.Enabled = False Me.申請人_tb.Location = New System.Drawing.Point(54, 29) Me.申請人_tb.Name = "申請人_tb" Me.申請人_tb.Size = New System.Drawing.Size(71, 23) Me.申請人_tb.TabIndex = 776 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(4, 32) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(43, 16) Me.Label3.TabIndex = 775 Me.Label3.Text = "申請人" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(247, 31) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(55, 16) Me.Label1.TabIndex = 774 Me.Label1.Text = "類 別" ' '請假類別_cb ' Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.請假類別_cb.FormattingEnabled = True Me.請假類別_cb.Items.AddRange(New Object() {"特休", "病假", "婚嫁", "喪假", "事假"}) Me.請假類別_cb.Location = New System.Drawing.Point(308, 28) Me.請假類別_cb.Name = "請假類別_cb" Me.請假類別_cb.Size = New System.Drawing.Size(113, 24) Me.請假類別_cb.TabIndex = 773 ' '月份_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(169, 3) Me.月份_cb.Name = "月份_cb" Me.月份_cb.Size = New System.Drawing.Size(71, 24) Me.月份_cb.TabIndex = 772 ' '年份_cb ' Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.年份_cb.FormattingEnabled = True Me.年份_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"}) Me.年份_cb.Location = New System.Drawing.Point(54, 3) Me.年份_cb.Name = "年份_cb" Me.年份_cb.Size = New System.Drawing.Size(71, 24) Me.年份_cb.TabIndex = 771 ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.Location = New System.Drawing.Point(131, 6) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(31, 16) Me.Label16.TabIndex = 770 Me.Label16.Text = "月份" ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.Location = New System.Drawing.Point(5, 6) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(40, 16) Me.Label17.TabIndex = 769 Me.Label17.Text = "年 份" ' '人員_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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.人員_dgv.Location = New System.Drawing.Point(6, 32) Me.人員_dgv.Name = "人員_dgv" Me.人員_dgv.RowHeadersWidth = 5 Me.人員_dgv.RowTemplate.Height = 24 Me.人員_dgv.Size = New System.Drawing.Size(186, 96) Me.人員_dgv.TabIndex = 768 Me.人員_dgv.Visible = False ' 'PictureBox2 ' Me.PictureBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureBox2.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.Picture Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox2.Location = New System.Drawing.Point(823, 2) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(121, 120) Me.PictureBox2.TabIndex = 1407 Me.PictureBox2.TabStop = False ' 'Panel1 ' Me.Panel1.Controls.Add(Me.圖片流水號_tb) Me.Panel1.Controls.Add(Me.資料指定圖庫_tb) Me.Panel1.Controls.Add(Me.人員_dgv) Me.Panel1.Location = New System.Drawing.Point(168, 174) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(200, 100) Me.Panel1.TabIndex = 1408 ' '圖片流水號_tb ' Me.圖片流水號_tb.Enabled = False Me.圖片流水號_tb.Location = New System.Drawing.Point(98, 3) Me.圖片流水號_tb.Name = "圖片流水號_tb" Me.圖片流水號_tb.Size = New System.Drawing.Size(94, 23) Me.圖片流水號_tb.TabIndex = 1646 ' '資料指定圖庫_tb ' Me.資料指定圖庫_tb.Enabled = False Me.資料指定圖庫_tb.Location = New System.Drawing.Point(3, 3) Me.資料指定圖庫_tb.Name = "資料指定圖庫_tb" Me.資料指定圖庫_tb.Size = New System.Drawing.Size(94, 23) Me.資料指定圖庫_tb.TabIndex = 1645 ' 'Label2 ' Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(11, 658) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(502, 96) Me.Label2.TabIndex = 1409 Me.Label2.Text = "勞工喪假規定: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "一、父母、養父母、繼父母、配偶喪亡者,給予喪假八日,工資照給。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "二、祖父母、子女、配偶之父母、配偶之養父母或繼父母喪亡者,給予喪假六日,工資" & "照給。 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "三、曾祖父母、兄弟姊妹、配偶之祖父母喪亡者,給予喪假三日,工資照給。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "勞工病假規定 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "只要一年內未請超過30天病假,當天薪資就是折半發給。" ' 'Label5 ' Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(534, 658) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(394, 96) Me.Label5.TabIndex = 1410 Me.Label5.Text = "勞工婚假規定: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "勞工結婚者給予婚假八日,工資照給。』 前開婚假應自結婚之日前十日起" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "三個月內請畢。 但經雇主同意者,得於一年內請畢,並自即日生效。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "勞工婚" & "假規定: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "勞工因有事故必須親自處理者,得請事假,一年內合計不得超過十四日。 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "事假期間不給工資。" ' '假期統計_dgv ' 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(423, 2) Me.假期統計_dgv.Name = "假期統計_dgv" Me.假期統計_dgv.RowHeadersWidth = 5 Me.假期統計_dgv.RowTemplate.Height = 24 Me.假期統計_dgv.Size = New System.Drawing.Size(126, 120) Me.假期統計_dgv.TabIndex = 1411 ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(552, 2) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(276, 112) Me.Label8.TabIndex = 1412 Me.Label8.Text = "勞工特休規定: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "① 6 個月以上 1 年未滿者,3 日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "② 1 年以上 2 年未滿者,7 日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "③ 2 年以上 3 年未滿者,10 日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "④ 3 年以" & "上 5 年未滿者,每年 14 日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "⑤ 5 年以上 10 年未滿者,每年 15 日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "⑥ 10 年以上者,每年加給 1 日,加至 30 日為止。" ' '休假未准_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(236, 99) Me.休假未准_bt.Name = "休假未准_bt" Me.休假未准_bt.Size = New System.Drawing.Size(186, 23) Me.休假未准_bt.TabIndex = 1413 Me.休假未准_bt.Text = "休假未准" Me.休假未准_bt.UseVisualStyleBackColor = True ' '時數_tb ' Me.時數_tb.Enabled = False Me.時數_tb.Location = New System.Drawing.Point(131, 160) Me.時數_tb.Name = "時數_tb" Me.時數_tb.Size = New System.Drawing.Size(51, 23) Me.時數_tb.TabIndex = 1414 ' '休假核准 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(946, 756) Me.Controls.Add(Me.休假未准_bt) Me.Controls.Add(Me.假期統計_dgv) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.PictureBox2) Me.Controls.Add(Me.休假核准_bt) Me.Controls.Add(Me.事由_tb) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.請假日期_tb) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.員工編號_tb) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.申請人_tb) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.請假類別_cb) Me.Controls.Add(Me.月份_cb) Me.Controls.Add(Me.年份_cb) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.月清單_DGV) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.時數_tb) 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.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "休假核准" CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.假期統計_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 月清單_DGV As DataGridView Friend WithEvents 休假核准_bt As Button Friend WithEvents 事由_tb As TextBox Friend WithEvents Label7 As Label Friend WithEvents 請假日期_tb As TextBox Friend WithEvents Label6 As Label Friend WithEvents 員工編號_tb As TextBox Friend WithEvents Label4 As Label Friend WithEvents 申請人_tb As TextBox Friend WithEvents Label3 As Label Friend WithEvents Label1 As Label Friend WithEvents 請假類別_cb As ComboBox Friend WithEvents 月份_cb As ComboBox Friend WithEvents 年份_cb As ComboBox Friend WithEvents Label16 As Label Friend WithEvents Label17 As Label Friend WithEvents 人員_dgv As DataGridView Friend WithEvents PictureBox2 As PictureBox Friend WithEvents Panel1 As Panel Friend WithEvents 圖片流水號_tb As TextBox Friend WithEvents 資料指定圖庫_tb As TextBox Friend WithEvents Label2 As Label Friend WithEvents Label5 As Label Friend WithEvents 假期統計_dgv As DataGridView Friend WithEvents Label8 As Label Friend WithEvents 休假未准_bt As Button Friend WithEvents 時數_tb As TextBox End Class