HX-PGS-ERP-SYS-SIU/03、倉儲管理系統/倉儲報表/倉儲控制表.vb

Option Strict Off
Imports System.IO
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Imports System.Windows.Forms.DataVisualization.Charting
Public Class 倉儲控制表
    ReadOnly ds12 As New DataSet
    Dim KKKK, KKK2, 物料規格, 頁面 As String
    ReadOnly 對話框(20), 群組碼(21) As String
    Dim 放大 As Boolean
    Dim 比例, N1 As Integer
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_群組清單()
        Dim ds1 As New DataSet : 群組分類_dgv.DataSource = Nothing : ds1.Clear()
        群組分類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組分類_dgv.ColumnHeadersHeight = 25 : 群組分類_dgv.AllowUserToAddRows = False : 群組分類_dgv.RowTemplate.Height = 45
        SQL_物料群組()
        da.Fill(ds1) : 群組分類_dgv.DataSource = ds1.Tables(0) : conn.Close()
        次項變形()
    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
        PA = 料號1_tb.Text : SQL_倉庫料號比對價格()
        da.Fill(ds1) : 料號_dgv.DataSource = ds1.Tables(0) : conn.Close()
        料號_dgv.Columns("排序").Visible = False : 料號_dgv.Columns(7).FillWeight = 70 : 料號_dgv.Columns("單價").Visible = False
        料號_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        If Strings.Left(登入人課別, 2) = "00" Or Strings.Left(登入人課別, 2) = "25" Then
            For i As Integer = 0 To 料號_dgv.Rows.Count - 1 : 料號_dgv.Rows(i).Cells(7).Value = Strings.Format(CInt(料號_dgv.Rows(i).Cells(5).Value.ToString), "#,##0.0") : Next
        Else
            For i As Integer = 0 To 料號_dgv.Rows.Count - 1 : 料號_dgv.Rows(i).Cells(7).Value = "*****" : Next
        End If
        料號_dgv.Columns(2).FillWeight = 250 : 料號_dgv.Columns(3).FillWeight = 250
        If 系統語言 = "繁體中文" Then : 料號_dgv.Columns(2).Visible = True : 料號_dgv.Columns(3).Visible = False
        Else : 料號_dgv.Columns(2).Visible = False : 料號_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub Set_清單1_1()
        Dim ds4 As New DataSet : 物料清單1_dgv.DataSource = Nothing : ds4.Clear()
        物料清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料清單1_dgv.ColumnHeadersHeight = 25 : 物料清單1_dgv.AllowUserToAddRows = False : 物料清單1_dgv.RowTemplate.Height = 45

        ConnOpen() : SQL_建築物料請購單申請_物料清單零() : CmdSet_For_DGV()

        da.Fill(ds4) : 物料清單1_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料清單1_dgv.Columns(0).FillWeight = 20 : 物料清單1_dgv.Columns(1).Visible = False : 物料清單1_dgv.Columns(2).FillWeight = 175
        物料清單1_dgv.Columns(4).Visible = False : 物料清單1_dgv.Columns(5).FillWeight = 45 : 物料清單1_dgv.Columns(3).Visible = False
        物料清單1_dgv.Columns(0).ReadOnly = True : 物料清單1_dgv.Columns(1).ReadOnly = True : 物料清單1_dgv.Columns(2).ReadOnly = True
        For i As Integer = 0 To 物料清單1_dgv.Rows.Count - 1
            物料清單1_dgv(0, i).Value = i + 1
        Next
        If 低網速模式 = False Then
            物料清單1_dgv.Columns(6).FillWeight = 50 : 物料清單1_dgv.Columns(6).Visible = True
            Dim mycol As DataGridViewImageColumn = 物料清單1_dgv.Columns("圖檔")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 物料清單1_dgv.Columns.Count = 7 Then
                物料清單1_dgv.Columns(6).Visible = False
            End If
        End If
    End Sub
    Private Sub Set_清單()
        Dim ds As New DataSet : 控制表_dgv.DataSource = Nothing : ds.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False
        If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 控制表_dgv.RowTemplate.Height = 75
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 控制表_dgv.RowTemplate.Height = 45
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 控制表_dgv.RowTemplate.Height = 25 : End If

        SQL_倉儲控制表_控制表()
        da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()

        控制表_dgv.Columns(0).FillWeight = 90 : 控制表_dgv.Columns(1).FillWeight = 85 : 控制表_dgv.Columns(2).FillWeight = 160 : 控制表_dgv.Columns(3).FillWeight = 170
        控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).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).FillWeight = 100 : 控制表_dgv.Columns(13).FillWeight = 60 : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
        控制表_dgv.Columns(16).Visible = False : 控制表_dgv.Columns(17).FillWeight = 60 : 控制表_dgv.Columns(18).FillWeight = 60 : 控制表_dgv.Columns(19).FillWeight = 60
        控制表_dgv.Columns(20).Visible = False : 控制表_dgv.Columns(21).FillWeight = 45 : 控制表_dgv.Columns(22).FillWeight = 60 : 控制表_dgv.Columns(23).Visible = False
        控制表_dgv.Columns(24).Visible = False : 控制表_dgv.Columns(25).FillWeight = 60 : 控制表_dgv.Columns("百分比").Visible = False
        If 顯示料號_ch.Checked = True Then : 控制表_dgv.Columns(表頭(77)).Visible = True : Else : 控制表_dgv.Columns(表頭(77)).Visible = False : End If

        控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        跑馬燈_tb.Text = ""
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            資料數 = 控制表_dgv.Rows.Count : MyMod.進度條()
            '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then : 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0" : End If
            If 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then : 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0" : End If
            控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
            '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then
                跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value &
                                 "_" & 表頭(81) & " : " & String.Format(控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & "  ---"
            End If
            Timer1.Interval = 250 : Timer1.Enabled = True
            '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
            If i = 0 Then
                PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                If dr.Read() Then
                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                End If : conn.Close()
            Else
                If 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
                    PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                    If dr.Read() Then
                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                    End If : conn.Close()
                End If
            End If
            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
            If 詳細資料2_ch.Checked = True Then
                If 控制表_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value
                    If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value
                    If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value
                    If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value
                    If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value
                    If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value
                    If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 控制表_dgv.Rows(i).Cells("A8").Value
                    If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            Else
                If 控制表_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 控制表_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                    ZA7 = 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                    ZA8 = 控制表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            End If
            控制表_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
            '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then : 控制表_dgv.Rows(i).Cells("百分比").Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100
            Else : 控制表_dgv.Rows(i).Cells("百分比").Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / (控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100 : End If
            If 控制表_dgv.Rows(i).Cells("百分比").Value > 100 Then : 控制表_dgv.Rows(i).Cells("百分比").Value = 100 : End If
        Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Set_進度條顯示()
        Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns(26) : myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
        If 低網速模式 = False Then
            控制表_dgv.Columns(27).Width = 60 : 控制表_dgv.Columns(27).Visible = True
            Dim mycol As DataGridViewImageColumn = 控制表_dgv.Columns("Image") : mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 控制表_dgv.Columns.Count = 28 Then : 控制表_dgv.Columns(27).Visible = False : End If
        End If : 控制表_dgv.Columns(表頭(65)).FillWeight = 60
    End Sub
    Private Sub Set_進度條顯示()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 45,
            .DataPropertyName = "百分比"
        }
        Col.HeaderText = "百分比" : Col.Name = "容量" : Col.DataPropertyName = "百分比"
        控制表_dgv.Columns.Insert(26, Col)
    End Sub
    Private Sub Set_清單1()
        If 合約編號_tb.Text <> "" Then
            Dim ds As New DataSet : 控制表1_dgv.DataSource = Nothing : ds.Clear()
            控制表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            控制表1_dgv.ColumnHeadersHeight = 25 : 控制表1_dgv.AllowUserToAddRows = False
            If 小間距2_ch.Checked = False And 中間距2_ch.Checked = False And 大間距2_ch.Checked = True Then : 控制表1_dgv.RowTemplate.Height = 75
            ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = True And 大間距2_ch.Checked = False Then : 控制表1_dgv.RowTemplate.Height = 45
            ElseIf 小間距2_ch.Checked = True And 中間距2_ch.Checked = False And 大間距2_ch.Checked = False Then : 控制表1_dgv.RowTemplate.Height = 25 : End If

            If 合約編號_tb.Text <> "" Then
                SQL2 = "AND (倉儲明細表_2.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')"
                SQL3 = "AND  (倉儲明細表_1.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')"
                SQL4 = "AND (倉儲明細表.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')"
            Else
                SQL2 = "AND (倉儲明細表_2.合約編號 NOT LIKE N'H%') AND (倉儲明細表_2.合約編號 NOT LIKE N'P%')"
                SQL3 = "AND  (倉儲明細表_1.合約編號 NOT LIKE N'H%') AND (倉儲明細表_1.合約編號 NOT LIKE N'P%')"
                SQL4 = "AND (倉儲明細表.合約編號 NOT LIKE N'H%') AND (倉儲明細表.合約編號 NOT LIKE N'P%')"
            End If : PA13 = 合約編號_tb.Text

            SQL_倉儲控制表_控制表1()
            da.Fill(ds) : 控制表1_dgv.DataSource = ds.Tables(0) : conn.Close()

            控制表1_dgv.Columns(0).FillWeight = 90 : 控制表1_dgv.Columns(1).FillWeight = 85 : 控制表1_dgv.Columns(2).FillWeight = 160 : 控制表1_dgv.Columns(3).FillWeight = 170
            控制表1_dgv.Columns(4).Visible = False : 控制表1_dgv.Columns(5).Visible = False : 控制表1_dgv.Columns(6).Visible = False : 控制表1_dgv.Columns(7).Visible = False
            控制表1_dgv.Columns(8).Visible = False : 控制表1_dgv.Columns(9).Visible = False : 控制表1_dgv.Columns(10).Visible = False : 控制表1_dgv.Columns(11).Visible = False
            控制表1_dgv.Columns(12).FillWeight = 100 : 控制表1_dgv.Columns(13).FillWeight = 60 : 控制表1_dgv.Columns(14).Visible = False : 控制表1_dgv.Columns(15).Visible = False
            控制表1_dgv.Columns(16).Visible = False : 控制表1_dgv.Columns(17).FillWeight = 60 : 控制表1_dgv.Columns(18).FillWeight = 60 : 控制表1_dgv.Columns(19).FillWeight = 60
            控制表1_dgv.Columns(20).Visible = False : 控制表1_dgv.Columns(21).FillWeight = 45 : 控制表1_dgv.Columns(22).FillWeight = 60 : 控制表1_dgv.Columns(23).Visible = False
            控制表1_dgv.Columns(24).Visible = False : 控制表1_dgv.Columns(25).FillWeight = 60 : 控制表1_dgv.Columns("百分比").Visible = False
            If 顯示料號1_ch.Checked = True Then : 控制表1_dgv.Columns(表頭(77)).Visible = True : Else : 控制表1_dgv.Columns(表頭(77)).Visible = False : End If

            控制表1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns(17).DefaultCellStyle.Format = "#,##0"
            控制表1_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns(22).DefaultCellStyle.Format = "#,##0"
            控制表1_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
            控制表1_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            控制表1_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

            跑馬燈_tb.Text = ""
            For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
                資料數 = 控制表1_dgv.Rows.Count : MyMod.進度條()
                '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
                If 控制表1_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then : 控制表1_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0" : End If
                If 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then : 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0" : End If
                控制表1_dgv.Rows(i).Cells(表頭(81)).Value = 控制表1_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
                '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
                If 控制表1_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表1_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then
                    跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表1_dgv.Rows(i).Cells("" & 表頭(77) & "").Value &
                                 "_" & 表頭(81) & " : " & String.Format(控制表1_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & "  ---"
                End If
                Timer1.Interval = 250 : Timer1.Enabled = True
                '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
                If i = 0 Then
                    PA3 = 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                    If dr.Read() Then
                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                    End If : conn.Close()
                Else
                    If 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表1_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
                        PA3 = 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                        If dr.Read() Then
                            AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                        End If : conn.Close()
                    End If
                End If
                Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
                If 詳細資料1_ch.Checked = True Then
                    If 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
                        ZA1 = AAA1 & "=" & 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                    If 控制表1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 控制表1_dgv.Rows(i).Cells("A2").Value
                        If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 控制表1_dgv.Rows(i).Cells("A3").Value
                        If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 控制表1_dgv.Rows(i).Cells("A4").Value
                        If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 控制表1_dgv.Rows(i).Cells("A5").Value
                        If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 控制表1_dgv.Rows(i).Cells("A6").Value
                        If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 控制表1_dgv.Rows(i).Cells("A7").Value
                        If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 控制表1_dgv.Rows(i).Cells("A8").Value
                        If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
                Else
                    If 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                    If 控制表1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                        ZA2 = 控制表1_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                        ZA3 = 控制表1_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                        ZA4 = 控制表1_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                        ZA5 = 控制表1_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                        ZA6 = 控制表1_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                        ZA7 = 控制表1_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                    If 控制表1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                        ZA8 = 控制表1_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
                End If
                控制表1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
                '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
                If 控制表1_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then : 控制表1_dgv.Rows(i).Cells("百分比").Value = 控制表1_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100
                Else : 控制表1_dgv.Rows(i).Cells("百分比").Value = 控制表1_dgv.Rows(i).Cells(表頭(81)).Value / (控制表1_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100 : End If
                If 控制表1_dgv.Rows(i).Cells("百分比").Value > 100 Then : 控制表1_dgv.Rows(i).Cells("百分比").Value = 100 : End If
            Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            Set_進度條顯示1()
            Dim myco2 As DataGridViewImageColumn = 控制表1_dgv.Columns(26) : myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
            If 低網速模式 = False Then
                控制表1_dgv.Columns(27).Width = 60 : 控制表1_dgv.Columns(27).Visible = True
                Dim mycol As DataGridViewImageColumn = 控制表1_dgv.Columns("Image") : mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
            Else
                If 控制表1_dgv.Columns.Count = 28 Then : 控制表1_dgv.Columns(27).Visible = False : End If
            End If : 控制表1_dgv.Columns(表頭(65)).FillWeight = 60
            If 控制表1_dgv.Rows.Count = 0 Then : 無誤料顯示2_lb.Visible = True : Else : 無誤料顯示2_lb.Visible = False : End If

        End If
    End Sub
    Private Sub Set_進度條顯示1()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 45,
            .DataPropertyName = "百分比"
        }
        Col.HeaderText = "百分比" : Col.Name = "容量" : Col.DataPropertyName = "百分比"
        控制表1_dgv.Columns.Insert(26, Col)
    End Sub
    Private Sub Set_合約清單()
        Dim ds5 As New DataSet
        物料_dgv.DataSource = Nothing : ds5.Clear()
        物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料_dgv.ColumnHeadersHeight = 25 : 物料_dgv.AllowUserToAddRows = False
        SQL_合約倉儲物料()
        da.Fill(ds5) : 物料_dgv.DataSource = ds5.Tables(0) : conn.Close()

        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 : PA47 = "%%"
        SQL_合約清單_倉儲用1()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 130 : 合約_dgv.Columns("MAT").FillWeight = 40 : 合約_dgv.Columns("審核通過").FillWeight = 40
        合約_dgv.Columns("工程名稱").FillWeight = 280 : 合約_dgv.Columns("Nama Proyek").FillWeight = 280 : 合約_dgv.Columns("停止").Visible = True
        合約_dgv.Columns("停止").FillWeight = 40 : 合約_dgv.Columns("審核通過").Visible = True
        For i As Integer = 1 To 38 : 合約_dgv.Columns(i).Visible = False : Next
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If IsDBNull(合約_dgv("停止", i).Value) = True Then : 合約_dgv("停止", i).Value = False : End If
            合約_dgv("MAT", i).Value = False
            For ii As Integer = 0 To 物料_dgv.Rows.Count - 1
                If 合約_dgv("Kontrak", i).Value.ToString.ToUpper = 物料_dgv("合約編號", ii).Value.ToString.ToUpper Then
                    合約_dgv("MAT", i).Value = True : Exit For
                End If
            Next
        Next
        If 放大 = True Then
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = True : Else : 合約_dgv.Columns("Nama Proyek").Visible = True : End If
            合約_dgv.Columns("MAT").Visible = True
        Else
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = False : Else : 合約_dgv.Columns("Nama Proyek").Visible = False : End If
            合約_dgv.Columns("MAT").Visible = False
        End If
    End Sub
    Private Sub 格式控制1()
        If Label2.Text = "A1" Then : Label2.Enabled = False : A1_tb.Enabled = False : Else : Label2.Enabled = True : A1_tb.Enabled = True : End If
        If Label3.Text = "A2" Then : Label3.Enabled = False : A2_tb.Enabled = False : Else : Label3.Enabled = True : A2_tb.Enabled = True : End If
        If Label4.Text = "A3" Then : Label4.Enabled = False : A3_tb.Enabled = False : Else : Label4.Enabled = True : A3_tb.Enabled = True : End If
        If Label5.Text = "A4" Then : Label5.Enabled = False : A4_tb.Enabled = False : Else : Label5.Enabled = True : A4_tb.Enabled = True : End If
        If Label6.Text = "A5" Then : Label6.Enabled = False : A5_tb.Enabled = False : Else : Label6.Enabled = True : A5_tb.Enabled = True : End If
        If Label7.Text = "A6" Then : Label7.Enabled = False : A6_tb.Enabled = False : Else : Label7.Enabled = True : A6_tb.Enabled = True : End If
        If Label8.Text = "A7" Then : Label8.Enabled = False : A7_tb.Enabled = False : Else : Label8.Enabled = True : A7_tb.Enabled = True : End If
        If Label9.Text = "A8" Then : Label9.Enabled = False : A8_tb.Enabled = False : Else : Label9.Enabled = True : A8_tb.Enabled = True : End If
    End Sub
    Private Sub 格式控制2()
        If Label2_1.Text = "A1" Then : Label2_1.Enabled = False : B1_tb.Enabled = False : Else : Label2_1.Enabled = True : B1_tb.Enabled = True : End If
        If Label3_1.Text = "A2" Then : Label3_1.Enabled = False : B2_tb.Enabled = False : Else : Label3_1.Enabled = True : B2_tb.Enabled = True : End If
        If Label4_1.Text = "A3" Then : Label4_1.Enabled = False : B3_tb.Enabled = False : Else : Label4_1.Enabled = True : B3_tb.Enabled = True : End If
        If Label5_1.Text = "A4" Then : Label5_1.Enabled = False : B4_tb.Enabled = False : Else : Label5_1.Enabled = True : B4_tb.Enabled = True : End If
        If Label6_1.Text = "A5" Then : Label6_1.Enabled = False : B5_tb.Enabled = False : Else : Label6_1.Enabled = True : B5_tb.Enabled = True : End If
        If Label7_1.Text = "A6" Then : Label7_1.Enabled = False : B6_tb.Enabled = False : Else : Label7_1.Enabled = True : B6_tb.Enabled = True : End If
        If Label8_1.Text = "A7" Then : Label8_1.Enabled = False : B7_tb.Enabled = False : Else : Label8_1.Enabled = True : B7_tb.Enabled = True : End If
        If Label9_1.Text = "A8" Then : Label9_1.Enabled = False : B8_tb.Enabled = False : Else : Label9_1.Enabled = True : B8_tb.Enabled = True : End If
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-227-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        同級別全資料_ch.Text = 系統語言字典("H501-100-" & 語言) : 品名_lb.Text = 系統語言字典("H501-101-" & 語言) : 指定倉庫_lb.Text = 系統語言字典("H501-102-" & 語言)
        重新整理_tsm.Text = 系統語言字典("H501-103-" & 語言) : 表頭(45) = 系統語言字典("H501-104-" & 語言) : 表頭(46) = 系統語言字典("H501-105-" & 語言)
        表頭(81) = 系統語言字典("H501-106-" & 語言) : 表頭(79) = 系統語言字典("H501-107-" & 語言) : 表頭(80) = 系統語言字典("H501-108-" & 語言)
        表頭(19) = 系統語言字典("H501-109-" & 語言) : 表頭(20) = 系統語言字典("H501-110-" & 語言) : 表頭(73) = 系統語言字典("H501-111-" & 語言)
        表頭(71) = 系統語言字典("H501-112-" & 語言) : 表頭(12) = 系統語言字典("H501-113-" & 語言) : 表頭(48) = 系統語言字典("H501-114-" & 語言)
        表頭(72) = 系統語言字典("H501-115-" & 語言) : 表頭(47) = 系統語言字典("H501-116-" & 語言) : 表頭(78) = 系統語言字典("H501-117-" & 語言)
        表頭(77) = 系統語言字典("H501-118-" & 語言) : 表頭(21) = 系統語言字典("H501-119-" & 語言) : 表頭(22) = 系統語言字典("H501-120-" & 語言)
        表頭(24) = 系統語言字典("H501-121-" & 語言) : 表頭(13) = 系統語言字典("H501-122-" & 語言) : 表頭(14) = 系統語言字典("H501-123-" & 語言)
        表頭(65) = 系統語言字典("H501-124-" & 語言) : 表頭(16) = 系統語言字典("H501-125-" & 語言) : 表頭(82) = 系統語言字典("H501-126-" & 語言)
        表頭(44) = 系統語言字典("H501-127-" & 語言) : 表頭(76) = 系統語言字典("H501-128-" & 語言) : 規格_lb.Text = 系統語言字典("H501-129-" & 語言)
        無庫存全資料_ch.Text = 系統語言字典("H501-130-" & 語言) : 對話框(0) = 系統語言字典("H501-131-" & 語言) : 對話框(1) = 系統語言字典("H501-132-" & 語言)
        對話框(2) = 系統語言字典("H501-133-" & 語言) : 對話框(3) = 系統語言字典("H501-134-" & 語言) : TabPage1.Text = 系統語言字典("H501-135-" & 語言)
        TabPage2.Text = 系統語言字典("H501-136-" & 語言) : TabPage3.Text = 系統語言字典("H501-137-" & 語言) : 對話框(4) = 系統語言字典("G000-180-" & 語言)
        詳細資料1_ch.Text = 系統語言字典("H501-138-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H501-138-" & 語言) : 對話框(5) = 系統語言字典("G000-226-" & 語言)
        顯示料號_ch.Text = 系統語言字典("H501-139-" & 語言) : 顯示料號1_ch.Text = 系統語言字典("H501-139-" & 語言) : 對話框(6) = 系統語言字典("H110-117-" & 語言)
        顯示單號_ch.Text = 系統語言字典("H501-140-" & 語言) : 顯示單號1_ch.Text = 系統語言字典("H501-140-" & 語言) : 顯示單號3_ch.Text = 系統語言字典("H501-140-" & 語言)
        甲方_lb.Text = 系統語言字典("H501-141-" & 語言) : 搜尋_lb.Text = 系統語言字典("H501-142-" & 語言) : 縮放1_bt.Text = 系統語言字典("H501-143-" & 語言)
        合約編號_lb.Text = 系統語言字典("H501-144-" & 語言) : Label1.Text = 系統語言字典("H501-145-" & 語言) : Label10.Text = 系統語言字典("H501-146-" & 語言)
        Label11.Text = 系統語言字典("H501-147-" & 語言) : TabPage4.Text = 系統語言字典("H501-148-" & 語言) : TabPage5.Text = 系統語言字典("H501-149-" & 語言)
        無誤料顯示1_lb.Text = 系統語言字典("H501-150-" & 語言) : 無誤料顯示2_lb.Text = 系統語言字典("H501-151-" & 語言) : 表頭(15) = 系統語言字典("H501-152-" & 語言)
        表頭(17) = 系統語言字典("H501-153-" & 語言) : 表頭(18) = 系統語言字典("H501-154-" & 語言) : 表頭(23) = 系統語言字典("H501-155-" & 語言)
        表頭(25) = 系統語言字典("H501-156-" & 語言) : 表頭(28) = 系統語言字典("H501-157-" & 語言) : 表頭(27) = 系統語言字典("H501-158-" & 語言)
        表頭(134) = 系統語言字典("H501-159-" & 語言) : 表頭(26) = 系統語言字典("H501-160-" & 語言) : 對話框(7) = 系統語言字典("G000-114-" & 語言)
        對話框(8) = 系統語言字典("G000-183-" & 語言) : 對話框(9) = 系統語言字典("G000-184-" & 語言) : 對話框(10) = 系統語言字典("G000-185-" & 語言)
        對話框(11) = 系統語言字典("G000-186-" & 語言) : 對話框(12) = 系統語言字典("G000-187-" & 語言) : 對話框(13) = 系統語言字典("G000-188-" & 語言)
        對話框(14) = 系統語言字典("G000-189-" & 語言) : 對話框(15) = 系統語言字典("G000-190-" & 語言) : 對話框(16) = 系統語言字典("G000-191-" & 語言)
        對話框(17) = 系統語言字典("G000-192-" & 語言) : 對話框(18) = 系統語言字典("G000-193-" & 語言) : 對話框(19) = 系統語言字典("G000-194-" & 語言)
        對話框(20) = 系統語言字典("G000-227-" & 語言)
    End Sub
    Private Sub 搜尋1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.搜尋1_bt, 對話框(6))
    End Sub
    Private Sub 列印_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印_bt.MouseEnter
        ToolTip1.SetToolTip(Me.列印_bt, 對話框(7))
    End Sub
    Private Sub 回首頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回首頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.回首頁_bt, 對話框(8))
    End Sub
    Private Sub 回次頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回次頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.回次頁_bt, 對話框(9))
    End Sub
    Private Sub 管材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 管材_bt.MouseEnter
        ToolTip1.SetToolTip(Me.管材_bt, 對話框(10))
    End Sub
    Private Sub 電線_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電線_bt.MouseEnter
        ToolTip1.SetToolTip(Me.電線_bt, 對話框(11))
    End Sub
    Private Sub 電料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電料_bt.MouseEnter
        ToolTip1.SetToolTip(Me.電料_bt, 對話框(12))
    End Sub
    Private Sub 槽架_bt_MouseEnter(sender As Object, e As EventArgs) Handles 槽架_bt.MouseEnter
        ToolTip1.SetToolTip(Me.槽架_bt, 對話框(13))
    End Sub
    Private Sub 建材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 建材_bt.MouseEnter
        ToolTip1.SetToolTip(Me.建材_bt, 對話框(14))
    End Sub
    Private Sub 五金_bt_MouseEnter(sender As Object, e As EventArgs) Handles 五金_bt.MouseEnter
        ToolTip1.SetToolTip(Me.五金_bt, 對話框(15))
    End Sub
    Private Sub 設備_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設備_bt.MouseEnter
        ToolTip1.SetToolTip(Me.設備_bt, 對話框(16))
    End Sub
    Private Sub 工具_bt_MouseEnter(sender As Object, e As EventArgs) Handles 工具_bt.MouseEnter
        ToolTip1.SetToolTip(Me.工具_bt, 對話框(17))
    End Sub
    Private Sub 日用_bt_MouseEnter(sender As Object, e As EventArgs) Handles 日用_bt.MouseEnter
        ToolTip1.SetToolTip(Me.日用_bt, 對話框(18))
    End Sub
    Private Sub 其他_bt_MouseEnter(sender As Object, e As EventArgs) Handles 其他_bt.MouseEnter
        ToolTip1.SetToolTip(Me.其他_bt, 對話框(19))
    End Sub
    Private Sub 切換倉庫級別_bt_MouseEnter(sender As Object, e As EventArgs) Handles 切換倉庫級別_bt.MouseEnter
        ToolTip1.SetToolTip(Me.切換倉庫級別_bt, 對話框(20))
    End Sub
    Private Sub 指定倉庫_cb_下拉表單資料載入()
        SQL_指定倉庫_下拉表單() : 指定倉庫_cb.Items.Clear() : 指定倉庫_cb.Items.Add("") : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
    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 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        分母 = 100 : 分段1 = 0.1 : 分段2 = 0.09 : 分段3 = 0.3 : 分段4 = 0.29 : 進度條後墜 = " %"
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(501) = True : 介面 = "H501" : 語言轉換讀取() : 顯示說明(999, False)
        SQL_倉儲臨時單號去除() : SQL_清單欄位查詢()
        If Acdr.Read() Then
            小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1")
            小間距2_ch.Checked = Acdr("L_1_1") : 中間距2_ch.Checked = Acdr("L_2_1") : 大間距2_ch.Checked = Acdr("L_3_1")
        End If : Access1.Close()
        Panel1.SendToBack() : 主頁_p.BringToFront() : 無誤料顯示1_lb.Visible = False : 無誤料顯示2_lb.Visible = False : 倉儲控制表_Size()
    End Sub
    Private Sub 倉儲控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方條件下拉清單讀取()
        KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : PA10 = KKKK
        指定倉庫_cb_下拉表單資料載入() : Set_合約清單() : Set_清單1() : 同級別全資料_ch.Checked = True
        格式控制1() : 格式控制2() : Set_清單()
    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)
        合約物料_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)
        物料規格1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        控制表_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)
        明細表_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)
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        物料查詢 = False : H(501) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H501" : 語言轉換讀取() : Set_清單() : Set_合約清單() : Set_清單1() : 格式控制1() : 格式控制2()
    End Sub
    Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
        '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）---
        文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s))
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If 跑馬燈_tb.Text = "" Then : Timer1.Enabled = False : Else : 跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1) : End If
    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 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約編號_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper : Set_清單1()
            明細表1_dgv.DataSource = Nothing : 圖片檔2_pb.Image = Nothing
            Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
            If 放大 = True Then
                合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False
                合約_dgv.Columns("工程名稱").Visible = False : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("MAT").Visible = False
            End If
        End If
    End Sub
    Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 控制表_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 控制表_dgv(2, e.RowIndex).Value.ToString <> 控制表_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(控制表_dgv.RowHeadersVisible, 控制表_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 控制表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片檔1_pb.Image = Nothing : 圖片檔2_pb.Image = Nothing
            PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("料號原則").Value : 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

            AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
            PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
            If dr.Read() Then
                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
            End If : conn.Close()

            If AAA1 = "" Then : Label2.Text = "A1" : Else : Label2.Text = AAA1 : End If : If AAA2 = "" Then : Label3.Text = "A2" : Else : Label3.Text = AAA2 : End If
            If AAA3 = "" Then : Label4.Text = "A3" : Else : Label4.Text = AAA3 : End If : If AAA4 = "" Then : Label5.Text = "A4" : Else : Label5.Text = AAA4 : End If
            If AAA5 = "" Then : Label6.Text = "A5" : Else : Label6.Text = AAA5 : End If : If AAA6 = "" Then : Label7.Text = "A6" : Else : Label7.Text = AAA6 : End If
            If AAA7 = "" Then : Label8.Text = "A7" : Else : Label8.Text = AAA7 : End If : If AAA8 = "" Then : Label9.Text = "A8" : Else : Label9.Text = AAA8 : End If

            A1_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A1").Value : A2_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A2").Value
            A3_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A3").Value : A4_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A4").Value
            A5_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A5").Value : A6_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A6").Value
            A7_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A7").Value : A8_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A8").Value
            品名_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value
            格式控制1()

            Dim ds1 As New DataSet : 明細表_dgv.DataSource = Nothing : ds1.Clear()
            明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表_dgv.ColumnHeadersHeight = 40 : 明細表_dgv.AllowUserToAddRows = False : 明細表_dgv.RowTemplate.Height = 35

            PA11 = 控制表_dgv.Rows(e.RowIndex).Cells(表頭(77)).Value : PA12 = 控制表_dgv.Rows(e.RowIndex).Cells(表頭(48)).Value
            SQL_倉儲控制表_明細()
            da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()

            明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 140 : 明細表_dgv.Columns(2).FillWeight = 120 : 明細表_dgv.Columns(3).Visible = False
            明細表_dgv.Columns(4).FillWeight = 80 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 150 : 明細表_dgv.Columns(7).FillWeight = 80
            明細表_dgv.Columns(8).FillWeight = 150 : 明細表_dgv.Columns(9).FillWeight = 120 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 120
            明細表_dgv.Columns(12).FillWeight = 100 : 明細表_dgv.Columns(13).FillWeight = 120 : 明細表_dgv.Columns(14).FillWeight = 100 : 明細表_dgv.Columns(15).FillWeight = 130

            明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
            明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(0).Frozen = True : 明細表_dgv.Columns(1).Frozen = True : 明細表_dgv.Columns(2).Frozen = True : 明細表_dgv.Columns(3).Frozen = True
            明細表_dgv.Columns(4).Frozen = True : 明細表_dgv.Columns(5).Frozen = True
            If 顯示單號_ch.Checked = True Then : 明細表_dgv.Columns(1).Visible = True : Else : 明細表_dgv.Columns(1).Visible = False : End If
        End If
    End Sub
    Private Sub 控制表1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表1_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 控制表1_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 控制表1_dgv(2, e.RowIndex).Value.ToString <> 控制表1_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(控制表1_dgv.RowHeadersVisible, 控制表1_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 控制表1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            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
            圖片檔1_pb.Image = Nothing : 圖片檔2_pb.Image = Nothing
            PA2 = 控制表1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : 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

            AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
            PA3 = 控制表1_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
            If dr.Read() Then
                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
            End If : conn.Close()

            If AAA1 = "" Then : Label2_1.Text = "A1" : Else : Label2_1.Text = AAA1 : End If : If AAA2 = "" Then : Label3_1.Text = "A2" : Else : Label3_1.Text = AAA2 : End If
            If AAA3 = "" Then : Label4_1.Text = "A3" : Else : Label4_1.Text = AAA3 : End If : If AAA4 = "" Then : Label5_1.Text = "A4" : Else : Label5_1.Text = AAA4 : End If
            If AAA5 = "" Then : Label6_1.Text = "A5" : Else : Label6_1.Text = AAA5 : End If : If AAA6 = "" Then : Label7_1.Text = "A6" : Else : Label7_1.Text = AAA6 : End If
            If AAA7 = "" Then : Label8_1.Text = "A7" : Else : Label8_1.Text = AAA7 : End If : If AAA8 = "" Then : Label9_1.Text = "A8" : Else : Label9_1.Text = AAA8 : End If

            B1_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A1").Value : B2_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A2").Value
            B3_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A3").Value : B4_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A4").Value
            B5_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A5").Value : B6_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A6").Value
            B7_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A7").Value : B8_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A8").Value
            品名1_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value
            格式控制2()

            Dim ds1 As New DataSet : 明細表1_dgv.DataSource = Nothing : ds1.Clear()
            明細表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表1_dgv.ColumnHeadersHeight = 40 : 明細表1_dgv.AllowUserToAddRows = False : 明細表1_dgv.RowTemplate.Height = 35

            PA11 = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(77)).Value : PA12 = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(48)).Value

            If 合約編號_tb.Text <> "" Then : SQL2 = "And (倉儲明細表.合約編號 Like N'%" & 合約編號_tb.Text & "%')"
            Else : SQL2 = "AND (倉儲明細表.合約編號 NOT LIKE N'H%') AND (倉儲明細表.合約編號 NOT LIKE N'P%')" : End If

            SQL_倉儲控制表_明細1()
            da.Fill(ds1) : 明細表1_dgv.DataSource = ds1.Tables(0) : conn.Close()

            明細表1_dgv.Columns(0).Visible = False : 明細表1_dgv.Columns(1).FillWeight = 140 : 明細表1_dgv.Columns(2).FillWeight = 120 : 明細表1_dgv.Columns(3).Visible = False
            明細表1_dgv.Columns(4).FillWeight = 80 : 明細表1_dgv.Columns(5).FillWeight = 80 : 明細表1_dgv.Columns(6).FillWeight = 150 : 明細表1_dgv.Columns(7).FillWeight = 80
            明細表1_dgv.Columns(8).FillWeight = 150 : 明細表1_dgv.Columns(9).FillWeight = 120 : 明細表1_dgv.Columns(10).FillWeight = 100 : 明細表1_dgv.Columns(11).FillWeight = 120
            明細表1_dgv.Columns(12).FillWeight = 100 : 明細表1_dgv.Columns(13).FillWeight = 120 : 明細表1_dgv.Columns(14).FillWeight = 100 : 明細表1_dgv.Columns(15).FillWeight = 130

            明細表1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
            明細表1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(0).Frozen = True : 明細表1_dgv.Columns(1).Frozen = True : 明細表1_dgv.Columns(2).Frozen = True : 明細表1_dgv.Columns(3).Frozen = True
            明細表1_dgv.Columns(4).Frozen = True : 明細表1_dgv.Columns(5).Frozen = True
            If 顯示單號1_ch.Checked = True Then : 明細表1_dgv.Columns(1).Visible = True : 明細表1_dgv.Columns(表頭(24)).Visible = True
            Else : 明細表1_dgv.Columns(1).Visible = False : 明細表1_dgv.Columns(表頭(24)).Visible = False : 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
            圖片檔3_pb.Image = Nothing
            PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : 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

            PA = 物料清單1_dgv(1, e.RowIndex).Value.ToString : 品名2_tb.Text = 物料清單1_dgv("Pernyataan_Prinsip", e.RowIndex).Value.ToString()
            PA1 = 物料清單1_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_建築物料請購單申請_物料規格讀取()
            If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_規格庫抬頭讀取()
            If dr.Read() Then : AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") : End If
            conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            Dim ds3 As New DataSet
            物料規格1_dgv.DataSource = Nothing : ds3.Clear()
            物料規格1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            物料規格1_dgv.ColumnHeadersHeight = 25
            物料規格1_dgv.AllowUserToAddRows = False
            物料規格1_dgv.RowTemplate.Height = 20
            If KKK2 = "SQLB03" Then : SQL_歷史物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_歷史物料規格_SQLB04()
            ElseIf KKK2 = "SQLB05" Then : SQL_歷史物料規格_SQLB05() : ElseIf KKK2 = "SQLB06" Then : SQL_歷史物料規格_SQLB06()
            ElseIf KKK2 = "SQLB07" Then : SQL_歷史物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_歷史物料規格_SQLB08() : End If
            da.Fill(ds3) : 物料規格1_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號1_tb.Text = ""

            物料規格1_dgv.Columns(0).Visible = False : 物料規格1_dgv.Columns(1).Visible = False : 物料規格1_dgv.Columns(3).Visible = False
            物料規格1_dgv.Columns(2).Width = 17 : 物料規格1_dgv.Columns(12).Visible = False : 物料規格1_dgv.Columns(13).Visible = False : 物料規格1_dgv.Columns(14).Visible = False
            物料規格1_dgv.Columns(15).Visible = False
            If KKK2 = "SQLB03" Then
                物料規格1_dgv.Columns(7).Visible = False : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 213 : 物料規格1_dgv.Columns(5).FillWeight = 213 : 物料規格1_dgv.Columns(6).FillWeight = 214
            ElseIf KKK2 = "SQLB04" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 160 : 物料規格1_dgv.Columns(5).FillWeight = 160 : 物料規格1_dgv.Columns(6).FillWeight = 160 : 物料規格1_dgv.Columns(7).FillWeight = 160
            ElseIf KKK2 = "SQLB05" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 128 : 物料規格1_dgv.Columns(5).FillWeight = 128 : 物料規格1_dgv.Columns(6).FillWeight = 128 : 物料規格1_dgv.Columns(7).FillWeight = 128
                物料規格1_dgv.Columns(8).FillWeight = 128
            ElseIf KKK2 = "SQLB06" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 106 : 物料規格1_dgv.Columns(5).FillWeight = 107 : 物料規格1_dgv.Columns(6).FillWeight = 106 : 物料規格1_dgv.Columns(7).FillWeight = 107
                物料規格1_dgv.Columns(8).FillWeight = 106 : 物料規格1_dgv.Columns(9).FillWeight = 108
            ElseIf KKK2 = "SQLB07" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 91 : 物料規格1_dgv.Columns(5).FillWeight = 92 : 物料規格1_dgv.Columns(6).FillWeight = 91 : 物料規格1_dgv.Columns(7).FillWeight = 92
                物料規格1_dgv.Columns(8).FillWeight = 91 : 物料規格1_dgv.Columns(9).FillWeight = 92 : 物料規格1_dgv.Columns(10).FillWeight = 91
            ElseIf KKK2 = "SQLB08" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
                物料規格1_dgv.Columns(11).Visible = True
                物料規格1_dgv.Columns(4).FillWeight = 80 : 物料規格1_dgv.Columns(5).FillWeight = 80 : 物料規格1_dgv.Columns(6).FillWeight = 80 : 物料規格1_dgv.Columns(7).FillWeight = 80
                物料規格1_dgv.Columns(8).FillWeight = 80 : 物料規格1_dgv.Columns(9).FillWeight = 80 : 物料規格1_dgv.Columns(10).FillWeight = 80 : 物料規格1_dgv.Columns(11).FillWeight = 80
            End If
            物料規格1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            物料規格1_dgv.Columns(0).ReadOnly = True : 物料規格1_dgv.Columns(1).ReadOnly = True : 物料規格1_dgv.Columns(2).ReadOnly = True : 物料規格1_dgv.Columns(3).ReadOnly = True
            物料規格1_dgv.Columns(4).ReadOnly = True : 物料規格1_dgv.Columns(5).ReadOnly = True : 物料規格1_dgv.Columns(6).ReadOnly = True : 物料規格1_dgv.Columns(7).ReadOnly = True
            物料規格1_dgv.Columns(8).ReadOnly = True : 物料規格1_dgv.Columns(9).ReadOnly = True : 物料規格1_dgv.Columns(10).ReadOnly = True : 物料規格1_dgv.Columns(11).ReadOnly = True
            物料規格1_dgv.Columns("Persediaan").DefaultCellStyle.Format = "#,##0"
            物料規格1_dgv.Columns("Persediaan").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
                物料規格1_dgv.Rows(i).Cells("No").Value = i + 1
                物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0
                If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then
                    MGB(對話框(4), 1)
                ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then
                    物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
                ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
                    物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                    物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
                End If
            Next : If 物料規格1_dgv.Rows.Count = 0 Then : 無誤料顯示1_lb.Visible = True : Else : 無誤料顯示1_lb.Visible = False : End If
        End If
    End Sub
    Private Sub 物料規格1_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellEnter
        For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
            If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then
                MGB(對話框(4), 1)
                物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
            ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then
                物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
            ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
                物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
            End If
        Next i
    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
            料號1_tb.Text = 物料規格1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : PA = 料號1_tb.Text

            Dim ds3 As New DataSet
            合約物料_dgv.DataSource = Nothing : ds3.Clear()
            合約物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            合約物料_dgv.ColumnHeadersHeight = 40 : 合約物料_dgv.AllowUserToAddRows = False : 合約物料_dgv.RowTemplate.Height = 25
            SQL_合約物料狀況查詢()
            da.Fill(ds3) : 合約物料_dgv.DataSource = ds3.Tables(0) : conn.Close()
            合約物料_dgv.Columns(0).FillWeight = 100 : 合約物料_dgv.Columns(1).FillWeight = 70 : 合約物料_dgv.Columns(2).FillWeight = 70
            合約物料_dgv.Columns(3).FillWeight = 70 : 合約物料_dgv.Columns(4).FillWeight = 70 : 合約物料_dgv.Columns("庫存").Visible = False

            合約物料_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 合約物料_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
            合約物料_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 合約物料_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
            合約物料_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合約物料_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合約物料_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合約物料_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

            入庫_tb.Text = "0" : 出庫_tb.Text = "0" : 庫存_tb.Text = "0"
            For i As Integer = 0 To 合約物料_dgv.Rows.Count - 1
                If 合約物料_dgv.Rows(i).Cells(2).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(2).Value = "0" : End If
                If 合約物料_dgv.Rows(i).Cells(3).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(3).Value = "0" : End If
                If 合約物料_dgv.Rows(i).Cells(4).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(4).Value = "0" : End If
                入庫_tb.Text = Strings.Format(CInt(入庫_tb.Text) + CInt(合約物料_dgv.Rows(i).Cells(2).Value.ToString), "#,##0")
                出庫_tb.Text = Strings.Format(CInt(出庫_tb.Text) + CInt(合約物料_dgv.Rows(i).Cells(3).Value.ToString), "#,##0")
                庫存_tb.Text = Strings.Format(CInt(庫存_tb.Text) + CInt(合約物料_dgv.Rows(i).Cells(4).Value.ToString), "#,##0")
                合約物料_dgv.Rows(i).Cells(表頭(27)).Value = CInt(合約物料_dgv.Rows(i).Cells("庫存").Value) - CInt(合約物料_dgv.Rows(i).Cells(表頭(28)).Value) +
                                                             CInt(合約物料_dgv.Rows(i).Cells(表頭(25)).Value)
            Next : 明細表2_dgv.DataSource = Nothing
            Set_料號比價()
            Chart1.Series.Clear() : Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0) : Chart1.ChartAreas(0).AxisX.Minimum = 0
            Chart1.ChartAreas(0).BackColor = Color.Transparent : Chart1.Legends(0).BackColor = Color.Transparent
            Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New System.Drawing.Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0"
            If 品名2_tb.Text <> "" Then
                If 折線圖_ch.Checked = True Then
                    Chart1.Series.Add(品名2_tb.Text & "_1")
                    Chart1.Series(品名2_tb.Text & "_1").ChartType = SeriesChartType.Line
                    Chart1.Series(品名2_tb.Text & "_1").IsVisibleInLegend = False
                End If
                If 長條圖_ch.Checked = True Then
                    Chart1.Series.Add(品名2_tb.Text)
                    Chart1.Series(品名2_tb.Text).ChartType = SeriesChartType.Column
                End If
                For i As Integer = 0 To 料號_dgv.Rows.Count - 1
                    Chart1.Series(品名2_tb.Text).Points.AddXY(料號_dgv.Rows(i).Cells(表頭(134)).Value.ToString, 料號_dgv.Rows(i).Cells("單價").Value.ToString)
                Next
                If 深色風格 = False Then
                    If 折線圖_ch.Checked = True Then
                        Chart1.Series(品名2_tb.Text & "_1").LabelForeColor = Color.Blue
                    End If
                    If 長條圖_ch.Checked = True Then
                        Chart1.Series(品名2_tb.Text).LabelForeColor = Color.Blue
                    End If
                    Chart1.Legends(0).ForeColor = Color.Black
                    Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.Black
                    Chart1.ChartAreas(0).AxisX.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.LineColor = Color.Black
                    Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Black : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Black
                Else
                    If 折線圖_ch.Checked = True Then
                        Chart1.Series(品名2_tb.Text & "_1").LabelForeColor = Color.White
                    End If
                    If 長條圖_ch.Checked = True Then
                        Chart1.Series(品名2_tb.Text).LabelForeColor = Color.White
                    End If
                    Chart1.Legends(0).ForeColor = Color.White
                    Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.White
                    Chart1.ChartAreas(0).AxisX.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.LineColor = Color.White
                    Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
                End If
            End If
            料號_dgv.Sort(料號_dgv.Columns("排序"), System.ComponentModel.ListSortDirection.Descending)
        End If
    End Sub
    Private Sub 合約物料_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約物料_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約編號1_tb.Text = ""

            Dim ds1 As New DataSet : 明細表2_dgv.DataSource = Nothing : ds1.Clear()
            明細表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表2_dgv.ColumnHeadersHeight = 40 : 明細表2_dgv.AllowUserToAddRows = False : 明細表2_dgv.RowTemplate.Height = 35

            PA11 = 料號1_tb.Text : PA12 = "%%"
            If 合約編號1_tb.Text <> "" Then : SQL2 = "AND (倉儲明細表.合約編號 LIKE N'%" & 合約編號1_tb.Text & "%')"
            Else : SQL2 = "AND (倉儲明細表.合約編號 NOT LIKE N'H%') AND (倉儲明細表.合約編號 NOT LIKE N'P%')" : End If

            SQL_倉儲控制表_明細1()
            da.Fill(ds1) : 明細表2_dgv.DataSource = ds1.Tables(0) : conn.Close()

            明細表2_dgv.Columns(0).Visible = False : 明細表2_dgv.Columns(1).FillWeight = 140 : 明細表2_dgv.Columns(2).FillWeight = 120 : 明細表2_dgv.Columns(3).Visible = False
            明細表2_dgv.Columns(4).FillWeight = 80 : 明細表2_dgv.Columns(5).FillWeight = 80 : 明細表2_dgv.Columns(6).Visible = False : 明細表2_dgv.Columns(7).FillWeight = 80
            明細表2_dgv.Columns(8).FillWeight = 150 : 明細表2_dgv.Columns(9).FillWeight = 120 : 明細表2_dgv.Columns(10).FillWeight = 100 : 明細表2_dgv.Columns(11).FillWeight = 120
            明細表2_dgv.Columns(12).FillWeight = 100 : 明細表2_dgv.Columns(13).Visible = False : 明細表2_dgv.Columns(14).Visible = False : 明細表2_dgv.Columns(15).Visible = False

            明細表2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
            明細表2_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表2_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表2_dgv.Columns(0).Frozen = True : 明細表2_dgv.Columns(1).Frozen = True : 明細表2_dgv.Columns(2).Frozen = True : 明細表2_dgv.Columns(3).Frozen = True
            明細表2_dgv.Columns(4).Frozen = True : 明細表2_dgv.Columns(5).Frozen = True
            If 顯示單號3_ch.Checked = True Then : 明細表2_dgv.Columns(1).Visible = True : 明細表2_dgv.Columns(表頭(24)).Visible = True
            Else : 明細表2_dgv.Columns(1).Visible = False : 明細表2_dgv.Columns(表頭(24)).Visible = False : End If
        End If
    End Sub
    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
        If 指定倉庫_cb.Text = "" Then : 同級別全資料_ch.Checked = True : Else : 同級別全資料_ch.Checked = False : End If : Set_清單()
    End Sub
    Private Sub 指定倉庫_cb_Click(sender As Object, e As EventArgs) Handles 指定倉庫_cb.Click
        CB選擇清單(指定倉庫_cb, 指定倉庫_cb.Text)
    End Sub
    Private Sub 同級別全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 同級別全資料_ch.Click
        If 同級別全資料_ch.Checked = True Then : 同級別全資料_ch.Checked = True : 指定倉庫_cb.Text = "" : Else : 同級別全資料_ch.Checked = False : End If : Set_清單()
    End Sub
    Private Sub 無庫存全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 無庫存全資料_ch.CheckedChanged
        If 無庫存全資料_ch.Checked = True Then : KKKK = "" : Else : KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : End If : PA10 = KKKK
        Set_清單()
    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 合約_dgv.Visible = False Then : 縮放1_bt.PerformClick() : End If
        If 放大 = True Then
            合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False
            合約_dgv.Columns("工程名稱").Visible = False : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("MAT").Visible = False
        Else
            合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = True : Else : 合約_dgv.Columns("Nama Proyek").Visible = True : End If
            合約_dgv.Columns("MAT").Visible = True
        End If
    End Sub
    Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
        小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyMod.間距設定存檔_1() : Set_清單()
    End Sub
    Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單()
    End Sub
    Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單()
    End Sub
    Private Sub 小間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距2_ch.Click
        小間距2_ch.Checked = True : 中間距2_ch.Checked = False : 大間距2_ch.Checked = False : MyMod.間距設定存檔_1() : Set_清單1()
    End Sub
    Private Sub 中間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距2_ch.Click
        小間距2_ch.Checked = False : 中間距2_ch.Checked = True : 大間距2_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單1()
    End Sub
    Private Sub 大間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距2_ch.Click
        小間距2_ch.Checked = False : 中間距2_ch.Checked = False : 大間距2_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單1()
    End Sub
    Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click
        If IsNothing(圖片檔1_pb.Image) = False Then : 圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog() : End If
    End Sub
    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
        合約編號_tb.Text = "" : Set_清單1()
    End Sub
    Private Sub 顯示料號_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號_ch.Click
        If 顯示料號_ch.Checked = True Then : 顯示料號_ch.Checked = True : 控制表_dgv.Columns(表頭(77)).Visible = True
        Else : 顯示料號_ch.Checked = False : 控制表_dgv.Columns(表頭(77)).Visible = False : End If
    End Sub
    Private Sub 顯示單號3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示單號3_ch.Click
        If 顯示單號3_ch.Checked = True Then : 顯示單號3_ch.Checked = True : 明細表2_dgv.Columns(1).Visible = True
        Else : 顯示單號3_ch.Checked = False : 明細表2_dgv.Columns(1).Visible = False : End If
    End Sub
    Private Sub 顯示單號_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示單號_ch.Click
        If 顯示單號_ch.Checked = True Then : 顯示單號_ch.Checked = True : 明細表_dgv.Columns(1).Visible = True
        Else : 顯示單號_ch.Checked = False : 明細表_dgv.Columns(1).Visible = False : End If
    End Sub
    Private Sub 顯示料號1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號1_ch.Click
        If 顯示料號1_ch.Checked = True Then : 顯示料號1_ch.Checked = True : 控制表1_dgv.Columns(表頭(77)).Visible = True
        Else : 顯示料號1_ch.Checked = False : 控制表1_dgv.Columns(表頭(77)).Visible = False : End If
    End Sub
    Private Sub 顯示單號1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示單號1_ch.Click
        If 顯示單號1_ch.Checked = True Then : 顯示單號1_ch.Checked = True : 明細表1_dgv.Columns(1).Visible = True : 明細表1_dgv.Columns(表頭(24)).Visible = True
        Else : 顯示單號1_ch.Checked = False : 明細表1_dgv.Columns(1).Visible = False : 明細表1_dgv.Columns(表頭(24)).Visible = False : End If
    End Sub
    Private Sub 詳細資料1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料1_ch.Click
        If 詳細資料1_ch.Checked = False Then : 詳細資料1_ch.Checked = False : Else : 詳細資料1_ch.Checked = True : End If : Set_清單1()
    End Sub
    Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click
        If 詳細資料2_ch.Checked = False Then : 詳細資料2_ch.Checked = False : Else : 詳細資料2_ch.Checked = True : End If : Set_清單()
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單() : 合約編號_tb.Text = "" : Set_清單1()
    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 搜尋1_bt_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click
        INB(對話框(5)) : 物料關鍵字 = 訊息回應
        If 物料關鍵字 = "" Then : Else : 物料查詢 = True : Set_群組清單() : 次頁_p.BringToFront() : End If
    End Sub
    Private Sub 切換倉庫級別_bt_Click(sender As Object, e As EventArgs) Handles 切換倉庫級別_bt.Click
        倉儲分區選擇.ShowDialog() : 指定倉庫_cb_下拉表單資料載入() : Set_清單() : 明細表_dgv.DataSource = Nothing
    End Sub
    Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click
        物料查詢 = False : 主頁_p.BringToFront()
    End Sub
    Private Sub 回次頁_bt_Click(sender As Object, e As EventArgs) Handles 回次頁_bt.Click
        If 頁面 = "1" Then : 主頁_p.BringToFront() : ElseIf 頁面 = "2" Then : 次頁_p.BringToFront() : Else : 主頁_p.BringToFront() : End If
    End Sub
    Private Sub 次項變形()
        For i As Integer = 1 To 21 : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = False : Next
        Dim SS As Integer
        If 群組分類_dgv.Rows.Count > 21 Then : SS = 21 : Else : SS = 群組分類_dgv.Rows.Count : End If
        For i As Integer = 1 To SS : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = True : Next
        Dim 轉檔 As Boolean
        For i As Integer = 0 To 群組分類_dgv.Rows.Count - 1
            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB_" & i + 1, True)(0), PictureBox)
            If IsDBNull(群組分類_dgv.Rows(i).Cells(2).Value) = True Then : 轉檔 = False : Else : 轉檔 = True : End If
            While 轉檔 = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(群組分類_dgv.Rows(i).Cells(2).Value, Byte())
                Dim oStream As New MemoryStream(bytes)
                選擇.Image = Bitmap.FromStream(oStream) : 轉檔 = False
            End While : conn.Close() : 選擇.SizeMode = 4
            Dim 選擇1 As System.Windows.Forms.TextBox = CType(Me.Controls.Find("TB_" & i + 1, True)(0), System.Windows.Forms.TextBox)
            選擇1.Text = 群組分類_dgv.Rows(i).Cells(1).Value.ToString
            '---------未做換頁計算---------------------------------------------
            群組碼(i + 1) = 群組分類_dgv.Rows(i).Cells(0).Value.ToString
        Next
    End Sub
    Private Sub 管材_bt_Click(sender As Object, e As EventArgs) Handles 管材_bt.Click
        頁面 = "1" : PA1 = "管材" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 電線_bt_Click(sender As Object, e As EventArgs) Handles 電線_bt.Click
        頁面 = "1" : PA1 = "電線" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 電料_bt_Click(sender As Object, e As EventArgs) Handles 電料_bt.Click
        頁面 = "1" : PA1 = "電料" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 槽架_bt_Click(sender As Object, e As EventArgs) Handles 槽架_bt.Click
        頁面 = "1" : PA1 = "槽架" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 建材_bt_Click(sender As Object, e As EventArgs) Handles 建材_bt.Click
        頁面 = "1" : PA1 = "建材" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 五金_bt_Click(sender As Object, e As EventArgs) Handles 五金_bt.Click
        頁面 = "1" : PA1 = "五金" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 設備_bt_Click(sender As Object, e As EventArgs) Handles 設備_bt.Click
        頁面 = "1" : PA1 = "設備" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 工具_bt_Click(sender As Object, e As EventArgs) Handles 工具_bt.Click
        頁面 = "1" : PA1 = "工具" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 日用_bt_Click(sender As Object, e As EventArgs) Handles 日用_bt.Click
        頁面 = "1" : PA1 = "日用" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 其他_bt_Click(sender As Object, e As EventArgs) Handles 其他_bt.Click
        頁面 = "1" : PA1 = "其他" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub PB_1_Click(sender As Object, e As EventArgs) Handles PB_1.Click
        頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_2_Click(sender As Object, e As EventArgs) Handles PB_2.Click
        頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_3_Click(sender As Object, e As EventArgs) Handles PB_3.Click
        頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_4_Click(sender As Object, e As EventArgs) Handles PB_4.Click
        頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_5_Click(sender As Object, e As EventArgs) Handles PB_5.Click
        頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_6_Click(sender As Object, e As EventArgs) Handles PB_6.Click
        頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_7_Click(sender As Object, e As EventArgs) Handles PB_7.Click
        頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_8_Click(sender As Object, e As EventArgs) Handles PB_8.Click
        頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_9_Click(sender As Object, e As EventArgs) Handles PB_9.Click
        頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_10_Click(sender As Object, e As EventArgs) Handles PB_10.Click
        頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_11_Click(sender As Object, e As EventArgs) Handles PB_11.Click
        頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_12_Click(sender As Object, e As EventArgs) Handles PB_12.Click
        頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_13_Click(sender As Object, e As EventArgs) Handles PB_13.Click
        頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_14_Click(sender As Object, e As EventArgs) Handles PB_14.Click
        頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_15_Click(sender As Object, e As EventArgs) Handles PB_15.Click
        頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_16_Click(sender As Object, e As EventArgs) Handles PB_16.Click
        頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_17_Click(sender As Object, e As EventArgs) Handles PB_17.Click
        頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_18_Click(sender As Object, e As EventArgs) Handles PB_18.Click
        頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_19_Click(sender As Object, e As EventArgs) Handles PB_19.Click
        頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_20_Click(sender As Object, e As EventArgs) Handles PB_20.Click
        頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_21_Click(sender As Object, e As EventArgs) Handles PB_21.Click
        頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_1_TextChanged(sender As Object, e As EventArgs) Handles TB_1.Click
        頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_2_TextChanged(sender As Object, e As EventArgs) Handles TB_2.Click
        頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_3_TextChanged(sender As Object, e As EventArgs) Handles TB_3.Click
        頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_4_TextChanged(sender As Object, e As EventArgs) Handles TB_4.Click
        頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_5_TextChanged(sender As Object, e As EventArgs) Handles TB_5.Click
        頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_6_TextChanged(sender As Object, e As EventArgs) Handles TB_6.Click
        頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_7_TextChanged(sender As Object, e As EventArgs) Handles TB_7.Click
        頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_8_TextChanged(sender As Object, e As EventArgs) Handles TB_8.Click
        頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_9_TextChanged(sender As Object, e As EventArgs) Handles TB_9.Click
        頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_10_TextChanged(sender As Object, e As EventArgs) Handles TB_10.Click
        頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_11_TextChanged(sender As Object, e As EventArgs) Handles TB_11.Click
        頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_12_TextChanged(sender As Object, e As EventArgs) Handles TB_12.Click
        頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_13_TextChanged(sender As Object, e As EventArgs) Handles TB_13.Click
        頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_14_TextChanged(sender As Object, e As EventArgs) Handles TB_14.Click
        頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_15_TextChanged(sender As Object, e As EventArgs) Handles TB_15.Click
        頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_16_TextChanged(sender As Object, e As EventArgs) Handles TB_16.Click
        頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_17_TextChanged(sender As Object, e As EventArgs) Handles TB_17.Click
        頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_18_TextChanged(sender As Object, e As EventArgs) Handles TB_18.Click
        頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_19_TextChanged(sender As Object, e As EventArgs) Handles TB_19.Click
        頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_20_TextChanged(sender As Object, e As EventArgs) Handles TB_20.Click
        頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_21_TextChanged(sender As Object, e As EventArgs) Handles TB_21.Click
        頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub

    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized
        AA1(xlApp, xlSheet)
        If 同級別全資料_ch.Checked = False Then
            xlSheet.Cells(2, 1) = 指定倉庫_cb.Text & " - " & 對話框(1)
        Else
            xlSheet.Cells(2, 1) = 倉儲倉級2 & " - " & 對話框(2)
        End If
        xlSheet.Cells(3, 1) = 表頭(48) : xlSheet.Cells(3, 2) = 表頭(76) : xlSheet.Cells(3, 3) = 表頭(12) : xlSheet.Cells(3, 4) = 表頭(13)
        xlSheet.Cells(3, 5) = 表頭(77) : xlSheet.Cells(3, 6) = 表頭(78) : xlSheet.Cells(3, 7) = 表頭(16)

        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            xlSheet.Cells(i + 4, 1) = 控制表_dgv.Rows(i).Cells("" & 表頭(48) & "").Value : xlSheet.Cells(i + 4, 2) = 控制表_dgv.Rows(i).Cells("" & 表頭(76) & "").Value
            xlSheet.Cells(i + 4, 3) = 控制表_dgv.Rows(i).Cells(表頭(12)).Value : xlSheet.Cells(i + 4, 4) = 控制表_dgv.Rows(i).Cells(表頭(13)).Value
            xlSheet.Cells(i + 4, 5) = 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : xlSheet.Cells(i + 4, 6) = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value
            xlSheet.Cells(i + 4, 7) = 控制表_dgv.Rows(i).Cells(表頭(16)).Value
            N1 = i + 4
        Next
        AA(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet)

        '-------------轉換成PDF---------------------------------------------------------------------
        Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\倉儲明細表.pdf", XlFixedFormatQuality.xlQualityStandard, True)
        '-------------關閉EXCEL---------------------------------------------------------------------
        xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select()
        xlApp.Application.WindowState = xlMinimized
        xlBook.Close(False)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
        '-------------開啟PDF---------------------------------------------------------------------
        Dim pdfFilePath As String = SERT & "\倉儲明細表.pdf"
        If IsChromeInstalled() Then
            Try
                Dim chromeProcess As New Process()
                chromeProcess.StartInfo.FileName = "chrome"
                chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """"
                chromeProcess.Start()
            Catch ex As Exception
            End Try
        Else
            Try
                System.Diagnostics.Process.Start("""" & pdfFilePath & """")
            Catch ex As Exception
            End Try
        End If
        MGB(對話框(3), 1)
    End Sub
    ' 檢查系統是否已安裝 Google Chrome
    Private Function IsChromeInstalled() As Boolean
        Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
        If key IsNot Nothing Then
            For Each subkeyName As String In key.GetSubKeyNames()
                Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName)
                Dim displayName As Object = subkey.GetValue("DisplayName")

                If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then
                    Return True
                End If
            Next
        End If
        Return False
    End Function
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 30
        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 30
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 40
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 60
        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 25
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12
        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 12
        xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30
        xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True
        xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter

        xlSheet.Rows("4:" & N1).Select : myExcel.Selection.RowHeight = 35
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Columns("B:B").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Columns("E:G").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("A2").Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Range("A2:G2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

        xlSheet.Range("A3:G" & N1).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

        myExcel.ActiveWindow.DisplayGridlines = False

        xlSheet.Range("A3:G3").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A3:G3").Select()
        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
    End Sub
    Private Sub AA1(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Columns("D:D").Select : myExcel.Selection.NumberFormatLocal = "@"
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 77
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(倉儲領料出庫.PictureBox1.Image)
        xlSheet.Range("B1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 75
        myExcel.Selection.ShapeRange.IncrementLeft(50)
        myExcel.Selection.ShapeRange.IncrementTop(2)
    End Sub
    Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =
            Str01 & "\HXBWLOG.png"
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$3" : .PrintTitleColumns = "" : End With
        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .LeftHeader = ""
            .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G"
            .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False : .PrintGridlines = False :  .CenterHorizontally = False : .CenterVertically = False : .Draft = False
            .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
        End With : myExcel.Application.PrintCommunication = True
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
        Set_清單()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control : TabPage1.BackColor = SystemColors.Control : TabPage2.BackColor = SystemColors.Control
            TabPage3.BackColor = SystemColors.Control : TabPage4.BackColor = SystemColors.Control : TabPage5.BackColor = SystemColors.Control
            Panel2.BackColor = SystemColors.Control

            關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black
            合約編號_lb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black
            Label1.ForeColor = Color.Black : Label10.ForeColor = Color.Black : Label11.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

            品名_lb.ForeColor = Color.Blue : 規格_lb.ForeColor = Color.Blue : Label2.ForeColor = Color.Blue : Label3.ForeColor = Color.Blue
            Label4.ForeColor = Color.Blue : Label5.ForeColor = Color.Blue : Label6.ForeColor = Color.Blue : Label7.ForeColor = Color.Blue
            Label8.ForeColor = Color.Blue : Label9.ForeColor = Color.Blue : 顯示單號_ch.ForeColor = Color.Blue
            顯示料號_ch.ForeColor = Color.Blue : 詳細資料2_ch.ForeColor = Color.Blue : 小間距1_ch.ForeColor = Color.Blue : 中間距1_ch.ForeColor = Color.Blue
            大間距1_ch.ForeColor = Color.Blue : 品名1_lb.ForeColor = Color.Blue : 規格1_lb.ForeColor = Color.Blue : Label2_1.ForeColor = Color.Blue
            Label3_1.ForeColor = Color.Blue : Label4_1.ForeColor = Color.Blue : Label5_1.ForeColor = Color.Blue : Label6_1.ForeColor = Color.Blue
            Label7_1.ForeColor = Color.Blue : Label8_1.ForeColor = Color.Blue : Label9_1.ForeColor = Color.Blue : 顯示單號1_ch.ForeColor = Color.Blue
            顯示料號1_ch.ForeColor = Color.Blue : 詳細資料1_ch.ForeColor = Color.Blue : 小間距2_ch.ForeColor = Color.Blue : 中間距2_ch.ForeColor = Color.Blue
            大間距2_ch.ForeColor = Color.Blue

            無誤料顯示2_lb.ForeColor = Color.Red : 無誤料顯示1_lb.ForeColor = Color.Red
            無誤料顯示2_lb.BackColor = Color.White : 無誤料顯示1_lb.BackColor = Color.White

            指定倉庫_lb.ForeColor = Color.Black : 同級別全資料_ch.ForeColor = Color.Black : 顯示單號3_ch.ForeColor = Color.Black
            無庫存全資料_ch.ForeColor = Color.Black : 顯示單號_ch.ForeColor = Color.Black

            品名_tb.BackColor = Color.White : 品名_tb.ForeColor = Color.Black : A1_tb.BackColor = Color.White : A1_tb.ForeColor = Color.Black
            A2_tb.BackColor = Color.White : A2_tb.ForeColor = Color.Black : A3_tb.BackColor = Color.White : A3_tb.ForeColor = Color.Black
            A4_tb.BackColor = Color.White : A4_tb.ForeColor = Color.Black : A5_tb.BackColor = Color.White : A5_tb.ForeColor = Color.Black
            A6_tb.BackColor = Color.White : A6_tb.ForeColor = Color.Black : A7_tb.BackColor = Color.White : A7_tb.ForeColor = Color.Black
            A8_tb.BackColor = Color.White : A8_tb.ForeColor = Color.Black : 指定倉庫_cb.BackColor = Color.White : 指定倉庫_cb.ForeColor = Color.Black
            跑馬燈_tb.BackColor = Color.White : 跑馬燈_tb.ForeColor = Color.Red
            品名1_tb.BackColor = Color.White : 品名1_tb.ForeColor = Color.Black : B1_tb.BackColor = Color.White : B1_tb.ForeColor = Color.Black
            B2_tb.BackColor = Color.White : B2_tb.ForeColor = Color.Black : B3_tb.BackColor = Color.White : B3_tb.ForeColor = Color.Black
            B4_tb.BackColor = Color.White : B4_tb.ForeColor = Color.Black : B5_tb.BackColor = Color.White : B5_tb.ForeColor = Color.Black
            B6_tb.BackColor = Color.White : B6_tb.ForeColor = Color.Black : B7_tb.BackColor = Color.White : B7_tb.ForeColor = Color.Black
            B8_tb.BackColor = Color.White : B8_tb.ForeColor = Color.Black : 料號1_tb.BackColor = Color.White : 料號1_tb.ForeColor = Color.Black
            品名2_tb.BackColor = Color.White : 品名2_tb.ForeColor = Color.Black
            TB_1.BackColor = Color.White : TB_1.ForeColor = Color.Black : TB_2.BackColor = Color.White : TB_2.ForeColor = Color.Black
            TB_3.BackColor = Color.White : TB_3.ForeColor = Color.Black : TB_4.BackColor = Color.White : TB_4.ForeColor = Color.Black
            TB_5.BackColor = Color.White : TB_5.ForeColor = Color.Black : TB_6.BackColor = Color.White : TB_6.ForeColor = Color.Black
            TB_7.BackColor = Color.White : TB_7.ForeColor = Color.Black : TB_8.BackColor = Color.White : TB_8.ForeColor = Color.Black
            TB_9.BackColor = Color.White : TB_9.ForeColor = Color.Black : TB_10.BackColor = Color.White : TB_10.ForeColor = Color.Black
            TB_11.BackColor = Color.White : TB_11.ForeColor = Color.Black : TB_12.BackColor = Color.White : TB_12.ForeColor = Color.Black
            TB_13.BackColor = Color.White : TB_13.ForeColor = Color.Black : TB_14.BackColor = Color.White : TB_14.ForeColor = Color.Black
            TB_15.BackColor = Color.White : TB_15.ForeColor = Color.Black : TB_16.BackColor = Color.White : TB_16.ForeColor = Color.Black
            TB_17.BackColor = Color.White : TB_17.ForeColor = Color.Black : TB_18.BackColor = Color.White : TB_18.ForeColor = Color.Black
            TB_19.BackColor = Color.White : TB_19.ForeColor = Color.Black : TB_20.BackColor = Color.White : TB_20.ForeColor = Color.Black
            TB_21.BackColor = Color.White : TB_21.ForeColor = Color.Black

            PB_1.BackColor = Color.White : PB_2.BackColor = Color.White : PB_3.BackColor = Color.White : PB_4.BackColor = Color.White : PB_5.BackColor = Color.White
            PB_6.BackColor = Color.White : PB_7.BackColor = Color.White : PB_8.BackColor = Color.White : PB_9.BackColor = Color.White : PB_10.BackColor = Color.White
            PB_11.BackColor = Color.White : PB_12.BackColor = Color.White : PB_13.BackColor = Color.White : PB_14.BackColor = Color.White : PB_15.BackColor = Color.White
            PB_16.BackColor = Color.White : PB_17.BackColor = Color.White : PB_18.BackColor = Color.White : PB_19.BackColor = Color.White : PB_20.BackColor = Color.White
            PB_21.BackColor = Color.White

            切換倉庫級別_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
            縮放2_bt.BackColor = Color.White : 縮放2_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

            控制表_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
            明細表_dgv.EnableHeadersVisualStyles = True : 明細表_dgv.BackgroundColor = Color.White : 明細表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            明細表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            明細表_dgv.DefaultCellStyle.BackColor = Color.White : 明細表_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約_dgv.EnableHeadersVisualStyles = True : 合約_dgv.BackgroundColor = Color.White : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            合約_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
            明細表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
            物料清單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
            物料規格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
            合約物料_dgv.EnableHeadersVisualStyles = True : 合約物料_dgv.BackgroundColor = Color.White : 合約物料_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約物料_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            合約物料_dgv.DefaultCellStyle.BackColor = Color.White : 合約物料_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
            料號_dgv.EnableHeadersVisualStyles = True : 料號_dgv.BackgroundColor = Color.White : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            料號_dgv.DefaultCellStyle.BackColor = Color.White : 料號_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : TabPage1.BackColor = Color.Black : TabPage2.BackColor = Color.Black
            TabPage3.BackColor = Color.Black : TabPage4.BackColor = Color.Black : TabPage5.BackColor = Color.Black
            Panel2.BackColor = Color.Black

            關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black
            合約編號_lb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black
            Label1.ForeColor = Color.White : Label10.ForeColor = Color.White : Label11.ForeColor = Color.White
            入庫_tb.BackColor = Color.White : 入庫_tb.ForeColor = Color.Black
            出庫_tb.BackColor = Color.White : 出庫_tb.ForeColor = Color.Black : 庫存_tb.BackColor = Color.White : 庫存_tb.ForeColor = Color.Black

            品名_lb.ForeColor = Color.LightBlue : 規格_lb.ForeColor = Color.LightBlue : Label2.ForeColor = Color.LightBlue : Label3.ForeColor = Color.LightBlue
            Label4.ForeColor = Color.LightBlue : Label5.ForeColor = Color.LightBlue : Label6.ForeColor = Color.LightBlue : Label7.ForeColor = Color.LightBlue
            Label8.ForeColor = Color.LightBlue : Label9.ForeColor = Color.LightBlue : 顯示單號_ch.ForeColor = Color.LightBlue
            顯示料號_ch.ForeColor = Color.LightBlue : 詳細資料2_ch.ForeColor = Color.LightBlue : 小間距1_ch.ForeColor = Color.LightBlue : 中間距1_ch.ForeColor = Color.LightBlue
            大間距1_ch.ForeColor = Color.LightBlue : 品名1_lb.ForeColor = Color.LightBlue : 規格1_lb.ForeColor = Color.LightBlue : Label2_1.ForeColor = Color.LightBlue
            Label3_1.ForeColor = Color.LightBlue : Label4_1.ForeColor = Color.LightBlue : Label5_1.ForeColor = Color.LightBlue : Label6_1.ForeColor = Color.LightBlue
            Label7_1.ForeColor = Color.LightBlue : Label8_1.ForeColor = Color.LightBlue : Label9_1.ForeColor = Color.LightBlue : 顯示單號1_ch.ForeColor = Color.LightBlue
            顯示料號1_ch.ForeColor = Color.LightBlue : 詳細資料1_ch.ForeColor = Color.LightBlue : 小間距2_ch.ForeColor = Color.LightBlue : 中間距2_ch.ForeColor = Color.LightBlue
            大間距2_ch.ForeColor = Color.LightBlue

            無誤料顯示2_lb.ForeColor = Color.LightPink : 無誤料顯示1_lb.ForeColor = Color.LightPink
            無誤料顯示2_lb.BackColor = Color.DimGray : 無誤料顯示1_lb.BackColor = Color.DimGray

            指定倉庫_lb.ForeColor = Color.White : 同級別全資料_ch.ForeColor = Color.White : 顯示單號3_ch.ForeColor = Color.White
            無庫存全資料_ch.ForeColor = Color.White : 顯示單號_ch.ForeColor = Color.White

            品名_tb.BackColor = Color.DimGray : 品名_tb.ForeColor = Color.White : A1_tb.BackColor = Color.DimGray : A1_tb.ForeColor = Color.White
            A2_tb.BackColor = Color.DimGray : A2_tb.ForeColor = Color.White : A3_tb.BackColor = Color.DimGray : A3_tb.ForeColor = Color.White
            A4_tb.BackColor = Color.DimGray : A4_tb.ForeColor = Color.White : A5_tb.BackColor = Color.DimGray : A5_tb.ForeColor = Color.White
            A6_tb.BackColor = Color.DimGray : A6_tb.ForeColor = Color.White : A7_tb.BackColor = Color.DimGray : A7_tb.ForeColor = Color.White
            A8_tb.BackColor = Color.DimGray : A8_tb.ForeColor = Color.White : 指定倉庫_cb.BackColor = Color.DimGray : 指定倉庫_cb.ForeColor = Color.White

            跑馬燈_tb.BackColor = Color.DimGray : 跑馬燈_tb.ForeColor = Color.LightPink
            品名1_tb.BackColor = Color.DimGray : 品名1_tb.ForeColor = Color.White : B1_tb.BackColor = Color.DimGray : B1_tb.ForeColor = Color.White
            B2_tb.BackColor = Color.DimGray : B2_tb.ForeColor = Color.White : B3_tb.BackColor = Color.DimGray : B3_tb.ForeColor = Color.White
            B4_tb.BackColor = Color.DimGray : B4_tb.ForeColor = Color.White : B5_tb.BackColor = Color.DimGray : B5_tb.ForeColor = Color.White
            B6_tb.BackColor = Color.DimGray : B6_tb.ForeColor = Color.White : B7_tb.BackColor = Color.DimGray : B7_tb.ForeColor = Color.White
            B8_tb.BackColor = Color.DimGray : B8_tb.ForeColor = Color.White : 料號1_tb.BackColor = Color.Black : 料號1_tb.ForeColor = Color.White
            品名2_tb.BackColor = Color.Black : 品名2_tb.ForeColor = Color.White
            TB_1.BackColor = Color.Black : TB_1.ForeColor = Color.White : TB_2.BackColor = Color.Black : TB_2.ForeColor = Color.White
            TB_3.BackColor = Color.Black : TB_3.ForeColor = Color.White : TB_4.BackColor = Color.Black : TB_4.ForeColor = Color.White
            TB_5.BackColor = Color.Black : TB_5.ForeColor = Color.White : TB_6.BackColor = Color.Black : TB_6.ForeColor = Color.White
            TB_7.BackColor = Color.Black : TB_7.ForeColor = Color.White : TB_8.BackColor = Color.Black : TB_8.ForeColor = Color.White
            TB_9.BackColor = Color.Black : TB_9.ForeColor = Color.White : TB_10.BackColor = Color.Black : TB_10.ForeColor = Color.White
            TB_11.BackColor = Color.Black : TB_11.ForeColor = Color.White : TB_12.BackColor = Color.Black : TB_12.ForeColor = Color.White
            TB_13.BackColor = Color.Black : TB_13.ForeColor = Color.White : TB_14.BackColor = Color.Black : TB_14.ForeColor = Color.White
            TB_15.BackColor = Color.Black : TB_15.ForeColor = Color.White : TB_16.BackColor = Color.Black : TB_16.ForeColor = Color.White
            TB_17.BackColor = Color.Black : TB_17.ForeColor = Color.White : TB_18.BackColor = Color.Black : TB_18.ForeColor = Color.White
            TB_19.BackColor = Color.Black : TB_19.ForeColor = Color.White : TB_20.BackColor = Color.Black : TB_20.ForeColor = Color.White
            TB_21.BackColor = Color.Black : TB_21.ForeColor = Color.White

            PB_1.BackColor = Color.DimGray : PB_2.BackColor = Color.DimGray : PB_3.BackColor = Color.DimGray : PB_4.BackColor = Color.DimGray : PB_5.BackColor = Color.DimGray
            PB_6.BackColor = Color.DimGray : PB_7.BackColor = Color.DimGray : PB_8.BackColor = Color.DimGray : PB_9.BackColor = Color.DimGray : PB_10.BackColor = Color.DimGray
            PB_11.BackColor = Color.DimGray : PB_12.BackColor = Color.DimGray : PB_13.BackColor = Color.DimGray : PB_14.BackColor = Color.DimGray : PB_15.BackColor = Color.DimGray
            PB_16.BackColor = Color.DimGray : PB_17.BackColor = Color.DimGray : PB_18.BackColor = Color.DimGray : PB_19.BackColor = Color.DimGray : PB_20.BackColor = Color.DimGray
            PB_21.BackColor = Color.DimGray

            切換倉庫級別_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
            縮放2_bt.BackColor = Color.DimGray : 縮放2_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

            控制表_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
            明細表_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
            合約_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
            明細表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
            物料清單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
            物料規格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
            合約物料_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
            明細表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
            料號_dgv.EnableHeadersVisualStyles = False : 料號_dgv.BackgroundColor = Color.DimGray : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            料號_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            料號_dgv.DefaultCellStyle.BackColor = Color.Black : 料號_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class