HX-PGS-ERP-SYS-SIU/07、章程管理系統/車輛管理/車輛管理.vb

Public Class 車輛管理
    Dim 對話框(10) As String
    Private Sub Set_清單()
        Dim ds1 As New DataSet : 清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
        SQL_車輛管理_清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(表頭(174)).FillWeight = 30
    End Sub

    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-278-" & 語言)
        對話框(0) = 系統語言字典("G000-119-" & 語言) : 對話框(1) = 系統語言字典("G000-118-" & 語言) : 對話框(2) = 系統語言字典("G000-117-" & 語言)
        對話框(3) = 系統語言字典("G000-124-" & 語言) : 對話框(4) = 系統語言字典("G000-120-" & 語言)
        車輛編號_lb.Text = 系統語言字典("H616-100-" & 語言) : 車牌號碼_lb.Text = 系統語言字典("H508-119-" & 語言) : 車輛品牌_lb.Text = 系統語言字典("H001-285-" & 語言)
        車輛位置_lb.Text = 系統語言字典("H616-101-" & 語言) : 使用人員_lb.Text = 系統語言字典("H616-102-" & 語言)
        '車輛編號, 車輛品牌, 車牌號碼, 車輛位置, 固定指派, 使用人員
        '170 171 172 173 174 175
        表頭(170) = 系統語言字典("H616-100-" & 語言) : 表頭(171) = 系統語言字典("H001-285-" & 語言) : 表頭(172) = 系統語言字典("H508-119-" & 語言)
        表頭(173) = 系統語言字典("H616-101-" & 語言) : 表頭(174) = 系統語言字典("H616-103-" & 語言) : 表頭(175) = 系統語言字典("H616-102-" & 語言)
    End Sub
    Private Sub 切換使用人員()
        If 固定指派_ch.Checked Then : 使用人員_cb.Enabled = True : Else : 使用人員_cb.Enabled = False : End If
    End Sub
    Private Sub Set_下拉清單()
        SQL_車輛管理_品牌下拉() : 車輛品牌_cb.Items.Clear() : 車輛品牌_cb.Items.Add("")
        While (dr.Read()) : 車輛品牌_cb.Items.Add(dr("車輛品牌")) : End While : conn.Close()
        SQL_車輛管理_位置下拉() : 車輛位置_cb.Items.Clear() : 車輛位置_cb.Items.Add("")
        While (dr.Read()) : 車輛位置_cb.Items.Add(dr("車輛位置")) : End While : conn.Close()
        SQL_車輛管理_人員下拉() : 使用人員_cb.Items.Clear() : 使用人員_cb.Items.Add("")
        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

        H(616) = True : 介面 = "H616" : 語言轉換讀取() : 風格()
        Set_下拉清單() : Set_清單() : 使用人員_cb.Enabled = False

    End Sub

    Private Sub 清單_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            '車輛編號, 車輛品牌, 車牌號碼, 車輛位置, 固定指派, 使用人員
            '170 171 172 173 174 175
            車輛編號_tb.Text = 清單_dgv(表頭(170), e.RowIndex).Value.ToString : 車輛品牌_cb.Text = 清單_dgv(表頭(171), e.RowIndex).Value.ToString
            車輛號碼_tb.Text = 清單_dgv(表頭(172), e.RowIndex).Value.ToString : 車輛位置_cb.Text = 清單_dgv(表頭(173), e.RowIndex).Value.ToString
            固定指派_ch.Checked = 清單_dgv(表頭(174), e.RowIndex).Value : 使用人員_cb.Text = 清單_dgv(表頭(175), e.RowIndex).Value.ToString
            切換使用人員()
        End If
    End Sub

    Private Sub 固定指派_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 固定指派_ch.CheckedChanged
        切換使用人員()
    End Sub

    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        車輛編號_tb.Text = "" : 車輛品牌_cb.Text = "" : 車輛號碼_tb.Text = "" : 車輛位置_cb.Text = "" : 固定指派_ch.Checked = False : 使用人員_cb.Text = ""
        SQL_車輛管理_最後一筆資料()
        If dr.Read() Then : 車輛編號_tb.Text = dr("車輛編號").ToString : Else : 車輛編號_tb.Text = "CA00" : End If
        Dim NUM1 As Integer : NUM1 = Double.Parse(Strings.Right(車輛編號_tb.Text, 2)) + 1
        If NUM1 < 10 Then : 車輛編號_tb.Text = "CA" & "0" & NUM1 : Else : 車輛編號_tb.Text = "CA" & NUM1 : End If
        SQL_車輛管理_新增(車輛編號_tb.Text) : MGB(對話框(1), 1) : Set_清單()
    End Sub

    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 車輛編號_tb.Text = "" Then
            MGB(對話框(2), 1)
        Else
            SQL_車輛管理_修改(車輛編號_tb.Text, 車輛品牌_cb.Text, 車輛號碼_tb.Text, 車輛位置_cb.Text, 固定指派_ch.Checked, 使用人員_cb.Text)
            Set_清單() : Set_下拉清單() : MGB(對話框(0), 1)
        End If
    End Sub

    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 車輛編號_tb.Text = "" Then
            MGB(對話框(2), 1)
        Else
            MGB(對話框(3), 2)
            If 訊息回應 = "YES" Then
                SQL_車輛管理_刪除(車輛編號_tb.Text) : Set_清單() : Set_下拉清單() : MGB(對話框(4), 1)
            End If
        End If
    End Sub

    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        語言轉換讀取()
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            車輛編號_lb.ForeColor = Color.Black : 車牌號碼_lb.ForeColor = Color.Black : 車輛品牌_lb.ForeColor = Color.Black : 車輛位置_lb.ForeColor = Color.Black
            使用人員_lb.ForeColor = Color.Black : 固定指派_ch.ForeColor = Color.Black

            車輛編號_tb.BackColor = Color.White : 車輛編號_tb.ForeColor = Color.Black : 車輛號碼_tb.BackColor = Color.White : 車輛號碼_tb.ForeColor = Color.Black
            車輛品牌_cb.BackColor = Color.White : 車輛品牌_cb.ForeColor = Color.Black : 車輛位置_cb.BackColor = Color.White : 車輛位置_cb.ForeColor = Color.Black
            使用人員_cb.BackColor = Color.White : 使用人員_cb.ForeColor = Color.Black

            新增_bt.BackColor = Color.White : 存檔_bt.BackColor = Color.White : 刪除_bt.BackColor = Color.White : 語轉扭_bt.BackColor = Color.White

            清單_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
            Me.BackColor = Color.Black
            車輛編號_lb.ForeColor = Color.White : 車牌號碼_lb.ForeColor = Color.White : 車輛品牌_lb.ForeColor = Color.White : 車輛位置_lb.ForeColor = Color.White
            使用人員_lb.ForeColor = Color.White : 固定指派_ch.ForeColor = Color.White

            車輛編號_tb.BackColor = Color.DimGray : 車輛編號_tb.ForeColor = Color.White : 車輛號碼_tb.BackColor = Color.DimGray : 車輛號碼_tb.ForeColor = Color.White
            車輛品牌_cb.BackColor = Color.DimGray : 車輛品牌_cb.ForeColor = Color.White : 車輛位置_cb.BackColor = Color.DimGray : 車輛位置_cb.ForeColor = Color.White
            使用人員_cb.BackColor = Color.DimGray : 使用人員_cb.ForeColor = Color.White

            新增_bt.BackColor = Color.DimGray : 存檔_bt.BackColor = Color.DimGray : 刪除_bt.BackColor = Color.DimGray : 語轉扭_bt.BackColor = Color.DimGray

            清單_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