WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/01、人事管理系統/人事請假核准.vb

Option Strict Off
Public Class 人事請假核准
    Private ReadOnly ds, ds1 As New DataSet
    Private Sub Set_考勤明細()
        日期_dgv.DataSource = Nothing : ds.Clear()
        日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        日期_dgv.ColumnHeadersHeight = 25
        日期_dgv.AllowUserToAddRows = False
        SQL_日期查詢核准()
        da.Fill(ds) : 日期_dgv.DataSource = ds.Tables(0) : conn.Close()

        日期_dgv.Columns(0).FillWeight = 85 : 日期_dgv.Columns(1).FillWeight = 60 : 日期_dgv.Columns(2).FillWeight = 90 : 日期_dgv.Columns(3).FillWeight = 180
        日期_dgv.Columns(4).FillWeight = 80 : 日期_dgv.Columns(5).FillWeight = 65 : 日期_dgv.Columns(6).FillWeight = 90 : 日期_dgv.Columns(7).FillWeight = 75
        日期_dgv.Columns(8).FillWeight = 75 : 日期_dgv.Columns(9).FillWeight = 80 : 日期_dgv.Columns(10).FillWeight = 75 : 日期_dgv.Columns(11).FillWeight = 75
        日期_dgv.Columns(12).FillWeight = 80 : 日期_dgv.Columns(13).FillWeight = 90 : 日期_dgv.Columns(14).FillWeight = 70 : 日期_dgv.Columns(15).FillWeight = 70
        日期_dgv.Columns(16).FillWeight = 150 : 日期_dgv.Columns(17).Visible = False

        Dim T， S， F， M， T1， S1, 上午, 下午 As Integer
        Dim T2， S2， F2， M2 As String
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1
            資料數 = 日期_dgv.Rows.Count : MyModule1.進度條()
            Dim QASW As Integer = 0
            If 日期_dgv.Rows(i).Cells("上午上班").Value.ToString <> "" Then
                日期_dgv.Rows(i).Cells("上午下班").Value = "12:00:00"
                Dim TSFM As Integer = DateDiff("s", 日期_dgv.Rows(i).Cells("上午上班").Value.ToString, 日期_dgv.Rows(i).Cells("上午下班").Value)
                T = TSFM \ 86400 : T1 = TSFM Mod 86400 : S = T1 \ 3600 : S1 = T1 Mod 3600 : F = S1 \ 60 : M = S1 Mod 60
                If T = 0 Then : T2 = "" : Else : T2 = T & "天" : End If : If S = 0 Then : S2 = "" : Else : S2 = S & "時" : End If : If F = 0 Then : F2 = "" : Else : F2 = F & "分" : End If : M2 = M & "秒"
                日期_dgv.Rows(i).Cells("上午工時").Value = T2 & S2 & F2 & M2
                QASW += TSFM : 上午 += TSFM
            End If
            If 日期_dgv.Rows(i).Cells("下午下班").Value.ToString <> "" Then
                日期_dgv.Rows(i).Cells("下午上班").Value = "13:30:00"
                Dim TSFM As Integer = DateDiff("s", 日期_dgv.Rows(i).Cells("下午上班").Value.ToString, 日期_dgv.Rows(i).Cells("下午下班").Value)
                T = TSFM \ 86400 : T1 = TSFM Mod 86400 : S = T1 \ 3600 : S1 = T1 Mod 3600 : F = S1 \ 60 : M = S1 Mod 60
                If T = 0 Then : T2 = "" : Else : T2 = T & "天" : End If : If S = 0 Then : S2 = "" : Else : S2 = S & "時" : End If : If F = 0 Then : F2 = "" : Else : F2 = F & "分" : End If : M2 = M & "秒"
                日期_dgv.Rows(i).Cells("下午工時").Value = T2 & S2 & F2 & M2
                QASW += TSFM : 下午 += TSFM
            End If
            If QASW = 0 Then : Else
                T = QASW \ 86400 : T1 = QASW Mod 86400 : S = T1 \ 3600 : S1 = T1 Mod 3600 : F = S1 \ 60 : M = S1 Mod 60
                If T = 0 Then : T2 = "" : Else : T2 = T & "天" : End If : If S = 0 Then : S2 = "" : Else : S2 = S & "時" : End If : If F = 0 Then : F2 = "" : Else : F2 = F & "分" : End If : M2 = M & "秒"
                日期_dgv.Rows(i).Cells("整日工時").Value = T2 & S2 & F2 & M2
            End If
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub Set_人員清單()
        員工_dgv.DataSource = Nothing : ds1.Clear()
        員工_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        員工_dgv.ColumnHeadersHeight = 25
        員工_dgv.AllowUserToAddRows = False
        SQL_員工清單()
        da.Fill(ds1) : 員工_dgv.DataSource = ds1.Tables(0) : conn.Close()

        員工_dgv.Columns(0).Visible = False : 員工_dgv.Columns(1).FillWeight = 150 : 員工_dgv.Columns(2).Visible = False : 員工_dgv.Columns(3).Visible = False
        員工_dgv.Columns(4).Visible = False
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_年份查詢()
        年份_cb.Items.Clear()
        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
        conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        SQL_請假()
        請假類別_cb.Items.Clear()
        While (dr.Read()) : 請假類別_cb.Items.Add(dr("請假類別")) : End While
        conn.Close()
    End Sub
    Private Sub 人事請假核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_人員清單() : ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入()
        年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1
        If CC(49) = True Then
            員工_dgv.Enabled = True
        Else
            員工_dgv.Enabled = False
            編號 = 員工編號 : Set_考勤明細()
            員工編號_tb.Text = 員工編號 : 申請人_tb.Text = gUserName : 員工部門_tb.Text = 登入人部門
        End If
        日期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        員工_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 日期_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            請假日期_tb.Text = 日期_dgv(0, e.RowIndex).Value.ToString : 請假類別_cb.Text = 日期_dgv(2, e.RowIndex).Value.ToString : 事由_tb.Text = 日期_dgv(3, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 員工_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            編號 = 員工_dgv(0, e.RowIndex).Value.ToString : 員工編號_tb.Text = 員工_dgv(0, e.RowIndex).Value.ToString
            日期_dtp.Value = 員工_dgv(3, e.RowIndex).Value.ToString : 申請人_tb.Text = 員工_dgv(1, e.RowIndex).Value.ToString
            Set_考勤明細()
            Dim TSFM As Integer = DateDiff("d", 日期_dtp.Value, Today()) : 在職天數_tb.Text = TSFM
            SQL_使用者權限()
            If dr.Read() Then
                員工部門_tb.Text = dr("部門").ToString
            End If
            conn.Close()
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 核准_bt.Click
        If 申請人_tb.Text = "" Or 請假日期_tb.Text = "" Or 事由_tb.Text = "" Or 請假類別_cb.Text = "" Then
            MsgBox("請檢查資料是否有填選完畢")
        Else
            Set_日期格式轉換()
            SQL_假單核准()
            Dim 有無資料判別 As String = ""
            SQL_讀取員工編號()
            If dr.Read() Then : 有無資料判別 = dr("員工編號").ToString : End If : conn.Close()

            If 有無資料判別 = "" Then
                SQL_人事考勤明細表新增()
            Else
                SQL_人事考勤明細表修改()
            End If
            Set_考勤明細()
            MsgBox("核准完成")
        End If
    End Sub
End Class