HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/專案驗收/合約驗收控制表.vb

Option Strict Off
Imports System.IO
Public Class 合約驗收控制表
    Dim 存檔, 簽回檔 As Boolean
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = System.Windows.Forms.Application.StartupPath
    Dim 對話框(33) As String : Dim 選擇項 As Integer
    Private Sub Set_驗收清單()
        Dim ds2 As New DataSet
        驗收單_dgv.DataSource = Nothing : ds2.Clear()
        驗收單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        驗收單_dgv.ColumnHeadersHeight = 40 : 驗收單_dgv.AllowUserToAddRows = False
        PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text : PA = 關鍵字搜尋_tb.Text
        If 全部資料_ch.Checked = True And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE   約號甲方 Like N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 
                            負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = True And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE  (驗收結果 = 0 OR 驗收結果 IS NULL) AND 約號甲方 Like N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約編號 LIKE N'%" & PA & "%' OR 
                            客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 
                            工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = True Then
            SQL2 = "WHERE   驗收結果 = 1 AND 約號甲方 Like N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約編號 LIKE N'%" & PA & "%' OR 
                            客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 
                            工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) "
        End If
        If 系統語言 = "繁體中文" Then : SQL3 = "工程名稱_中" : Else : SQL3 = "工程名稱_英" : End If
        SQL_合約驗收控制表查詢()
        da.Fill(ds2) : 驗收單_dgv.DataSource = ds2.Tables(0) : conn.Close()
        驗收單_dgv.Columns(0).FillWeight = 120 : 驗收單_dgv.Columns(1).FillWeight = 350 : 驗收單_dgv.Columns(2).FillWeight = 50 : 驗收單_dgv.Columns(3).FillWeight = 100
        驗收單_dgv.Columns(4).FillWeight = 100 : 驗收單_dgv.Columns(5).FillWeight = 60 : 驗收單_dgv.Columns(6).FillWeight = 100 : 驗收單_dgv.Columns(7).FillWeight = 40
        驗收單_dgv.Columns(8).FillWeight = 40 : 驗收單_dgv.Columns(9).FillWeight = 200 : 驗收單_dgv.Columns(10).FillWeight = 200
        驗收單_dgv.Columns(表頭(12)).FillWeight = 40 : 驗收單_dgv.Columns("簽回檔圖庫").Visible = False
        驗收單_dgv.Columns(表頭(2)).DefaultCellStyle.Format = "#,##0" : 驗收單_dgv.Columns(表頭(6)).DefaultCellStyle.Format = "#,##0"
        驗收單_dgv.Columns(表頭(2)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        驗收單_dgv.Columns(表頭(6)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        驗收單_dgv.Columns(表頭(3)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        驗收單_dgv.Columns(表頭(4)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        驗收單_dgv.Columns(表頭(5)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        驗收單_dgv.Columns(表頭(8)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dim 驗收日 As String
        For i As Integer = 0 To 驗收單_dgv.Rows.Count - 1
            If IsDBNull(驗收單_dgv(表頭(12), i).Value) = True Then : 驗收單_dgv(表頭(12), i).Value = False : End If
            If 驗收單_dgv.Rows(i).Cells(表頭(4)).Value.ToString = "" Then
                驗收日 = Today()
            Else
                驗收日 = 驗收單_dgv.Rows(i).Cells(表頭(4)).Value.ToString
            End If
            驗收單_dgv.Rows(i).Cells(表頭(6)).Value = DateDiff("d", 驗收單_dgv.Rows(i).Cells(表頭(3)).Value.ToString, 驗收日)
        Next
        If 系統分區控制 = True Then
            Set_清單_dgv_下拉式清單1() : 驗收單_dgv.Columns(12).Visible = False
            驗收單_dgv.Columns(表頭(10)).Visible = False : 驗收單_dgv.Columns(表頭(9)).Visible = True
        Else
            驗收單_dgv.Columns(表頭(10)).Visible = True : 驗收單_dgv.Columns(表頭(10)).FillWeight = 200
            驗收單_dgv.Columns(表頭(9)).Visible = False
        End If
    End Sub
    Private Sub Set_清單_dgv_下拉式清單1()
        Dim Col As New DataGridViewComboBoxColumn With {
            .FillWeight = 100,
            .DataPropertyName = "LEAD"
        }
        SQL執行主管下拉1()
        Col.Items.Clear() : Col.Items.Add("")
        While (dr.Read()) : Col.Items.Add(dr("姓名")) : End While : conn.Close()
        Col.HeaderText = "LEAD" : Col.Name = "LEAD"
        驗收單_dgv.Columns.Insert(11, Col)
    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 Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-132" Or Strings.Left(line, 8) = "H003-103" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-132" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString
        SK = "H110-100" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H110-101" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-102" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "H110-103" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-104" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H110-105" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-106" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H110-107" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-108" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "H110-109" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-110" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H110-111" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-112" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString : SK = "G000-113" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-113" : Set_語言查詢() : 對話框(14) = 語言_dgv(1, RI).Value.ToString : SK = "H110-114" : Set_語言查詢() : 全部資料_ch.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H110-115" : Set_語言查詢() : 請款未結束_ch.Text = 語言_dgv(1, RI).Value.ToString : SK = "H110-116" : Set_語言查詢() : 請款已結束_ch.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H110-117" : Set_語言查詢() : Label7.Text = 語言_dgv(1, RI).Value.ToString : SK = "H110-118" : Set_語言查詢() : Label11.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H110-120" : Set_語言查詢() : Label3.Text = 語言_dgv(1, RI).Value.ToString : SK = "H110-131" : Set_語言查詢() : 表頭(10) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-123" : Set_語言查詢() : Label9.Text = 語言_dgv(1, RI).Value.ToString : SK = "H110-124" : Set_語言查詢() : Label6.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H110-126" : Set_語言查詢() : 指定存檔_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H110-127" : Set_語言查詢() : 對話框(15) = 語言_dgv(1, RI).Value.ToString
        SK = "H003-103" : Set_語言查詢() : 表頭(1) = 語言_dgv(1, RI).Value.ToString : SK = "H110-128" : Set_語言查詢() : 表頭(6) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-129" : Set_語言查詢() : 表頭(7) = 語言_dgv(1, RI).Value.ToString : SK = "H110-130" : Set_語言查詢() : 表頭(8) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-132" : Set_語言查詢() : 表頭(12) = 語言_dgv(1, RI).Value.ToString : SK = "H110-125" : Set_語言查詢() : Label12.Text = 語言_dgv(1, RI).Value.ToString
        SK = "G000-156" : Set_語言查詢() : Label8.Text = 語言_dgv(1, RI).Value.ToString : 表頭(0) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-122" : Set_語言查詢() : Label4.Text = 語言_dgv(1, RI).Value.ToString : 表頭(2) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-157" : Set_語言查詢() : Label1.Text = 語言_dgv(1, RI).Value.ToString : 表頭(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-119" : Set_語言查詢() : Label20.Text = 語言_dgv(1, RI).Value.ToString : 表頭(4) = 語言_dgv(1, RI).Value.ToString
        SK = "H110-121" : Set_語言查詢() : Label2.Text = 語言_dgv(1, RI).Value.ToString : 表頭(5) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-155" : Set_語言查詢() : Label5.Text = 語言_dgv(1, RI).Value.ToString : 表頭(9) = 語言_dgv(1, RI).Value.ToString
        If 系統分區控制 = True Then : 驗收完成_bt.Text = 對話框(0) : 指定存檔_bt.Enabled = True : Else : 驗收完成_bt.Text = 對話框(1) : 指定存檔_bt.Enabled = False : End If
    End Sub
    Private Sub 指定存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 指定存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.指定存檔_bt, 對話框(15))
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 對話框(13))
    End Sub
    Private Sub 查閱文件_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查閱文件_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查閱文件_bt, 對話框(14))
    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(110) = True : 介面 = "H110" : 語言轉換讀取() : 顯示說明(999, False)
        甲方條件下拉清單讀取() : Set_驗收清單() : 合約報價單_Siz()
    End Sub
    Private Sub 合約驗收控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 待辦進入 <> "" Then : lastFoundRowIndex = -1 : lastFoundColIndex = -1
            關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(驗收單_dgv, 關鍵字搜尋_tb)
            If lastFoundRowIndex = -1 And lastFoundColIndex = -1 Then
                全部資料_ch.Checked = False : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = True : 關鍵字搜尋_tb.Text = "" : Set_驗收清單()
                關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_手動(驗收單_dgv, 關鍵字搜尋_tb)
            End If
            If lastFoundRowIndex <> -1 And lastFoundColIndex <> -1 Then : 選擇項 = lastFoundRowIndex : 驗收單選擇() : End If : 關鍵字搜尋_tb.Text = "" : 待辦進入 = ""
        End If
    End Sub
    Private Sub 合約驗收控制表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 合約報價單_Siz()
        MyMod.清單字體大小調整()
        驗收單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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
        介面 = "H110" : 語言轉換讀取() : Set_驗收清單()
    End Sub
    Private Sub 驗收單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 驗收單_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 驗收單_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 驗收單_dgv(表頭(4), e.RowIndex).Value.ToString <> "" And 驗收單_dgv(表頭(4), e.RowIndex + 1).Value.ToString = "" Then
                Dim startX As Integer = IIf(驗收單_dgv.RowHeadersVisible, 驗收單_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 驗收單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 驗收單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 驗收單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗收單_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 驗收單選擇() : End If
    End Sub
    Private Sub 驗收單選擇()
        圖片庫 = 驗收單_dgv("簽回檔圖庫", 選擇項).Value.ToString : 簽回檔 = 驗收單_dgv(表頭(12), 選擇項).Value
        合約編號_tb.Text = 驗收單_dgv(表頭(0), 選擇項).Value.ToString : 保固_cb.Text = 驗收單_dgv(表頭(8), 選擇項).Value.ToString
        立約日期_dtp.Value = 驗收單_dgv(表頭(3), 選擇項).Value.ToString : 合約工期_nud.Value = 驗收單_dgv(表頭(2), 選擇項).Value.ToString
        If 系統分區控制 = True Then : 備註_tb.Text = 驗收單_dgv(表頭(9), 選擇項).Value.ToString
        Else : 備註_tb.Text = 驗收單_dgv(表頭(10), 選擇項).Value.ToString : End If
        If 驗收單_dgv(表頭(4), 選擇項).Value.ToString = "" Then : 驗收日期_dtp.Value = Today() : 存檔 = False
        Else : 驗收日期_dtp.Value = 驗收單_dgv(表頭(4), 選擇項).Value.ToString : 存檔 = True : End If
        If 驗收單_dgv(表頭(5), 選擇項).Value.ToString = "" Then : 驗收完成_dtp.Value = Today()
        Else : 驗收完成_dtp.Value = 驗收單_dgv(表頭(5), 選擇項).Value.ToString : End If
        工程天數_nud.Value = DateDiff("d", 立約日期_dtp.Value, 驗收日期_dtp.Value) : 日期差異_nud.Value = 合約工期_nud.Value - 工程天數_nud.Value
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : Set_驗收清單()
    End Sub
    Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : Set_驗收清單()
    End Sub
    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = True : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = False : Set_驗收清單()
    End Sub
    Private Sub 請款未結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款未結束_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = False : 請款未結束_ch.Checked = True : 請款已結束_ch.Checked = False : Set_驗收清單()
    End Sub
    Private Sub 請款已結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款已結束_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = False : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = True : Set_驗收清單()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_驗收清單()
    End Sub
    Private Sub 驗收完成_bt_Click(sender As Object, e As EventArgs) Handles 驗收完成_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
            If 系統分區控制 = True Then
                If 存檔 = False Then : MGB(對話框(3), 1) : Else
                    If 保固_cb.Text = "" Then : MGB(對話框(4), 1) : Else
                        If 驗收日期_dtp.Value > 驗收完成_dtp.Value Then : MGB(對話框(5), 1) : Else
                            MGB(對話框(6) & Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") & 對話框(7), 2)
                            If 訊息回應 = "YES" Then
                                PA = 合約編號_tb.Text : PA1 = Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") : PA2 = "1" : PA3 = 備註_tb.Text : PA4 = 保固_cb.Text
                                PA5 = 合約工期_nud.Value
                                SQL_控制表_驗收修改2() : PA = "" : Set_驗收清單() : 存檔 = False : MGB(對話框(8), 1)
                            End If
                        End If
                    End If
                End If
            Else : PA = 合約編號_tb.Text : PA3 = 備註_tb.Text : SQL_控制表_驗收修改3() : PA = "" : Set_驗收清單() : MGB(對話框(9), 1) : End If
        End If
    End Sub
    Private Sub 指定存檔_bt_Click(sender As Object, e As EventArgs) Handles 指定存檔_bt.Click
        For I As Integer = 0 To 驗收單_dgv.Rows.Count - 1
            PA = 驗收單_dgv(表頭(0), I).Value.ToString : PA3 = 驗收單_dgv("LEAD", I).Value.ToString : SQL_控制表_驗收修改4()
        Next : MGB(對話框(10), 1)
    End Sub
    Private Sub 查閱文件_bt_Click(sender As Object, e As EventArgs) Handles 查閱文件_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(11), 1) : Else
            If 簽回檔 = False Then : MGB(對話框(12), 1) : Else : PA1 = 合約編號_tb.Text : PA2 = "驗收" : 文件查閱視窗.ShowDialog() : End If
        End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '-----------黑色----------------------------
            Label7.ForeColor = Color.Black : Label11.ForeColor = Color.Black
            '-----------藍色----------------------------
            Label8.ForeColor = Color.Blue : Label3.ForeColor = Color.Blue : Label9.ForeColor = Color.Blue : Label5.ForeColor = Color.Blue
            Label1.ForeColor = Color.Blue : Label2.ForeColor = Color.Blue : Label6.ForeColor = Color.Blue : Label12.ForeColor = Color.Blue
            Label20.ForeColor = Color.Blue : Label4.ForeColor = Color.Blue
            '-----------綠色----------------------------
            全部資料_ch.ForeColor = Color.Green : 請款未結束_ch.ForeColor = Color.Green : 請款已結束_ch.ForeColor = Color.Green

            合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black : 日期差異_nud.BackColor = Color.White : 日期差異_nud.ForeColor = Color.Black
            合約工期_nud.BackColor = Color.White : 合約工期_nud.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black
            驗收完成_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

            查詢_bt.BackColor = Color.White : 查閱文件_bt.BackColor = Color.White

            驗收單_dgv.EnableHeadersVisualStyles = True : 驗收單_dgv.BackgroundColor = Color.White : 驗收單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            驗收單_dgv.DefaultCellStyle.BackColor = Color.White : 驗收單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '-----------黑色----------------------------
            Label7.ForeColor = Color.White : Label11.ForeColor = Color.White
            '-----------藍色----------------------------
            Label8.ForeColor = Color.LightBlue : Label3.ForeColor = Color.LightBlue : Label9.ForeColor = Color.LightBlue : Label5.ForeColor = Color.LightBlue
            Label1.ForeColor = Color.LightBlue : Label2.ForeColor = Color.LightBlue : Label6.ForeColor = Color.LightBlue : Label12.ForeColor = Color.LightBlue
            Label20.ForeColor = Color.LightBlue : Label4.ForeColor = Color.LightBlue
            '-----------綠色----------------------------
            全部資料_ch.ForeColor = Color.LightGreen : 請款未結束_ch.ForeColor = Color.LightGreen : 請款已結束_ch.ForeColor = Color.LightGreen

            合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White : 日期差異_nud.BackColor = Color.DimGray : 日期差異_nud.ForeColor = Color.White
            合約工期_nud.BackColor = Color.DimGray : 合約工期_nud.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White
            驗收完成_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

            查詢_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