HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/合約文件/合約文件簽回存檔.vb

Imports System.IO
Public Class 合約文件簽回存檔
    Dim 放大 As Boolean
    Dim 圖片資料庫指定, WW(14), WA(14) As String
    Dim DGVX, 列高, 選擇項 As Integer : Dim 對話框(14) As String
    Private Sub Set_合約文件圖庫資料庫狀態()
        Dim ds9 As New DataSet : 圖庫清單_dgv.DataSource = Nothing : ds9.Clear()
        圖庫清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖庫清單_dgv.ColumnHeadersHeight = 25
        圖庫清單_dgv.AllowUserToAddRows = False
        表頭(165) = "資料庫" : 表頭(166) = "狀態"
        SQL_工程文件資料庫管理查詢()
        da.Fill(ds9) : 圖庫清單_dgv.DataSource = ds9.Tables(0) : conn.Close()
        圖庫清單_dgv.Columns(0).FillWeight = 100 : 圖庫清單_dgv.Columns(1).FillWeight = 20
    End Sub
    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 = 100 : 合約_dgv.Columns(表頭(3)).FillWeight = 250 : 合約_dgv.Columns(表頭(6)).FillWeight = 40
        合約_dgv.Columns(表頭(7)).FillWeight = 40 : 合約_dgv.Columns(表頭(8)).FillWeight = 40 : 合約_dgv.Columns(表頭(9)).FillWeight = 40
        合約_dgv.Columns(表頭(10)).FillWeight = 40 : 合約_dgv.Columns(表頭(11)).FillWeight = 40 : 合約_dgv.Columns(表頭(13)).FillWeight = 40
        合約_dgv.Columns(表頭(12)).FillWeight = 40

        合約_dgv.Columns(0).ReadOnly = True
        If 放大 = True Then
            合約_dgv.Columns(表頭(3)).Visible = True : 合約_dgv.Columns(表頭(2)).Visible = True : 合約_dgv.Columns(表頭(4)).Visible = True
            合約_dgv.Columns(表頭(6)).Visible = True : 合約_dgv.Columns(表頭(7)).Visible = True : 合約_dgv.Columns(表頭(8)).Visible = True
            合約_dgv.Columns(表頭(9)).Visible = True : 合約_dgv.Columns(表頭(10)).Visible = True : 合約_dgv.Columns(表頭(11)).Visible = True
            合約_dgv.Columns(表頭(12)).Visible = True : 合約_dgv.Columns(表頭(13)).Visible = True : 合約_dgv.Columns(表頭(5)).Visible = True
        Else
            合約_dgv.Columns(表頭(3)).Visible = False : 合約_dgv.Columns(表頭(2)).Visible = False : 合約_dgv.Columns(表頭(4)).Visible = False
            合約_dgv.Columns(表頭(6)).Visible = False : 合約_dgv.Columns(表頭(7)).Visible = False : 合約_dgv.Columns(表頭(8)).Visible = False
            合約_dgv.Columns(表頭(9)).Visible = False : 合約_dgv.Columns(表頭(10)).Visible = False : 合約_dgv.Columns(表頭(11)).Visible = False
            合約_dgv.Columns(表頭(12)).Visible = False : 合約_dgv.Columns(表頭(13)).Visible = False : 合約_dgv.Columns(表頭(5)).Visible = False
        End If
    End Sub
    Private Sub Set_工程日報圖片1()
        Dim ds6 As New DataSet
        圖片清單1_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單1_dgv.ColumnHeadersHeight = 25 : 圖片清單1_dgv.AllowUserToAddRows = False : 圖片清單1_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "報價"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單1_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單1_dgv.Columns(0).ReadOnly = True
        If 圖片清單1_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取1() : Else : 圖片1_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取1()
        圖片1_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "報價" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單1_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片1_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片1_pb.SizeMode = 4
        Else : 圖片1_pb.Image = My.Resources.PDF : 圖片1_pb.SizeMode = 4 : End If
    End Sub
    Private Sub Set_工程日報圖片2()
        Dim ds6 As New DataSet
        圖片清單2_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單2_dgv.ColumnHeadersHeight = 25 : 圖片清單2_dgv.AllowUserToAddRows = False : 圖片清單2_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "合約"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單2_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單2_dgv.Columns(0).ReadOnly = True
        If 圖片清單2_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取2() : Else : 圖片2_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取2()
        圖片2_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "合約" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單2_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單2_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片2_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片2_pb.SizeMode = 4
        Else : 圖片2_pb.Image = My.Resources.PDF : 圖片2_pb.SizeMode = 4 : End If
    End Sub
    Private Sub Set_工程日報圖片3()
        Dim ds6 As New DataSet
        圖片清單3_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單3_dgv.ColumnHeadersHeight = 25 : 圖片清單3_dgv.AllowUserToAddRows = False : 圖片清單3_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "請款"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單3_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單3_dgv.Columns(0).ReadOnly = True
        If 圖片清單3_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取3() : Else : 圖片3_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取3()
        圖片3_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "請款" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單3_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單3_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片3_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片3_pb.SizeMode = 4
        Else : 圖片3_pb.Image = My.Resources.PDF : 圖片3_pb.SizeMode = 4 : End If
    End Sub
    Private Sub Set_工程日報圖片4()
        Dim ds6 As New DataSet
        圖片清單4_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單4_dgv.ColumnHeadersHeight = 25 : 圖片清單4_dgv.AllowUserToAddRows = False : 圖片清單4_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "驗收"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單4_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單4_dgv.Columns(0).ReadOnly = True
        If 圖片清單4_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取4() : Else : 圖片4_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取4()
        圖片4_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "驗收" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單4_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單4_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片4_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片4_pb.SizeMode = 4
        Else : 圖片4_pb.Image = My.Resources.PDF : 圖片4_pb.SizeMode = 4 : End If
    End Sub
    Private Sub Set_工程日報圖片5()
        Dim ds6 As New DataSet
        圖片清單5_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單5_dgv.ColumnHeadersHeight = 25 : 圖片清單5_dgv.AllowUserToAddRows = False : 圖片清單5_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "保固"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單5_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單5_dgv.Columns(0).ReadOnly = True
        If 圖片清單5_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取5() : Else : 圖片5_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取5()
        圖片5_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "保固" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單5_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單5_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片5_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片5_pb.SizeMode = 4
        Else : 圖片5_pb.Image = My.Resources.PDF : 圖片5_pb.SizeMode = 4 : End If
    End Sub
    Private Sub Set_工程日報圖片6()
        Dim ds6 As New DataSet
        圖片清單6_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單6_dgv.ColumnHeadersHeight = 25 : 圖片清單6_dgv.AllowUserToAddRows = False : 圖片清單6_dgv.RowTemplate.Height = 列高
        If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "其他"
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單6_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單6_dgv.Columns(0).ReadOnly = True
        If 圖片清單6_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取6() : Else : 圖片6_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取6()
        圖片6_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "其他" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
        PA3 = 圖片清單6_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
        If 圖片清單6_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_合約清單_簽回存檔_圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片6_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片6_pb.SizeMode = 4
        Else : 圖片6_pb.Image = My.Resources.PDF : 圖片6_pb.SizeMode = 4 : End If
    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-119-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : Label6.Text = 系統語言字典("G000-156-" & 語言)
        Label375.Text = 系統語言字典("G000-215-" & 語言) : Label378.Text = 系統語言字典("G000-216-" & 語言) : 表頭(12) = 系統語言字典("H112-105-" & 語言)
        Label7.Text = 系統語言字典("H110-117-" & 語言) : Label11.Text = 系統語言字典("H110-118-" & 語言) : 表頭(13) = 系統語言字典("H112-108-" & 語言)
        Label372.Text = 系統語言字典("H112-100-" & 語言)
        報價簽回_ch.Text = 系統語言字典("H112-103-" & 語言) : 請款簽回_ch.Text = 系統語言字典("H112-104-" & 語言) : 保固簽回_ch.Text = 系統語言字典("H112-105-" & 語言)
        合約簽回_ch.Text = 系統語言字典("H112-106-" & 語言) : 驗收簽回_ch.Text = 系統語言字典("H112-107-" & 語言) : 其他文件_ch.Text = 系統語言字典("H112-108-" & 語言)
        說明_lb.Text = 系統語言字典("H112-109-" & 語言) : 表頭(1) = 系統語言字典("H501-159-" & 語言) : 表頭(2) = 系統語言字典("H112-117-" & 語言)
        表頭(3) = 系統語言字典("H112-118-" & 語言) : 表頭(4) = 系統語言字典("H112-119-" & 語言) : 表頭(5) = 系統語言字典("H112-120-" & 語言)
        表頭(6) = 系統語言字典("H112-103-" & 語言) : 表頭(7) = 系統語言字典("H112-106-" & 語言) : 表頭(8) = 系統語言字典("H112-104-" & 語言)
        表頭(9) = 系統語言字典("H112-121-" & 語言) : 表頭(10) = 系統語言字典("H112-107-" & 語言) : 表頭(11) = 系統語言字典("H112-122-" & 語言)
        對話框(0) = 系統語言字典("H112-115-" & 語言) : 對話框(1) = 系統語言字典("H112-113-" & 語言) : 對話框(2) = 系統語言字典("H112-111-" & 語言)
        對話框(3) = 系統語言字典("H110-111-" & 語言) : 對話框(4) = 系統語言字典("H112-112-" & 語言) : 對話框(5) = 系統語言字典("H904-127-" & 語言)
        對話框(6) = 系統語言字典("H112-110-" & 語言) : 對話框(7) = 系統語言字典("G000-154-" & 語言)
    End Sub
    Private Sub 縮放2_bt_MouseEnter(sender As Object, e As EventArgs) Handles 縮放2_bt.MouseEnter
        ToolTip1.SetToolTip(Me.縮放2_bt, 系統語言字典("G000-198-" & 語言))
    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 總表編輯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 總表編輯_bt.MouseEnter
        ToolTip1.SetToolTip(Me.總表編輯_bt, 系統語言字典("G000-236-" & 語言))
    End Sub
    Private Sub 導成圖片_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導成圖片_bt.MouseEnter
        ToolTip1.SetToolTip(Me.導成圖片_bt, 系統語言字典("H601-114-" & 語言))
    End Sub
    Private Sub 刪除圖片_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除圖片_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除圖片_bt, 系統語言字典("H112-116-" & 語言))
    End Sub
    Private Sub 讀取資料夾路徑_bt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.MouseEnter
        ToolTip1.SetToolTip(Me.讀取資料夾路徑_bt, 系統語言字典("G000-196-" & 語言))
    End Sub
    Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_bt, 系統語言字典("G000-164-" & 語言))
    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(112) = True : 介面 = "H112" : 語言轉換讀取() : 顯示說明(999, True)
        首次開啟 = False : 切換_ts.Value = True : 新FTP_p.Visible = True : 舊FTP_p.Visible = False
        視窗2_pl.Visible = False : 視窗2_pl.BringToFront() : Panel2.SendToBack() : 合約_dgv.BringToFront() : 舊FTP_p.SendToBack() : 檔案路徑_be.SendToBack()
        合約文件簽回存檔_Size() : 列高 = 25
    End Sub
    Private Sub 合約文件簽回存檔_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        SQL_文件資料庫查詢()
        If dr.Read() Then : 圖片資料庫指定 = dr("工程文件資料庫") : Else : MGB(對話框(7), 1) : End If
        甲方條件下拉清單讀取() : Set_合約清單()
        本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)

        If 待辦進入 <> "" Then
            lastFoundRowIndex = -1 : lastFoundColIndex = -1
            關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(合約_dgv, 關鍵字搜尋_tb) : 選擇項 = lastFoundRowIndex : 合約資料讀取()
            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 關鍵字搜尋_tb.Text = "" : 待辦進入 = ""
        End If
    End Sub
    Private Sub 合約文件簽回存檔_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        合約文件簽回存檔_Size()
    End Sub
    Private Sub 合約文件簽回存檔_Size()
        MyMod.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        圖片清單6_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
        介面 = "H112" : 語言轉換讀取()
    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
        If 放大 = True Then : 縮放2_bt.PerformClick() : Else : End If
    End Sub
    Private Sub 合約資料讀取()
        合約編號_tb.Text = 合約_dgv(表頭(1), 選擇項).Value.ToString : 客戶名稱_tb.Text = 合約_dgv(表頭(2), 選擇項).Value.ToString
        工程名稱_中_tb.Text = 合約_dgv(表頭(3), 選擇項).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv(表頭(4), 選擇項).Value.ToString
        簽回檔圖庫_tb.Text = 合約_dgv(表頭(5), 選擇項).Value.ToString
        Set_工程日報圖片1() : Set_工程日報圖片2() : Set_工程日報圖片3() : Set_工程日報圖片4() : Set_工程日報圖片5() : Set_工程日報圖片6()
    End Sub
    Private Sub 圖片清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單1_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "報價" : 文件號_tb.Text = 圖片清單1_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取1()
        End If
    End Sub
    Private Sub 圖片清單2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單2_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單2_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "合約" : 文件號_tb.Text = 圖片清單2_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取2()
        End If
    End Sub
    Private Sub 圖片清單3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單3_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單3_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "請款" : 文件號_tb.Text = 圖片清單3_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取3()
        End If
    End Sub
    Private Sub 圖片清單4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單4_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單4_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "驗收" : 文件號_tb.Text = 圖片清單4_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取4()
        End If
    End Sub
    Private Sub 圖片清單5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單5_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單5_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "保固" : 文件號_tb.Text = 圖片清單5_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取5()
        End If
    End Sub
    Private Sub 圖片清單6_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單6_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單6_dgv("File.", e.RowIndex).Value.ToString
            階段_tb.Text = "其他" : 文件號_tb.Text = 圖片清單6_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取6()
        End If
    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 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        If 切換_ts.Value = True Then : 資料數 = NU1 + 1 : 進度條視窗.Show()
            If 報價簽回_ch.Checked = False And 合約簽回_ch.Checked = False And 請款簽回_ch.Checked = False And 驗收簽回_ch.Checked = False And
               保固簽回_ch.Checked = False And 其他文件_ch.Checked = False Then : MGB(對話框(6), 1)
            Else
                For i As Integer = 0 To NU1
                    MyMod.計算顯示2() : MyMod.進度條1()
                    If WW(i) = "" Then : Else
                        PA1 = 合約編號_tb.Text : 圖片庫 = 圖片資料庫指定 : BL1 = True : 簽回檔圖庫_tb.Text = 圖片庫
                        If 報價簽回_ch.Checked = True Then : PA2 = "報價" : SQL2 = "報價簽回" : ElseIf 合約簽回_ch.Checked = True Then : PA2 = "合約" : SQL2 = "合約簽回"
                        ElseIf 請款簽回_ch.Checked = True Then : PA2 = "請款" : SQL2 = "請款簽回" : ElseIf 驗收簽回_ch.Checked = True Then : PA2 = "驗收" : SQL2 = "驗收簽回"
                        ElseIf 保固簽回_ch.Checked = True Then : PA2 = "保固" : SQL2 = "保固簽回" : ElseIf 其他文件_ch.Checked = True Then : PA2 = "其他" : SQL2 = "其他文件"
                        End If

                        SQL_連線字串_圖片資料庫()
                        Dim 文件號 As String : Dim 文件編號 As Integer
                        SQL_合約清單_簽回存檔_最後一筆編號查詢()
                        If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("文件號").ToString, 2)) : Else : 文件編號 = 0 : End If
                        conn.Close() : 文件編號 += 1
                        If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
                        ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
                        PA3 = 文件號 : PA49 = WW(i) : PA4 = WA(i) : SQL_合約清單_簽回存檔_圖片入系統1() : WW(i) = ""
                    End If
                Next
                SQL_合約控制表簽回檔注記() : MGB(對話框(5), 1)

                If PA2 = "報價" Then : Set_工程日報圖片1() : ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : ElseIf PA2 = "請款" Then : Set_工程日報圖片3()
                ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : ElseIf PA2 = "其他" Then : Set_工程日報圖片6()
                End If : Set_合約清單()
                For i As Integer = 0 To 14 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
                MyMod.計算顯示3()
            End If
        Else
            If 報價簽回_ch.Checked = False And 合約簽回_ch.Checked = False And 請款簽回_ch.Checked = False And 驗收簽回_ch.Checked = False And
               保固簽回_ch.Checked = False And 其他文件_ch.Checked = False Then : MGB(對話框(6), 1)
            Else
                If 檔案名稱_tb.Text = "" Or 副檔名_tb.Text = "" Then : Else
                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text & 副檔名_tb.Text)
                    For i As Integer = 1 To 10
                        If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
                            If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
                        End If
                    Next
                    If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
                       驗證 = "JPEG" Or 驗證 = "jpeg" Then
                        PA1 = 合約編號_tb.Text : 圖片庫 = 圖片資料庫指定 : BL1 = True : 簽回檔圖庫_tb.Text = 圖片庫
                        If 報價簽回_ch.Checked = True Then : PA2 = "報價" : SQL2 = "報價簽回" : ElseIf 合約簽回_ch.Checked = True Then : PA2 = "合約" : SQL2 = "合約簽回"
                        ElseIf 請款簽回_ch.Checked = True Then : PA2 = "請款" : SQL2 = "請款簽回" : ElseIf 驗收簽回_ch.Checked = True Then : PA2 = "驗收" : SQL2 = "驗收簽回"
                        ElseIf 保固簽回_ch.Checked = True Then : PA2 = "保固" : SQL2 = "保固簽回" : ElseIf 其他文件_ch.Checked = True Then : PA2 = "其他" : SQL2 = "其他文件"
                        End If
                        SQL_連線字串_圖片資料庫()
                        Dim 文件號 As String : Dim 文件編號 As Integer
                        SQL_合約清單_簽回存檔_最後一筆編號查詢()
                        If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("文件號").ToString, 2)) : Else : 文件編號 = 0 : End If
                        conn.Close() : 文件編號 += 1
                        If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
                        ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
                        PA3 = 文件號 : PA49 = 檔案路徑_be.Value : SQL_合約清單_簽回存檔_圖片入系統()
                        SQL_合約控制表簽回檔注記() : MGB(對話框(5), 1)

                        If PA2 = "報價" Then : Set_工程日報圖片1() : ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : ElseIf PA2 = "請款" Then : Set_工程日報圖片3()
                        ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : ElseIf PA2 = "其他" Then : Set_工程日報圖片6()
                        End If : Set_合約清單()
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 導成圖片_bt_Click(sender As Object, e As EventArgs) Handles 導成圖片_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(3), 1) : Else
            If 文件號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
                If 檔案_rtb.Text <> "PDF" Then
                    With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 階段_tb.Text & ".jpg"
                Else
                    With SaveFileDialog1 : .Filter = "所有文件(*.pdf)|*.pdf" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 階段_tb.Text & ".pdf"
                End If
                SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName
                PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text
                Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte
                    imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream
                    fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1)
                    fs.Close()
                End If : conn.Close() : MGB(對話框(4), 1)
            End If
        End If
    End Sub
    Private Sub PDF下載()
        檔案路徑_tb.Text = 合約編號_tb.Text & "-" & 階段_tb.Text & ".pdf"
        PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text
        Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取1() : da.Fill(ds1)
        If ds1.Tables(0).Rows.Count > 0 Then
            Dim imgData() As Byte
            imgData = ds1.Tables(0).Rows(0).Item("圖片")
            Dim fs As FileStream
            fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
            fs.Write(imgData, 0, imgData.Length - 1)
            fs.Close()
        End If : conn.Close()
    End Sub
    Private Sub 刪除圖片_bt_Click(sender As Object, e As EventArgs) Handles 刪除圖片_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(3), 1) : Else
            If 文件號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
                MGB(對話框(1), 2)
                If 訊息回應 = "YES" Then
                    Dim SS1 As String = 系統語言字典("H112-114-" & 語言) : INB(SS1) : PA = 訊息回應
                    If PA = "YES" Then
                        PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text : 圖片庫 = 簽回檔圖庫_tb.Text : SQL_合約清單_簽回存檔_圖片刪除()
                        If PA2 = "報價" Then : Set_工程日報圖片1() : If 圖片清單1_dgv.Rows.Count = 0 Then : SQL2 = "報價簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : If 圖片清單2_dgv.Rows.Count = 0 Then : SQL2 = "合約簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        ElseIf PA2 = "請款" Then : Set_工程日報圖片3() : If 圖片清單3_dgv.Rows.Count = 0 Then : SQL2 = "請款簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : If 圖片清單4_dgv.Rows.Count = 0 Then : SQL2 = "驗收簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : If 圖片清單5_dgv.Rows.Count = 0 Then : SQL2 = "保固簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        ElseIf PA2 = "其他" Then : Set_工程日報圖片6() : If 圖片清單6_dgv.Rows.Count = 0 Then : SQL2 = "其他文件" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
                        End If : Set_合約清單()
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then : Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String()) : 檔案名稱_tb.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        Dim STR2 As Integer = 0 : 檔案路徑_tb.Text = 檔案名稱_tb.Text : 檔案路徑_be.Value = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then : Else
            For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
                If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then : 檔案路徑_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999
                    Else : 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) : End If
                Else : 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案路徑_tb.Text : i = 9999 : End If
            Next
        End If
        '-------取得副檔名---------------------------------------------------------------------------------------------------------------
        For I As Integer = 1 To 99 : 副檔名_tb.Text = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
            If 副檔名_tb.Text = "." Then : 副檔名_tb.Text = Strings.StrReverse(Strings.Left(Strings.StrReverse(檔案名稱_tb.Text), I)) : I = 99 : End If
        Next
        '-------取得檔名---------------------------------------------------------------------------------------------------------------
        Dim 檔名 As String : Dim 檔名長度 As Integer
        For I As Integer = 1 To 99 : 檔名 = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
            If 檔名 = "." Then
                檔名長度 = Len(檔案名稱_tb.Text) - I
                檔案名稱_tb.Text = Strings.Left(檔案名稱_tb.Text, 檔名長度) : I = 99
            End If
        Next
    End Sub
    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            檔案名稱_tb.AppendText(file + Environment.NewLine)
        Next
    End Sub
    Private Sub 總表編輯_bt_Click(sender As Object, e As EventArgs) Handles 總表編輯_bt.Click
        If 視窗2_pl.Visible = False Then : 視窗2_pl.Location = New System.Drawing.Point(372, 126) : 視窗2_pl.Visible = True : Else : 視窗2_pl.Visible = False : End If
    End Sub
    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
        If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else
            視窗2_pl.Visible = False : End If
    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
    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
    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
    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
    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
    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
    End Sub
    Private Sub 圖片1_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片1_pb.Click
        If 圖片清單1_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單1_dgv.Rows.Count - 1 Then : DGVX = 圖片清單1_dgv.Rows.Count - 1 : End If
            If 圖片清單1_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片1_pb.Image) = False Then : 圖片傳遞 = 圖片1_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "報價" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 圖片2_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片2_pb.Click
        If 圖片清單2_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單2_dgv.Rows.Count - 1 Then : DGVX = 圖片清單2_dgv.Rows.Count - 1 : End If
            If 圖片清單2_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片2_pb.Image) = False Then : 圖片傳遞 = 圖片2_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "合約" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單2_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 圖片3_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片3_pb.Click
        If 圖片清單3_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單3_dgv.Rows.Count - 1 Then : DGVX = 圖片清單3_dgv.Rows.Count - 1 : End If
            If 圖片清單3_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片3_pb.Image) = False Then : 圖片傳遞 = 圖片3_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "請款" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單3_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 圖片4_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片4_pb.Click
        If 圖片清單4_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單4_dgv.Rows.Count - 1 Then : DGVX = 圖片清單4_dgv.Rows.Count - 1 : End If
            If 圖片清單4_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片4_pb.Image) = False Then : 圖片傳遞 = 圖片4_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "驗收" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單4_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 圖片5_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片5_pb.Click
        If 圖片清單5_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單5_dgv.Rows.Count - 1 Then : DGVX = 圖片清單5_dgv.Rows.Count - 1 : End If
            If 圖片清單5_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片5_pb.Image) = False Then : 圖片傳遞 = 圖片5_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "保固" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單5_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 圖片6_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片6_pb.Click
        If 圖片清單6_dgv.Rows.Count > 0 Then
            If DGVX > 圖片清單6_dgv.Rows.Count - 1 Then : DGVX = 圖片清單6_dgv.Rows.Count - 1 : End If
            If 圖片清單6_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                If IsNothing(圖片6_pb.Image) = False Then : 圖片傳遞 = 圖片6_pb.Image : 圖片放大視窗.ShowDialog() : End If
            Else
                PA1 = 合約編號_tb.Text : PA2 = "其他" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
                PA3 = 圖片清單6_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 順時鐘90度旋轉1_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉1_bt.Click
        If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉1_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉1_bt.Click
        If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉1_bt.Click
        If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉1_bt.Click
        If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 順時鐘90度旋轉2_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉2_bt.Click
        If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉2_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉2_bt.Click
        If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉2_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉2_bt.Click
        If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉2_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉2_bt.Click
        If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 順時鐘90度旋轉3_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉3_bt.Click
        If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉3_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉3_bt.Click
        If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉3_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉3_bt.Click
        If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉3_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉3_bt.Click
        If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 順時鐘90度旋轉4_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉4_bt.Click
        If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉4_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉4_bt.Click
        If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉4_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉4_bt.Click
        If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉4_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉4_bt.Click
        If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 順時鐘90度旋轉5_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉5_bt.Click
        If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉5_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉5_bt.Click
        If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉5_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉5_bt.Click
        If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉5_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉5_bt.Click
        If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 順時鐘90度旋轉6_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉6_bt.Click
        If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 逆時鐘90度旋轉6_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉6_bt.Click
        If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉6_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉6_bt.Click
        If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉6_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉6_bt.Click
        If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
        If 放大 = True Then
            合約_dgv.Size = New System.Drawing.Point(NX - 600, NY) : 放大 = False : 合約_dgv.Columns(表頭(3)).Visible = False
            合約_dgv.Columns(表頭(6)).Visible = False : 合約_dgv.Columns(表頭(7)).Visible = False : 合約_dgv.Columns(表頭(8)).Visible = False
            合約_dgv.Columns(表頭(9)).Visible = False : 合約_dgv.Columns(表頭(10)).Visible = False : 合約_dgv.Columns(表頭(11)).Visible = False
            合約_dgv.Columns(表頭(12)).Visible = False : 合約_dgv.Columns(表頭(13)).Visible = False
        Else
            合約_dgv.Size = New System.Drawing.Point(NX + 600, NY) : 放大 = True : 合約_dgv.Columns(表頭(3)).Visible = True
            合約_dgv.Columns(表頭(6)).Visible = True : 合約_dgv.Columns(表頭(7)).Visible = True : 合約_dgv.Columns(表頭(8)).Visible = True
            合約_dgv.Columns(表頭(9)).Visible = True : 合約_dgv.Columns(表頭(10)).Visible = True : 合約_dgv.Columns(表頭(11)).Visible = True
            合約_dgv.Columns(表頭(12)).Visible = True : 合約_dgv.Columns(表頭(13)).Visible = True
        End If
    End Sub
    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
        If 切換_ts.Value = True Then
            If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
                If OpenFileDialog1.FileNames.Length > 15 Then : MGB(對話框(0), 1) : Else
                    For i As Integer = 0 To 14 : WW(i) = "" : WA(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
                    NU1 = OpenFileDialog1.FileNames.Length - 1
                    For i As Integer = 0 To OpenFileDialog1.FileNames.Length - 1 : WW(i) = OpenFileDialog1.FileNames(i) : Next
                    For i As Integer = 0 To NU1
                        Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(WW(i))
                        For ii As Integer = 1 To 10
                            If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : Else
                                If Strings.Mid(取變數, ii, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : End If
                            End If
                        Next
                        If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
                           驗證 = "JPEG" Or 驗證 = "jpeg" Then : WA(i) = "JPG"
                            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Image.FromFile(WW(i)) : 選擇.SizeMode = 4
                        ElseIf 驗證 = "PDF" Or 驗證 = "pdf" Then : WA(i) = "PDF"
                            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.PDF : 選擇.SizeMode = 4
                        Else : WW(i) = "" : WA(i) = "" : End If
                    Next
                End If
            End If
        Else
            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
        End If
    End Sub
    Private Sub 切換_ts_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ts.ValueChanged
        If 首次開啟 = True Then : Else
            If 切換_ts.Value = True Then
                切換_ts.Value = True : 新FTP_p.Visible = True : 舊FTP_p.Visible = False
            Else
                切換_ts.Value = False : 新FTP_p.Visible = False : 舊FTP_p.Visible = True
            End If
        End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        Set_合約清單()
    End Sub

    Dim OldX, OldY As Long
    Dim drag As Boolean
    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
        drag = False
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Panel1.BackColor = SystemColors.Control
            Panel4.BackColor = SystemColors.Control
            Label7.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Label372.ForeColor = Color.Red : 電腦_lb.ForeColor = Color.Black
            Label375.ForeColor = Color.Red : Label378.ForeColor = Color.Red : 報價簽回_ch.ForeColor = Color.Black : 合約簽回_ch.ForeColor = Color.Black
            請款簽回_ch.ForeColor = Color.Black : 驗收簽回_ch.ForeColor = Color.Black : 保固簽回_ch.ForeColor = Color.Black : 其他文件_ch.ForeColor = Color.Black
            Label6.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 日報表編輯_lb.ForeColor = Color.Black : 說明_lb.ForeColor = Color.Red
            Label5.ForeColor = Color.Black : Label10.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black

            關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black
            工程名稱_中_tb.BackColor = Color.White : 工程名稱_中_tb.ForeColor = Color.Black : 簽回檔圖庫_tb.BackColor = Color.White : 簽回檔圖庫_tb.ForeColor = Color.Black
            階段_tb.BackColor = Color.White : 階段_tb.ForeColor = Color.Black : 文件號_tb.BackColor = Color.White : 文件號_tb.ForeColor = Color.Black
            客戶名稱_tb.BackColor = Color.White : 客戶名稱_tb.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.Black

            查詢_bt.BackColor = Color.White : 縮放2_bt.BackColor = Color.White : 總表編輯_bt.BackColor = Color.White : 圖檔入系統_bt.BackColor = Color.White
            導成圖片_bt.BackColor = Color.White : 刪除圖片_bt.BackColor = Color.White : 讀取資料夾路徑_bt.BackColor = Color.White : 視窗2_pl.BackColor = SystemColors.Control
            圖片1_pb.BackColor = SystemColors.Control : 圖片2_pb.BackColor = SystemColors.Control : 圖片3_pb.BackColor = SystemColors.Control : Panel3.BackColor = Color.White
            圖片4_pb.BackColor = SystemColors.Control : 圖片5_pb.BackColor = SystemColors.Control : 圖片6_pb.BackColor = SystemColors.Control
            PB1.BackColor = Color.White : PB4.BackColor = Color.White : PB7.BackColor = Color.White : PB10.BackColor = Color.White : PB13.BackColor = Color.White
            PB2.BackColor = Color.White : PB5.BackColor = Color.White : PB8.BackColor = Color.White : PB11.BackColor = Color.White : PB14.BackColor = Color.White
            PB3.BackColor = Color.White : PB6.BackColor = Color.White : PB9.BackColor = Color.White : PB12.BackColor = Color.White : PB15.BackColor = Color.White


            合約_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
            圖片清單1_dgv.EnableHeadersVisualStyles = True : 圖片清單1_dgv.BackgroundColor = Color.White : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單1_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單2_dgv.EnableHeadersVisualStyles = True : 圖片清單2_dgv.BackgroundColor = Color.White : 圖片清單2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單2_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單2_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單3_dgv.EnableHeadersVisualStyles = True : 圖片清單3_dgv.BackgroundColor = Color.White : 圖片清單3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單3_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單3_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單4_dgv.EnableHeadersVisualStyles = True : 圖片清單4_dgv.BackgroundColor = Color.White : 圖片清單4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單4_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單4_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單5_dgv.EnableHeadersVisualStyles = True : 圖片清單5_dgv.BackgroundColor = Color.White : 圖片清單5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單5_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單5_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單6_dgv.EnableHeadersVisualStyles = True : 圖片清單6_dgv.BackgroundColor = Color.White : 圖片清單6_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單6_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            圖片清單6_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單6_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Panel1.BackColor = Color.Black
            Panel4.BackColor = Color.Black
            Label7.ForeColor = Color.White : Label11.ForeColor = Color.White : Label1.ForeColor = Color.White : Label372.ForeColor = Color.LightPink : 電腦_lb.ForeColor = Color.White
            Label375.ForeColor = Color.LightPink : Label378.ForeColor = Color.LightPink : 報價簽回_ch.ForeColor = Color.White : 合約簽回_ch.ForeColor = Color.White
            請款簽回_ch.ForeColor = Color.White : 驗收簽回_ch.ForeColor = Color.White : 保固簽回_ch.ForeColor = Color.White : 其他文件_ch.ForeColor = Color.White
            Label6.ForeColor = Color.White : Label7.ForeColor = Color.White : 日報表編輯_lb.ForeColor = Color.White : 說明_lb.ForeColor = Color.LightPink
            Label5.ForeColor = Color.White : Label10.ForeColor = Color.White : Label4.ForeColor = Color.White : Label2.ForeColor = Color.White : Label3.ForeColor = Color.White

            關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.White : 合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White
            工程名稱_中_tb.BackColor = Color.DimGray : 工程名稱_中_tb.ForeColor = Color.White : 簽回檔圖庫_tb.BackColor = Color.DimGray : 簽回檔圖庫_tb.ForeColor = Color.White
            階段_tb.BackColor = Color.DimGray : 階段_tb.ForeColor = Color.White : 文件號_tb.BackColor = Color.DimGray : 文件號_tb.ForeColor = Color.White
            客戶名稱_tb.BackColor = Color.DimGray : 客戶名稱_tb.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.White

            查詢_bt.BackColor = Color.DimGray : 縮放2_bt.BackColor = Color.DimGray : 總表編輯_bt.BackColor = Color.DimGray : 圖檔入系統_bt.BackColor = Color.DimGray
            導成圖片_bt.BackColor = Color.DimGray : 刪除圖片_bt.BackColor = Color.DimGray : 讀取資料夾路徑_bt.BackColor = Color.DimGray : 視窗2_pl.BackColor = Color.DimGray
            圖片1_pb.BackColor = Color.DimGray : 圖片2_pb.BackColor = Color.DimGray : 圖片3_pb.BackColor = Color.DimGray : Panel3.BackColor = Color.Black
            圖片4_pb.BackColor = Color.DimGray : 圖片5_pb.BackColor = Color.DimGray : 圖片6_pb.BackColor = Color.DimGray
            PB1.BackColor = Color.DimGray : PB4.BackColor = Color.DimGray : PB7.BackColor = Color.DimGray : PB10.BackColor = Color.DimGray : PB13.BackColor = Color.DimGray
            PB2.BackColor = Color.DimGray : PB5.BackColor = Color.DimGray : PB8.BackColor = Color.DimGray : PB11.BackColor = Color.DimGray : PB14.BackColor = Color.DimGray
            PB3.BackColor = Color.DimGray : PB6.BackColor = Color.DimGray : PB9.BackColor = Color.DimGray : PB12.BackColor = Color.DimGray : PB15.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.Black : 合約_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單1_dgv.EnableHeadersVisualStyles = False : 圖片清單1_dgv.BackgroundColor = Color.DimGray : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單2_dgv.EnableHeadersVisualStyles = False : 圖片清單2_dgv.BackgroundColor = Color.DimGray : 圖片清單2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單2_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單2_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單3_dgv.EnableHeadersVisualStyles = False : 圖片清單3_dgv.BackgroundColor = Color.DimGray : 圖片清單3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單3_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單3_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單4_dgv.EnableHeadersVisualStyles = False : 圖片清單4_dgv.BackgroundColor = Color.DimGray : 圖片清單4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單4_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單4_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單4_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單5_dgv.EnableHeadersVisualStyles = False : 圖片清單5_dgv.BackgroundColor = Color.DimGray : 圖片清單5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單5_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單5_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單5_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單6_dgv.EnableHeadersVisualStyles = False : 圖片清單6_dgv.BackgroundColor = Color.DimGray : 圖片清單6_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單6_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單6_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            圖片清單6_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單6_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class