WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/製鞋技術管理系統/楦頭規格表.vb

Option Strict Off
Imports System.IO
Public Class 楦頭規格表
    Private ReadOnly ds, ds1, ds2, ds3 As New DataSet
    Dim WWD3, DTP As String
    Dim aa As MsgBoxResult
    Private ReadOnly BB4(21) As Boolean
    Dim BB3, AA1, AA2, AA3, AA4, HH, BB1, BB2 As Integer : Private ReadOnly AA6(21) As Integer
    Private Sub Set_楦頭規格表清單()
        楦頭_dgv.DataSource = Nothing : ds.Clear()
        楦頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        楦頭_dgv.ColumnHeadersHeight = 25
        楦頭_dgv.AllowUserToAddRows = False
        SQL_楦頭()
        da.Fill(ds) : 楦頭_dgv.DataSource = ds.Tables(0) : conn.Close()

        楦頭_dgv.Columns(0).Visible = False : 楦頭_dgv.Columns(1).Width = 120 : 楦頭_dgv.Columns(2).Visible = False : 楦頭_dgv.Columns(3).Visible = False
        楦頭_dgv.Columns(4).Visible = False : 楦頭_dgv.Columns(5).Visible = False : 楦頭_dgv.Columns(6).Visible = False : 楦頭_dgv.Columns(7).Visible = False
        楦頭_dgv.Columns(8).Visible = False : 楦頭_dgv.Columns(9).Visible = False : 楦頭_dgv.Columns(10).Visible = False : 楦頭_dgv.Columns(11).Visible = False
        楦頭_dgv.Columns(12).Visible = False : 楦頭_dgv.Columns(13).Visible = False : 楦頭_dgv.Columns(14).Visible = False : 楦頭_dgv.Columns(15).Visible = False
        楦頭_dgv.Columns(16).Visible = False : 楦頭_dgv.Columns(17).Visible = False : 楦頭_dgv.Columns(18).Visible = False : 楦頭_dgv.Columns(19).Visible = False
        楦頭_dgv.Columns(20).Visible = False : 楦頭_dgv.Columns(21).Visible = False : 楦頭_dgv.Columns(22).Visible = False : 楦頭_dgv.Columns(23).Visible = False
        楦頭_dgv.Columns(24).Visible = False : 楦頭_dgv.Columns(25).Visible = False : 楦頭_dgv.Columns(26).Visible = False : 楦頭_dgv.Columns(27).Visible = False
        楦頭_dgv.Columns(28).Visible = False : 楦頭_dgv.Columns(29).Visible = False : 楦頭_dgv.Columns(30).Visible = False : 楦頭_dgv.Columns(31).Visible = False
        楦頭_dgv.Columns(32).Visible = False : 楦頭_dgv.Columns(33).Visible = False
    End Sub
    Private Sub Set_規格表清單()
        尺寸_dgv.DataSource = Nothing : ds2.Clear()
        尺寸_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        尺寸_dgv.ColumnHeadersHeight = 25
        尺寸_dgv.AllowUserToAddRows = False
        SQL_楦頭規格表清單()
        da.Fill(ds2) : 尺寸_dgv.DataSource = ds2.Tables(0) : conn.Close()

        尺寸_dgv.Columns(0).Visible = False : 尺寸_dgv.Columns(1).Width = 60 : 尺寸_dgv.Columns(2).Width = 153 : 尺寸_dgv.Columns(3).Width = 153
        尺寸_dgv.Columns(4).Width = 153 : 尺寸_dgv.Columns(5).Width = 152 : 尺寸_dgv.Columns(6).Width = 152 : 尺寸_dgv.Columns(7).Width = 152
        尺寸_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub 標頭轉換()
        If 男鞋_rb.Checked = False Then
            後楦體寬度_lb.Text = "(at 36 mm on size 7B) Cuboid width後楦體寬度：" : 鞋頭厚度_lb.Text = "(at 235 mm) Toe Thickness鞋頭厚度：" : 第四趾圍_lb.Text = "(at 196 mm) Fourth Toe Girth第四趾圍："
            第五指圍_lb.Text = "(at 184 mm) Fifth Toe Girth第五指圍：" : 著地奌圍度_lb.Text = "(at 165 mm) Ball Tread Girth著地奌圍度：" : 前掌寬度_lb.Text = "Forepart width 前掌寬度 (at 196 mm)："
            前長寬度1_lb.Text = "Forepart width 前掌寬度 (at 184 mm)：" : 著地點寬度_lb.Text = "Ball tread width  著地點寬度 (at 165 mm)：" : 跟座寬度_lb.Text = "Heel seat width  跟座寬度 (at 36 mm)："
            WWD1 = "SP00000004" : WWD2 = "SP00000005" : WWD3 = "SP00000006"
        Else
            後楦體寬度_lb.Text = "(at 40 mm on size 7B) Cuboid width后楦体寬度：" : 鞋頭厚度_lb.Text = "(at 263 mm) Toe Thickness鞋頭厚度：" : 第四趾圍_lb.Text = "(at 218 mm) Fourth Toe Girth第四趾圍："
            第五指圍_lb.Text = "(at 204 mm) Fifth Toe Girth第五指圍：" : 著地奌圍度_lb.Text = "(at 183 mm) Ball Tread Girth著地奌圍度：" : 前掌寬度_lb.Text = "Forepart width 前掌寬度 (at 218 mm)："
            前長寬度1_lb.Text = "Forepart width 前掌寬度 (at 204 mm)：" : 著地點寬度_lb.Text = "Ball tread width  著地點寬度 (at 183 mm)：" : 跟座寬度_lb.Text = "Heel seat width  跟座寬度 (at 40 mm)："
            WWD1 = "SP00000001" : WWD2 = "SP00000002" : WWD3 = "SP00000003"
        End If
        SQL_讀取楦頭圖片()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("楦頭圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox3.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox3.SizeMode = 4
        SQL_讀取楦頭圖片1()
        While dr.Read() = True
            Dim unused2 As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("楦頭圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox4.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox4.SizeMode = 4
        SQL_讀取楦頭圖片2()
        While dr.Read() = True
            Dim unused1 As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("楦頭圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox5.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox5.SizeMode = 4
    End Sub
    Private Sub 格式設定()
        楦頭編號_tb.Visible = False : TextBox28.Visible = False : TextBox29.Visible = False : 腰圍_tb.Visible = False : 腳背圖_tb.Visible = False : 長跟周長_tb.Visible = False : ComboBox3.Visible = False
        GroupBox1.Visible = False
        If CC(41) = False Then : 新增楦頭規格表_bt.Enabled = False : 修改楦頭規格表_bt.Enabled = False : 刪除楦頭規格表_bt.Enabled = False : End If
        If CC(36) = False Then : 開啟楦頭圖片導入分頁_bt.Enabled = False : End If
        If CC(10) = False Then : 開啟鞋型圖片導入分頁1_bt.Enabled = False : End If
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : ComboBox1.Enabled = False : ComboBox2.Enabled = False : 查詢_bt.Enabled = False : 查詢1_bt.Enabled = False : 重新讀取1_bt.Enabled = False
        儲存新增_bt.Enabled = False : 儲存修改_bt.Enabled = False : 級放計算1_bt.Enabled = False : 重新選擇_bt.Enabled = False : 重新讀取_bt.Enabled = False
        楦頭_tb.Enabled = False
        楦頭_dgv.Enabled = True
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_讀取下拉1()
        ComboBox1.Items.Clear()
        While (dr.Read()) : ComboBox1.Items.Add(dr("楦頭編號")) : End While : conn.Close() : PA = ""
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_讀取下拉2()
        ComboBox2.Items.Clear() : ComboBox3.Items.Clear()
        While (dr.Read()) : ComboBox2.Items.Add(dr("形體名") & "-" & dr("形體號") & "-" & dr("顏色")) : ComboBox3.Items.Add(dr("圖片編號")) : End While : conn.Close() : PA = ""
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        SQL_讀取下拉5()
        客戶編碼_cb.Items.Clear() : While (dr.Read()) : 客戶編碼_cb.Items.Add(dr("縮寫")) : End While : conn.Close() : PA = ""
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd")
    End Sub
    Private Sub 楦頭規格表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        WINPROFIT_ERP_SYS.WindowState = 2 : PA = "" : GroupBox2.Visible = False : 楦頭流水_tb.Enabled = False
        Set_楦頭規格表清單()
        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox5下拉表單資料載入()
        格式設定()
    End Sub
    Private Sub 楦頭規格表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closed
        If 儲存新增_bt.Enabled = True Then
            SQL_刪除楦頭規格控制表() : conn.Close()
            SQL_刪除楦頭規格表清單() : conn.Close()
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 楦頭_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            男鞋_rb.Checked = 楦頭_dgv(28, e.RowIndex).Value.ToString
            If 男鞋_rb.Checked = True Then : 女鞋_rb.Checked = False : Else : 女鞋_rb.Checked = True : End If
            標頭轉換()
            楦頭編號_tb.Text = 楦頭_dgv(0, e.RowIndex).Value.ToString : 楦頭_tb.Text = 楦頭_dgv(1, e.RowIndex).Value.ToString : DateTimePicker1.Text = 楦頭_dgv(2, e.RowIndex).Value.ToString
            組別_tb.Text = 楦頭_dgv(3, e.RowIndex).Value.ToString : 後卡編號_tb.Text = 楦頭_dgv(4, e.RowIndex).Value.ToString : 前卡編號_tb.Text = 楦頭_dgv(5, e.RowIndex).Value.ToString
            楦底板編號_tb.Text = 楦頭_dgv(6, e.RowIndex).Value.ToString : 涼鞋腳床_tb.Text = 楦頭_dgv(7, e.RowIndex).Value.ToString : 活動中底編號_cb.Text = 楦頭_dgv(8, e.RowIndex).Value.ToString
            鞋底厚度_tb.Text = 楦頭_dgv(9, e.RowIndex).Value.ToString : 中皮軟墊厚度_tb.Text = 楦頭_dgv(10, e.RowIndex).Value.ToString : 備註_tb.Text = 楦頭_dgv(26, e.RowIndex).Value.ToString
            後楦體寬度_tb.Text = 楦頭_dgv(11, e.RowIndex).Value.ToString : 楦後跟高度_tb.Text = 楦頭_dgv(12, e.RowIndex).Value.ToString : 鞋頭翹度_tb.Text = 楦頭_dgv(13, e.RowIndex).Value.ToString
            鞋頭厚度_tb.Text = 楦頭_dgv(14, e.RowIndex).Value.ToString : 第四趾圖_tb.Text = 楦頭_dgv(15, e.RowIndex).Value.ToString : 第五指圖_tb.Text = 楦頭_dgv(16, e.RowIndex).Value.ToString
            地點圍度_tb.Text = 楦頭_dgv(17, e.RowIndex).Value.ToString : 腰圍1_tb.Text = 楦頭_dgv(18, e.RowIndex).Value.ToString : 腳背圖1_tb.Text = 楦頭_dgv(19, e.RowIndex).Value.ToString
            長跟周長1_tb.Text = 楦頭_dgv(20, e.RowIndex).Value.ToString : 楦底長度_tb.Text = 楦頭_dgv(21, e.RowIndex).Value.ToString : 前掌寬度_tb.Text = 楦頭_dgv(22, e.RowIndex).Value.ToString
            前掌寬度1_tb.Text = 楦頭_dgv(23, e.RowIndex).Value.ToString : 著地點寬度_tb.Text = 楦頭_dgv(24, e.RowIndex).Value.ToString : 跟座寬度_tb.Text = 楦頭_dgv(25, e.RowIndex).Value.ToString
            意見_tb.Text = 楦頭_dgv(27, e.RowIndex).Value.ToString : TextBox28.Text = 楦頭_dgv(29, e.RowIndex).Value.ToString : TextBox29.Text = 楦頭_dgv(30, e.RowIndex).Value.ToString
            結構名_tb.Text = 楦頭_dgv(31, e.RowIndex).Value.ToString : 碼數_cb.Text = 楦頭_dgv(32, e.RowIndex).Value.ToString : 楦頭直量長度_tb.Text = 楦頭_dgv(33, e.RowIndex).Value.ToString

            Set_規格表清單()
            PictureBox1.Image = Nothing : PictureBox2.Image = Nothing
            SQL_讀取圖片3()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("楦頭圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                PictureBox1.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            PictureBox1.SizeMode = 4
            SQL_讀取圖片4()
            While dr.Read() = True
                TextBox29.Text = dr("圖片編號")
                Dim unused1 As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                PictureBox2.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            PictureBox2.SizeMode = 4
        End If
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 尺寸_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If GroupBox1.Visible = True Then
                楦頭直量長度_tb.Text = 尺寸_dgv(2, e.RowIndex).Value.ToString : 楦底板長度_tb.Text = 尺寸_dgv(3, e.RowIndex).Value.ToString
                楦底掌寬度_tb.Text = 尺寸_dgv(4, e.RowIndex).Value.ToString : BallTreadGirth掌圍_tb.Text = 尺寸_dgv(5, e.RowIndex).Value.ToString
                WaistGirth腰圍_tb.Text = 尺寸_dgv(6, e.RowIndex).Value.ToString : InstepGirth背圍_tb.Text = 尺寸_dgv(7, e.RowIndex).Value.ToString
            End If
        End If
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 男鞋_rb.Click
        If 男鞋_rb.Checked = True Then : 男鞋_rb.Checked = True : 女鞋_rb.Checked = False : End If : 標頭轉換()
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 女鞋_rb.Click
        If 女鞋_rb.Checked = True Then : 女鞋_rb.Checked = True : 男鞋_rb.Checked = False : End If : 標頭轉換()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        SQL_連動下拉1()
        While dr.Read() = True
            TextBox28.Text = dr("楦頭圖片編號")
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("楦頭圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox1.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox1.SizeMode = 4
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        ComboBox3.SelectedIndex = ComboBox2.SelectedIndex
        SQL_連動下拉2()
        While dr.Read() = True
            TextBox29.Text = dr("圖片編號")
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox2.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的楦頭編號") : ComboBox1下拉表單資料載入() : MsgBox("查詢完成，請重新選擇下拉清單")
    End Sub
    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        ComboBox1下拉表單資料載入()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 查詢1_bt.Click
        PA = InputBox("請輸入要查詢的楦頭編號") : ComboBox2下拉表單資料載入() : MsgBox("查詢完成，請重新選擇下拉清單")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 重新讀取1_bt.Click
        ComboBox2下拉表單資料載入()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 楦頭規格清單_bt.Click
        PA = InputBox("請輸入要查詢的楦頭編號") : Set_楦頭規格表清單() : PA = ""
    End Sub
    Private Sub 更新()
        Set_日期格式轉換()
        SQL_更改楦頭規格控制表()
        conn.Close()
        For i As Integer = 0 To 尺寸_dgv.Rows.Count - 1
            資料數 = 尺寸_dgv.Rows.Count : MyModule1.進度條()
            If i = 0 Then : EDFR = "4.5" : ElseIf i = 1 Then : EDFR = "5.0" : ElseIf i = 2 Then : EDFR = "5.5" : ElseIf i = 3 Then : EDFR = "6.0"
            ElseIf i = 4 Then : EDFR = "6.5" : ElseIf i = 5 Then : EDFR = "7.0" : ElseIf i = 6 Then : EDFR = "7.5" : ElseIf i = 7 Then : EDFR = "8.0"
            ElseIf i = 8 Then : EDFR = "8.5" : ElseIf i = 9 Then : EDFR = "9.0" : ElseIf i = 10 Then : EDFR = "9.5" : ElseIf i = 11 Then : EDFR = "10.0"
            ElseIf i = 12 Then : EDFR = "10.5" : ElseIf i = 13 Then : EDFR = "11.0" : ElseIf i = 14 Then : EDFR = "11.5" : ElseIf i = 15 Then : EDFR = "12.0"
            ElseIf i = 16 Then : EDFR = "12.5" : ElseIf i = 17 Then : EDFR = "13.0" : ElseIf i = 18 Then : EDFR = "13.5" : ElseIf i = 19 Then : EDFR = "14.0"
            ElseIf i = 20 Then : EDFR = "14.5" : ElseIf i = 21 Then : EDFR = "15.0" : End If
            PA7 = 尺寸_dgv.Rows(i).Cells("楦頭直量長度").Value : PA8 = 尺寸_dgv.Rows(i).Cells("楦底板長度").Value
            PA9 = 尺寸_dgv.Rows(i).Cells("楦底掌寬度").Value : PA10 = 尺寸_dgv.Rows(i).Cells("掌圍").Value
            PA11 = 尺寸_dgv.Rows(i).Cells("腰圍").Value : PA12 = 尺寸_dgv.Rows(i).Cells("背圍").Value
            SQL_更改楦頭規格表清單() : conn.Close()
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 刪除楦頭規格表_bt.Click
        If 楦頭編號_tb.Text = "" Then
            MsgBox("沒有選擇要刪除的楦頭規格表")
        Else
            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                SQL_刪除楦頭規格控制表() : conn.Close()
                SQL_刪除楦頭規格表清單() : conn.Close()
                SQL_刪除楦頭圖片庫() : conn.Close()
                楦頭編號_tb.Text = "" : 楦頭_tb.Text = "" : 組別_tb.Text = "" : 後卡編號_tb.Text = "" : 前卡編號_tb.Text = "" : 楦底板編號_tb.Text = "" : 涼鞋腳床_tb.Text = "" : 活動中底編號_cb.Text = ""
                鞋底厚度_tb.Text = "" : 中皮軟墊厚度_tb.Text = "" : 備註_tb.Text = "" : 後楦體寬度_tb.Text = "" : 楦後跟高度_tb.Text = "" : 鞋頭翹度_tb.Text = "" : 鞋頭厚度_tb.Text = "" : 第四趾圖_tb.Text = ""
                第五指圖_tb.Text = "" : 地點圍度_tb.Text = "" : 腰圍1_tb.Text = "" : 腳背圖1_tb.Text = "" : 長跟周長1_tb.Text = "" : 楦底長度_tb.Text = "" : 前掌寬度_tb.Text = "" : 前掌寬度1_tb.Text = ""
                著地點寬度_tb.Text = "" : 跟座寬度_tb.Text = "" : 意見_tb.Text = "" : TextBox28.Text = "" : TextBox29.Text = "" : 腰圍_tb.Text = "" : 腳背圖_tb.Text = "" : 長跟周長_tb.Text = ""
                結構名_tb.Text = "" : 楦頭直量長度_tb.Text = ""
                DateTimePicker1.Text = Today() : 男鞋_rb.Checked = False
                女鞋_rb.Checked = False : PictureBox1.Image = Nothing : PictureBox2.Image = Nothing : PictureBox3.Image = Nothing : PictureBox4.Image = Nothing : PictureBox5.Image = Nothing
                Set_楦頭規格表清單()
                尺寸_dgv.DataSource = Nothing
                MsgBox("刪除完成")
            End If
        End If
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 修改楦頭規格表_bt.Click
        If 楦頭編號_tb.Text = "" Then
            MsgBox("沒有選擇要修改的楦頭規格表")
        Else
            男鞋_rb.Enabled = True : 女鞋_rb.Enabled = True : ComboBox1.Enabled = True : ComboBox2.Enabled = True : 查詢_bt.Enabled = True : 查詢1_bt.Enabled = True : 重新讀取1_bt.Enabled = True
            儲存修改_bt.Enabled = True : 級放計算1_bt.Enabled = True : 重新讀取_bt.Enabled = True
            楦頭_dgv.Enabled = False
            新增楦頭規格表_bt.Enabled = False : 修改楦頭規格表_bt.Enabled = False : 刪除楦頭規格表_bt.Enabled = False
        End If
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 儲存修改_bt.Click
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : ComboBox1.Enabled = False : ComboBox2.Enabled = False : 查詢_bt.Enabled = False : 查詢1_bt.Enabled = False : 重新讀取1_bt.Enabled = False
        儲存修改_bt.Enabled = False : 級放計算1_bt.Enabled = False : 重新讀取_bt.Enabled = False : GroupBox1.Visible = False
        楦頭_dgv.Enabled = True
        更新() : Set_楦頭規格表清單() : MsgBox("修改完成")
        新增楦頭規格表_bt.Enabled = True : 修改楦頭規格表_bt.Enabled = True : 刪除楦頭規格表_bt.Enabled = True
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 編碼完成_bt.Click
        If 客戶編碼_cb.Text = " " Then
            MsgBox("客戶指定編碼一定要選擇")
        Else
            If (楦頭後碼_cb.Text = "" Or 楦頭後碼_cb.Text = " ") And 擴充欄位_tb.Text = "" Then
                楦頭_tb.Text = 客戶編碼_cb.Text & 楦頭流水_tb.Text
            ElseIf (楦頭後碼_cb.Text <> "" Or 楦頭後碼_cb.Text <> " ") And 擴充欄位_tb.Text = "" Then
                楦頭_tb.Text = 客戶編碼_cb.Text & 楦頭流水_tb.Text & "-" & 楦頭後碼_cb.Text
            ElseIf (楦頭後碼_cb.Text = "" Or 楦頭後碼_cb.Text = " ") And 擴充欄位_tb.Text <> "" Then
                楦頭_tb.Text = 客戶編碼_cb.Text & 楦頭流水_tb.Text & "-" & 擴充欄位_tb.Text
            ElseIf (楦頭後碼_cb.Text <> "" Or 楦頭後碼_cb.Text <> " ") And 擴充欄位_tb.Text <> "" Then
                楦頭_tb.Text = 客戶編碼_cb.Text & 楦頭流水_tb.Text & "-" & 楦頭後碼_cb.Text & "-" & 擴充欄位_tb.Text
            End If
            SQL_查詢最後一筆資料流水號()
            If dr.Read() Then : 楦頭編號_tb.Text = dr("資料流水號").ToString : Else : 楦頭編號_tb.Text = "SS00000000" : End If
            conn.Close()
            Dim NUM1 As Integer
            NUM1 = Double.Parse(Strings.Right(楦頭編號_tb.Text, 8)) + 1
            If NUM1 < 10 Then : 楦頭編號_tb.Text = "SS" & "0000000" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 楦頭編號_tb.Text = "SS" & "000000" & NUM1
            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 楦頭編號_tb.Text = "SS" & "00000" & NUM1
            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 楦頭編號_tb.Text = "SS" & "0000" & NUM1
            ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 楦頭編號_tb.Text = "SS" & "000" & NUM1
            ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 楦頭編號_tb.Text = "SS" & "00" & NUM1
            ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 楦頭編號_tb.Text = "SS" & "0" & NUM1
            ElseIf NUM1 > 9999999 Then : 楦頭編號_tb.Text = "SS" & NUM1
            End If
            SQL_查詢楦頭編號()
            If dr.Read() Then
                conn.Close()
                MsgBox("楦頭編號重複")
            Else
                SQL_新增楦頭規格控制表()
                conn.Close()

                For i As Integer = 0 To 21
                    If i = 0 Then : EDFR = "4.5" : ElseIf i = 1 Then : EDFR = "5.0" : ElseIf i = 2 Then : EDFR = "5.5" : ElseIf i = 3 Then : EDFR = "6.0"
                    ElseIf i = 4 Then : EDFR = "6.5" : ElseIf i = 5 Then : EDFR = "7.0" : ElseIf i = 6 Then : EDFR = "7.5" : ElseIf i = 7 Then : EDFR = "8.0"
                    ElseIf i = 8 Then : EDFR = "8.5" : ElseIf i = 9 Then : EDFR = "9.0" : ElseIf i = 10 Then : EDFR = "9.5" : ElseIf i = 11 Then : EDFR = "10.0"
                    ElseIf i = 12 Then : EDFR = "10.5" : ElseIf i = 13 Then : EDFR = "11.0" : ElseIf i = 14 Then : EDFR = "11.5" : ElseIf i = 15 Then : EDFR = "12.0"
                    ElseIf i = 16 Then : EDFR = "12.5" : ElseIf i = 17 Then : EDFR = "13.0" : ElseIf i = 18 Then : EDFR = "13.5" : ElseIf i = 19 Then : EDFR = "14.0"
                    ElseIf i = 20 Then : EDFR = "14.5" : ElseIf i = 21 Then : EDFR = "15.0" : End If
                    SQL_新增楦頭規格表清單() : conn.Close()
                Next
                Set_規格表清單()
                GroupBox2.Visible = False
            End If
        End If
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 新增楦頭規格表_bt.Click
        男鞋_rb.Enabled = True : 女鞋_rb.Enabled = True : ComboBox1.Enabled = True : ComboBox2.Enabled = True : 查詢_bt.Enabled = True : 查詢1_bt.Enabled = True : 重新讀取1_bt.Enabled = True
        儲存新增_bt.Enabled = True : 級放計算1_bt.Enabled = True : 重新讀取_bt.Enabled = True
        楦頭_dgv.Enabled = False

        楦頭編號_tb.Text = "" : 楦頭_tb.Text = "" : 組別_tb.Text = "" : 後卡編號_tb.Text = "" : 前卡編號_tb.Text = "" : 楦底板編號_tb.Text = "" : 涼鞋腳床_tb.Text = "" : 活動中底編號_cb.Text = ""
        鞋底厚度_tb.Text = "" : 中皮軟墊厚度_tb.Text = "" : 備註_tb.Text = "" : 後楦體寬度_tb.Text = "" : 楦後跟高度_tb.Text = "" : 鞋頭翹度_tb.Text = "" : 鞋頭厚度_tb.Text = "" : 第四趾圖_tb.Text = ""
        第五指圖_tb.Text = "" : 地點圍度_tb.Text = "" : 腰圍1_tb.Text = "" : 腳背圖1_tb.Text = "" : 長跟周長1_tb.Text = "" : 楦底長度_tb.Text = "" : 前掌寬度_tb.Text = "" : 前掌寬度1_tb.Text = ""
        著地點寬度_tb.Text = "" : 跟座寬度_tb.Text = "" : 意見_tb.Text = "" : TextBox28.Text = "" : TextBox29.Text = "" : 腰圍_tb.Text = "" : 腳背圖_tb.Text = "" : 長跟周長_tb.Text = ""
        結構名_tb.Text = ""
        DateTimePicker1.Text = Today() : 男鞋_rb.Checked = False : 女鞋_rb.Checked = False : PictureBox1.Image = Nothing : PictureBox2.Image = Nothing

        'ConnOpen()
        'SQL1 = "SELECT TOP (1) 楦頭編號 FROM 楦頭規格控制表 ORDER BY 資料流水號 DESC"
        'CmdSet_For_dr()
        'If dr.Read() Then : TextBox40.Text = Strings.Mid(dr("楦頭編號"), 3, 4).ToString : Else : TextBox40.Text = "2000" : End If
        'conn.Close()
        'TextBox40.Text = Val(TextBox40.Text) + 1

        GroupBox2.Visible = True
        新增楦頭規格表_bt.Enabled = False : 修改楦頭規格表_bt.Enabled = False : 刪除楦頭規格表_bt.Enabled = False
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 儲存新增_bt.Click
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : ComboBox1.Enabled = False : ComboBox2.Enabled = False : 查詢_bt.Enabled = False : 查詢1_bt.Enabled = False : 重新讀取1_bt.Enabled = False
        儲存新增_bt.Enabled = False : 級放計算1_bt.Enabled = False : 重新讀取_bt.Enabled = False : GroupBox1.Visible = False
        楦頭_dgv.Enabled = True
        更新() : Set_楦頭規格表清單() : MsgBox("新增完成")
        新增楦頭規格表_bt.Enabled = True : 修改楦頭規格表_bt.Enabled = True : 刪除楦頭規格表_bt.Enabled = True
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 開啟楦頭圖片導入分頁_bt.Click
        楦頭圖片導入資料庫.Show() : 楦頭圖片導入資料庫.BringToFront()
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 開啟楦頭圖片資料庫_bt.Click
        楦頭圖片資料庫.Show() : 楦頭圖片導入資料庫.BringToFront()
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles 開啟鞋型圖片導入分頁1_bt.Click
        鞋型圖片導入資料庫.Show() : 鞋型圖片導入資料庫.BringToFront()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles 開啟鞋型圖片資料庫_bt.Click
        鞋型圖片資料庫.Show() : 鞋型圖片資料庫.BringToFront()
    End Sub
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles 級放計算1_bt.Click
        楦底板長度_tb.Text = 楦底長度_tb.Text : 楦底掌寬度_tb.Text = 著地點寬度_tb.Text : BallTreadGirth掌圍_tb.Text = 地點圍度_tb.Text : WaistGirth腰圍_tb.Text = 腰圍1_tb.Text : InstepGirth背圍_tb.Text = 腳背圖1_tb.Text
        四點五_ch.Checked = True : 六點五_ch.Checked = True : 八點五_ch.Checked = True : 十點五_ch.Checked = True : 十二點五_ch.Checked = True : 十四_ch.Checked = True
        五_ch.Checked = True : 七_ch.Checked = True : 九_ch.Checked = True : 十一_ch.Checked = True : 十三_ch.Checked = True : 十四點五_ch.Checked = True
        五點五_ch.Checked = True : 七點五_ch.Checked = True : 九點五_ch.Checked = True : 十一點五_ch.Checked = True : 十三點五_ch.Checked = True : 十五_ch.Checked = True
        六_ch.Checked = True : 八_ch.Checked = True : 十_ch.Checked = True : 十二_ch.Checked = True

        If 碼數_cb.Text = "" Then
            MsgBox("級放標準碼數沒有選擇")
        Else
            If 楦頭直量長度_tb.Text = "" Or 楦底板長度_tb.Text = "" Or 楦底掌寬度_tb.Text = "" Or BallTreadGirth掌圍_tb.Text = "" Or WaistGirth腰圍_tb.Text = "" Or InstepGirth背圍_tb.Text = "" Then
                MsgBox("計算數值不可空白")
            Else
                GroupBox1.Visible = False
                If 碼數_cb.Text = "4.5" Then : BB1 = 22 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "5.0" Then : BB1 = 21 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "5.5" Then : BB1 = 20 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "6.0" Then : BB1 = 19 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "6.5" Then : BB1 = 18 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "7.0" Then : BB1 = 17 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "7.5" Then : BB1 = 16 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "8.0" Then : BB1 = 15 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "8.5" Then : BB1 = 14 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "9.0" Then : BB1 = 13 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "9.5" Then : BB1 = 12 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "10.0" Then : BB1 = 11 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "10.5" Then : BB1 = 10 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "11.0" Then : BB1 = 9 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "11.5" Then : BB1 = 8 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "12.0" Then : BB1 = 7 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "12.5" Then : BB1 = 6 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "13.0" Then : BB1 = 5 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "13.5" Then : BB1 = 4 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "14.0" Then : BB1 = 3 : BB2 = 22 - BB1 : ElseIf 碼數_cb.Text = "14.5" Then : BB1 = 2 : BB2 = 22 - BB1
                ElseIf 碼數_cb.Text = "15.0" Then : BB1 = 1 : BB2 = 22 - BB1
                End If
                BB4(0) = 四點五_ch.Checked : BB4(1) = 五_ch.Checked : BB4(2) = 五點五_ch.Checked : BB4(3) = 六_ch.Checked : BB4(4) = 六點五_ch.Checked : BB4(5) = 七_ch.Checked
                BB4(6) = 七點五_ch.Checked : BB4(7) = 八_ch.Checked : BB4(8) = 八點五_ch.Checked : BB4(9) = 九_ch.Checked : BB4(10) = 九點五_ch.Checked : BB4(11) = 十_ch.Checked
                BB4(12) = 十點五_ch.Checked : BB4(13) = 十一_ch.Checked : BB4(14) = 十一點五_ch.Checked : BB4(15) = 十二_ch.Checked : BB4(16) = 十二點五_ch.Checked : BB4(17) = 十三_ch.Checked
                BB4(18) = 十三點五_ch.Checked : BB4(19) = 十四_ch.Checked : BB4(20) = 十四點五_ch.Checked : BB4(21) = 十五_ch.Checked

                尺寸_dgv.Rows(BB2).Cells(2).Value = 楦頭直量長度_tb.Text : 尺寸_dgv.Rows(BB2).Cells(3).Value = 楦底板長度_tb.Text : 尺寸_dgv.Rows(BB2).Cells(4).Value = 楦底掌寬度_tb.Text
                尺寸_dgv.Rows(BB2).Cells(5).Value = BallTreadGirth掌圍_tb.Text : 尺寸_dgv.Rows(BB2).Cells(6).Value = WaistGirth腰圍_tb.Text : 尺寸_dgv.Rows(BB2).Cells(7).Value = InstepGirth背圍_tb.Text
                For I As Integer = BB2 To 20
                    If BB4(I + 1) = True Then
                        尺寸_dgv.Rows(I + 1).Cells(2).Value = Format(Double.Parse(尺寸_dgv(2, I).Value.ToString) + 4.23, "##0.000")
                        尺寸_dgv.Rows(I + 1).Cells(3).Value = Format(Double.Parse(尺寸_dgv(3, I).Value.ToString) + 4.23, "##0.000")
                        尺寸_dgv.Rows(I + 1).Cells(4).Value = Format(Double.Parse(尺寸_dgv(4, I).Value.ToString) + 1.06, "##0.000")
                        尺寸_dgv.Rows(I + 1).Cells(5).Value = Format(Double.Parse(尺寸_dgv(5, I).Value.ToString) + 3.175, "##0.000")
                        尺寸_dgv.Rows(I + 1).Cells(6).Value = Format(Double.Parse(尺寸_dgv(6, I).Value.ToString) + 3.175, "##0.000")
                        尺寸_dgv.Rows(I + 1).Cells(7).Value = Format(Double.Parse(尺寸_dgv(7, I).Value.ToString) + 3.175, "##0.000")
                    Else
                        尺寸_dgv.Rows(I + 1).Cells(2).Value = "0.000" : 尺寸_dgv.Rows(I + 1).Cells(3).Value = "0.000" : 尺寸_dgv.Rows(I + 1).Cells(4).Value = "0.000"
                        尺寸_dgv.Rows(I + 1).Cells(5).Value = "0.000" : 尺寸_dgv.Rows(I + 1).Cells(6).Value = "0.000" : 尺寸_dgv.Rows(I + 1).Cells(7).Value = "0.000"
                    End If
                Next
                BB3 = BB2
                For I As Integer = 0 To BB2
                    If BB4(BB3) = True Then
                        尺寸_dgv.Rows(BB3).Cells(2).Value = Format(Double.Parse(尺寸_dgv(2, BB3 + 1).Value.ToString) - 4.23, "##0.000")
                        尺寸_dgv.Rows(BB3).Cells(3).Value = Format(Double.Parse(尺寸_dgv(3, BB3 + 1).Value.ToString) - 4.23, "##0.000")
                        尺寸_dgv.Rows(BB3).Cells(4).Value = Format(Double.Parse(尺寸_dgv(4, BB3 + 1).Value.ToString) - 1.06, "##0.000")
                        尺寸_dgv.Rows(BB3).Cells(5).Value = Format(Double.Parse(尺寸_dgv(5, BB3 + 1).Value.ToString) - 3.175, "##0.000")
                        尺寸_dgv.Rows(BB3).Cells(6).Value = Format(Double.Parse(尺寸_dgv(6, BB3 + 1).Value.ToString) - 3.175, "##0.000")
                        尺寸_dgv.Rows(BB3).Cells(7).Value = Format(Double.Parse(尺寸_dgv(7, BB3 + 1).Value.ToString) - 3.175, "##0.000")
                    Else
                        尺寸_dgv.Rows(BB3).Cells(2).Value = "0.000" : 尺寸_dgv.Rows(BB3).Cells(3).Value = "0.000" : 尺寸_dgv.Rows(BB3).Cells(4).Value = "0.000"
                        尺寸_dgv.Rows(BB3).Cells(5).Value = "0.000" : 尺寸_dgv.Rows(BB3).Cells(6).Value = "0.000" : 尺寸_dgv.Rows(BB3).Cells(7).Value = "0.000"
                    End If
                    BB3 -= 1
                Next
                楦底板長度_tb.Text = "" : 楦底掌寬度_tb.Text = "" : BallTreadGirth掌圍_tb.Text = "" : WaistGirth腰圍_tb.Text = "" : InstepGirth背圍_tb.Text = ""
                MsgBox("計算完畢")
            End If
        End If
        'If GroupBox1.Visible = True Then
        '    GroupBox1.Visible = False
        'Else
        '    GroupBox1.Visible = True
        'End If
    End Sub
    Private Sub 級放範圍選擇邏輯()
        If AA1 <> 0 And AA2 <> 0 Then
            If AA1 < AA2 Then : AA3 = AA1 : AA4 = AA2 : ElseIf AA2 < AA1 Then : AA3 = AA2 : AA4 = AA1 : End If
            For HH = AA3 To AA4 : AA6(HH - 1) = HH : Next
            If AA6(0) = 1 Then : 四點五_ch.Checked = True : Else : 四點五_ch.Checked = False : End If : If AA6(1) = 2 Then : 五_ch.Checked = True : Else : 五_ch.Checked = False : End If
            If AA6(2) = 3 Then : 五點五_ch.Checked = True : Else : 五點五_ch.Checked = False : End If : If AA6(3) = 4 Then : 六_ch.Checked = True : Else : 六_ch.Checked = False : End If
            If AA6(4) = 5 Then : 六點五_ch.Checked = True : Else : 六點五_ch.Checked = False : End If : If AA6(5) = 6 Then : 七_ch.Checked = True : Else : 七_ch.Checked = False : End If
            If AA6(6) = 7 Then : 七點五_ch.Checked = True : Else : 七點五_ch.Checked = False : End If : If AA6(7) = 8 Then : 八_ch.Checked = True : Else : 八_ch.Checked = False : End If
            If AA6(8) = 9 Then : 八點五_ch.Checked = True : Else : 八點五_ch.Checked = False : End If : If AA6(9) = 10 Then : 九_ch.Checked = True : Else : 九_ch.Checked = False : End If
            If AA6(10) = 11 Then : 九點五_ch.Checked = True : Else : 九點五_ch.Checked = False : End If : If AA6(11) = 12 Then : 十_ch.Checked = True : Else : 十_ch.Checked = False : End If
            If AA6(12) = 13 Then : 十點五_ch.Checked = True : Else : 十點五_ch.Checked = False : End If : If AA6(13) = 14 Then : 十一_ch.Checked = True : Else : 十一_ch.Checked = False : End If
            If AA6(14) = 15 Then : 十一點五_ch.Checked = True : Else : 十一點五_ch.Checked = False : End If : If AA6(15) = 16 Then : 十二_ch.Checked = True : Else : 十二_ch.Checked = False : End If
            If AA6(16) = 17 Then : 十二點五_ch.Checked = True : Else : 十二點五_ch.Checked = False : End If : If AA6(17) = 18 Then : 十三_ch.Checked = True : Else : 十三_ch.Checked = False : End If
            If AA6(18) = 19 Then : 十三點五_ch.Checked = True : Else : 十三點五_ch.Checked = False : End If : If AA6(19) = 20 Then : 十四_ch.Checked = True : Else : 十四_ch.Checked = False : End If
            If AA6(20) = 21 Then : 十四點五_ch.Checked = True : Else : 十四點五_ch.Checked = False : End If : If AA6(21) = 22 Then : 十五_ch.Checked = True : Else : 十五_ch.Checked = False : End If
            AA6(0) = 0 : AA6(1) = 0 : AA6(2) = 0 : AA6(3) = 0 : AA6(4) = 0 : AA6(5) = 0 : AA6(6) = 0 : AA6(7) = 0 : AA6(8) = 0 : AA6(9) = 0 : AA6(10) = 0 : AA6(11) = 0 : AA6(12) = 0 : AA6(13) = 0
            AA6(14) = 0 : AA6(15) = 0 : AA6(16) = 0 : AA6(17) = 0 : AA6(18) = 0 : AA6(19) = 0 : AA6(20) = 0 : AA6(21) = 0 : HH = 0
            四點五_ch.Enabled = False : 五_ch.Enabled = False : 五點五_ch.Enabled = False : 六_ch.Enabled = False : 六點五_ch.Enabled = False : 七_ch.Enabled = False : 七點五_ch.Enabled = False
            八_ch.Enabled = False : 八點五_ch.Enabled = False : 九_ch.Enabled = False : 九點五_ch.Enabled = False : 十_ch.Enabled = False : 十點五_ch.Enabled = False : 十一_ch.Enabled = False
            十一點五_ch.Enabled = False : 十二_ch.Enabled = False : 十二點五_ch.Enabled = False : 十三_ch.Enabled = False : 十三點五_ch.Enabled = False : 十四_ch.Enabled = False : 十四點五_ch.Enabled = False
            十五_ch.Enabled = False
            重新選擇_bt.Enabled = True
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 四點五_ch.Click
        If 四點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 1 : 四點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 1 : 四點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 四點五_ch.Checked = False : End If
        ElseIf 四點五_ch.Checked = False Then
            If AA1 = 1 Then : AA1 = 0 : 四點五_ch.Checked = False : ElseIf AA2 = 1 Then : AA2 = 0 : 四點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 四點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 五_ch.Click
        If 五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 2 : 五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 2 : 五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 五_ch.Checked = False : End If
        ElseIf 五_ch.Checked = False Then
            If AA1 = 2 Then : AA1 = 0 : 五_ch.Checked = False : ElseIf AA2 = 2 Then : AA2 = 0 : 五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 五點五_ch.Click
        If 五點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 3 : 五點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 3 : 五點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 五點五_ch.Checked = False : End If
        ElseIf 五點五_ch.Checked = False Then
            If AA1 = 3 Then : AA1 = 0 : 五點五_ch.Checked = False : ElseIf AA2 = 3 Then : AA2 = 0 : 五點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 五點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 六_ch.Click
        If 六_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 4 : 六_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 4 : 六_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 六_ch.Checked = False : End If
        ElseIf 六_ch.Checked = False Then
            If AA1 = 4 Then : AA1 = 0 : 六_ch.Checked = False : ElseIf AA2 = 4 Then : AA2 = 0 : 六_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 六_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 六點五_ch.Click
        If 六點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 5 : 六點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 5 : 六點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 六點五_ch.Checked = False : End If
        ElseIf 六點五_ch.Checked = False Then
            If AA1 = 5 Then : AA1 = 0 : 六點五_ch.Checked = False : ElseIf AA2 = 5 Then : AA2 = 0 : 六點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 六點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 七_ch.Click
        If 七_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 6 : 七_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 6 : 七_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 七_ch.Checked = False : End If
        ElseIf 七_ch.Checked = False Then
            If AA1 = 6 Then : AA1 = 0 : 七_ch.Checked = False : ElseIf AA2 = 6 Then : AA2 = 0 : 七_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 七_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles 七點五_ch.Click
        If 七點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 7 : 七點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 7 : 七點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 七點五_ch.Checked = False : End If
        ElseIf 七點五_ch.Checked = False Then
            If AA1 = 7 Then : AA1 = 0 : 七點五_ch.Checked = False : ElseIf AA2 = 7 Then : AA2 = 0 : 七點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 七點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 八_ch.Click
        If 八_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 8 : 八_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 8 : 八_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 八_ch.Checked = False : End If
        ElseIf 八_ch.Checked = False Then
            If AA1 = 8 Then : AA1 = 0 : 八_ch.Checked = False : ElseIf AA2 = 8 Then : AA2 = 0 : 八_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 八_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles 八點五_ch.Click
        If 八點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 9 : 八點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 9 : 八點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 八點五_ch.Checked = False : End If
        ElseIf 八點五_ch.Checked = False Then
            If AA1 = 9 Then : AA1 = 0 : 八點五_ch.Checked = False : ElseIf AA2 = 9 Then : AA2 = 0 : 八點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 八點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles 九_ch.Click
        If 九_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 10 : 九_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 10 : 九_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 九_ch.Checked = False : End If
        ElseIf 九_ch.Checked = False Then
            If AA1 = 10 Then : AA1 = 0 : 九_ch.Checked = False : ElseIf AA2 = 10 Then : AA2 = 0 : 九_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 九_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles 九點五_ch.Click
        If 九點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 11 : 九點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 11 : 九點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 九點五_ch.Checked = False : End If
        ElseIf 九點五_ch.Checked = False Then
            If AA1 = 11 Then : AA1 = 0 : 九點五_ch.Checked = False : ElseIf AA2 = 11 Then : AA2 = 0 : 九點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 九點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles 十_ch.Click
        If 十_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 12 : 十_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 12 : 十_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十_ch.Checked = False : End If
        ElseIf 十_ch.Checked = False Then
            If AA1 = 12 Then : AA1 = 0 : 十_ch.Checked = False : ElseIf AA2 = 12 Then : AA2 = 0 : 十_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles 十點五_ch.Click
        If 十點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 13 : 十點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 13 : 十點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十點五_ch.Checked = False : End If
        ElseIf 十點五_ch.Checked = False Then
            If AA1 = 13 Then : AA1 = 0 : 十點五_ch.Checked = False : ElseIf AA2 = 13 Then : AA2 = 0 : 十點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles 十一_ch.Click
        If 十一_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 14 : 十一_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 14 : 十一_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十一_ch.Checked = False : End If
        ElseIf 十一_ch.Checked = False Then
            If AA1 = 14 Then : AA1 = 0 : 十一_ch.Checked = False : ElseIf AA2 = 14 Then : AA2 = 0 : 十一_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十一_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles 十一點五_ch.Click
        If 十一點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 15 : 十一點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 15 : 十一點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十一點五_ch.Checked = False : End If
        ElseIf 十一點五_ch.Checked = False Then
            If AA1 = 15 Then : AA1 = 0 : 十一點五_ch.Checked = False : ElseIf AA2 = 15 Then : AA2 = 0 : 十一點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十一點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles 十二_ch.Click
        If 十二_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 16 : 十二_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 16 : 十二_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十二_ch.Checked = False : End If
        ElseIf 十二_ch.Checked = False Then
            If AA1 = 16 Then : AA1 = 0 : 十二_ch.Checked = False : ElseIf AA2 = 16 Then : AA2 = 0 : 十二_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十二_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles 十二點五_ch.Click
        If 十二點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 17 : 十二點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 17 : 十二點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十二點五_ch.Checked = False : End If
        ElseIf 十二點五_ch.Checked = False Then
            If AA1 = 17 Then : AA1 = 0 : 十二點五_ch.Checked = False : ElseIf AA2 = 17 Then : AA2 = 0 : 十二點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十二點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles 十三_ch.Click
        If 十三_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 18 : 十三_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 18 : 十三_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十三_ch.Checked = False : End If
        ElseIf 十三_ch.Checked = False Then
            If AA1 = 18 Then : AA1 = 0 : 十三_ch.Checked = False : ElseIf AA2 = 18 Then : AA2 = 0 : 十三_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十三_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles 十三點五_ch.Click
        If 十三點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 19 : 十三點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 19 : 十三點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十三點五_ch.Checked = False : End If
        ElseIf 十三點五_ch.Checked = False Then
            If AA1 = 19 Then : AA1 = 0 : 十三點五_ch.Checked = False : ElseIf AA2 = 19 Then : AA2 = 0 : 十三點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十三點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles 十四_ch.Click
        If 十四_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 20 : 十四_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 20 : 十四_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十四_ch.Checked = False : End If
        ElseIf 十四_ch.Checked = False Then
            If AA1 = 20 Then : AA1 = 0 : 十四_ch.Checked = False : ElseIf AA2 = 20 Then : AA2 = 0 : 十四_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十四_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles 十四點五_ch.Click
        If 十四點五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 21 : 十四點五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 21 : 十四點五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十四點五_ch.Checked = False : End If
        ElseIf 十四點五_ch.Checked = False Then
            If AA1 = 21 Then : AA1 = 0 : 十四點五_ch.Checked = False : ElseIf AA2 = 21 Then : AA2 = 0 : 十四點五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十四點五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox22_CheckedChanged(sender As Object, e As EventArgs) Handles 十五_ch.Click
        If 十五_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 22 : 十五_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 22 : 十五_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十五_ch.Checked = False : End If
        ElseIf 十五_ch.Checked = False Then
            If AA1 = 22 Then : AA1 = 0 : 十五_ch.Checked = False : ElseIf AA2 = 22 Then : AA2 = 0 : 十五_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 十五_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles 重新選擇_bt.Click
        重新選擇_bt.Enabled = False
        四點五_ch.Enabled = True : 五_ch.Enabled = True : 五點五_ch.Enabled = True : 六_ch.Enabled = True : 六點五_ch.Enabled = True : 七_ch.Enabled = True : 七點五_ch.Enabled = True
        八_ch.Enabled = True : 八點五_ch.Enabled = True : 九_ch.Enabled = True : 九點五_ch.Enabled = True : 十_ch.Enabled = True : 十點五_ch.Enabled = True : 十一_ch.Enabled = True
        十一點五_ch.Enabled = True : 十二_ch.Enabled = True : 十二點五_ch.Enabled = True : 十三_ch.Enabled = True : 十三點五_ch.Enabled = True : 十四_ch.Enabled = True : 十四點五_ch.Enabled = True
        十五_ch.Enabled = True
        四點五_ch.Checked = False : 五_ch.Checked = False : 五點五_ch.Checked = False : 六_ch.Checked = False : 六點五_ch.Checked = False : 七_ch.Checked = False : 七點五_ch.Checked = False
        八_ch.Checked = False : 八點五_ch.Checked = False : 九_ch.Checked = False : 九點五_ch.Checked = False : 十_ch.Checked = False : 十點五_ch.Checked = False : 十一_ch.Checked = False
        十一點五_ch.Checked = False : 十二_ch.Checked = False : 十二點五_ch.Checked = False : 十三_ch.Checked = False : 十三點五_ch.Checked = False : 十四_ch.Checked = False : 十四點五_ch.Checked = False
        十五_ch.Checked = False
        AA1 = 0 : AA2 = 0 : AA3 = 0 : AA4 = 0
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles 級放計算_bt.Click
        If 四點五_ch.Checked = False And 六點五_ch.Checked = False And 八點五_ch.Checked = False And 十點五_ch.Checked = False And 十二點五_ch.Checked = False And 十四_ch.Checked = False And
            五_ch.Checked = False And 七_ch.Checked = False And 九_ch.Checked = False And 十一_ch.Checked = False And 十三_ch.Checked = False And 十四點五_ch.Checked = False And
            五點五_ch.Checked = False And 七點五_ch.Checked = False And 九點五_ch.Checked = False And 十一點五_ch.Checked = False And 十三點五_ch.Checked = False And 十五_ch.Checked = False And
            六_ch.Checked = False And 八_ch.Checked = False And 十_ch.Checked = False And 十二_ch.Checked = False Then
            MsgBox("級放範圍沒有選擇")
        Else
        End If
    End Sub
    Dim m_MousePosX As Integer
    Dim m_MousePosY As Integer
    '@#当鼠标按下时，将鼠标变成手形，并且记录下当前鼠标的位置 
    Private Sub GroupBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        If GroupBox1.Visible = True Then
            m_MousePosX = e.X
            m_MousePosY = e.Y
            GroupBox1.Location = New Point(m_MousePosX, m_MousePosY)
        End If
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles 關閉視窗_bt.Click
        GroupBox1.Visible = False
        GroupBox1.Location = New Point(428, 498)
    End Sub
    Private Sub CheckBox23_CheckedChanged(sender As Object, e As EventArgs) Handles 手動輸入_cb.Click
        If 手動輸入_cb.Checked = False Then
            手動輸入_cb.Checked = False : 楦頭流水_tb.Enabled = False
        Else
            手動輸入_cb.Checked = True : 楦頭流水_tb.Enabled = True
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 編碼取消_bt.Click
        GroupBox2.Visible = False
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : ComboBox1.Enabled = False : ComboBox2.Enabled = False : 查詢_bt.Enabled = False : 查詢1_bt.Enabled = False : 重新讀取1_bt.Enabled = False
        儲存新增_bt.Enabled = False : 級放計算1_bt.Enabled = False : 重新讀取_bt.Enabled = False : GroupBox1.Visible = False
        楦頭_dgv.Enabled = True : 新增楦頭規格表_bt.Enabled = True : 修改楦頭規格表_bt.Enabled = True : 刪除楦頭規格表_bt.Enabled = True
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 編號新增_bt.Click
        清單修改.Close() : 楦頭編碼修改 = True : 清單修改.ShowDialog() : ComboBox5下拉表單資料載入() : 楦頭編碼修改 = False
    End Sub
End Class