HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/請休假與外出/人員明細表.vb

Imports System.Globalization
Public Class 人員明細表
    Private Sub Set_清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 30
        SQL_人員明細_履歷(PA50)
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns("原始開始").Visible = False : 清單_dgv.Columns("原始結束").Visible = False
        '.姓名, .人員狀態, .外出地點, .開始時間, .結束時間, .聯絡函單號, .申請日期
        '180 181 182 183 184 185 186
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            Dim 借車時間 As String = 清單_dgv.Rows(i).Cells("原始開始").Value.ToString : Dim 格式 As String = "yyyyMMddHHmmss"
            Dim 轉換後的時間 As DateTime = DateTime.ParseExact(借車時間, 格式, CultureInfo.InvariantCulture)
            清單_dgv.Rows(i).Cells(表頭(183)).Value = Strings.Format(轉換後的時間, "yyyy/MM/dd-HH:mm:ss")
            Dim 還車時間 As String = 清單_dgv.Rows(i).Cells("原始結束").Value.ToString
            轉換後的時間 = DateTime.ParseExact(還車時間, 格式, CultureInfo.InvariantCulture)
            清單_dgv.Rows(i).Cells(表頭(184)).Value = Strings.Format(轉換後的時間, "yyyy/MM/dd-HH:mm:ss")
            If i <> 0 Then
                清單_dgv.Rows(i).Cells(表頭(180)).Value = ""
            End If
            If 系統語言 <> "繁體中文" Then
                If 清單_dgv.Rows(i).Cells(表頭(181)).Value = "外出" Then : 清單_dgv.Rows(i).Cells(表頭(181)).Value = "Keluar"
                ElseIf 清單_dgv.Rows(i).Cells(表頭(181)).Value = "請假" Then : 清單_dgv.Rows(i).Cells(表頭(181)).Value = "Cuti"
                End If
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        '.姓名, .人員狀態, .外出地點, .開始時間, .結束時間, .聯絡函單號, .申請日期
        '180 181 182 183 184 185 186
        表頭(180) = 系統語言字典("H601-103-" & 語言) : 表頭(181) = 系統語言字典("H001-279-" & 語言) : 表頭(182) = 系統語言字典("H001-282-" & 語言)
        表頭(183) = 系統語言字典("H001-280-" & 語言) : 表頭(184) = 系統語言字典("H001-281-" & 語言) : 表頭(185) = 系統語言字典("H904-107-" & 語言)
        表頭(186) = 系統語言字典("H904-104-" & 語言)
    End Sub
    Private Sub 人員明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        語言轉換讀取() : 風格() : Set_清單()
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            清單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class