HX-PGS-ERP-SYS-LEEHSIEHJUI/07、章程管理系統/車輛管理/車輛明細表.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()
        ' .車牌號碼, .車輛品牌, .外出地點, .借車時間, .還車時間, .申請人, .申請日期, .聯絡函單號
        '180 181 182 183 184 185 186 187
        清單_dgv.Columns("原始借車").Visible = False : 清單_dgv.Columns("原始還車").Visible = False
        清單_dgv.Columns(表頭(180)).FillWeight = 70 : 清單_dgv.Columns(表頭(181)).FillWeight = 80 : 清單_dgv.Columns(表頭(182)).FillWeight = 70
        清單_dgv.Columns(表頭(183)).FillWeight = 120 : 清單_dgv.Columns(表頭(184)).FillWeight = 120 : 清單_dgv.Columns(表頭(185)).FillWeight = 50
        清單_dgv.Columns(表頭(186)).FillWeight = 70 : 清單_dgv.Columns(表頭(187)).FillWeight = 100
        清單_dgv.Columns(表頭(180)).ReadOnly = True : 清單_dgv.Columns(表頭(181)).ReadOnly = True : 清單_dgv.Columns(表頭(182)).ReadOnly = True
        清單_dgv.Columns(表頭(183)).ReadOnly = True : 清單_dgv.Columns(表頭(184)).ReadOnly = True : 清單_dgv.Columns(表頭(185)).ReadOnly = True
        清單_dgv.Columns(表頭(186)).ReadOnly = True : 清單_dgv.Columns(表頭(187)).ReadOnly = True
        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 = "" : 清單_dgv.Rows(i).Cells(表頭(181)).Value = ""
            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 187
        表頭(180) = 系統語言字典("H508-119-" & 語言) : 表頭(181) = 系統語言字典("H001-285-" & 語言) : 表頭(182) = 系統語言字典("H001-282-" & 語言)
        表頭(183) = 系統語言字典("H001-283-" & 語言) : 表頭(184) = 系統語言字典("H001-284-" & 語言) : 表頭(185) = 系統語言字典("H904-103-" & 語言)
        表頭(186) = 系統語言字典("H904-104-" & 語言) : 表頭(187) = 系統語言字典("H904-107-" & 語言)
    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