HX-PGS-ERP-SYS-LEEHSIEHJUI/04、工程管理系統/工程日報表.vb

Imports System.IO
Imports Microsoft.Office.Interop
Imports CefSharp
Public Class 工程日報表
    ReadOnly ds8 As New DataSet
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Dim 圖片資料庫指定 As String
    Dim EDR, 頁數, DGVX As Integer
    Dim ESTR, WW(14), WA(14) As String
    Dim 對話框(13) 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 ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
        'PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd") : PA1 = 工程執行主管_cb.Text
        SQL_新工程日報表(工程執行主管_cb.Text, 已結案_ch.Checked)
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 200 : 清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If IsDBNull(清單_dgv.Rows(i).Cells(1).Value) Then : 清單_dgv.Rows(i).Cells(1).Value = False : End If
        Next
    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 : 圖片清單_dgv.RowTemplate.Height = 25
        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
        SQL_連線字串_圖片資料庫() : SQL_工程日報圖片清單()
        da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單_dgv.Columns(0).ReadOnly = True
        If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
    End Sub
    Private Sub 圖片清單讀取()
        圖片_pb.Image = Nothing
        PA1 = 進度流水號_tb.Text : If 圖片庫_tb.Text = "" Then : Else : 圖片庫 = 圖片庫_tb.Text : End If
        PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd")
        PA3 = 圖片清單_dgv("Item", DGVX).Value.ToString
        SQL_連線字串_圖片資料庫() : 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)
            圖片_pb.Image = Bitmap.FromStream(oStream)
        End While : conn.Close() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub Set_工程日報圖片1_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 = 25
        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
        SQL_連線字串_圖片資料庫() : SQL_新工程日報_圖片清單(合約編號_tb.Text)
        da.Fill(ds6) : 圖1清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖1清單_dgv.Columns(0).ReadOnly = True : 圖1清單_dgv.Columns(1).Visible = False : 圖1清單_dgv.Columns(2).ReadOnly = True

        If 圖1清單_dgv.Rows.Count > 0 Then
            DGVX = 0 : 新圖片清單讀取1() : 編碼2_tb.Text = 圖1清單_dgv.Rows(0).Cells("Item").Value.ToString : 新副檔名_tb.Text = 圖1清單_dgv.Rows(0).Cells("File.").Value.ToString
        Else : 新圖1_img.Image = Nothing : End If
    End Sub
    Private Sub 新圖片清單讀取1()
        新圖1_img.Image = Nothing : PA1 = 合約編號_tb.Text
        圖片庫 = 圖片庫_tb.Text : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd")
        PA3 = 圖1清單_dgv("Item", DGVX).Value.ToString
        If 圖1清單_dgv("File.", DGVX).Value.ToString = "JPG" Then
            SQL_連線字串_圖片資料庫() : 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_img.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 新圖1_img.SizeMode = 4
        ElseIf 圖1清單_dgv("File.", DGVX).Value.ToString = "PDF" Then
            新圖1_img.BackgroundImage = My.Resources.Resources.Picture
            新圖1_img.Image = My.Resources.PDF : 新圖1_img.SizeMode = 4
        ElseIf 圖1清單_dgv("File.", DGVX).Value.ToString = "XLSX" Then
            新圖1_img.BackgroundImage = Nothing
            新圖1_img.Image = My.Resources.OFFICE_EXCEL : 新圖1_img.SizeMode = 4
        ElseIf 圖1清單_dgv("File.", DGVX).Value.ToString = "DOCX" Then
            新圖1_img.BackgroundImage = Nothing
            新圖1_img.Image = My.Resources.OFFICE_WORD : 新圖1_img.SizeMode = 4
        Else
            新圖1_img.BackgroundImage = My.Resources.Resources.Picture
            新圖1_img.Image = My.Resources.document : 新圖1_img.SizeMode = 4
        End If
    End Sub

    Private Sub 執行主管下拉清單讀取()
        SQL執行主管下拉() : 工程執行主管_cb.Items.Clear() : 工程執行主管_cb.Items.Add("") : While (dr.Read()) : 工程執行主管_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-104-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 工程執行主管_lb.Text = 系統語言字典("G000-200-" & 語言)
        甲方_lb.Text = 系統語言字典("H110-118-" & 語言) : 上一天_bt.Text = 系統語言字典("H405-104-" & 語言) : 下一天_bt.Text = 系統語言字典("H405-106-" & 語言)
        今天_bt.Text = 系統語言字典("H405-105-" & 語言) : 上午_lb.Text = 系統語言字典("H406-100-" & 語言) : 下午_lb.Text = 系統語言字典("H406-101-" & 語言)
        天氣_lb.Text = 系統語言字典("H706-107-" & 語言) : 天氣1_lb.Text = 系統語言字典("H706-107-" & 語言) : 已建檔_ch.Text = 系統語言字典("H406-102-" & 語言)
        報表日期_lb.Text = 系統語言字典("H406-103-" & 語言) : 日報表編輯_lb.Text = 系統語言字典("H406-104-" & 語言) : 電腦_lb.Text = 系統語言字典("H527-100-" & 語言)
        表頭(75) = 系統語言字典("H406-105-" & 語言) : 表頭(11) = 系統語言字典("H511-116-" & 語言) : 表頭(155) = 系統語言字典("H405-110-" & 語言)
        表頭(28) = 系統語言字典("H406-106-" & 語言) : 對話框(0) = 系統語言字典("H905-106-" & 語言) : 對話框(1) = 系統語言字典("G000-210-" & 語言)
        對話框(2) = 系統語言字典("H406-111-" & 語言) : 對話框(3) = 系統語言字典("H406-112-" & 語言) : 對話框(4) = 系統語言字典("H406-113-" & 語言)
        對話框(5) = 系統語言字典("G000-203-" & 語言) : 對話框(6) = 系統語言字典("H406-114-" & 語言) : 對話框(7) = 系統語言字典("H904-127-" & 語言)
        對話框(8) = 系統語言字典("H527-179-" & 語言) : 對話框(9) = 系統語言字典("H527-180-" & 語言) : 對話框(10) = 系統語言字典("H406-107-" & 語言)
        對話框(11) = 系統語言字典("H406-108-" & 語言) : 對話框(12) = 系統語言字典("H406-109-" & 語言) : 對話框(13) = 系統語言字典("H406-110-" & 語言)
        表頭(156) = 系統語言字典("G000-156-" & 語言) : 表頭(157) = 系統語言字典("H406-123-" & 語言)
        刪除全部的圖片_ch.Text = 系統語言字典("H406-115-" & 語言) : 說明_lb.Text = 系統語言字典("H112-109-" & 語言)
    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(406) = True : 介面 = "H406" : 語言轉換讀取() : 顯示說明(999, False)
        視窗2_pl.Visible = False : 視窗2_pl.BringToFront() : 舊FTP_p.SendToBack() : 檔案路徑_be.SendToBack()
        首次開啟 = False : 切換_ts.Value = True : 新FTP_p.Visible = True : 舊FTP_p.Visible = False
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 工程日報表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        SQL_圖片資料庫查詢()
        If dr.Read() Then : 圖片資料庫指定 = dr("工程圖片資料庫") : Else : MGB(對話框(0), 1) : Me.Close() : End If
        '  甲方條件下拉清單讀取() : 天氣_cb_下拉表單資料載入() : 上午_cb_下拉表單資料載入() : 下午_cb_下拉表單資料載入()
        執行主管下拉清單讀取() : 工程執行主管_cb.Text = gUserName : Set_新工程清單() : Set_工程圖片資料庫狀態()
        本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
        MyMod.清單字體大小調整()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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
        Dim tempFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "Temp")
        If Directory.Exists(tempFolderPath) Then : Directory.Delete(tempFolderPath, True) : End If
        H(201) = False : 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
        介面 = "H406" : 語言轉換讀取()
        ' 目前頁數_lb.Text = 系統語言字典("H406-122-" & 語言) & " " & 目前頁數_nud.Value & " " & 系統語言字典("H406-121-" & 語言)
        '甲方條件下拉清單讀取() : 天氣_cb_下拉表單資料載入() : 上午_cb_下拉表單資料載入() : 下午_cb_下拉表單資料載入()
        執行主管下拉清單讀取()
        工程執行主管_cb.Text = gUserName : Set_新工程清單()
    End Sub
    Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString : 合約編號_tb.Text = 清單_dgv("合約編號", e.RowIndex).Value.ToString
            If 清單_dgv("圖片庫", e.RowIndex).Value.ToString <> "" Then : Set_工程日報圖片1_1() : Else : 圖1清單_dgv.DataSource = Nothing : 新圖1_img.Image = Nothing : End If
        End If
    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
            編碼2_tb.Text = 圖1清單_dgv(("Item"), e.RowIndex).Value.ToString : 新副檔名_tb.Text = 圖1清單_dgv(("File."), e.RowIndex).Value.ToString
            下載檔案日期_dtp.Value = 圖1清單_dgv(("日期"), e.RowIndex).Value.ToString
            If 新副檔名_tb.Text = "JPG" Or 新副檔名_tb.Text = "PNG" Then
                DGVX = e.RowIndex : 新圖片清單讀取1()
            ElseIf 新副檔名_tb.Text = "PDF" Then
                新圖1_img.BackgroundImage = My.Resources.Resources.Picture
                新圖1_img.Image = My.Resources.PDF : 新圖1_img.SizeMode = 4
            ElseIf 新副檔名_tb.Text = "XLSX" Then
                新圖1_img.BackgroundImage = Nothing
                新圖1_img.Image = My.Resources.OFFICE_EXCEL : 新圖1_img.SizeMode = 4
            ElseIf 新副檔名_tb.Text = "DOCX" Then
                新圖1_img.BackgroundImage = Nothing
                新圖1_img.Image = My.Resources.OFFICE_WORD : 新圖1_img.SizeMode = 4
            Else
                新圖1_img.BackgroundImage = My.Resources.Resources.Picture
                新圖1_img.Image = Nothing : 新圖1_img.SizeMode = 4
            End If
        End If
    End Sub
    Private Sub 工程執行主管_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程執行主管_cb.SelectedIndexChanged
        If 登入人級別 <= 3 Then : Else
            If 工程執行主管_cb.Text = gUserName Then
                新建_bt.Enabled = True : 新增項目_bt.Enabled = True : 翻譯1_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除專案_bt.Enabled = True
                翻譯_bt.Enabled = True : 完工_bt.Enabled = True : 刪除圖片_bt.Enabled = True : 讀取資料夾路徑_bt.Enabled = True : 圖檔入系統_bt.Enabled = True
            Else
                新建_bt.Enabled = False : 新增項目_bt.Enabled = False : 翻譯1_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除專案_bt.Enabled = False
                翻譯_bt.Enabled = False : 完工_bt.Enabled = False : 刪除圖片_bt.Enabled = False : 讀取資料夾路徑_bt.Enabled = False : 圖檔入系統_bt.Enabled = False
            End If
        End If
        Set_新工程清單()
    End Sub
    Private Sub 工程執行主管_cb_Click(sender As Object, e As EventArgs) Handles 工程執行主管_cb.Click
        CB選擇清單(工程執行主管_cb)
    End Sub
    Private Sub 上一天_bt_Click(sender As Object, e As EventArgs) Handles 上一天_bt.Click
        報工日期_dtp.Value = 報工日期_dtp.Value.AddDays(-1) ': Set_工程清單() : CanceL2_bt.PerformClick()
    End Sub
    Private Sub 今天_bt_Click(sender As Object, e As EventArgs) Handles 今天_bt.Click
        報工日期_dtp.Value = Today() ': Set_工程清單() : CanceL2_bt.PerformClick()
    End Sub
    Private Sub 下一天_bt_Click(sender As Object, e As EventArgs) Handles 下一天_bt.Click
        報工日期_dtp.Value = 報工日期_dtp.Value.AddDays(1) ' Set_工程清單() : CanceL2_bt.PerformClick()
    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 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
        If 切換_ts.Value = True Then
            If OpenFileDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then
                If OpenFileDialog1.FileNames.Length > 15 Then : MGB(系統語言字典("H406-104-" & 語言), 1)
                Else
                    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
                    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
                        ElseIf 驗證 = "XLSX" Or 驗證 = "xlsx" Then : WA(i) = "XLSX"
                            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.OFFICE_EXCEL : 選擇.SizeMode = 4
                        ElseIf 驗證 = "DOCX" Or 驗證 = "docx" Then : WA(i) = "DOCX"
                            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.OFFICE_WORD : 選擇.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 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        清單_dgv.Enabled = False
        If 切換_ts.Value = True Then : 資料數 = NU1 + 1 : 進度條視窗.Show()
            工作內容_tb.Text = ""
            PA10 = 合約編號_tb.Text : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd") : PA3 = 工作內容_tb.Text : PA5 = 圖片資料庫指定
            MyMod.計算顯示2() : MyMod.進度條1() : SQL_工程進度明細表查詢()
            If dr.Read Then : SQL_工程進度明細表修改() : Else : SQL_工程進度明細表新增() : End If
            For i As Integer = 0 To NU1
                MyMod.計算顯示2() : MyMod.進度條1()
                If WW(i) = "" Then : Else
                    PA1 = 合約編號_tb.Text : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd")
                    圖片庫 = 圖片資料庫指定 : 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() : conn.Close() : WW(i) = ""
                End If
            Next
            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
            Set_工程日報圖片1_1() : Set_新工程清單() : MyMod.計算顯示3() : MGB(對話框(7), 1)
        Else
            PA10 = 合約編號_tb.Text : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd") : PA3 = 工作內容_tb.Text : PA5 = 圖片資料庫指定 : SQL_工程進度明細表查詢()
            If dr.Read Then : SQL_工程進度明細表修改() : Else : SQL_工程進度明細表新增() : End If
            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 : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd") : 圖片庫 = 圖片資料庫指定 : 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_工程日報圖片入系統() : MGB(對話框(7), 1) ': Set_工程日報圖片()
                Else
                    MGB(對話框(8), 1)
                End If
            End If : Set_新工程清單() : Set_工程日報圖片1_1()
        End If : CanceL2_bt.PerformClick()
        清單_dgv.Enabled = True
    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 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_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
            圖片_pb.Image = Image.FromFile(檔案名稱_tb.Text)
        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 順時鐘90度旋轉1_bt_Click(sender As Object, e As EventArgs) Handles 新順時鐘90度旋轉1_bt.Click
        If IsNothing(新圖1_img.Image) = True Then : Else : 新圖1_img.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 新圖1_img.Refresh() : 新圖1_img.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_img.Image) = True Then : Else : 新圖1_img.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 新圖1_img.Refresh() : 新圖1_img.SizeMode = 4 : End If
    End Sub
    Private Sub 水平翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 新水平翻轉1_bt.Click
        If IsNothing(新圖1_img.Image) = True Then : Else : 新圖1_img.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 新圖1_img.Refresh() : 新圖1_img.SizeMode = 4 : End If
    End Sub
    Private Sub 垂直翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 新垂直翻轉1_bt.Click
        If IsNothing(新圖1_img.Image) = True Then : Else : 新圖1_img.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 新圖1_img.Refresh() : 新圖1_img.SizeMode = 4 : End If
    End Sub
    Private Sub 刪除圖片_bt_Click(sender As Object, e As EventArgs) Handles 刪除圖片_bt.Click
        If 刪除全部的圖片_ch.Checked = False Then : MGB(對話框(10), 2) : Else : MGB(系統語言字典("H406-116-" & 語言), 2) : End If
        If 訊息回應 = "YES" Then
            INB(對話框(11)) : PA = 訊息回應
            If PA = "YES" Then
                PA1 = 合約編號_tb.Text : PA2 = Strings.Format(下載檔案日期_dtp.Value, "yyyy/MM/dd") : PA3 = 編碼2_tb.Text
                SQL_工程日報圖片刪除() : Set_工程日報圖片1_1() ' Set_工程清單()
                編碼2_tb.Text = ""
            End If : CanceL2_bt.PerformClick()
        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

    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 新建_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新建_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新建_bt, 系統語言字典("H406-117-" & 語言))
    End Sub
    Private Sub 上一頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 上一頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.上一頁_bt, 系統語言字典("H406-118-" & 語言))
    End Sub
    Private Sub 下一頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 下一頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.下一頁_bt, 系統語言字典("H406-119-" & 語言))
    End Sub
    Private Sub 新增項目_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增項目_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增項目_bt, 系統語言字典("H304-105-" & 語言))
    End Sub
    Private Sub 翻譯1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 翻譯1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.翻譯1_bt, 系統語言字典("H115-101-" & 語言))
    End Sub
    Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔_bt, 系統語言字典("G000-110-" & 語言))
    End Sub
    Private Sub 刪除專案_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除專案_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除專案_bt, 系統語言字典("H401-102-" & 語言))
    End Sub
    Private Sub 翻譯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 翻譯_bt.MouseEnter
        ToolTip1.SetToolTip(Me.翻譯_bt, 系統語言字典("H115-101-" & 語言))
    End Sub
    Private Sub 完工_bt_MouseEnter(sender As Object, e As EventArgs) Handles 完工_bt.MouseEnter
        ToolTip1.SetToolTip(Me.完工_bt, 系統語言字典("H406-120-" & 語言))
    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 導成圖片_bt_Click(sender As Object, e As EventArgs) Handles 導成圖片_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(3), 1) : Else
            If 編碼2_tb.Text = "" Then : MGB(對話框(2), 1) : Else
                If 新副檔名_tb.Text = "XLSX" Then
                    With SaveFileDialog1 : .Filter = "所有文件(*.xlsx)|*.xlsx" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".xlsx"
                ElseIf 新副檔名_tb.Text = "PDF" Then
                    With SaveFileDialog1 : .Filter = "所有文件(*.pdf)|*.pdf" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".pdf"
                ElseIf 新副檔名_tb.Text = "DOCX" Then
                    With SaveFileDialog1 : .Filter = "所有文件(*.docx)|*.docx" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".docx"
                Else
                    With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".jpg"
                End If
                SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName
                PA1 = 合約編號_tb.Text : PA2 = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd") : PA3 = 編碼2_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 新圖1_img_Click(sender As Object, e As EventArgs) Handles 新圖1_img.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
            If 編碼2_tb.Text = "" Then : MGB(對話框(2), 1) : Else
                'D:\hx-pgs-erp-sys-team\bin\Debug\Temp
                Dim tempFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "Temp")
                '----下載檔案----
                If Not Directory.Exists(tempFolderPath) Then : Directory.CreateDirectory(tempFolderPath) : End If
                Dim fileName As String : If 新副檔名_tb.Text = "XLSX" Then : fileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".xlsx"
                ElseIf 新副檔名_tb.Text = "DOCX" Then : fileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".docx"
                ElseIf 新副檔名_tb.Text = "PDF" Then : fileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".pdf"
                ElseIf 新副檔名_tb.Text = "JPG" Then : fileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".jpg"
                Else : fileName = 合約編號_tb.Text & "-" & 編碼2_tb.Text & ".all" : End If
                檔案路徑_tb.Text = Path.Combine(tempFolderPath, fileName)
                If File.Exists(檔案路徑_tb.Text) Then : File.Delete(檔案路徑_tb.Text) : End If
                PA1 = 合約編號_tb.Text : PA2 = Strings.Format(下載檔案日期_dtp.Value, "yyyy/MM/dd") : PA3 = 編碼2_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()
                '------------
                Process.Start(檔案路徑_tb.Text)
            End If
        End If
    End Sub

    Private Sub 已結案_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已結案_ch.CheckedChanged
        Set_新工程清單()
    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(501, 79) : 視窗2_pl.Visible = True : End If
    End Sub

    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb)
    End Sub
    Private Sub 上午_cb_Click(sender As Object, e As EventArgs) Handles 上午_cb.Click
        CB選擇清單(上午_cb)
    End Sub
    Private Sub 下午_cb_Click(sender As Object, e As EventArgs) Handles 下午_cb.Click
        CB選擇清單(下午_cb)
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control : SplitContainer1.Panel1.BackColor = SystemColors.Control : SplitContainer1.Panel2.BackColor = SystemColors.Control
            SplitContainer2.Panel1.BackColor = SystemColors.Control : SplitContainer2.Panel2.BackColor = SystemColors.Control
            甲方_lb.BackColor = SystemColors.Control

            視窗2_pl.BackColor = SystemColors.Control
            Panel3.BackColor = Color.White : 讀取資料夾路徑_bt.BackColor = Color.White : 圖檔入系統_bt.BackColor = Color.White : 上一天_bt.BackColor = Color.White
            下一天_bt.BackColor = Color.White : 今天_bt.BackColor = Color.White
            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

            圖片1_pb.BackColor = Color.White : 圖片2_pb.BackColor = Color.White : 圖片3_pb.BackColor = Color.White : 圖片4_pb.BackColor = Color.White

            已建檔_ch.ForeColor = Color.Black : 甲方_lb.ForeColor = Color.Black : 上午_lb.ForeColor = Color.Black : 下午_lb.ForeColor = Color.Black
            天氣_lb.ForeColor = Color.Black : 天氣1_lb.ForeColor = Color.Black : 目前頁數_lb.ForeColor = Color.Black : 頁數_lb.ForeColor = Color.Black
            TW_ch.ForeColor = Color.Black : IN_ch.ForeColor = Color.Black : 項目1_lb.ForeColor = Color.Black : 說明1_lb.ForeColor = Color.Black
            編號1_lb.ForeColor = Color.Black : 流水1_tb.ForeColor = Color.Black : 項目2_lb.ForeColor = Color.Black : 說明2_lb.ForeColor = Color.Black
            編號2_lb.ForeColor = Color.Black : 流水2_tb.ForeColor = Color.Black : 項目3_lb.ForeColor = Color.Black : 說明3_lb.ForeColor = Color.Black
            編號3_lb.ForeColor = Color.Black : 流水3_tb.ForeColor = Color.Black : 項目4_lb.ForeColor = Color.Black : 說明4_lb.ForeColor = Color.Black
            編號4_lb.ForeColor = Color.Black : 流水4_tb.ForeColor = Color.Black : Label4.ForeColor = Color.Black : 日報表編輯_lb.ForeColor = Color.Black
            電腦_lb.ForeColor = Color.Black
            工程執行主管_lb.ForeColor = Color.FromArgb(192, 0, 0) : 說明_lb.ForeColor = Color.Red
            報表日期_lb.ForeColor = Color.FromArgb(192, 0, 192)

            項目_tb.BackColor = Color.White : 項目_tb.ForeColor = Color.Black : 上午_cb.BackColor = Color.White : 上午_cb.ForeColor = Color.Black
            下午_cb.BackColor = Color.White : 下午_cb.ForeColor = Color.Black : 天氣_cb.BackColor = Color.White : 天氣_cb.ForeColor = Color.Black
            天氣1_cb.BackColor = Color.White : 天氣1_cb.ForeColor = Color.Black : 檔案名稱_tb.BackColor = Color.White : 檔案名稱_tb.ForeColor = Color.Black
            工程執行主管_cb.BackColor = Color.White : 工程執行主管_cb.ForeColor = Color.Blue : 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 新增項目_bt.BackColor = Color.White : 新增項目_bt.ForeColor = Color.Black
            新建_bt.BackColor = Color.White : 新建_bt.ForeColor = Color.Black : 翻譯1_bt.BackColor = Color.White : 翻譯1_bt.ForeColor = Color.Black
            存檔_bt.BackColor = Color.White : 存檔_bt.ForeColor = Color.Black : 刪除專案_bt.BackColor = Color.White : 刪除專案_bt.ForeColor = Color.Black
            上一天_bt.BackColor = Color.White : 上一天_bt.ForeColor = Color.Blue : 下一天_bt.BackColor = Color.White : 下一天_bt.ForeColor = Color.Blue
            今天_bt.BackColor = Color.White : 今天_bt.ForeColor = Color.Blue

            新逆時鐘90度旋轉1_bt.BackColor = Color.White : 新順時鐘90度旋轉1_bt.BackColor = Color.White : 新水平翻轉1_bt.BackColor = Color.White : 新垂直翻轉1_bt.BackColor = Color.White
            總表編輯_bt.BackColor = Color.White : 導成圖片_bt.BackColor = Color.White : 刪除圖片_bt.BackColor = Color.White

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.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.LightPink
            圖片清單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.LightPink
            圖片清單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.LightPink
            圖片清單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.LightPink
            圖片清單4_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單4_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.LightPink
            圖1清單_dgv.DefaultCellStyle.BackColor = Color.White : 圖1清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : SplitContainer1.Panel1.BackColor = Color.Black : SplitContainer1.Panel2.BackColor = Color.Black
            SplitContainer2.Panel1.BackColor = Color.Black : SplitContainer2.Panel2.BackColor = Color.Black
            甲方_lb.BackColor = Color.Black

            視窗2_pl.BackColor = Color.DimGray
            Panel3.BackColor = Color.Black : 讀取資料夾路徑_bt.BackColor = Color.DimGray : 圖檔入系統_bt.BackColor = Color.DimGray : 上一天_bt.BackColor = Color.DimGray
            下一天_bt.BackColor = Color.DimGray : 今天_bt.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

            圖片1_pb.BackColor = Color.DimGray : 圖片2_pb.BackColor = Color.DimGray : 圖片3_pb.BackColor = Color.DimGray : 圖片4_pb.BackColor = Color.DimGray

            已建檔_ch.ForeColor = Color.White : 甲方_lb.ForeColor = Color.White : 上午_lb.ForeColor = Color.White : 下午_lb.ForeColor = Color.White
            天氣_lb.ForeColor = Color.White : 天氣1_lb.ForeColor = Color.White : 目前頁數_lb.ForeColor = Color.White : 頁數_lb.ForeColor = Color.White
            TW_ch.ForeColor = Color.White : IN_ch.ForeColor = Color.White : 項目1_lb.ForeColor = Color.White : 說明1_lb.ForeColor = Color.White
            編號1_lb.ForeColor = Color.White : 流水1_tb.ForeColor = Color.White : 項目2_lb.ForeColor = Color.White : 說明2_lb.ForeColor = Color.White
            編號2_lb.ForeColor = Color.White : 流水2_tb.ForeColor = Color.White : 項目3_lb.ForeColor = Color.White : 說明3_lb.ForeColor = Color.White
            編號3_lb.ForeColor = Color.White : 流水3_tb.ForeColor = Color.White : 項目4_lb.ForeColor = Color.White : 說明4_lb.ForeColor = Color.White
            編號4_lb.ForeColor = Color.White : 流水4_tb.ForeColor = Color.White : Label4.ForeColor = Color.White : 日報表編輯_lb.ForeColor = Color.White
            電腦_lb.ForeColor = Color.White
            工程執行主管_lb.ForeColor = Color.LightPink : 說明_lb.ForeColor = Color.LightPink
            報表日期_lb.ForeColor = Color.Violet

            項目_tb.BackColor = Color.DimGray : 項目_tb.ForeColor = Color.White : 上午_cb.BackColor = Color.DimGray : 上午_cb.ForeColor = Color.White
            下午_cb.BackColor = Color.DimGray : 下午_cb.ForeColor = Color.White : 天氣_cb.BackColor = Color.DimGray : 天氣_cb.ForeColor = Color.White
            天氣1_cb.BackColor = Color.DimGray : 天氣1_cb.ForeColor = Color.White : 檔案名稱_tb.BackColor = Color.DimGray : 檔案名稱_tb.ForeColor = Color.White
            工程執行主管_cb.BackColor = Color.DimGray : 工程執行主管_cb.ForeColor = Color.LightBlue : 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 新增項目_bt.BackColor = Color.DimGray : 新增項目_bt.ForeColor = Color.White
            新建_bt.BackColor = Color.DimGray : 新建_bt.ForeColor = Color.White : 翻譯1_bt.BackColor = Color.DimGray : 翻譯1_bt.ForeColor = Color.White
            存檔_bt.BackColor = Color.DimGray : 存檔_bt.ForeColor = Color.White : 刪除專案_bt.BackColor = Color.DimGray : 刪除專案_bt.ForeColor = Color.White
            上一天_bt.BackColor = Color.DimGray : 上一天_bt.ForeColor = Color.LightBlue : 下一天_bt.BackColor = Color.DimGray : 下一天_bt.ForeColor = Color.LightBlue
            今天_bt.BackColor = Color.DimGray : 今天_bt.ForeColor = Color.LightBlue

            新逆時鐘90度旋轉1_bt.BackColor = Color.DimGray : 新順時鐘90度旋轉1_bt.BackColor = Color.DimGray : 新水平翻轉1_bt.BackColor = Color.DimGray : 新垂直翻轉1_bt.BackColor = Color.DimGray
            總表編輯_bt.BackColor = Color.DimGray : 導成圖片_bt.BackColor = Color.DimGray : 刪除圖片_bt.BackColor = Color.DimGray

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            清單_dgv.DefaultCellStyle.BackColor = Color.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
            圖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
        End If
    End Sub
End Class