_ 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.月份_cb = New System.Windows.Forms.ComboBox() Me.年份_cb = New System.Windows.Forms.ComboBox() Me.月份_lb = New System.Windows.Forms.Label() Me.年份_lb = New System.Windows.Forms.Label() Me.日期_dgv = New System.Windows.Forms.DataGridView() Me.員工_dgv = New System.Windows.Forms.DataGridView() Me.在職天數_tb = New System.Windows.Forms.TextBox() Me.在職天數_lb = New System.Windows.Forms.Label() Me.入職日期_dtp = New System.Windows.Forms.DateTimePicker() Me.入職日期_lb = New System.Windows.Forms.Label() 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.員工編號_tb = New System.Windows.Forms.TextBox() Me.員工編號_lb = New System.Windows.Forms.Label() Me.員工部門_tb = New System.Windows.Forms.TextBox() Me.員工部門_lb = New System.Windows.Forms.Label() Me.請假_tb = New System.Windows.Forms.TextBox() Me.請假日期_lb = New System.Windows.Forms.Label() Me.事由_lb = New System.Windows.Forms.Label() Me.事由_tb = New System.Windows.Forms.TextBox() Me.開立請假單_bt = New System.Windows.Forms.Button() CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.員工_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '月份_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(165, 4) Me.月份_cb.Name = "月份_cb" Me.月份_cb.Size = New System.Drawing.Size(71, 24) Me.月份_cb.TabIndex = 649 ' '年份_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(50, 4) Me.年份_cb.Name = "年份_cb" Me.年份_cb.Size = New System.Drawing.Size(71, 24) Me.年份_cb.TabIndex = 648 ' '月份_lb ' Me.月份_lb.AutoSize = True Me.月份_lb.Location = New System.Drawing.Point(127, 7) Me.月份_lb.Name = "月份_lb" Me.月份_lb.Size = New System.Drawing.Size(32, 16) Me.月份_lb.TabIndex = 647 Me.月份_lb.Text = "月份" ' '年份_lb ' Me.年份_lb.AutoSize = True Me.年份_lb.Location = New System.Drawing.Point(12, 7) Me.年份_lb.Name = "年份_lb" Me.年份_lb.Size = New System.Drawing.Size(32, 16) Me.年份_lb.TabIndex = 646 Me.年份_lb.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) _ 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, 58) Me.日期_dgv.Name = "日期_dgv" Me.日期_dgv.RowHeadersWidth = 5 Me.日期_dgv.RowTemplate.Height = 24 Me.日期_dgv.Size = New System.Drawing.Size(1185, 618) Me.日期_dgv.TabIndex = 645 ' '員工_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), System.Windows.Forms.AnchorStyles) Me.員工_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.員工_dgv.BackgroundColor = System.Drawing.Color.White Me.員工_dgv.ColumnHeadersHeight = 4 Me.員工_dgv.Location = New System.Drawing.Point(3, 58) Me.員工_dgv.Name = "員工_dgv" Me.員工_dgv.RowHeadersWidth = 5 Me.員工_dgv.RowTemplate.Height = 24 Me.員工_dgv.Size = New System.Drawing.Size(156, 618) Me.員工_dgv.TabIndex = 643 ' '在職天數_tb ' Me.在職天數_tb.Location = New System.Drawing.Point(485, 5) Me.在職天數_tb.Name = "在職天數_tb" Me.在職天數_tb.Size = New System.Drawing.Size(113, 23) Me.在職天數_tb.TabIndex = 684 ' '在職天數_lb ' Me.在職天數_lb.AutoSize = True Me.在職天數_lb.Location = New System.Drawing.Point(423, 9) Me.在職天數_lb.Name = "在職天數_lb" Me.在職天數_lb.Size = New System.Drawing.Size(56, 16) Me.在職天數_lb.TabIndex = 683 Me.在職天數_lb.Text = "在職天數" ' '入職日期_dtp ' Me.入職日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.入職日期_dtp.Location = New System.Drawing.Point(304, 5) Me.入職日期_dtp.Name = "入職日期_dtp" Me.入職日期_dtp.Size = New System.Drawing.Size(113, 23) Me.入職日期_dtp.TabIndex = 682 ' '入職日期_lb ' Me.入職日期_lb.AutoSize = True Me.入職日期_lb.Location = New System.Drawing.Point(242, 7) Me.入職日期_lb.Name = "入職日期_lb" Me.入職日期_lb.Size = New System.Drawing.Size(56, 16) Me.入職日期_lb.TabIndex = 681 Me.入職日期_lb.Text = "入職日期" ' '請假_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(666, 31) Me.請假_cb.Name = "請假_cb" Me.請假_cb.Size = New System.Drawing.Size(113, 24) Me.請假_cb.TabIndex = 685 ' '請假類別_lb ' Me.請假類別_lb.AutoSize = True Me.請假類別_lb.Location = New System.Drawing.Point(604, 35) Me.請假類別_lb.Name = "請假類別_lb" Me.請假類別_lb.Size = New System.Drawing.Size(56, 16) Me.請假類別_lb.TabIndex = 686 Me.請假類別_lb.Text = "請假類別" ' '申請人_tb ' Me.申請人_tb.Location = New System.Drawing.Point(50, 32) Me.申請人_tb.Name = "申請人_tb" Me.申請人_tb.Size = New System.Drawing.Size(186, 23) Me.申請人_tb.TabIndex = 688 ' '申請人_lb ' Me.申請人_lb.AutoSize = True Me.申請人_lb.Location = New System.Drawing.Point(0, 35) Me.申請人_lb.Name = "申請人_lb" Me.申請人_lb.Size = New System.Drawing.Size(44, 16) Me.申請人_lb.TabIndex = 687 Me.申請人_lb.Text = "申請人" ' '員工編號_tb ' Me.員工編號_tb.Location = New System.Drawing.Point(304, 32) Me.員工編號_tb.Name = "員工編號_tb" Me.員工編號_tb.Size = New System.Drawing.Size(113, 23) Me.員工編號_tb.TabIndex = 690 ' '員工編號_lb ' Me.員工編號_lb.AutoSize = True Me.員工編號_lb.Location = New System.Drawing.Point(242, 35) Me.員工編號_lb.Name = "員工編號_lb" Me.員工編號_lb.Size = New System.Drawing.Size(56, 16) Me.員工編號_lb.TabIndex = 689 Me.員工編號_lb.Text = "員工編號" ' '員工部門_tb ' Me.員工部門_tb.Location = New System.Drawing.Point(485, 32) Me.員工部門_tb.Name = "員工部門_tb" Me.員工部門_tb.Size = New System.Drawing.Size(113, 23) Me.員工部門_tb.TabIndex = 692 ' '員工部門_lb ' Me.員工部門_lb.AutoSize = True Me.員工部門_lb.Location = New System.Drawing.Point(423, 35) Me.員工部門_lb.Name = "員工部門_lb" Me.員工部門_lb.Size = New System.Drawing.Size(56, 16) Me.員工部門_lb.TabIndex = 691 Me.員工部門_lb.Text = "員工部門" ' '請假_tb ' Me.請假_tb.Location = New System.Drawing.Point(666, 4) Me.請假_tb.Name = "請假_tb" Me.請假_tb.Size = New System.Drawing.Size(113, 23) Me.請假_tb.TabIndex = 694 ' '請假日期_lb ' Me.請假日期_lb.AutoSize = True Me.請假日期_lb.Location = New System.Drawing.Point(604, 8) Me.請假日期_lb.Name = "請假日期_lb" Me.請假日期_lb.Size = New System.Drawing.Size(56, 16) Me.請假日期_lb.TabIndex = 693 Me.請假日期_lb.Text = "請假日期" ' '事由_lb ' Me.事由_lb.AutoSize = True Me.事由_lb.Location = New System.Drawing.Point(781, 8) Me.事由_lb.Name = "事由_lb" Me.事由_lb.Size = New System.Drawing.Size(32, 16) Me.事由_lb.TabIndex = 695 Me.事由_lb.Text = "事由" ' '事由_tb ' Me.事由_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.事由_tb.Location = New System.Drawing.Point(815, 3) Me.事由_tb.Multiline = True Me.事由_tb.Name = "事由_tb" Me.事由_tb.Size = New System.Drawing.Size(350, 52) Me.事由_tb.TabIndex = 696 ' '開立請假單_bt ' Me.開立請假單_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.開立請假單_bt.Location = New System.Drawing.Point(1171, 3) Me.開立請假單_bt.Name = "開立請假單_bt" Me.開立請假單_bt.Size = New System.Drawing.Size(175, 51) Me.開立請假單_bt.TabIndex = 697 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.事由_tb) Me.Controls.Add(Me.事由_lb) Me.Controls.Add(Me.請假_tb) Me.Controls.Add(Me.請假日期_lb) Me.Controls.Add(Me.員工部門_tb) Me.Controls.Add(Me.員工部門_lb) Me.Controls.Add(Me.員工編號_tb) Me.Controls.Add(Me.員工編號_lb) Me.Controls.Add(Me.申請人_tb) Me.Controls.Add(Me.申請人_lb) Me.Controls.Add(Me.請假類別_lb) Me.Controls.Add(Me.請假_cb) Me.Controls.Add(Me.在職天數_tb) Me.Controls.Add(Me.在職天數_lb) Me.Controls.Add(Me.入職日期_dtp) Me.Controls.Add(Me.入職日期_lb) Me.Controls.Add(Me.月份_cb) Me.Controls.Add(Me.年份_cb) Me.Controls.Add(Me.月份_lb) 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 月份_cb As ComboBox Friend WithEvents 年份_cb As ComboBox Friend WithEvents 月份_lb As Label Friend WithEvents 年份_lb As Label Friend WithEvents 日期_dgv As DataGridView Friend WithEvents 員工_dgv As DataGridView Friend WithEvents 在職天數_tb As TextBox Friend WithEvents 在職天數_lb As Label Friend WithEvents 入職日期_dtp As DateTimePicker Friend WithEvents 入職日期_lb As Label Friend WithEvents 請假_cb As ComboBox Friend WithEvents 請假類別_lb As Label Friend WithEvents 申請人_tb As TextBox Friend WithEvents 申請人_lb As Label Friend WithEvents 員工編號_tb As TextBox Friend WithEvents 員工編號_lb As Label Friend WithEvents 員工部門_tb As TextBox Friend WithEvents 員工部門_lb As Label Friend WithEvents 請假_tb As TextBox Friend WithEvents 請假日期_lb As Label Friend WithEvents 事由_lb As Label Friend WithEvents 事由_tb As TextBox Friend WithEvents 開立請假單_bt As Button End Class