HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/業務報表/合約文件簽核控制表.vb

Public Class 合約文件簽核控制表
    Private Sub Set_合約清單()
        Dim ds6 As New DataSet
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text
        SQL_合約文件簽核控制表()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 180 : 合約_dgv.Columns(表頭(2)).FillWeight = 400 : 合約_dgv.Columns(表頭(3)).FillWeight = 400
        合約_dgv.Columns(表頭(14)).Visible = False : 合約_dgv.Columns(表頭(13)).Visible = False
        合約_dgv.Columns(0).ReadOnly = True
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If 合約_dgv(表頭(14), i).Value.ToString = "" Then : 合約_dgv(表頭(11), i).Value = False : Else : 合約_dgv(表頭(11), i).Value = True : End If
            If IsDBNull(合約_dgv(表頭(4), i).Value) = True Then : 合約_dgv(表頭(4), i).Value = False : End If
            If 合約_dgv(表頭(4), i).Value = True Then : 合約_dgv(表頭(4), i).Value = False : Else : 合約_dgv(表頭(4), i).Value = True : End If
        Next
        If 系統語言 = "繁體中文" Then
            合約_dgv.Columns(表頭(2)).Visible = True : 合約_dgv.Columns(表頭(3)).Visible = False
        Else
            合約_dgv.Columns(表頭(2)).Visible = False : 合約_dgv.Columns(表頭(3)).Visible = True
        End If
        資料數_tb.Text = Strings.Format(合約_dgv.Rows.Count, "#,##0")
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-120-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        Label7.Text = 系統語言字典("H110-117-" & 語言) : Label11.Text = 系統語言字典("H110-118-" & 語言) : Label1.Text = 系統語言字典("H113-100-" & 語言)
        Label2.Text = 系統語言字典("H113-101-" & 語言) : 表頭(1) = 系統語言字典("H501-152-" & 語言) : 表頭(2) = 系統語言字典("H112-118-" & 語言)
        表頭(3) = 系統語言字典("H112-119-" & 語言) : 表頭(4) = 系統語言字典("H113-102-" & 語言) : 表頭(5) = 系統語言字典("H113-103-" & 語言)
        表頭(6) = 系統語言字典("H112-103-" & 語言) : 表頭(7) = 系統語言字典("H112-106-" & 語言) : 表頭(8) = 系統語言字典("H112-104-" & 語言)
        表頭(9) = 系統語言字典("H112-121-" & 語言) : 表頭(10) = 系統語言字典("H112-107-" & 語言) : 表頭(11) = 系統語言字典("H112-122-" & 語言)
        表頭(12) = 系統語言字典("H112-105-" & 語言) : 表頭(13) = 系統語言字典("H112-120-" & 語言) : 表頭(14) = 系統語言字典("H110-123-" & 語言)
        報價完成_ch.Text = 系統語言字典("H113-102-" & 語言) : 報價放行_ch.Text = 系統語言字典("H113-103-" & 語言) : 報價簽回_ch.Text = 系統語言字典("H113-104-" & 語言)
        合約簽回_ch.Text = 系統語言字典("H113-105-" & 語言) : 報價未完成_ch.Text = 系統語言字典("H113-106-" & 語言) : 報價未放行_ch.Text = 系統語言字典("H113-107-" & 語言)
        報價未簽回_ch.Text = 系統語言字典("H113-108-" & 語言) : 合約未簽回_ch.Text = 系統語言字典("H113-109-" & 語言) : 請款簽回_ch.Text = 系統語言字典("H113-110-" & 語言)
        驗收簽回_ch.Text = 系統語言字典("H113-111-" & 語言) : 保固簽回_ch.Text = 系統語言字典("H113-112-" & 語言) : 請款未簽回_ch.Text = 系統語言字典("H113-113-" & 語言)
        驗收未簽回_ch.Text = 系統語言字典("H113-114-" & 語言) : 保固未簽回_ch.Text = 系統語言字典("H113-115-" & 語言)
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-113-" & 語言))
    End Sub
    Private Sub 合約文件簽核控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(113) = True : 介面 = "H113" : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, False)
        MyMod.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 合約文件簽核控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方條件下拉清單讀取() : SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = "" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 合約文件簽核控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyMod.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 合約文件簽核控制表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H113" : 語言轉換讀取()
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單()
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)
    End Sub
    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        全部資料_ch.Checked = True : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = "" : SQL3 = "" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價完成_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價完成_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = True : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = "" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價未完成_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未完成_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = True
        SQL5 = " AND (合約停止 = 1)" : SQL3 = "" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價放行_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價放行_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = True : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價未放行_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未放行_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = True : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 0 OR 報價放行 IS NULL)" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = True : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (報價簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 報價未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = True : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (報價簽回 = 0 OR 報價簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 合約簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = True
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (合約簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 合約未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = True : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (合約簽回 = 0 OR 合約簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 驗收簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 驗收簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = True : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (驗收簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 驗收未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 驗收未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = True : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 請款簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = True : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (請款簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 請款未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = True : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (請款簽回 = 0 OR 請款簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 保固簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 保固簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = True
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (保固簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 保固未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 保固未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = True : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL5 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (保固簽回 = 0 OR 保固簽回 IS NULL)" : Set_合約清單()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control

            Label7.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black
            Label11.BackColor = SystemColors.Control : Label1.BackColor = SystemColors.Control : Label2.BackColor = SystemColors.Control
            全部資料_ch.ForeColor = Color.Black : 報價完成_ch.ForeColor = Color.Black : 報價未完成_ch.ForeColor = Color.Black
            請款簽回_ch.ForeColor = Color.Blue : 請款未簽回_ch.ForeColor = Color.Blue
            報價放行_ch.ForeColor = Color.Red : 報價未放行_ch.ForeColor = Color.Red
            驗收簽回_ch.ForeColor = Color.FromArgb(0, 64, 0) : 驗收未簽回_ch.ForeColor = Color.FromArgb(0, 64, 0)
            報價簽回_ch.ForeColor = Color.FromArgb(192, 64, 0) : 報價未簽回_ch.ForeColor = Color.FromArgb(192, 64, 0)
            保固簽回_ch.ForeColor = Color.Purple : 保固未簽回_ch.ForeColor = Color.Purple
            合約簽回_ch.ForeColor = Color.Olive : 合約未簽回_ch.ForeColor = Color.Olive

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black
            查詢_bt.BackColor = Color.White : 查詢_bt.ForeColor = Color.Black : 資料數_tb.BackColor = Color.White : 資料數_tb.ForeColor = Color.Black
            合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue


            合約_dgv.EnableHeadersVisualStyles = True : 合約_dgv.BackgroundColor = Color.White : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            合約_dgv.DefaultCellStyle.BackColor = Color.White : 合約_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black

            Label7.ForeColor = Color.White : Label11.ForeColor = Color.White : Label1.ForeColor = Color.White : Label2.ForeColor = Color.White
            Label11.BackColor = Color.Black : Label1.BackColor = Color.Black : Label2.BackColor = Color.Black
            全部資料_ch.ForeColor = Color.White : 報價完成_ch.ForeColor = Color.White : 報價未完成_ch.ForeColor = Color.White
            請款簽回_ch.ForeColor = Color.LightBlue : 請款未簽回_ch.ForeColor = Color.LightBlue
            報價放行_ch.ForeColor = Color.LightPink : 報價未放行_ch.ForeColor = Color.LightPink
            驗收簽回_ch.ForeColor = Color.LightGreen : 驗收未簽回_ch.ForeColor = Color.LightGreen
            報價簽回_ch.ForeColor = Color.FromArgb(192, 64, 0) : 報價未簽回_ch.ForeColor = Color.FromArgb(192, 64, 0)
            保固簽回_ch.ForeColor = Color.Violet : 保固未簽回_ch.ForeColor = Color.Violet
            合約簽回_ch.ForeColor = Color.Yellow : 合約未簽回_ch.ForeColor = Color.Yellow

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.White
            查詢_bt.BackColor = Color.DimGray : 查詢_bt.ForeColor = Color.White : 資料數_tb.BackColor = Color.DimGray : 資料數_tb.ForeColor = Color.White
            合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue

            合約_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.Black : 合約_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class