123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375 |
- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
- Partial Class 休假核准
- Inherits System.Windows.Forms.Form
-
- 'Form 覆寫 Dispose 以清除元件清單。
- <System.Diagnostics.DebuggerNonUserCode()>
- 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 設計工具進行修改。
- '請勿使用程式碼編輯器進行修改。
- <System.Diagnostics.DebuggerStepThrough()>
- Private Sub InitializeComponent()
- Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Me.月清單_DGV = New System.Windows.Forms.DataGridView()
- Me.Button1 = 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()
- 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(3, 123)
- Me.月清單_DGV.Name = "月清單_DGV"
- Me.月清單_DGV.RowHeadersWidth = 5
- Me.月清單_DGV.RowTemplate.Height = 24
- Me.月清單_DGV.Size = New System.Drawing.Size(546, 532)
- Me.月清單_DGV.TabIndex = 784
- '
- 'Button1
- '
- Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
- Me.Button1.Location = New System.Drawing.Point(3, 99)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(418, 23)
- Me.Button1.TabIndex = 783
- Me.Button1.Text = "休假核准"
- Me.Button1.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(552, 123)
- Me.PictureBox2.Name = "PictureBox2"
- Me.PictureBox2.Size = New System.Drawing.Size(392, 532)
- 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 日為止。"
- '
- '休假核准
- '
- 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.Label8)
- Me.Controls.Add(Me.假期統計_dgv)
- Me.Controls.Add(Me.Label5)
- Me.Controls.Add(Me.Label2)
- Me.Controls.Add(Me.PictureBox2)
- Me.Controls.Add(Me.Button1)
- 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.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 Button1 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
- End Class
|