GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/03、倉儲管理系統/物料資料庫.vb

Option Strict Off
Imports System.Net
Imports System.IO
Public Class 物料資料庫
    Public Property Credentials As ICredentials
    ReadOnly ds12 As New DataSet
    Dim EDR As Integer = 0
    Dim ESTR, KKK1, KKK2, KKK3, KKK4 As String
    ReadOnly 對話框(22) As String : Dim 群組碼(4), 原則說明異動 As String
    Dim 是否有資料 As Boolean
    Private Sub Set_物料群組()
        Dim ds5, ds6, ds7, ds8, ds9, ds14 As New DataSet
        物料群組_dgv.DataSource = Nothing : ds5.Clear() : 群組碼1_dgv.DataSource = Nothing : ds7.Clear()
        群組碼2_dgv.DataSource = Nothing : ds8.Clear() : 群組碼3_dgv.DataSource = Nothing : ds9.Clear()
        群組碼4_dgv.DataSource = Nothing : ds14.Clear() : 群組碼5_dgv.DataSource = Nothing : ds6.Clear()
        物料群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組碼1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組碼2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組碼3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組碼4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組碼5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_dgv.ColumnHeadersHeight = 25 : 群組碼1_dgv.ColumnHeadersHeight = 25 : 群組碼2_dgv.ColumnHeadersHeight = 25 : 群組碼3_dgv.ColumnHeadersHeight = 25
        群組碼4_dgv.ColumnHeadersHeight = 25 : 群組碼5_dgv.ColumnHeadersHeight = 25
        物料群組_dgv.AllowUserToAddRows = False : 群組碼1_dgv.AllowUserToAddRows = False : 群組碼2_dgv.AllowUserToAddRows = False : 群組碼3_dgv.AllowUserToAddRows = False
        群組碼4_dgv.AllowUserToAddRows = False : 群組碼5_dgv.AllowUserToAddRows = False

        SQL_物料資料庫_群組碼清單()

        da.Fill(ds5) : 物料群組_dgv.DataSource = ds5.Tables(0) : conn.Close() : da.Fill(ds8) : 群組碼2_dgv.DataSource = ds8.Tables(0) : conn.Close()
        da.Fill(ds7) : 群組碼1_dgv.DataSource = ds7.Tables(0) : conn.Close() : da.Fill(ds9) : 群組碼3_dgv.DataSource = ds9.Tables(0) : conn.Close()
        da.Fill(ds14) : 群組碼4_dgv.DataSource = ds14.Tables(0) : conn.Close() : da.Fill(ds6) : 群組碼5_dgv.DataSource = ds6.Tables(0) : conn.Close()

        物料群組_dgv.Columns(0).ReadOnly = True : 群組碼1_dgv.Columns(0).ReadOnly = True : 群組碼2_dgv.Columns(0).ReadOnly = True : 群組碼3_dgv.Columns(0).ReadOnly = True
        群組碼4_dgv.Columns(0).ReadOnly = True : 群組碼5_dgv.Columns(0).ReadOnly = True
    End Sub
    Private Sub Set_物料群組_語轉()
        Dim ds5, ds6, ds7, ds8, ds9, ds14 As New DataSet
        物料群組_語言_dgv.DataSource = Nothing : ds5.Clear() : 物料群組_語言1_dgv.DataSource = Nothing : ds7.Clear()
        物料群組_語言2_dgv.DataSource = Nothing : ds8.Clear() : 物料群組_語言3_dgv.DataSource = Nothing : ds9.Clear()
        物料群組_語言4_dgv.DataSource = Nothing : ds14.Clear() : 物料群組_語言5_dgv.DataSource = Nothing : ds6.Clear()
        物料群組_語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料群組_語言_dgv.ColumnHeadersHeight = 25 : 物料群組_語言1_dgv.ColumnHeadersHeight = 25 : 物料群組_語言2_dgv.ColumnHeadersHeight = 25 : 物料群組_語言3_dgv.ColumnHeadersHeight = 25
        物料群組_語言4_dgv.ColumnHeadersHeight = 25 : 物料群組_語言5_dgv.ColumnHeadersHeight = 25
        物料群組_語言_dgv.AllowUserToAddRows = False : 物料群組_語言1_dgv.AllowUserToAddRows = False : 物料群組_語言2_dgv.AllowUserToAddRows = False : 物料群組_語言3_dgv.AllowUserToAddRows = False
        物料群組_語言4_dgv.AllowUserToAddRows = False : 物料群組_語言5_dgv.AllowUserToAddRows = False

        SQL_物料資料庫_群組碼清單_含語言()
        da.Fill(ds5) : 物料群組_語言_dgv.DataSource = ds5.Tables(0) : conn.Close() : da.Fill(ds8) : 物料群組_語言2_dgv.DataSource = ds8.Tables(0) : conn.Close()
        da.Fill(ds7) : 物料群組_語言1_dgv.DataSource = ds7.Tables(0) : conn.Close() : da.Fill(ds9) : 物料群組_語言3_dgv.DataSource = ds9.Tables(0) : conn.Close()
        da.Fill(ds14) : 物料群組_語言4_dgv.DataSource = ds14.Tables(0) : conn.Close() : da.Fill(ds6) : 物料群組_語言5_dgv.DataSource = ds6.Tables(0) : conn.Close()
        物料群組_語言_dgv.Columns(0).Visible = False : 物料群組_語言_dgv.Columns(1).ReadOnly = True
        物料群組_語言1_dgv.Columns(0).Visible = False : 物料群組_語言1_dgv.Columns(1).ReadOnly = True
        物料群組_語言2_dgv.Columns(0).Visible = False : 物料群組_語言2_dgv.Columns(1).ReadOnly = True
        物料群組_語言3_dgv.Columns(0).Visible = False : 物料群組_語言3_dgv.Columns(1).ReadOnly = True
        物料群組_語言4_dgv.Columns(0).Visible = False : 物料群組_語言4_dgv.Columns(1).ReadOnly = True
        物料群組_語言5_dgv.Columns(0).Visible = False : 物料群組_語言5_dgv.Columns(1).ReadOnly = True
    End Sub
    Private Sub Set_比對1()
        Dim ds16 As New DataSet : 比對1_dgv.DataSource = Nothing : ds16.Clear()
        比對1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        比對1_dgv.ColumnHeadersHeight = 25 : 比對1_dgv.AllowUserToAddRows = False
        比對1_dgv.RowTemplate.Height = 25
        SQL_比對1()
        da.Fill(ds16) : 比對1_dgv.DataSource = ds16.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_比對2()
        Dim ds17 As New DataSet : 比對2_dgv.DataSource = Nothing : ds17.Clear()
        比對2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        比對2_dgv.ColumnHeadersHeight = 25 : 比對2_dgv.AllowUserToAddRows = False
        比對2_dgv.RowTemplate.Height = 25
        SQL_比對2()
        da.Fill(ds17) : 比對2_dgv.DataSource = ds17.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_比對3()
        Dim ds18 As New DataSet : 比對3_dgv.DataSource = Nothing : ds18.Clear()
        比對3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        比對3_dgv.ColumnHeadersHeight = 25 : 比對3_dgv.AllowUserToAddRows = False
        比對3_dgv.RowTemplate.Height = 25
        SQL_比對3()
        da.Fill(ds18) : 比對3_dgv.DataSource = ds18.Tables(0) : conn.Close()
        比對3_dgv.Columns(2).FillWeight = 250
    End Sub
    Private Sub Set_比對4()
        Dim ds18 As New DataSet : 比對4_dgv.DataSource = Nothing : ds18.Clear()
        比對4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        比對4_dgv.ColumnHeadersHeight = 25 : 比對4_dgv.AllowUserToAddRows = False
        比對4_dgv.RowTemplate.Height = 25
        SQL_比對4()
        da.Fill(ds18) : 比對4_dgv.DataSource = ds18.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_比對5()
        Dim ds18 As New DataSet : 比對5_dgv.DataSource = Nothing : ds18.Clear()
        比對5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        比對5_dgv.ColumnHeadersHeight = 25 : 比對5_dgv.AllowUserToAddRows = False
        比對5_dgv.RowTemplate.Height = 25
        SQL_比對5()
        da.Fill(ds18) : 比對5_dgv.DataSource = ds18.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單1()
        Dim ds4 As New DataSet : 物料編碼_dgv.DataSource = Nothing : ds4.Clear()
        物料編碼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料編碼_dgv.ColumnHeadersHeight = 25
        物料編碼_dgv.AllowUserToAddRows = False

        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
            物料編碼_dgv.RowTemplate.Height = 95
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
            物料編碼_dgv.RowTemplate.Height = 75
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
            物料編碼_dgv.RowTemplate.Height = 55
        End If

        PA = 群組碼1_tb.Text : SQL_物料資料庫_物料編碼庫()

        da.Fill(ds4) : 物料編碼_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料編碼_dgv.Columns(0).FillWeight = 50 : 物料編碼_dgv.Columns(1).FillWeight = 148 : 物料編碼_dgv.Columns(2).FillWeight = 450 : 物料編碼_dgv.Columns(7).Visible = False
        物料編碼_dgv.Columns(3).FillWeight = 50 : 物料編碼_dgv.Columns(4).FillWeight = 50 : 物料編碼_dgv.Columns(5).FillWeight = 100 : 物料編碼_dgv.Columns(6).FillWeight = 100

        物料編碼_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        物料編碼_dgv.Columns(0).ReadOnly = True : 物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True
        物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(5).ReadOnly = True
        物料編碼_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        Dim mycol As DataGridViewImageColumn = 物料編碼_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
            物料編碼_dgv(0, i).Value = i + 1 : 物料編碼_dgv(4, i).Value = False
        Next
        BL1 = False
        Set_清單1_語轉()
    End Sub
    Private Sub Set_清單1_語轉()
        Dim ds4 As New DataSet : 物料品名_語轉_dgv.DataSource = Nothing : ds4.Clear()
        物料品名_語轉_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料品名_語轉_dgv.ColumnHeadersHeight = 25
        物料品名_語轉_dgv.AllowUserToAddRows = False
        物料品名_語轉_dgv.RowTemplate.Height = 25

        PA = 群組碼1_tb.Text : SQL_物料資料庫_物料編碼庫_語轉()

        da.Fill(ds4) : 物料品名_語轉_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料品名_語轉_dgv.Columns(0).Visible = False : 物料品名_語轉_dgv.Columns(1).FillWeight = 150
        物料品名_語轉_dgv.Columns(2).FillWeight = 100 : 物料品名_語轉_dgv.Columns(3).FillWeight = 450

        物料品名_語轉_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        物料品名_語轉_dgv.Columns(0).ReadOnly = True : 物料品名_語轉_dgv.Columns(1).ReadOnly = True : 物料品名_語轉_dgv.Columns(2).ReadOnly = True
        物料品名_語轉_dgv.Columns(3).ReadOnly = True
    End Sub
    Private Sub Set_物料規格庫()
        Dim ds3 As New DataSet : 規格表頭_dgv.DataSource = Nothing : ds3.Clear()
        規格表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        規格表頭_dgv.ColumnHeadersHeight = 25 : 規格表頭_dgv.AllowUserToAddRows = False

        SQL_規格庫抬頭讀取三()

        da.Fill(ds3) : 規格表頭_dgv.DataSource = ds3.Tables(0) : conn.Close()
        規格表頭_dgv.Columns(0).FillWeight = 90 : 規格表頭_dgv.Columns(1).FillWeight = 143.75 : 規格表頭_dgv.Columns(2).FillWeight = 143.75 : 規格表頭_dgv.Columns(3).FillWeight = 143.75
        規格表頭_dgv.Columns(4).FillWeight = 143.75 : 規格表頭_dgv.Columns(5).FillWeight = 143.75 : 規格表頭_dgv.Columns(6).FillWeight = 143.75 : 規格表頭_dgv.Columns(7).FillWeight = 143.75
        規格表頭_dgv.Columns(8).FillWeight = 143.75 : 規格表頭_dgv.Columns(9).FillWeight = 100

        規格表頭_dgv.Columns(0).ReadOnly = True : 規格表頭_dgv.Columns(1).ReadOnly = True : 規格表頭_dgv.Columns(2).ReadOnly = True
        規格表頭_dgv.Columns(3).ReadOnly = True : 規格表頭_dgv.Columns(4).ReadOnly = True : 規格表頭_dgv.Columns(5).ReadOnly = True
        規格表頭_dgv.Columns(6).ReadOnly = True : 規格表頭_dgv.Columns(7).ReadOnly = True : 規格表頭_dgv.Columns(8).ReadOnly = True
    End Sub
    Private Sub 物料資訊控制表()
        Dim ds13 As New DataSet : 物料資訊_dgv.DataSource = Nothing : ds13.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 = 55
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then
            物料資訊_dgv.RowTemplate.Height = 40
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then
            物料資訊_dgv.RowTemplate.Height = 25
        End If

        PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = ""

        da.Fill(ds13) : 物料資訊_dgv.DataSource = ds13.Tables(0) : conn.Close()
        物料資訊_dgv.Columns(0).Visible = False : 物料資訊_dgv.Columns(1).FillWeight = 80 : 物料資訊_dgv.Columns(2).FillWeight = 166
        物料資訊_dgv.Columns(3).FillWeight = 60 : 物料資訊_dgv.Columns(4).FillWeight = 60 : 物料資訊_dgv.Columns(7).FillWeight = 60
        物料資訊_dgv.Columns(5).Visible = False : 物料資訊_dgv.Columns(6).Visible = False
        物料資訊_dgv.Columns(0).ReadOnly = True : 物料資訊_dgv.Columns(1).ReadOnly = True : 物料資訊_dgv.Columns(2).ReadOnly = True
        物料資訊_dgv.Columns(3).ReadOnly = True : 物料資訊_dgv.Columns(4).ReadOnly = True : 物料資訊_dgv.Columns(5).ReadOnly = True

        Dim mycol As DataGridViewImageColumn = 物料資訊_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 物料資訊控制表1()
        Dim ds2 As New DataSet : 物料資訊1_dgv.DataSource = Nothing : ds2.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 = 55
        ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = True And 大間距2_ch.Checked = False Then
            物料資訊1_dgv.RowTemplate.Height = 40
        ElseIf 小間距2_ch.Checked = True And 中間距2_ch.Checked = False And 大間距2_ch.Checked = False Then
            物料資訊1_dgv.RowTemplate.Height = 25
        End If

        PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = ""

        da.Fill(ds2) : 物料資訊1_dgv.DataSource = ds2.Tables(0) : conn.Close()
        物料資訊1_dgv.Columns(0).Visible = False : 物料資訊1_dgv.Columns(1).FillWeight = 80 : 物料資訊1_dgv.Columns(2).FillWeight = 166
        物料資訊1_dgv.Columns(3).FillWeight = 60 : 物料資訊1_dgv.Columns(4).FillWeight = 60 : 物料資訊1_dgv.Columns(7).FillWeight = 60
        物料資訊1_dgv.Columns(5).Visible = False : 物料資訊1_dgv.Columns(6).Visible = False
        物料資訊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

        Dim mycol As DataGridViewImageColumn = 物料資訊1_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 物料資訊控制表2()
        Dim ds6 As New DataSet : 物料資訊2_dgv.DataSource = Nothing : ds6.Clear()
        物料資訊2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料資訊2_dgv.ColumnHeadersHeight = 25
        物料資訊2_dgv.AllowUserToAddRows = False

        If 小間距3_ch.Checked = False And 中間距3_ch.Checked = False And 大間距3_ch.Checked = True Then
            物料資訊2_dgv.RowTemplate.Height = 55
        ElseIf 小間距3_ch.Checked = False And 中間距3_ch.Checked = True And 大間距3_ch.Checked = False Then
            物料資訊2_dgv.RowTemplate.Height = 40
        ElseIf 小間距3_ch.Checked = True And 中間距3_ch.Checked = False And 大間距3_ch.Checked = False Then
            物料資訊2_dgv.RowTemplate.Height = 25
        End If

        PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = ""

        da.Fill(ds6) : 物料資訊2_dgv.DataSource = ds6.Tables(0) : conn.Close()
        物料資訊2_dgv.Columns(0).Visible = False : 物料資訊2_dgv.Columns(1).FillWeight = 80 : 物料資訊2_dgv.Columns(2).FillWeight = 166
        物料資訊2_dgv.Columns(3).FillWeight = 60 : 物料資訊2_dgv.Columns(4).FillWeight = 60 : 物料資訊2_dgv.Columns(7).FillWeight = 60
        物料資訊2_dgv.Columns(5).Visible = False : 物料資訊2_dgv.Columns(6).Visible = False
        物料資訊2_dgv.Columns(0).ReadOnly = True : 物料資訊2_dgv.Columns(1).ReadOnly = True : 物料資訊2_dgv.Columns(2).ReadOnly = True
        物料資訊2_dgv.Columns(3).ReadOnly = True : 物料資訊2_dgv.Columns(4).ReadOnly = True : 物料資訊2_dgv.Columns(5).ReadOnly = True

        Dim mycol As DataGridViewImageColumn = 物料資訊2_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 物料資訊控制表3()
        Dim ds15 As New DataSet : 物料資訊3_dgv.DataSource = Nothing : ds15.Clear()
        物料資訊3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料資訊3_dgv.ColumnHeadersHeight = 25
        物料資訊3_dgv.AllowUserToAddRows = False

        If 小間距4_ch.Checked = False And 中間距4_ch.Checked = False And 大間距4_ch.Checked = True Then
            物料資訊3_dgv.RowTemplate.Height = 55
        ElseIf 小間距4_ch.Checked = False And 中間距4_ch.Checked = True And 大間距4_ch.Checked = False Then
            物料資訊3_dgv.RowTemplate.Height = 40
        ElseIf 小間距4_ch.Checked = True And 中間距4_ch.Checked = False And 大間距4_ch.Checked = False Then
            物料資訊3_dgv.RowTemplate.Height = 25
        End If

        PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = ""

        da.Fill(ds15) : 物料資訊3_dgv.DataSource = ds15.Tables(0) : conn.Close()
        物料資訊3_dgv.Columns(0).Visible = False : 物料資訊3_dgv.Columns(1).FillWeight = 80 : 物料資訊3_dgv.Columns(2).FillWeight = 166
        物料資訊3_dgv.Columns(3).FillWeight = 60 : 物料資訊3_dgv.Columns(4).FillWeight = 60 : 物料資訊3_dgv.Columns(7).FillWeight = 60
        物料資訊3_dgv.Columns(5).FillWeight = 40 : 物料資訊3_dgv.Columns(6).FillWeight = 80
        物料資訊3_dgv.Columns(0).ReadOnly = True : 物料資訊3_dgv.Columns(1).ReadOnly = True : 物料資訊3_dgv.Columns(2).ReadOnly = True
        物料資訊3_dgv.Columns(3).ReadOnly = True : 物料資訊3_dgv.Columns(4).ReadOnly = True : 物料資訊3_dgv.Columns(5).ReadOnly = True

        Dim mycol As DataGridViewImageColumn = 物料資訊3_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 物料資訊控制表4()
        Dim ds15 As New DataSet : 物料資訊4_dgv.DataSource = Nothing : ds15.Clear()
        物料資訊4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料資訊4_dgv.ColumnHeadersHeight = 25
        物料資訊4_dgv.AllowUserToAddRows = False

        If 小間距5_ch.Checked = False And 中間距5_ch.Checked = False And 大間距5_ch.Checked = True Then
            物料資訊4_dgv.RowTemplate.Height = 55
        ElseIf 小間距5_ch.Checked = False And 中間距5_ch.Checked = True And 大間距5_ch.Checked = False Then
            物料資訊4_dgv.RowTemplate.Height = 40
        ElseIf 小間距5_ch.Checked = True And 中間距5_ch.Checked = False And 大間距5_ch.Checked = False Then
            物料資訊4_dgv.RowTemplate.Height = 25
        End If

        PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = ""

        da.Fill(ds15) : 物料資訊4_dgv.DataSource = ds15.Tables(0) : conn.Close()
        物料資訊4_dgv.Columns(0).Visible = False : 物料資訊4_dgv.Columns(1).FillWeight = 80 : 物料資訊4_dgv.Columns(2).FillWeight = 166
        物料資訊4_dgv.Columns(3).FillWeight = 60 : 物料資訊4_dgv.Columns(4).FillWeight = 60 : 物料資訊4_dgv.Columns(7).FillWeight = 60
        物料資訊4_dgv.Columns(5).FillWeight = 40 : 物料資訊4_dgv.Columns(6).FillWeight = 80
        物料資訊4_dgv.Columns(0).ReadOnly = True : 物料資訊4_dgv.Columns(1).ReadOnly = True : 物料資訊4_dgv.Columns(2).ReadOnly = True
        物料資訊4_dgv.Columns(3).ReadOnly = True : 物料資訊4_dgv.Columns(4).ReadOnly = True : 物料資訊4_dgv.Columns(5).ReadOnly = True

        Dim mycol As DataGridViewImageColumn = 物料資訊4_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub Set_物料資訊控制表未新增()
        Dim ds10 As New DataSet : 未指定表頭_dgv.DataSource = Nothing : ds10.Clear()
        未指定表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        未指定表頭_dgv.ColumnHeadersHeight = 25
        未指定表頭_dgv.AllowUserToAddRows = False

        SQL_物料資料庫_物料資訊控制表未新增()

        da.Fill(ds10) : 未指定表頭_dgv.DataSource = ds10.Tables(0) : conn.Close()
        未指定表頭_dgv.Columns(0).FillWeight = 150 : 未指定表頭_dgv.Columns(1).FillWeight = 150 : 未指定表頭_dgv.Columns(2).FillWeight = 450
        未指定表頭_dgv.Columns(3).Visible = False : 未指定表頭_dgv.Columns(4).Visible = False

        未指定表頭_dgv.Columns(0).ReadOnly = True : 未指定表頭_dgv.Columns(1).ReadOnly = True : 未指定表頭_dgv.Columns(2).ReadOnly = True
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds12.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "物料資料庫" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料檔案說明_tp" Then : 物料檔案說明_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料群組_物料編碼_物料圖片_控制_tp" Then : 物料群組_物料編碼_物料圖片_控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫表頭_物料規格_資訊_控制_tp" Then : 規格庫表頭_物料規格_資訊_控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料規格批量複製_tp" Then : 物料規格批量複製_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料檔案快速拷貝_tp" Then : 物料檔案快速拷貝_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "報價用規格呈現控制_tp" Then : 報價用規格呈現控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼7_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼8_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼9_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則2_lb" Then : 物料原則2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則2_lb" Then : 物料原則3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "檔案名稱_lb" Then : 檔案名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改清單資料後存檔_bt" Then : 修改清單資料後存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "流水號_lb" Then : 流水號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "流水號_lb" Then : 流水號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "資料複製_bt" Then : 資料複製_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "資料複製_bt" Then : 資料複製1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格_lb" Then : 規格_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "自動取得流水號_bt" Then : 自動取得流水號_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "料號修改_bt" Then : 料號修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "料號修改存檔_bt" Then : 料號修改存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "改料號原則_ch" Then : 改料號原則_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇2_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消2_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "批量選擇_ch" Then : 批量選擇_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "讀取無圖片資料_bt" Then : 讀取無圖片資料_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "說明1_ld" Then : 說明1_ld.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "舊群組_lb" Then : 舊群組_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新群組_lb" Then : 新群組_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "群組轉換_bt" Then : 群組轉換_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "PC_lb" Then : PC_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "圖檔編號_lb" Then : 圖檔編號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "圖檔編號_lb" Then : 圖檔編號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "說明2_lb" Then : 說明2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格庫表頭_lb" Then : 規格庫表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "說明3_lb" Then : 說明3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新的表頭_lb" Then : 新的表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "舊的表頭_lb" Then : 舊的表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料規格表_lb" Then : 物料規格表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "舊的資料_gb" Then : 舊的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新的資料_gb" Then : 新的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "不變的資料_gb" Then : 不變的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "單位_lb" Then : 單位_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_項次" Then : 表頭(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_群組碼" Then : 表頭(62) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號原則" Then : 表頭(63) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_原則說明" Then : 表頭(64) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最低庫存" Then : 表頭(65) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最高庫存" Then : 表頭(66) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_指定" Then : 表頭(67) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框14" Then : 對話框(13) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框15" Then : 對話框(14) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框16" Then : 對話框(15) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框17" Then : 對話框(16) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框18" Then : 對話框(17) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框19" Then : 對話框(18) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框20" Then : 對話框(19) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框21" Then : 對話框(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框22" Then : 對話框(21) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框23" Then : 對話框(22) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "批量刪除_bt" Then : 批量刪除_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 規格庫抬頭指定_cb_下拉表單資料載入()
        SQL_物料資訊控制表_規格庫抬頭指定() : 規格庫抬頭指定_cb.Items.Clear() : 規格庫抬頭指定1_cb.Items.Clear() : 規格庫抬頭指定2_cb.Items.Clear()
        規格庫抬頭指定3_cb.Items.Clear() : 規格庫抬頭指定4_cb.Items.Clear() : 規格庫抬頭指定5_cb.Items.Clear()
        While (dr.Read())
            規格庫抬頭指定_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定2_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定1_cb.Items.Add(dr("規格庫抬頭指定"))
            規格庫抬頭指定3_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定4_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定5_cb.Items.Add(dr("規格庫抬頭指定"))
        End While : conn.Close()
    End Sub
    Private Sub 群組碼_cb_下拉表單資料載入()
        SQL_群組碼_下拉清單() : 舊群組_cb.Items.Clear() : 新群組_cb.Items.Clear()
        While (dr.Read()) : 舊群組_cb.Items.Add(dr("群組碼")) : 新群組_cb.Items.Add(dr("群組碼")) : End While : conn.Close()
    End Sub
    Private Sub 群組碼_cb_語轉_下拉表單資料載入()
        SQL_群組碼_語轉_下拉清單() : 舊群組1_cb.Items.Clear() : 新群組1_cb.Items.Clear()
        While (dr.Read()) : 舊群組1_cb.Items.Add(dr("群組")) : 新群組1_cb.Items.Add(dr("群組")) : End While : conn.Close()
    End Sub
    Private Sub 物料資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(527) = True : 介面 = "H527" : 語言轉換讀取() : BL1 = False : 式共用1()

        小間距_ch.Checked = True : 中間距1_ch.Checked = True : 中間距2_ch.Checked = True : 中間距3_ch.Checked = True : 中間距4_ch.Checked = True : 物料群組1_Panel.Visible = False
        物料品名_語轉_dgv.Visible = False : 中間距5_ch.Checked = True : 群組碼_tb.Enabled = False

        Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5()
        If gUserName = "李協叡" Then
            修改料號權限_ch.Checked = True : 編碼_tb.Enabled = True
        Else
            修改料號權限_ch.Checked = False : 編碼_tb.Enabled = False
        End If

        Target1 = Target & AA(2) & "/"
        伺服器_wb.Url = New Uri(Target1)
        本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)

        物料群組_語言_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料群組_語言2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料群組_語言3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料群組_語言4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料群組_語言5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料品名_語轉_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)
        規格表頭_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)

        物料資訊_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料資訊1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料資訊2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料資訊3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料資訊4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

        物料明細1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料明細2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料明細3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料資訊3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料明細4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料明細5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

        比對1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        比對2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        比對3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        比對4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        比對5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 物料資料庫_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(527) = False : SQL_物料資料庫_修正1() : HX_PGS_ERP_SYS.WindowState = 0 : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H527" : 語言轉換讀取()
        Set_物料群組_語轉() : Set_物料群組() : Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() : Set_清單1() : Set_物料規格庫() : 物料資訊控制表()
        物料資訊控制表1() : 物料資訊控制表2() : 物料資訊控制表3() : Set_物料資訊控制表未新增() : 群組碼_cb_語轉_下拉表單資料載入() : 群組碼_cb_下拉表單資料載入()
    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 讀取料號規格_01()
        SQL_物料資訊控制表_原則查詢()
        If dr.Read() Then
            KKK2 = dr("規格庫編號") : PA = KKK2 : KKK3 = dr("規格庫抬頭指定") : PA3 = KKK3 : KKK4 = dr("群組碼") : PA1 = KKK4
        End If : conn.Close()

        SQL_規格庫抬頭讀取()
        If dr.Read() Then
            AAA1 = dr("A1") : PA4 = dr("A1") : AAA2 = dr("A2") : PA5 = dr("A2") : AAA3 = dr("A3") : PA6 = dr("A3") : AAA4 = dr("A4") : PA7 = dr("A4")
            AAA5 = dr("A5") : PA8 = dr("A5") : AAA6 = dr("A6") : PA9 = dr("A6") : AAA7 = dr("A7") : PA10 = dr("A7") : AAA8 = dr("A8") : PA11 = dr("A8")
        End If : conn.Close()
    End Sub
    Private Sub 讀取料號規格_02()
        Dim ds3 As New DataSet
        物料明細1_dgv.DataSource = Nothing : ds3.Clear()
        物料明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細1_dgv.ColumnHeadersHeight = 25 : 物料明細1_dgv.AllowUserToAddRows = False

        SQL_物料規格表_物料清單()
        da.Fill(ds3) : 物料明細1_dgv.DataSource = ds3.Tables(0) : conn.Close()

        If PartNo_ch.Checked = False Then : 物料明細1_dgv.Columns(2).Visible = False : Else : 物料明細1_dgv.Columns(2).Visible = True : End If

        物料明細1_dgv.Columns(0).Visible = False : 物料明細1_dgv.Columns(1).Visible = False : 物料明細1_dgv.Columns(3).Visible = False
        物料明細1_dgv.Columns(12).FillWeight = 70 : 物料明細1_dgv.Columns(2).Width = 135 : 物料明細1_dgv.Columns(13).Visible = False : 物料明細1_dgv.Columns(14).FillWeight = 70
        物料明細1_dgv.Columns(15).FillWeight = 40 : 物料明細1_dgv.Columns(16).Visible = False : 物料明細1_dgv.Columns(17).Visible = False : 物料明細1_dgv.Columns(18).Visible = False
        物料明細1_dgv.Columns(19).Visible = False : 物料明細1_dgv.Columns(20).Visible = False : 物料明細1_dgv.Columns(21).Visible = False : 物料明細1_dgv.Columns(22).Visible = False
        物料明細1_dgv.Columns(23).Visible = False

        物料明細1_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細1_dgv.Columns(2).ReadOnly = True

        物料明細1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        物料明細1_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        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

        For I As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
            物料明細1_dgv(15, I).Value = I + 1
        Next
    End Sub
    Private Sub 讀取料號規格_03()
        If 物料明細3_dgv.Columns.Count.ToString > 16 Then
            物料明細3_dgv.Columns.Remove("Pick")
        End If

        Dim ds3 As New DataSet
        物料明細3_dgv.DataSource = Nothing : ds3.Clear()
        物料明細3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細3_dgv.ColumnHeadersHeight = 25
        物料明細3_dgv.AllowUserToAddRows = False

        SQL_物料規格表_物料清單()
        da.Fill(ds3) : 物料明細3_dgv.DataSource = ds3.Tables(0) : conn.Close()

        Dim Col As New DataGridViewCheckBoxColumn With {
            .FillWeight = 50
        }
        Col.HeaderText = "Pick" : Col.Name = "Pick"
        物料明細3_dgv.Columns.Insert(24, Col)

        物料明細3_dgv.Columns(0).Visible = False : 物料明細3_dgv.Columns(1).Visible = False : 物料明細3_dgv.Columns(2).Visible = False : 物料明細3_dgv.Columns(3).Visible = False
        物料明細3_dgv.Columns(12).FillWeight = 70 : 物料明細3_dgv.Columns(2).FillWeight = 135 : 物料明細3_dgv.Columns(13).Visible = False : 物料明細3_dgv.Columns(14).FillWeight = 70
        物料明細3_dgv.Columns(15).FillWeight = 40 : 物料明細3_dgv.Columns(16).Visible = False : 物料明細3_dgv.Columns(17).Visible = False : 物料明細3_dgv.Columns(18).Visible = False
        物料明細3_dgv.Columns(19).Visible = False : 物料明細3_dgv.Columns(20).Visible = False : 物料明細3_dgv.Columns(21).Visible = False : 物料明細3_dgv.Columns(22).Visible = False
        物料明細3_dgv.Columns(23).Visible = False

        物料明細3_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細3_dgv.Columns(2).ReadOnly = True

        物料明細3_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細3_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        物料明細3_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細3_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細3_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細3_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        If KKK2 = "SQLB03" Then
            物料明細3_dgv.Columns(7).Visible = False : 物料明細3_dgv.Columns(8).Visible = False : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False
            物料明細3_dgv.Columns(11).Visible = False
            物料明細3_dgv.Columns(4).FillWeight = 213 : 物料明細3_dgv.Columns(5).FillWeight = 213 : 物料明細3_dgv.Columns(6).FillWeight = 214
        ElseIf KKK2 = "SQLB04" Then
            物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = False : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False
            物料明細3_dgv.Columns(11).Visible = False
            物料明細3_dgv.Columns(4).FillWeight = 160 : 物料明細3_dgv.Columns(5).FillWeight = 160 : 物料明細3_dgv.Columns(6).FillWeight = 160 : 物料明細3_dgv.Columns(7).FillWeight = 160
        ElseIf KKK2 = "SQLB05" Then
            物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False
            物料明細3_dgv.Columns(11).Visible = False
            物料明細3_dgv.Columns(4).FillWeight = 128 : 物料明細3_dgv.Columns(5).FillWeight = 128 : 物料明細3_dgv.Columns(6).FillWeight = 128 : 物料明細3_dgv.Columns(7).FillWeight = 128
            物料明細3_dgv.Columns(8).FillWeight = 128
        ElseIf KKK2 = "SQLB06" Then
            物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = False
            物料明細3_dgv.Columns(11).Visible = False
            物料明細3_dgv.Columns(4).FillWeight = 106 : 物料明細3_dgv.Columns(5).FillWeight = 107 : 物料明細3_dgv.Columns(6).FillWeight = 106 : 物料明細3_dgv.Columns(7).FillWeight = 107
            物料明細3_dgv.Columns(8).FillWeight = 106 : 物料明細3_dgv.Columns(9).FillWeight = 108
        ElseIf KKK2 = "SQLB07" Then
            物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = True
            物料明細3_dgv.Columns(11).Visible = False
            物料明細3_dgv.Columns(4).FillWeight = 91 : 物料明細3_dgv.Columns(5).FillWeight = 92 : 物料明細3_dgv.Columns(6).FillWeight = 91 : 物料明細3_dgv.Columns(7).FillWeight = 92
            物料明細3_dgv.Columns(8).FillWeight = 91 : 物料明細3_dgv.Columns(9).FillWeight = 92 : 物料明細3_dgv.Columns(10).FillWeight = 91
        ElseIf KKK2 = "SQLB08" Then
            物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = True
            物料明細3_dgv.Columns(11).Visible = True
            物料明細3_dgv.Columns(4).FillWeight = 80 : 物料明細3_dgv.Columns(5).FillWeight = 80 : 物料明細3_dgv.Columns(6).FillWeight = 80 : 物料明細3_dgv.Columns(7).FillWeight = 80
            物料明細3_dgv.Columns(8).FillWeight = 80 : 物料明細3_dgv.Columns(9).FillWeight = 80 : 物料明細3_dgv.Columns(10).FillWeight = 80 : 物料明細3_dgv.Columns(11).FillWeight = 80
        End If
        For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1
            物料明細3_dgv("Pick", i).Value = False
            物料明細3_dgv(15, i).Value = i + 1
        Next
    End Sub
    Private Sub 讀取料號規格_04()
        Dim ds3 As New DataSet
        物料明細4_dgv.DataSource = Nothing : ds3.Clear()
        物料明細4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細4_dgv.ColumnHeadersHeight = 25
        物料明細4_dgv.AllowUserToAddRows = False

        SQL_物料規格表_物料清單()
        da.Fill(ds3) : 物料明細4_dgv.DataSource = ds3.Tables(0) : conn.Close()

        物料明細4_dgv.Columns(0).Visible = False : 物料明細4_dgv.Columns(1).Visible = False : 物料明細4_dgv.Columns(2).Visible = False : 物料明細4_dgv.Columns(3).Visible = False
        物料明細4_dgv.Columns(12).FillWeight = 70 : 物料明細4_dgv.Columns(2).FillWeight = 135 : 物料明細4_dgv.Columns(13).Visible = False : 物料明細4_dgv.Columns(14).FillWeight = 70
        物料明細4_dgv.Columns(15).FillWeight = 40 : 物料明細4_dgv.Columns(16).Visible = False : 物料明細4_dgv.Columns(17).Visible = False : 物料明細4_dgv.Columns(18).Visible = False
        物料明細4_dgv.Columns(19).Visible = False : 物料明細4_dgv.Columns(20).Visible = False : 物料明細4_dgv.Columns(21).Visible = False : 物料明細4_dgv.Columns(22).Visible = False
        物料明細4_dgv.Columns(23).Visible = False

        物料明細4_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細4_dgv.Columns(2).ReadOnly = True

        物料明細4_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細4_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        物料明細4_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細4_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細4_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細4_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        If KKK2 = "SQLB03" Then
            物料明細4_dgv.Columns(7).Visible = False : 物料明細4_dgv.Columns(8).Visible = False : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False
            物料明細4_dgv.Columns(11).Visible = False
            物料明細4_dgv.Columns(4).FillWeight = 213 : 物料明細4_dgv.Columns(5).FillWeight = 213 : 物料明細4_dgv.Columns(6).FillWeight = 214
        ElseIf KKK2 = "SQLB04" Then
            物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = False : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False
            物料明細4_dgv.Columns(11).Visible = False
            物料明細4_dgv.Columns(4).FillWeight = 160 : 物料明細4_dgv.Columns(5).FillWeight = 160 : 物料明細4_dgv.Columns(6).FillWeight = 160 : 物料明細4_dgv.Columns(7).FillWeight = 160
        ElseIf KKK2 = "SQLB05" Then
            物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False
            物料明細4_dgv.Columns(11).Visible = False
            物料明細4_dgv.Columns(4).FillWeight = 128 : 物料明細4_dgv.Columns(5).FillWeight = 128 : 物料明細4_dgv.Columns(6).FillWeight = 128 : 物料明細4_dgv.Columns(7).FillWeight = 128
            物料明細4_dgv.Columns(8).FillWeight = 128
        ElseIf KKK2 = "SQLB06" Then
            物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = False
            物料明細4_dgv.Columns(11).Visible = False
            物料明細4_dgv.Columns(4).FillWeight = 106 : 物料明細4_dgv.Columns(5).FillWeight = 107 : 物料明細4_dgv.Columns(6).FillWeight = 106 : 物料明細4_dgv.Columns(7).FillWeight = 107
            物料明細4_dgv.Columns(8).FillWeight = 106 : 物料明細4_dgv.Columns(9).FillWeight = 108
        ElseIf KKK2 = "SQLB07" Then
            物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = True
            物料明細4_dgv.Columns(11).Visible = False
            物料明細4_dgv.Columns(4).FillWeight = 91 : 物料明細4_dgv.Columns(5).FillWeight = 92 : 物料明細4_dgv.Columns(6).FillWeight = 91 : 物料明細4_dgv.Columns(7).FillWeight = 92
            物料明細4_dgv.Columns(8).FillWeight = 91 : 物料明細4_dgv.Columns(9).FillWeight = 92 : 物料明細4_dgv.Columns(10).FillWeight = 91
        ElseIf KKK2 = "SQLB08" Then
            物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = True
            物料明細4_dgv.Columns(11).Visible = True
            物料明細4_dgv.Columns(4).FillWeight = 80 : 物料明細4_dgv.Columns(5).FillWeight = 80 : 物料明細4_dgv.Columns(6).FillWeight = 80 : 物料明細4_dgv.Columns(7).FillWeight = 80
            物料明細4_dgv.Columns(8).FillWeight = 80 : 物料明細4_dgv.Columns(9).FillWeight = 80 : 物料明細4_dgv.Columns(10).FillWeight = 80 : 物料明細4_dgv.Columns(11).FillWeight = 80
        End If
        For I As Integer = 0 To 物料明細4_dgv.Rows.Count - 1
            物料明細4_dgv(15, I).Value = I + 1
        Next
    End Sub
    Private Sub 讀取料號規格_05()
        Dim ds3 As New DataSet
        物料明細5_dgv.DataSource = Nothing : ds3.Clear()
        物料明細5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細5_dgv.ColumnHeadersHeight = 25
        物料明細5_dgv.AllowUserToAddRows = False

        SQL_物料規格表_物料清單()
        da.Fill(ds3) : 物料明細5_dgv.DataSource = ds3.Tables(0) : conn.Close()

        物料明細5_dgv.Columns(0).Visible = False : 物料明細5_dgv.Columns(1).Visible = False : 物料明細5_dgv.Columns(2).Visible = False : 物料明細5_dgv.Columns(3).Visible = False
        物料明細5_dgv.Columns(12).FillWeight = 70 : 物料明細5_dgv.Columns(2).FillWeight = 135 : 物料明細5_dgv.Columns(13).Visible = False : 物料明細5_dgv.Columns(14).Visible = False
        物料明細5_dgv.Columns(15).Visible = False : 物料明細5_dgv.Columns(12).Visible = False : 物料明細5_dgv.Columns(16).FillWeight = 25 : 物料明細5_dgv.Columns(17).FillWeight = 25
        物料明細5_dgv.Columns(19).FillWeight = 25 : 物料明細5_dgv.Columns(20).FillWeight = 25 : 物料明細5_dgv.Columns(21).FillWeight = 25 : 物料明細5_dgv.Columns(22).FillWeight = 25
        物料明細5_dgv.Columns(23).FillWeight = 25 : 物料明細5_dgv.Columns(18).FillWeight = 25

        物料明細5_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細5_dgv.Columns(2).ReadOnly = True

        物料明細5_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細5_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        物料明細5_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細5_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細5_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細5_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        If KKK2 = "SQLB03" Then
            物料明細5_dgv.Columns(7).Visible = False : 物料明細5_dgv.Columns(8).Visible = False : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False
            物料明細5_dgv.Columns(11).Visible = False
            物料明細5_dgv.Columns(4).FillWeight = 213 : 物料明細5_dgv.Columns(5).FillWeight = 213 : 物料明細5_dgv.Columns(6).FillWeight = 214
        ElseIf KKK2 = "SQLB04" Then
            物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = False : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False
            物料明細5_dgv.Columns(11).Visible = False
            物料明細5_dgv.Columns(4).FillWeight = 160 : 物料明細5_dgv.Columns(5).FillWeight = 160 : 物料明細5_dgv.Columns(6).FillWeight = 160 : 物料明細5_dgv.Columns(7).FillWeight = 160
        ElseIf KKK2 = "SQLB05" Then
            物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False
            物料明細5_dgv.Columns(11).Visible = False
            物料明細5_dgv.Columns(4).FillWeight = 128 : 物料明細5_dgv.Columns(5).FillWeight = 128 : 物料明細5_dgv.Columns(6).FillWeight = 128 : 物料明細5_dgv.Columns(7).FillWeight = 128
            物料明細5_dgv.Columns(8).FillWeight = 128
        ElseIf KKK2 = "SQLB06" Then
            物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = False
            物料明細5_dgv.Columns(11).Visible = False
            物料明細5_dgv.Columns(4).FillWeight = 106 : 物料明細5_dgv.Columns(5).FillWeight = 107 : 物料明細5_dgv.Columns(6).FillWeight = 106 : 物料明細5_dgv.Columns(7).FillWeight = 107
            物料明細5_dgv.Columns(8).FillWeight = 106 : 物料明細5_dgv.Columns(9).FillWeight = 108
        ElseIf KKK2 = "SQLB07" Then
            物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = True
            物料明細5_dgv.Columns(11).Visible = False
            物料明細5_dgv.Columns(4).FillWeight = 91 : 物料明細5_dgv.Columns(5).FillWeight = 92 : 物料明細5_dgv.Columns(6).FillWeight = 91 : 物料明細5_dgv.Columns(7).FillWeight = 92
            物料明細5_dgv.Columns(8).FillWeight = 91 : 物料明細5_dgv.Columns(9).FillWeight = 92 : 物料明細5_dgv.Columns(10).FillWeight = 91
        ElseIf KKK2 = "SQLB08" Then
            物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = True
            物料明細5_dgv.Columns(11).Visible = True
            物料明細5_dgv.Columns(4).FillWeight = 80 : 物料明細5_dgv.Columns(5).FillWeight = 80 : 物料明細5_dgv.Columns(6).FillWeight = 80 : 物料明細5_dgv.Columns(7).FillWeight = 80
            物料明細5_dgv.Columns(8).FillWeight = 80 : 物料明細5_dgv.Columns(9).FillWeight = 80 : 物料明細5_dgv.Columns(10).FillWeight = 80 : 物料明細5_dgv.Columns(11).FillWeight = 80
        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
            原始料號_tb.Text = Strings.Right(物料明細1_dgv.Rows(e.RowIndex).Cells("原始料號").Value.ToString, 4) : 料號tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString
            AA1_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(4).Value.ToString : AA2_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(5).Value.ToString
            AA3_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(6).Value.ToString : AA4_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(7).Value.ToString
            AA5_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(8).Value.ToString : AA6_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(9).Value.ToString
            AA7_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(10).Value.ToString : AA8_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(11).Value.ToString
        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
            群組碼2_tb.Text = 物料資訊_dgv(0, e.RowIndex).Value.ToString : 群組碼4_tb.Text = 物料資訊_dgv(0, e.RowIndex).Value.ToString
            物料原則2_tb.Text = 物料資訊_dgv(1, e.RowIndex).Value.ToString : 料號原則2_tb.Text = 物料資訊_dgv(1, e.RowIndex).Value.ToString
            原則說明_tb.Text = 物料資訊_dgv(2, e.RowIndex).Value.ToString : 品名_tb.Text = 物料資訊_dgv(2, e.RowIndex).Value.ToString
            規格庫編號_cb.Text = 物料資訊_dgv(3, e.RowIndex).Value.ToString : 規格庫編號2_ch.Text = 物料資訊_dgv(3, e.RowIndex).Value.ToString
            規格庫抬頭指定_cb.Text = 物料資訊_dgv(4, e.RowIndex).Value.ToString : 規格庫抬頭指定2_cb.Text = 物料資訊_dgv(4, e.RowIndex).Value.ToString

            KKK1 = 物料資訊_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1
            讀取料號規格_01()
            讀取料號規格_02()
        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
            If 物料明細2_dgv.Columns.Count.ToString > 16 Then
                物料明細2_dgv.Columns.Remove("Pick")
            End If

            料號原則2_tb.Text = 物料資訊1_dgv(1, e.RowIndex).Value.ToString
            規格庫編號3_cb.Text = 物料資訊1_dgv(3, e.RowIndex).Value.ToString : 規格庫抬頭指定3_cb.Text = 物料資訊1_dgv(4, e.RowIndex).Value.ToString

            KKK1 = 物料資訊1_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1
            讀取料號規格_01()

            Dim ds3 As New DataSet
            物料明細2_dgv.DataSource = Nothing : ds3.Clear()
            物料明細2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            物料明細2_dgv.ColumnHeadersHeight = 25
            物料明細2_dgv.AllowUserToAddRows = False

            SQL_物料規格表_物料清單()
            da.Fill(ds3) : 物料明細2_dgv.DataSource = ds3.Tables(0) : conn.Close()

            Dim Col As New DataGridViewCheckBoxColumn With {
            .FillWeight = 50
        }
            Col.HeaderText = "Pick" : Col.Name = "Pick"
            物料明細2_dgv.Columns.Insert(24, Col)

            物料明細2_dgv.Columns(0).Visible = False : 物料明細2_dgv.Columns(1).Visible = False : 物料明細2_dgv.Columns(2).Visible = False : 物料明細2_dgv.Columns(3).Visible = False
            物料明細2_dgv.Columns(12).FillWeight = 70 : 物料明細2_dgv.Columns(2).FillWeight = 135 : 物料明細2_dgv.Columns(13).Visible = False : 物料明細2_dgv.Columns(14).FillWeight = 70
            物料明細2_dgv.Columns(15).FillWeight = 40 : 物料明細2_dgv.Columns(16).Visible = False : 物料明細2_dgv.Columns(17).Visible = False : 物料明細2_dgv.Columns(18).Visible = False
            物料明細2_dgv.Columns(19).Visible = False : 物料明細2_dgv.Columns(20).Visible = False : 物料明細2_dgv.Columns(21).Visible = False : 物料明細2_dgv.Columns(22).Visible = False
            物料明細2_dgv.Columns(23).Visible = False

            物料明細2_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細2_dgv.Columns(2).ReadOnly = True

            物料明細2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細2_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
            物料明細2_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            物料明細2_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            物料明細2_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            物料明細2_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

            If KKK2 = "SQLB03" Then
                物料明細2_dgv.Columns(7).Visible = False : 物料明細2_dgv.Columns(8).Visible = False : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False
                物料明細2_dgv.Columns(11).Visible = False
                物料明細2_dgv.Columns(4).FillWeight = 213 : 物料明細2_dgv.Columns(5).FillWeight = 213 : 物料明細2_dgv.Columns(6).FillWeight = 214
            ElseIf KKK2 = "SQLB04" Then
                物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = False : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False
                物料明細2_dgv.Columns(11).Visible = False
                物料明細2_dgv.Columns(4).FillWeight = 160 : 物料明細2_dgv.Columns(5).FillWeight = 160 : 物料明細2_dgv.Columns(6).FillWeight = 160 : 物料明細2_dgv.Columns(7).FillWeight = 160
            ElseIf KKK2 = "SQLB05" Then
                物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False
                物料明細2_dgv.Columns(11).Visible = False
                物料明細2_dgv.Columns(4).FillWeight = 128 : 物料明細2_dgv.Columns(5).FillWeight = 128 : 物料明細2_dgv.Columns(6).FillWeight = 128 : 物料明細2_dgv.Columns(7).FillWeight = 128
                物料明細2_dgv.Columns(8).FillWeight = 128
            ElseIf KKK2 = "SQLB06" Then
                物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = False
                物料明細2_dgv.Columns(11).Visible = False
                物料明細2_dgv.Columns(4).FillWeight = 106 : 物料明細2_dgv.Columns(5).FillWeight = 107 : 物料明細2_dgv.Columns(6).FillWeight = 106 : 物料明細2_dgv.Columns(7).FillWeight = 107
                物料明細2_dgv.Columns(8).FillWeight = 106 : 物料明細2_dgv.Columns(9).FillWeight = 108
            ElseIf KKK2 = "SQLB07" Then
                物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = True
                物料明細2_dgv.Columns(11).Visible = False
                物料明細2_dgv.Columns(4).FillWeight = 91 : 物料明細2_dgv.Columns(5).FillWeight = 92 : 物料明細2_dgv.Columns(6).FillWeight = 91 : 物料明細2_dgv.Columns(7).FillWeight = 92
                物料明細2_dgv.Columns(8).FillWeight = 91 : 物料明細2_dgv.Columns(9).FillWeight = 92 : 物料明細2_dgv.Columns(10).FillWeight = 91
            ElseIf KKK2 = "SQLB08" Then
                物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = True
                物料明細2_dgv.Columns(11).Visible = True
                物料明細2_dgv.Columns(4).FillWeight = 80 : 物料明細2_dgv.Columns(5).FillWeight = 80 : 物料明細2_dgv.Columns(6).FillWeight = 80 : 物料明細2_dgv.Columns(7).FillWeight = 80
                物料明細2_dgv.Columns(8).FillWeight = 80 : 物料明細2_dgv.Columns(9).FillWeight = 80 : 物料明細2_dgv.Columns(10).FillWeight = 80 : 物料明細2_dgv.Columns(11).FillWeight = 80
            End If
            For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1
                物料明細2_dgv("Pick", i).Value = False
                物料明細2_dgv(15, i).Value = i + 1
            Next
        End If
    End Sub
    Private Sub 物料資訊2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            群組碼5_tb.Text = 物料資訊2_dgv(0, e.RowIndex).Value.ToString : 料號原則3_tb.Text = 物料資訊2_dgv(1, e.RowIndex).Value.ToString
            規格庫編號4_cb.Text = 物料資訊2_dgv(3, e.RowIndex).Value.ToString : 規格庫抬頭指定4_cb.Text = 物料資訊2_dgv(4, e.RowIndex).Value.ToString

            KKK1 = 物料資訊2_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1
            讀取料號規格_01()
            讀取料號規格_03()
        End If
    End Sub
    Private Sub 物料資訊3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊3_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            群組碼6_tb.Text = 物料資訊3_dgv(0, e.RowIndex).Value.ToString : 料號原則4_tb.Text = 物料資訊3_dgv(1, e.RowIndex).Value.ToString
            規格庫編號5_cb.Text = 物料資訊3_dgv(3, e.RowIndex).Value.ToString : 料號原則5_tb.Text = 物料資訊3_dgv(1, e.RowIndex).Value.ToString
            規格庫抬頭指定5_cb.Text = 物料資訊3_dgv(4, e.RowIndex).Value.ToString : 物料品名2_tb.Text = 物料資訊3_dgv(表頭(64), e.RowIndex).Value.ToString
            物料品名1_tb.Text = 物料資訊3_dgv(表頭(64), e.RowIndex).Value.ToString : 圖檔編號1_tb.Text = 物料資訊3_dgv(6, e.RowIndex).Value.ToString
            單位_tb.Text = 物料資訊3_dgv(表頭(16), e.RowIndex).Value.ToString

            KKK1 = 物料資訊3_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1
            讀取料號規格_01()
            讀取料號規格_04()

            If 物料明細4_dgv.Rows.Count = 0 Then
                資料複製1_bt.Enabled = False
            Else
                資料複製1_bt.Enabled = True
            End If
        End If
    End Sub
    Private Sub 物料資訊4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊4_dgv.CellClick
        KKK1 = 物料資訊4_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1
        讀取料號規格_01() : 讀取料號規格_05()
        If 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB03" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = False : S5_ch.Checked = False : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False
        ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB04" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = False : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False
        ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB05" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False
        ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB06" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = False : S8_ch.Checked = False
        ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB07" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = True : S8_ch.Checked = False
        ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB08" Then
            S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = True : S8_ch.Checked = True
        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
            群組碼_tb.Text = 物料群組_dgv(0, e.RowIndex).Value.ToString : 群組碼1_tb.Text = 物料群組_dgv(0, e.RowIndex).Value.ToString
            物料原則_tb.Text = "" : 物料品名_tb.Text = "" : Set_清單1()
            SQL_物料資料庫語言選定()
            For i As Integer = 1 To 3
                If dr.Read() Then
                    If dr("語言").ToString = "繁體中文" Then
                        類別1_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組")
                    ElseIf dr("語言").ToString = "Indonesian" Then
                        類別3_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組")
                    ElseIf dr("語言").ToString = "English" Then
                        類別2_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組")
                    End If
                End If
            Next
        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
            物料原則_tb.Text = 物料編碼_dgv(1, e.RowIndex).Value.ToString : 料號原則_tb.Text = 物料編碼_dgv(1, e.RowIndex).Value.ToString
            物料品名_tb.Text = 物料編碼_dgv(2, e.RowIndex).Value.ToString : 圖檔編號_tb.Text = 物料編碼_dgv(5, e.RowIndex).Value.ToString
            群組碼1_tb.Text = 物料編碼_dgv(7, e.RowIndex).Value.ToString : 原則說明異動 = 物料編碼_dgv(2, e.RowIndex).Value.ToString
            舊群組_cb.Text = 群組碼1_tb.Text
            If 批量選擇_ch.Checked = True Then
                If 物料編碼_dgv(4, e.RowIndex).Value = False Then : 物料編碼_dgv(4, e.RowIndex).Value = True
                ElseIf 物料編碼_dgv(4, e.RowIndex).Value = True Then : 物料編碼_dgv(4, e.RowIndex).Value = False : End If
            End If
            是否有資料 = False
            For i As Integer = 0 To 物料品名_語轉_dgv.Rows.Count - 1
                If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text Then
                    If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "繁體中文" Then
                        品名1_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "English" Then
                        品名2_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "Indonesian" Then
                        品名3_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    End If
                    是否有資料 = True
                End If
            Next
            If 是否有資料 = False Then
                品名1_tb.Text = 物料品名_tb.Text : 品名2_tb.Text = 物料品名_tb.Text : 品名3_tb.Text = 物料品名_tb.Text
            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
            物料原則_tb.Text = 物料品名_語轉_dgv(1, e.RowIndex).Value.ToString
            For i As Integer = 0 To 物料品名_語轉_dgv.Rows.Count - 1
                If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text Then
                    If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "繁體中文" Then
                        品名1_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "English" Then
                        品名2_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "Indonesian" Then
                        品名3_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                    End If
                End If
            Next
            For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
                If 物料編碼_dgv(1, i).Value.ToString = 物料原則_tb.Text Then
                    物料品名_tb.Text = 物料編碼_dgv(2, i).Value.ToString
                End If
            Next
        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
            BL1 = True : PA1 = 群組碼1_dgv(0, e.RowIndex).Value.ToString : 群組碼(0) = 群組碼1_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表() : PA1 = "" : BL1 = False
        End If
    End Sub
    Private Sub 物料群組_語言2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            BL1 = True : PA1 = 群組碼2_dgv(0, e.RowIndex).Value.ToString : 群組碼(1) = 群組碼2_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表1() : PA1 = "" : BL1 = False
        End If
    End Sub
    Private Sub 物料群組_語言3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言3_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            BL1 = True : PA1 = 群組碼3_dgv(0, e.RowIndex).Value.ToString : 群組碼(2) = 群組碼3_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表2() : PA1 = "" : BL1 = False
        End If
    End Sub
    Private Sub 物料群組_語言4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言4_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            BL1 = True : PA1 = 群組碼4_dgv(0, e.RowIndex).Value.ToString : 群組碼(3) = 群組碼4_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表3() : PA1 = "" : BL1 = False
        End If
    End Sub
    Private Sub 物料群組_語言5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言5_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            BL1 = True : PA1 = 群組碼5_dgv(0, e.RowIndex).Value.ToString : 群組碼(4) = 群組碼5_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表4() : PA1 = "" : BL1 = False
        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
            規格庫抬頭指定_tb.Text = 規格表頭_dgv(0, e.RowIndex).Value.ToString : A1_tb.Text = 規格表頭_dgv(1, e.RowIndex).Value.ToString
            A2_tb.Text = 規格表頭_dgv(2, e.RowIndex).Value.ToString : A3_tb.Text = 規格表頭_dgv(3, e.RowIndex).Value.ToString
            A4_tb.Text = 規格表頭_dgv(4, e.RowIndex).Value.ToString : A5_tb.Text = 規格表頭_dgv(5, e.RowIndex).Value.ToString
            A6_tb.Text = 規格表頭_dgv(6, e.RowIndex).Value.ToString : A7_tb.Text = 規格表頭_dgv(7, e.RowIndex).Value.ToString
            A8_tb.Text = 規格表頭_dgv(8, e.RowIndex).Value.ToString : 系統語言_cb.Text = 規格表頭_dgv(9, e.RowIndex).Value.ToString
            BL1 = False : 物料資訊控制表()
        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(0, e.RowIndex).Value.ToString <> 規格表頭_dgv(0, 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
            群組碼2_tb.Text = 未指定表頭_dgv(0, e.RowIndex).Value.ToString : 物料原則2_tb.Text = 未指定表頭_dgv(1, e.RowIndex).Value.ToString
            原則說明_tb.Text = 未指定表頭_dgv(2, e.RowIndex).Value.ToString
            BL1 = True : PA1 = 未指定表頭_dgv(0, e.RowIndex).Value.ToString
            物料資訊控制表() : PA1 = "" : BL1 = False
        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(1, e.RowIndex).Value.ToString <> 物料品名_語轉_dgv(1, 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 新群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 新群組1_cb.SelectedIndexChanged
        PA = 新群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 新群組_cb.Text = dr("群組碼").ToString : End If : PA = ""
    End Sub
    Private Sub 舊群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 舊群組1_cb.SelectedIndexChanged
        PA = 舊群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 舊群組_cb.Text = dr("群組碼") : End If : PA = ""
    End Sub
    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            本機_wb.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub 改料號原則_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 改料號原則_ch.CheckedChanged
        If 改料號原則_ch.Checked = False Then
            物料原則_tb.Enabled = False
        Else
            物料原則_tb.Enabled = True
        End If
    End Sub
    Private Sub 規格庫抬頭指定2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定2_cb.SelectedIndexChanged
        AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = "" : PA3 = 規格庫抬頭指定2_cb.Text
        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 : Label70.Text = "A1" : Else : Label70.Text = AAA1 : End If : If AAA2 = "" Then : Label69.Text = "A2" : Else : Label69.Text = AAA2 : End If
        If AAA3 = "" Then : Label68.Text = "A3" : Else : Label68.Text = AAA3 : End If : If AAA4 = "" Then : Label67.Text = "A4" : Else : Label67.Text = AAA4 : End If
        If AAA5 = "" Then : Label66.Text = "A5" : Else : Label66.Text = AAA5 : End If : If AAA6 = "" Then : Label65.Text = "A6" : Else : Label65.Text = AAA6 : End If
        If AAA7 = "" Then : Label64.Text = "A7" : Else : Label64.Text = AAA7 : End If : If AAA8 = "" Then : Label63.Text = "A8" : Else : Label63.Text = AAA8 : End If
    End Sub
    Private Sub 規格庫編號2_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫編號2_ch.SelectedIndexChanged
        If 規格庫編號2_ch.Text = "SQLB03" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = False
            AA5_tb.Enabled = False : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False
        ElseIf 規格庫編號2_ch.Text = "SQLB04" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True
            AA5_tb.Enabled = False : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False
        ElseIf 規格庫編號2_ch.Text = "SQLB05" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True
            AA5_tb.Enabled = True : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False
        ElseIf 規格庫編號2_ch.Text = "SQLB06" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True
            AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = False : AA8_tb.Enabled = False
        ElseIf 規格庫編號2_ch.Text = "SQLB07" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True
            AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = True : AA8_tb.Enabled = False
        ElseIf 規格庫編號2_ch.Text = "SQLB08" Then
            AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True
            AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = True : AA8_tb.Enabled = True
        End If
    End Sub
    Private Sub 規格庫抬頭指定_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定_cb.SelectedIndexChanged
        規格庫編號_cb.Text = "SQLB" & Mid(規格庫抬頭指定_cb.Text, 3, 2)
    End Sub
    Private Sub 規格庫抬頭指定1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定1_cb.SelectedIndexChanged
        規格庫編號1_cb.Text = "SQLB" & Mid(規格庫抬頭指定1_cb.Text, 3, 2)
    End Sub
    Private Sub 規格庫抬頭指定3_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定3_cb.SelectedIndexChanged
        規格庫編號3_cb.Text = "SQLB" & Mid(規格庫抬頭指定3_cb.Text, 3, 2)
    End Sub
    Private Sub 規格庫抬頭指定4_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定4_cb.SelectedIndexChanged
        規格庫編號4_cb.Text = "SQLB" & Mid(規格庫抬頭指定4_cb.Text, 3, 2)
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
                檔案名稱_tb.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        Dim STR2 As Integer = 0
        檔案路徑_tb.Text = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then
        Else
            For i As Integer = 0 To 9999
                Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
                If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then
                    STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then
                        檔案路徑_tb.Text = ""
                        檔案名稱_tb.Text = ""
                        i = 9999
                    Else
                        檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1)
                    End If
                Else
                    檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
                    檔案名稱_tb.Text = 檔案路徑_tb.Text
                    i = 9999
                End If
            Next
        End If
    End Sub
    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            檔案名稱_tb.AppendText(file + Environment.NewLine)
        Next
    End Sub
    Private Sub SET_新增按鈕程式共用3()
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        conn.Close() : dr.Close()
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox(對話框(0))
        conn.Close() : dr.Close()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox(對話框(0))
        conn.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            ConnOpen() : CmdSet_For_dr() : MsgBox(對話框(11))
        End If : conn.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用2()
        Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            ConnOpen() : CmdSet_For_dr() : MsgBox(對話框(11))
        End If : conn.Close() : 式共用1()
    End Sub
    Private Sub 式共用1()
        Set_物料群組_語轉() : Set_物料群組() : Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() : Set_清單1() : Set_物料規格庫() : 物料資訊控制表()
        物料資訊控制表1() : 物料資訊控制表2() : 物料資訊控制表3() : Set_物料資訊控制表未新增() : 群組碼_cb_語轉_下拉表單資料載入() : 群組碼_cb_下拉表單資料載入()
        If 物料品名_tb.Text <> 原則說明異動 Then : Set_清單1() : Else : Set_清單1_語轉() : End If
    End Sub
    Private Sub 式共用2()
        conn.Close() : dr.Close() : ConnOpen()
    End Sub
    Private Sub 式共用3()
        ConnOpen()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 群組新增_bt_Click(sender As Object, e As EventArgs) Handles 群組新增_bt.Click
        If 群組碼_tb.Text = "" Or 類別1_tb.Text = "" Or 類別2_tb.Text = "" Or 類別3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            式共用3() : SQL_物料資料庫_群組碼重複查詢() : CmdSet_For_dr()
            If dr.Read() Then
                MsgBox(對話框(13)) : conn.Close() : dr.Close()
            Else
                式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉1() : CmdSet_For_dr()
                If dr.Read() Then
                    MsgBox(對話框(13)) : conn.Close() : dr.Close()
                Else
                    式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉2() : CmdSet_For_dr()
                    If dr.Read() Then
                        MsgBox(對話框(13)) : conn.Close() : dr.Close()
                    Else
                        式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉3() : CmdSet_For_dr()
                        If dr.Read() Then
                            MsgBox(對話框(13)) : conn.Close() : dr.Close()
                        Else
                            式共用2() : SQL_物料資料庫_新增群組碼() : SET_新增按鈕程式共用3()
                            式共用2() : SQL_物料資料庫_新增群組碼_語轉1() : SET_新增按鈕程式共用3()
                            式共用2() : SQL_物料資料庫_新增群組碼_語轉2() : SET_新增按鈕程式共用3()
                            式共用2() : SQL_物料資料庫_新增群組碼_語轉3() : SET_新增按鈕程式共用2()
                        End If
                    End If
                End If
            End If
        End If : 式共用1()
    End Sub
    Private Sub 群組修改_bt_Click(sender As Object, e As EventArgs) Handles 群組修改_bt.Click
        If 群組碼_tb.Text = "" Or 類別1_tb.Text = "" Or 類別2_tb.Text = "" Or 類別3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反1() : CmdSet_For_dr()
            If dr.Read() Then
                MsgBox(對話框(13)) : conn.Close() : dr.Close()
            Else
                式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反2() : CmdSet_For_dr()
                If dr.Read() Then
                    MsgBox(對話框(13)) : conn.Close() : dr.Close()
                Else
                    式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反3() : CmdSet_For_dr()
                    If dr.Read() Then
                        MsgBox(對話框(13)) : conn.Close() : dr.Close()
                    Else
                        PA = InputBox(對話框(14), 群組碼_tb.Text, 群組碼_tb.Text)
                        If PA = "" Then
                            MsgBox(對話框(15))
                        Else
                            式共用3() : SQL_物料資料庫_群組碼修改0_1() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改0_2() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改0_3() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改1() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改2() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改3() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改4() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改5() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改6() : CmdSet_For_dr()
                            式共用3() : SQL_物料資料庫_群組碼修改7() : CmdSet_For_dr() : conn.Close()
                            MsgBox(對話框(4))
                        End If
                    End If
                End If
            End If
        End If : 式共用1()
    End Sub
    Private Sub 群組刪除_bt_Click(sender As Object, e As EventArgs) Handles 群組刪除_bt.Click
        輸入密碼.ShowDialog()
        If PA = "0013975151" Then
            SQL_物料資料庫_群組碼刪除() : SET_刪除按鈕程式共用2()
            SQL_物料資料庫_群組碼刪除_語轉() : SET_刪除按鈕程式共用1()
            式共用1()
        Else
            If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除群組!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus grup!!") : End If
        End If
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 下載圖片_bt_Click(sender As Object, e As EventArgs) Handles 下載圖片_bt.Click
        If 圖檔編號_tb.Text = "" Then
            MsgBox(對話框(5))
        Else
            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
            SaveFileDialog1.FileName = 料號原則_tb.Text & "-" & Format(Today(), "yyyyMMdd") & ".jpg"

            SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName

            Dim ds1 As New DataSet : ds1.Clear() : PA3 = 圖檔編號_tb.Text : SQL_物料圖庫_圖檔讀取三() : da.Fill(ds1)
            If ds1.Tables(0).Rows.Count > 0 Then
                Dim imgData() As Byte
                imgData = ds1.Tables(0).Rows(0).Item("圖檔")
                Dim fs As FileStream
                fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
                fs.Write(imgData, 0, imgData.Length - 1)
                fs.Close()
            End If : conn.Close()
            MsgBox(對話框(6))
        End If
    End Sub
    Private Sub 群組轉換_bt_Click(sender As Object, e As EventArgs) Handles 群組轉換_bt.Click
        If 新群組_cb.Text = "" Or 舊群組_cb.Text = "" Then
            MsgBox(對話框(16))
        Else
            For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
                資料數 = 物料編碼_dgv.Rows.Count : MyModule1.進度條()
                If 物料編碼_dgv("Pick", i).Value = True Then
                    conn.Close() : dr.Close() : PA1 = 新群組_cb.Text : PA2 = 舊群組_cb.Text : PA3 = 物料編碼_dgv(1, i).Value.ToString
                    SQL_物料資料庫_群組碼批量修改1() : SQL_物料資料庫_群組碼批量修改2() : SQL_物料資料庫_群組碼批量修改3()
                    SQL_物料資料庫_群組碼批量修改4() : SQL_物料資料庫_群組碼批量修改5() : SQL_物料資料庫_群組碼批量修改6()
                    SQL_物料資料庫_群組碼批量修改_語轉1()
                End If
            Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            Set_清單1() : MsgBox(對話框(4))
        End If
    End Sub
    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        If 批量選擇_ch.Checked = True Then
            For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 : 物料編碼_dgv.Rows(i).Cells(4).Value = True : Next i
        End If
    End Sub
    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        If 批量選擇_ch.Checked = True Then
            For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 : 物料編碼_dgv.Rows(i).Cells(4).Value = False : Next i
        End If
    End Sub
    Private Sub 全部選擇1_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇1_bt.Click
        For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 : 物料明細2_dgv.Rows(i).Cells("Pick").Value = True : Next i
    End Sub
    Private Sub 全部取消1_bt_Click(sender As Object, e As EventArgs) Handles 全部取消1_bt.Click
        For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 : 物料明細2_dgv.Rows(i).Cells("Pick").Value = False : Next i
    End Sub
    Private Sub 全部選擇2_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇2_bt.Click
        For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 : 物料明細3_dgv.Rows(i).Cells("Pick").Value = True : Next i
    End Sub
    Private Sub 全部取消2_bt_Click(sender As Object, e As EventArgs) Handles 全部取消2_bt.Click
        For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 : 物料明細3_dgv.Rows(i).Cells("Pick").Value = False : Next i
    End Sub
    Private Sub 讀取無圖片資料_bt_Click(sender As Object, e As EventArgs) Handles 讀取無圖片資料_bt.Click
        BL1 = True : Set_清單1()
    End Sub
    Private Sub 物料原則新增_tb_Click(sender As Object, e As EventArgs) Handles 物料原則新增_tb.Click
        If 群組碼1_tb.Text = "" Or 物料原則_tb.Text = "" Or 品名1_tb.Text = "" Or 品名2_tb.Text = "" Or 品名3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            PA = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫重複確認()
            If dr.Read() Then
                MsgBox(對話框(13))
                conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close()
                PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : PA3 = 物料品名_tb.Text
                SQL_物料資料庫_物料編碼庫新增()
                SQL_物料資料庫_物料編碼庫新增_語轉1()
                SQL_物料資料庫_物料編碼庫新增_語轉2()
                SQL_物料資料庫_物料編碼庫新增_語轉3()
                MsgBox(對話框(17))
            End If
        End If
        式共用1()
    End Sub
    Private Sub 物料原則修改_tb_Click(sender As Object, e As EventArgs) Handles 修改品名後存檔_bt.Click
        If 群組碼1_tb.Text = "" Or 物料原則_tb.Text = "" Or 品名1_tb.Text = "" Or 品名2_tb.Text = "" Or 品名3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            If 改料號原則_ch.Checked = True Then
                PA = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫重複確認()
                If dr.Read() Then
                    MsgBox(對話框(13))
                    conn.Close() : dr.Close()
                Else
                    conn.Close() : dr.Close() : PA1 = 物料原則_tb.Text : PA2 = 物料品名_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 料號原則_tb.Text
                    SQL_物料資料庫_修改品名後存檔1() : SQL_物料資料庫_修改品名後存檔2() : SQL_物料資料庫_修改品名後存檔3()
                    SQL_物料資料庫_修改品名後存檔4() : SQL_物料資料庫_修改品名後存檔5() : SQL_物料資料庫_修改品名後存檔6()
                    PA = 物料原則_tb.Text : PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫語轉重複確認()
                    If dr.Read() Then
                        PA = 物料原則_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 物料原則_tb.Text
                        SQL_物料資料庫_修改品名後存檔_語轉1() : SQL_物料資料庫_修改品名後存檔_語轉2() : SQL_物料資料庫_修改品名後存檔_語轉3()
                    Else
                        SQL_物料資料庫_物料編碼庫新增_語轉1() : SQL_物料資料庫_物料編碼庫新增_語轉2() : SQL_物料資料庫_物料編碼庫新增_語轉3()
                    End If
                    Set_清單1()
                    MsgBox(對話框(4))
                End If
            Else
                PA2 = 物料品名_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 料號原則_tb.Text
                SQL_物料編碼庫_品名修改() : conn.Close()
                SQL_物料資訊控制表_品名修改() : conn.Close()
                PA = 物料原則_tb.Text : PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫語轉重複確認()
                If dr.Read() Then
                    PA = 物料原則_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 物料原則_tb.Text
                    SQL_物料資料庫_修改品名後存檔_語轉1() : SQL_物料資料庫_修改品名後存檔_語轉2() : SQL_物料資料庫_修改品名後存檔_語轉3()
                Else
                    SQL_物料資料庫_物料編碼庫新增_語轉1() : SQL_物料資料庫_物料編碼庫新增_語轉2() : SQL_物料資料庫_物料編碼庫新增_語轉3()
                End If
                MsgBox(對話框(0)) : 式共用1()
            End If
        End If
    End Sub
    Private Sub 物料原則刪除_tb_Click(sender As Object, e As EventArgs) Handles 物料原則刪除_tb.Click
        輸入密碼.ShowDialog()
        If PA = "0013975151" Then
            Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text
                SQL_物料資料庫_物料編碼庫刪除() : SQL_物料資料庫_物料資訊控制表刪除3() : SQL_物料資料庫_物料規格表刪除() : SQL_物料資料庫_物料圖庫刪除() : SQL_物料資料庫_物料規格表刪除_語轉()
                MsgBox(對話框(11))
            End If
            conn.Close() : 式共用1()
        Else
            If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除物料!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus materi!!") : End If
        End If
    End Sub
    Private Sub 修改清單資料後存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改清單資料後存檔_bt.Click
        For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
            資料數 = 物料編碼_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(16) & "").Value.ToString : PA2 = 物料編碼_dgv.Rows(i).Cells("群組碼").Value.ToString
            PA3 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(63) & "").Value.ToString
            SQL_物料編碼庫_單位修改() : conn.Close()
            If 物料編碼_dgv("Pick", i).Value = True Then
                PA2 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(64) & "").Value.ToString : PA3 = 物料編碼_dgv.Rows(i).Cells("群組碼").Value.ToString
                PA4 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(63) & "").Value.ToString
                SQL_物料編碼庫_品名修改() : conn.Close() : SQL_物料資訊控制表_品名修改() : conn.Close()
            End If
        Next
        式共用1() : MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        批量選擇_ch.Checked = False
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 圖檔入系統_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        SQL_物料資料庫_物料圖片流水號最後一筆()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("圖片流水號").ToString, 8)) : Else : EDR = 0 : End If
        conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
        ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
        End If
        圖檔編號_tb.Text = ESTR

        If 檔案名稱_tb.Text = "" Then
            MsgBox(對話框(3))
        Else
            '-------------判斷FTP資料夾中是否有該文件--------------------------------------------------------------------------------------------------------
            Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text))
            ftpclient.UseBinary = True
            ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼)
            ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
            ftpclient.KeepAlive = False
            Dim ftpresponse As System.Net.FtpWebResponse
            Try
                ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
                Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
                Dim content(1024) As Byte : Dim index_a As Integer = 0
                index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
                Dim contentstring As String = String.Empty
                While index_a > 0
                    index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content)
                End While
                ftpresponse.Close()
                If contentstring.LastIndexOf(檔案名稱_tb.Text) > 0 Then
                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
                    For i As Integer = 1 To 10
                        If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
                            If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
                        End If
                    Next

                    If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
                        SQL_物料資料庫_圖檔入系統() : conn.Close() : FTP方式刪除檔案() : If 系統語言 = "繁體中文" Then : MsgBox("上傳完畢!!") : Else : MsgBox("Unggah Selesai!!") : End If
                    Else : FTP方式刪除檔案() : MsgBox(對話框(21)) : End If
                Else : MsgBox(對話框(22)) : End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
            檔案名稱_tb.Text = "" : Set_清單1() : 圖檔編號_tb.Text = ""
        End If
    End Sub
    Private Sub 圖片修改_bt_Click(sender As Object, e As EventArgs) Handles 圖片修改_bt.Click
        If 圖檔編號_tb.Text = "" Then
            MsgBox(對話框(2))
        Else
            If 檔案名稱_tb.Text = "" Then
                MsgBox(對話框(3))
            Else
                '-------------判斷FTP資料夾中是否有該文件--------------------------------------------------------------------------------------------------------
                Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text))
                ftpclient.UseBinary = True
                ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼)
                ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
                ftpclient.KeepAlive = False
                Dim ftpresponse As System.Net.FtpWebResponse
                Try
                    ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
                    Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
                    Dim content(1024) As Byte : Dim index_a As Integer = 0
                    index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
                    Dim contentstring As String = String.Empty
                    While index_a > 0
                        index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content)
                    End While
                    ftpresponse.Close()
                    If contentstring.LastIndexOf(檔案名稱_tb.Text) > 0 Then
                        Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
                        For i As Integer = 1 To 10
                            If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
                                If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
                            End If
                        Next

                        If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
                            SQL_物料圖庫_圖片修改() : conn.Close() : FTP方式刪除檔案() : 檔案名稱_tb.Text = "" : MsgBox(對話框(4))
                        Else : FTP方式刪除檔案() : MsgBox(對話框(21)) : End If
                    Else : MsgBox(對話框(22)) : End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
                '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                檔案名稱_tb.Text = "" : Set_清單1() : 圖檔編號_tb.Text = ""
            End If
        End If
    End Sub
    Private Sub FTP方式刪除檔案()
        '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
        Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
        frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
        fcr = New NetworkCredential(FTP帳號, FTP密碼)
        frq.Credentials = fcr
        frq.Method = WebRequestMethods.Ftp.DeleteFile
        frq.UseBinary = True
        frp = CType(frq.GetResponse, FtpWebResponse)
        frp.Close()
        伺服器_wb.Refresh()
    End Sub
    Private Sub 刪除圖檔_bt_Click(sender As Object, e As EventArgs) Handles 刪除圖檔_bt.Click
        輸入密碼.ShowDialog()
        If PA = "0013975151" Then
            Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                SQL_物料資料庫_物料圖庫() : Set_清單1() : 圖檔編號_tb.Text = ""
            End If
        Else
            If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除圖片!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus gambar!!") : End If
        End If
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 規格表頭新增_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭新增_tb.Click
        If 規格庫抬頭指定_tb.Text = "" Or A1_tb.Text = "" Or A2_tb.Text = "" Or A3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            SQL_物料資料庫_規格庫抬頭指定重複查詢()
            If dr.Read() Then
                MsgBox(對話框(13)) : conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close()
                For I As Integer = 1 To 3
                    If I = 1 Then : PA = "繁體中文"
                    ElseIf I = 2 Then : PA = "English"
                    ElseIf I = 3 Then : PA = "Indonesian" : End If
                    SQL_物料資料庫_規格庫抬頭指定新增()
                Next
                conn.Close() : dr.Close()
                MsgBox(對話框(17))
            End If
        End If
        Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入()
    End Sub
    Private Sub 規格表頭修改_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭修改_tb.Click
        If 規格庫抬頭指定_tb.Text = "" Or A1_tb.Text = "" Or A2_tb.Text = "" Or A3_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            SQL_物料資料庫_規格庫抬頭指定修改() : conn.Close()
            MsgBox(對話框(4))
        End If
        Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入()
    End Sub
    Private Sub 規格表頭刪除_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭刪除_tb.Click
        輸入密碼.ShowDialog()
        If PA = "0013975151" Then
            If 物料資訊_dgv.Rows.Count <> 0 Then
                MsgBox(對話框(8))
            Else
                Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then
                    SQL_物料資料庫_規格庫抬頭指定刪除() : MsgBox(對話框(11))
                End If
                conn.Close()
                Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入()
            End If
        Else
            If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除規格表頭!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus tajuk spesifikasi!!") : End If
        End If
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 新增物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 新增物料資訊_bt.Click
        If 群組碼2_tb.Text = "" Or 物料原則2_tb.Text = "" Or 原則說明_tb.Text = "" Or 規格庫編號1_cb.Text = "" Or 規格庫抬頭指定1_cb.Text = "" Then
            MsgBox(對話框(1))
        Else
            式共用3() : SQL_物料資料庫_物料資訊控制表重複查詢() : CmdSet_For_dr()
            If dr.Read() Then
                MsgBox(對話框(13)) : conn.Close() : dr.Close()
            Else
                式共用2()
                PA6 = 原則說明_tb.Text : PA7 = 群組碼2_tb.Text : PA8 = 物料原則2_tb.Text : PA9 = 規格庫編號1_cb.Text : PA10 = 規格庫抬頭指定1_cb.Text
                SQL_物料資料庫_物料資訊控制表新增() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub 修改物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 修改物料資訊_bt.Click
        If 群組碼2_tb.Text = "" Or 物料原則2_tb.Text = "" Or 原則說明_tb.Text = "" Or 規格庫編號1_cb.Text = "" Or
            規格庫抬頭指定_cb.Text = "" Or 規格庫編號_cb.Text = "" Or 規格庫抬頭指定1_cb.Text = "" Then
            MsgBox(對話框(1))
        Else
            Dim aa1 As MsgBoxResult = MsgBox(對話框(7), MsgBoxStyle.OkCancel)
            If aa1 = MsgBoxResult.Ok Then
                SQL_物料資訊控制表_資訊修改() : conn.Close() : MsgBox(對話框(0))
            End If
            式共用1()
        End If
    End Sub
    Private Sub 刪除物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 刪除物料資訊_bt.Click
        If Val(登入人級別) = 0 Then
            SQL_物料資料庫_物料資訊控制表刪除() : SET_刪除按鈕程式共用1()
        Else
            MsgBox(對話框(19))
        End If
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 修改物料規格_存量存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改物料規格_存量存檔_bt.Click
        For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
            資料數 = 物料明細1_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 物料明細1_dgv(4, i).Value.ToString : PA2 = 物料明細1_dgv(5, i).Value.ToString : PA3 = 物料明細1_dgv(6, i).Value.ToString
            PA4 = 物料明細1_dgv(7, i).Value.ToString : PA5 = 物料明細1_dgv(8, i).Value.ToString : PA6 = 物料明細1_dgv(9, i).Value.ToString
            PA7 = 物料明細1_dgv(10, i).Value.ToString : PA8 = 物料明細1_dgv(11, i).Value.ToString : PA9 = 物料明細1_dgv.Rows(i).Cells(表頭(65)).Value
            PA10 = 物料明細1_dgv.Rows(i).Cells(表頭(66)).Value : PA11 = 物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value
            SQL_物料規格表_修改() : conn.Close()
        Next
        MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 新增物料料號_bt_Click(sender As Object, e As EventArgs) Handles 新增物料料號_bt.Click
        If 料號原則2_tb.Text = "" Then
            MsgBox(對話框(9))
        Else
            Dim 進位 As Integer
            PA = 料號原則2_tb.Text
            SQL_物料規格表_後四碼()
            If dr.Read() Then
                進位 = Val(dr("後四碼")) + 1
                If 進位 < 10 Then : 原始料號_tb.Text = "000" & 進位
                ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號_tb.Text = "00" & 進位
                ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號_tb.Text = "0" & 進位
                ElseIf 進位 > 999 Then : 原始料號_tb.Text = 進位
                End If
            Else
                原始料號_tb.Text = "0000"
            End If : conn.Close()

            PA1 = 料號原則2_tb.Text : PA2 = 原始料號_tb.Text : PA3 = 群組碼4_tb.Text : PA4 = 料號原則2_tb.Text
            PA5 = AA1_tb.Text : PA6 = AA2_tb.Text : PA7 = AA3_tb.Text : PA8 = AA4_tb.Text : PA9 = AA5_tb.Text : PA10 = AA6_tb.Text : PA11 = AA7_tb.Text : PA12 = AA8_tb.Text
            SQL_物料規格表_料號查詢()
            If dr.Read() Then
                conn.Close()
                MsgBox(對話框(10))
            Else
                SQL_物料規格表_新增() : conn.Close()
                MsgBox(對話框(0))
                PA2 = 料號原則2_tb.Text : PA3 = 規格庫抬頭指定2_cb.Text
                讀取料號規格_01() : 讀取料號規格_02()
            End If
        End If
    End Sub
    Private Sub 刪除料號_bt_Click(sender As Object, e As EventArgs) Handles 刪除料號_bt.Click
        If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then
            PA1 = 料號tb.Text
            SQL_物料規格表_刪除() : conn.Close()
            MsgBox(對話框(11))
            PA2 = 料號原則2_tb.Text : PA3 = 規格庫抬頭指定2_cb.Text
            讀取料號規格_01() : 讀取料號規格_02()
        Else
            MsgBox(對話框(8))
        End If
    End Sub
    Private Sub 料號修改_bt_Click(sender As Object, e As EventArgs) Handles 料號修改_bt.Click
        EDR = Val(編碼_tb.Text)
        If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then
            For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
                EDR += 1
                If EDR < 10 Then : ESTR = "000" & EDR
                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "00" & EDR
                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "0" & EDR
                ElseIf EDR > 999 Then : ESTR = EDR
                End If
                物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value = 料號原則2_tb.Text & "-" & ESTR
            Next
        Else
            MsgBox(對話框(8))
        End If
    End Sub
    Private Sub 料號修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 料號修改存檔_bt.Click
        If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then
            For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
                資料數 = 物料明細1_dgv.Rows.Count : MyModule1.進度條()
                PA10 = 物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value : PA11 = 物料明細1_dgv.Rows(i).Cells("原始料號").Value
                SQL_合約試算明細表_料號修改() : SQL_物料規格表_料號修改() : SQL_倉儲明細表_料號修改() : SQL_請購單明細表_料號修改() : SQL_採購單明細表_料號修改() : conn.Close()
            Next
            MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Else
            MsgBox(對話框(8))
        End If
    End Sub
    Private Sub 資料複製_bt_Click(sender As Object, e As EventArgs) Handles 資料複製_bt.Click
        If 料號原則3_tb.Text = "" Then
            MsgBox(對話框(9))
        Else
            Dim 進位 As Integer : PA = 料號原則3_tb.Text : PA1 = 料號原則3_tb.Text : PA3 = 群組碼5_tb.Text : PA4 = 料號原則3_tb.Text
            For I As Integer = 0 To 物料明細2_dgv.Rows.Count - 1
                資料數 = 物料明細2_dgv.Rows.Count : MyModule1.進度條()
                If 物料明細2_dgv(15, I).Value = True Then
                    SQL_物料規格表_後四碼()
                    If dr.Read() Then
                        進位 = Val(dr("後四碼")) + 1
                        If 進位 < 10 Then : 原始料號1_tb.Text = "000" & 進位
                        ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號1_tb.Text = "00" & 進位
                        ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號1_tb.Text = "0" & 進位
                        ElseIf 進位 > 999 Then : 原始料號1_tb.Text = 進位
                        End If
                    Else
                        原始料號1_tb.Text = "0001"
                    End If : conn.Close()
                    PA2 = 原始料號1_tb.Text
                    PA5 = 物料明細2_dgv(4, I).Value.ToString : PA6 = 物料明細2_dgv(5, I).Value.ToString : PA7 = 物料明細2_dgv(6, I).Value.ToString : PA8 = 物料明細2_dgv(7, I).Value.ToString
                    PA9 = 物料明細2_dgv(8, I).Value.ToString : PA10 = 物料明細2_dgv(9, I).Value.ToString : PA11 = 物料明細2_dgv(10, I).Value.ToString : PA12 = 物料明細2_dgv(11, I).Value.ToString
                    SQL_物料規格表_料號查詢()
                    If dr.Read() Then
                        conn.Close()
                    Else
                        SQL_物料規格表_新增() : conn.Close()
                    End If
                End If
            Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            PA2 = 料號原則3_tb.Text : PA3 = 規格庫抬頭指定4_cb.Text : 讀取料號規格_01() : 讀取料號規格_03() : MsgBox(對話框(0))
        End If
    End Sub
    Private Sub 批量刪除_bt_Click(sender As Object, e As EventArgs) Handles 批量刪除_bt.Click
        If 料號原則3_tb.Text = "" Then
            MsgBox(對話框(20))
        Else
            Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1
                    If 物料明細3_dgv("Pick", i).Value = True Then
                        PA = 物料明細3_dgv("Nomor_Bagian", i).Value.ToString
                        SQL_物料資料庫_物料資訊控制表刪除1()
                    End If
                Next
                MsgBox(對話框(11))
            End If
            conn.Close()
            PA2 = 料號原則3_tb.Text : PA3 = 規格庫抬頭指定4_cb.Text : 讀取料號規格_01() : 讀取料號規格_03() : MsgBox(對話框(0))
        End If
    End Sub
    Private Sub 資料複製1_bt_Click(sender As Object, e As EventArgs) Handles 資料複製1_bt.Click
        If 料號原則5_tb.Text = "" Or 物料品名2_tb.Text = "" Then
            MsgBox(對話框(1))
        Else
            PA = 料號原則5_tb.Text : SQL_物料資料庫_物料編碼庫重複確認()
            If dr.Read() Then
                MsgBox(對話框(13))
                conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close()
                PA1 = 群組碼6_tb.Text : PA2 = 料號原則5_tb.Text : PA3 = 物料品名2_tb.Text
                SQL_物料資料庫_物料編碼庫新增()

                PA1 = 單位_tb.Text : PA2 = 群組碼6_tb.Text : PA3 = 料號原則5_tb.Text
                SQL_物料編碼庫_單位修改()

                Dim 舊圖檔 As String = 圖檔編號1_tb.Text
                SQL_物料資料庫_物料圖片流水號最後一筆()
                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("圖片流水號").ToString, 8)) : Else : EDR = 0 : End If
                conn.Close() : EDR += 1
                If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                End If
                圖檔編號1_tb.Text = ESTR

                PA4 = 舊圖檔 : PA5 = 圖檔編號1_tb.Text : PA2 = 料號原則5_tb.Text
                SQL_物料資料庫_複製圖檔()

                式共用2()
                PA6 = 物料品名2_tb.Text : PA7 = 群組碼6_tb.Text : PA8 = 料號原則5_tb.Text : PA9 = 規格庫編號5_cb.Text : PA10 = 規格庫抬頭指定5_cb.Text
                SQL_物料資料庫_物料資訊控制表新增() : SET_新增按鈕程式共用3()

                Dim 進位 As Integer : PA = 料號原則5_tb.Text : PA1 = 料號原則5_tb.Text : PA3 = 群組碼6_tb.Text : PA4 = 料號原則5_tb.Text
                For I As Integer = 0 To 物料明細4_dgv.Rows.Count - 1
                    資料數 = 物料明細4_dgv.Rows.Count : MyModule1.進度條()

                    SQL_物料規格表_後四碼()
                    If dr.Read() Then
                        進位 = Val(dr("後四碼")) + 1
                        If 進位 < 10 Then : 原始料號2_tb.Text = "000" & 進位
                        ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號2_tb.Text = "00" & 進位
                        ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號2_tb.Text = "0" & 進位
                        ElseIf 進位 > 999 Then : 原始料號2_tb.Text = 進位
                        End If
                    Else
                        原始料號2_tb.Text = "0001"
                    End If : conn.Close()

                    PA2 = 原始料號2_tb.Text
                    PA5 = 物料明細4_dgv(4, I).Value.ToString : PA6 = 物料明細4_dgv(5, I).Value.ToString : PA7 = 物料明細4_dgv(6, I).Value.ToString : PA8 = 物料明細4_dgv(7, I).Value.ToString
                    PA9 = 物料明細4_dgv(8, I).Value.ToString : PA10 = 物料明細4_dgv(9, I).Value.ToString : PA11 = 物料明細4_dgv(10, I).Value.ToString : PA12 = 物料明細4_dgv(11, I).Value.ToString
                    SQL_物料規格表_料號查詢()
                    If dr.Read() Then
                        conn.Close()
                    Else
                        SQL_物料規格表_新增() : conn.Close()
                    End If

                Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                MsgBox(對話框(0))
                conn.Close() : dr.Close()

                BL1 = True : PA1 = 群組碼6_tb.Text : 物料資訊控制表3() : PA1 = "" : BL1 = False
            End If
        End If
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : Set_清單1()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : Set_清單1()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : Set_清單1()
    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 : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False
    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 : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False
    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 : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False
    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 : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False
    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 : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False
    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 : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 小間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距3_ch.Click
        小間距3_ch.Checked = True : 中間距3_ch.Checked = False : 大間距3_ch.Checked = False : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 中間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距3_ch.Click
        小間距3_ch.Checked = False : 中間距3_ch.Checked = True : 大間距3_ch.Checked = False : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 大間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距3_ch.Click
        小間距3_ch.Checked = False : 中間距3_ch.Checked = False : 大間距3_ch.Checked = True : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 小間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距4_ch.Click
        小間距4_ch.Checked = True : 中間距4_ch.Checked = False : 大間距4_ch.Checked = False : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 中間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距4_ch.Click
        小間距4_ch.Checked = False : 中間距4_ch.Checked = True : 大間距4_ch.Checked = False : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 大間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距4_ch.Click
        小間距4_ch.Checked = False : 中間距4_ch.Checked = False : 大間距4_ch.Checked = True : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 小間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距5_ch.Click
        小間距5_ch.Checked = True : 中間距5_ch.Checked = False : 大間距5_ch.Checked = False : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 中間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距5_ch.Click
        小間距5_ch.Checked = False : 中間距5_ch.Checked = True : 大間距5_ch.Checked = False : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 大間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距5_ch.Click
        小間距5_ch.Checked = False : 中間距5_ch.Checked = False : 大間距5_ch.Checked = True : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False
    End Sub
    Private Sub 批量選擇_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 批量選擇_ch.Click
        If 批量選擇_ch.Checked = False Then
            物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True
        Else
            物料編碼_dgv.Columns(1).ReadOnly = False : 物料編碼_dgv.Columns(2).ReadOnly = False
        End If
    End Sub
    Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click
        Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5()
    End Sub
    Private Sub 修改群組_bt_Click(sender As Object, e As EventArgs) Handles 修改群組_bt.Click
        If 物料群組1_Panel.Visible = False Then : 物料群組1_Panel.Visible = True : 物料群組1_Panel.BringToFront() : Else : 物料群組1_Panel.Visible = False : End If
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
        If 物料群組1_Panel.Visible = False Then : 物料群組1_Panel.Visible = True : 物料群組1_Panel.BringToFront() : Else : 物料群組1_Panel.Visible = False : End If
    End Sub
    Private Sub 轉換_bt_Click(sender As Object, e As EventArgs) Handles 轉換_bt.Click
        If 物料品名_語轉_dgv.Visible = False Then : 物料品名_語轉_dgv.Visible = True : 物料品名_語轉_dgv.BringToFront() : Else : 物料品名_語轉_dgv.Visible = False : End If
    End Sub
    Private Sub S1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S1_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(16, I).Value = S1_ch.Checked
            End If
        Next
    End Sub
    Private Sub S2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S2_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(17, I).Value = S2_ch.Checked
            End If
        Next
    End Sub
    Private Sub S3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S3_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(18, I).Value = S3_ch.Checked
            End If
        Next
    End Sub
    Private Sub S4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S4_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(19, I).Value = S4_ch.Checked
            End If
        Next
    End Sub
    Private Sub S5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S5_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(20, I).Value = S5_ch.Checked
            End If
        Next
    End Sub
    Private Sub S6_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S6_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(21, I).Value = S6_ch.Checked
            End If
        Next
    End Sub
    Private Sub S7_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S7_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(22, I).Value = S7_ch.Checked
            End If
        Next
    End Sub
    Private Sub S8_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S8_ch.CheckedChanged
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And
               物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then
                物料明細5_dgv(23, I).Value = S8_ch.Checked
            End If
        Next
    End Sub
    Private Sub SAVE_bt_Click(sender As Object, e As EventArgs) Handles SAVE_bt.Click
        For i As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            資料數 = 物料明細5_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 物料明細5_dgv(16, i).Value.ToString : PA2 = 物料明細5_dgv(17, i).Value.ToString : PA3 = 物料明細5_dgv(18, i).Value.ToString
            PA4 = 物料明細5_dgv(19, i).Value.ToString : PA5 = 物料明細5_dgv(20, i).Value.ToString : PA6 = 物料明細5_dgv(21, i).Value.ToString
            PA7 = 物料明細5_dgv(22, i).Value.ToString : PA8 = 物料明細5_dgv(23, i).Value.ToString : PA11 = 物料明細5_dgv.Rows(i).Cells("Nomor_Bagian").Value
            SQL_物料規格表_修改1() : conn.Close()
        Next
        MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 設定_bt_Click(sender As Object, e As EventArgs) Handles 設定_bt.Click
        For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1
            物料明細5_dgv(16, I).Value = S1_ch.Checked : 物料明細5_dgv(17, I).Value = S2_ch.Checked : 物料明細5_dgv(18, I).Value = S3_ch.Checked
            物料明細5_dgv(19, I).Value = S4_ch.Checked : 物料明細5_dgv(20, I).Value = S5_ch.Checked : 物料明細5_dgv(21, I).Value = S6_ch.Checked
            物料明細5_dgv(22, I).Value = S7_ch.Checked : 物料明細5_dgv(23, I).Value = S8_ch.Checked
        Next
    End Sub
    Private Sub 翻譯_bt_Click(sender As Object, e As EventArgs) Handles 翻譯_bt.Click
        If 物料品名_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有資料!!") : Else : MsgBox("Tidak ada Informasi!!") : End If : Else
            翻譯 = Replace(物料品名_tb.Text, vbCrLf, " ") : MyModule2.執行翻譯() : 等待翻譯_tim.Enabled = True
        End If
    End Sub
    Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick
        Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
        If File.Exists("ch.txt") Then
            等待翻譯_tim.Enabled = False
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 品名1_tb.Text = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 品名2_tb.Text = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 品名3_tb.Text = stringReader : fileReader.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
        ElseIf File.Exists(Str2 & "\ch.txt") Then
            等待翻譯_tim.Enabled = False
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 品名1_tb.Text = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 品名2_tb.Text = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 品名3_tb.Text = stringReader : fileReader.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
        End If
    End Sub
    Private Sub 新增群組_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新增群組_ch.Click
        If 新增群組_ch.Checked = True Then
            群組碼_tb.Enabled = True
        Else
            群組碼_tb.Enabled = False
        End If
    End Sub
    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long
    Dim drag As Boolean
    Private Sub 物料群組1_Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 物料群組1_Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseMove
        If drag Then : 物料群組1_Panel.Left = 物料群組1_Panel.Left + e.X - OldX : 物料群組1_Panel.Top = 物料群組1_Panel.Top + e.Y - OldY : End If
    End Sub
    Private Sub 物料群組1_Panel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseUp
        drag = False
    End Sub
End Class