TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/製鞋技術資料管理/楦頭規格表.vb

Option Strict Off
Imports System.IO
Public Class 楦頭規格表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
    Dim aa As MsgBoxResult
    Dim AA1 As Integer = 0 : Dim AA2 As Integer = 0 : Dim AA3 As Integer = 0 : Dim AA4 As Integer = 0 : ReadOnly AA6(21) As Integer : Dim HH As Integer
    Dim BB1 As Integer : Dim BB2 As Integer : Dim BB3 As Integer : ReadOnly BB4(21) As Boolean
    Private Sub Set_楦頭規格表清單()
        Try
            楦頭圖片編號_dgv.DataSource = Nothing : ds.Clear()
            楦頭圖片編號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            楦頭圖片編號_dgv.ColumnHeadersHeight = 25
            楦頭圖片編號_dgv.AllowUserToAddRows = False
            SQL_楦頭圖片編號清單()
            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 楦頭圖片編號_dgv.DataSource = ds.Tables(0) : conn.Close()
            楦頭圖片編號_dgv.Columns(0).Visible = False : 楦頭圖片編號_dgv.Columns(1).FillWeight = 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
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Set_形體號清單()
        Try
            型體名_dgv.DataSource = Nothing : ds1.Clear()
            型體名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            型體名_dgv.ColumnHeadersHeight = 25
            型體名_dgv.AllowUserToAddRows = False
            SQL_型體名清單()
            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 型體名_dgv.DataSource = ds1.Tables(0) : conn.Close()
            型體名_dgv.Columns(0).Visible = False : 型體名_dgv.Columns(1).Visible = False : 型體名_dgv.Columns(2).FillWeight = 120 : 型體名_dgv.Columns(3).FillWeight = 120
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Set_規格表清單()
        Try
            楦頭規格表清單_dgv.DataSource = Nothing : ds2.Clear()
            楦頭規格表清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            楦頭規格表清單_dgv.ColumnHeadersHeight = 25
            楦頭規格表清單_dgv.AllowUserToAddRows = False
            SQL_楦頭規格表清單()
            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 楦頭規格表清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
            楦頭規格表清單_dgv.Columns(0).Visible = False : 楦頭規格表清單_dgv.Columns(1).FillWeight = 60 : 楦頭規格表清單_dgv.Columns(2).FillWeight = 153 : 楦頭規格表清單_dgv.Columns(3).FillWeight = 153
            楦頭規格表清單_dgv.Columns(4).FillWeight = 153 : 楦頭規格表清單_dgv.Columns(5).FillWeight = 152 : 楦頭規格表清單_dgv.Columns(6).FillWeight = 152 : 楦頭規格表清單_dgv.Columns(7).FillWeight = 152
            楦頭規格表清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Set_DGV4載入前設定()
        Try
            形體名稱_dgv.DataSource = Nothing : ds3.Clear()
            形體名稱_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            形體名稱_dgv.ColumnHeadersHeight = 25
            形體名稱_dgv.AllowUserToAddRows = False
            ConnOpen()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Set_DGV4載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 形體名稱_dgv.DataSource = ds3.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid3()
        形體名稱_dgv.Columns(0).FillWeight = 60 : 形體名稱_dgv.Columns(1).FillWeight = 90 : 形體名稱_dgv.Columns(2).FillWeight = 90
    End Sub
    Private Sub 標頭轉換()
        Try
            If 男鞋_rb.Checked = False Then
                Label11.Text = "(at 36 mm on size 7B) Cuboid width後楦體寬度：" : Label14.Text = "(at 235 mm) Toe Thickness鞋頭厚度：" : Label15.Text = "(at 196 mm) Fourth Toe Girth第四趾圍："
                Label16.Text = "(at 184 mm) Fifth Toe Girth第五指圍：" : Label17.Text = "(at 165 mm) Ball Tread Girth著地奌圍度：" : Label22.Text = "Forepart width 前掌寬度 (at 196 mm)："
                Label23.Text = "Forepart width 前掌寬度 (at 184 mm)：" : Label24.Text = "Ball tread width  著地點寬度 (at 165 mm)：" : Label25.Text = "Heel seat width  跟座寬度 (at 36 mm)："
                WWD1 = "SP00000004" : WWD2 = "SP00000005" : WWD3 = "SP00000006"
            Else
                Label11.Text = "(at 40 mm on size 7B) Cuboid width后楦体寬度：" : Label14.Text = "(at 263 mm) Toe Thickness鞋頭厚度：" : Label15.Text = "(at 218 mm) Fourth Toe Girth第四趾圍："
                Label16.Text = "(at 204 mm) Fifth Toe Girth第五指圍：" : Label17.Text = "(at 183 mm) Ball Tread Girth著地奌圍度：" : Label22.Text = "Forepart width 前掌寬度 (at 218 mm)："
                Label23.Text = "Forepart width 前掌寬度 (at 204 mm)：" : Label24.Text = "Ball tread width  著地點寬度 (at 183 mm)：" : Label25.Text = "Heel seat width  跟座寬度 (at 40 mm)："
                WWD1 = "SP00000001" : WWD2 = "SP00000002" : WWD3 = "SP00000003"
            End If
            SQL_楦頭圖片編號1()
            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_楦頭圖片編號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)
                PictureBox4.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            PictureBox4.SizeMode = 4
            SQL_楦頭圖片編號3()
            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)
                PictureBox5.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            PictureBox5.SizeMode = 4
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        Try
            SQL_查詢楦頭圖片庫()
            楦頭編號_cb.Items.Clear() : While (dr.Read()) : 楦頭編號_cb.Items.Add(dr("楦頭編號")) : End While : conn.Close() : PA = ""
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        Try
            SQL_查詢楦頭圖片庫1()
            類型_cb.Items.Clear() : DATE日期變數_cb.Items.Clear()
            While (dr.Read()) : 類型_cb.Items.Add(dr("形體名") & "-" & dr("形體號") & "-" & dr("顏色")) : DATE日期變數_cb.Items.Add(dr("圖片編號")) : End While : conn.Close() : PA = ""
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub 格式設定()
        Try
            楦頭變數_tb.Visible = False : TextBox28.Visible = False : TextBox29.Visible = False : 腰圍變數_tb.Visible = False : 腳背圍變數_tb.Visible = False : 長跟周長變數_tb.Visible = False : DATE日期變數_cb.Visible = False
            GroupBox1.Visible = False
            If CC(80) = False Then : 新增楦頭規格表_tb.Enabled = False : 修改楦頭規格表_bt.Enabled = False : 刪除楦頭規格表_bt.Enabled = False : End If
            If CC(81) = False Then : 開啟楦頭圖片導入分頁_bt.Enabled = False : End If
            If CC(44) = False Then : 開啟鞋型圖片導入分頁_tb.Enabled = False : End If
            男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : 楦頭編號_cb.Enabled = False : 類型_cb.Enabled = False : 查詢楦頭圖片_bt.Enabled = False : 查詢鞋型圖片_tb.Enabled = False : 重新讀取鞋型圖片_tb.Enabled = False
            寫入形體資料_bt.Enabled = False : 刪除形體資料_bt.Enabled = False : 儲存新增_bt.Enabled = False : 儲存修改_bt.Enabled = False : 級放計算_bt.Enabled = False : 重新選擇_bt.Enabled = False : 楦頭圖片重新讀取_tb.Enabled = False
            楦頭編號_tb.Enabled = False
            楦頭圖片編號_dgv.Enabled = True : 型體名_dgv.Enabled = False : 形體名稱_dgv.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
    End Sub
    Private Sub 楦頭規格表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            TENDEN_MES_SYS.WindowState = 2
            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
            PA = ""
            Set_楦頭規格表清單()

            Set_DGV4載入前設定()
            SQL_建立季節()
            Set_DGV4載入後設定() : Set_grid3()

            ComboBox1下拉表單資料載入()
            ComboBox2下拉表單資料載入()
            格式設定()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub 楦頭規格表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        Dim screenWidth = Screen.PrimaryScreen.Bounds.Width
        Dim screenHeight = Screen.PrimaryScreen.Bounds.Height
        If Val(screenWidth.ToString()) <= 1366 And Val(screenHeight.ToString()) <= 768 Then : TENDEN_MES_SYS.WindowState = 2 : Else : TENDEN_MES_SYS.WindowState = 0 : End If
    End Sub
    Private Sub 楦頭規格表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        Try
            If 儲存新增_bt.Enabled = True Then
                SQL_刪除楦頭規格控制表() : conn.Close()
                SQL_刪除楦頭規格表清單() : conn.Close()
                SQL_刪除楦頭規格形體號清單() : conn.Close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 楦頭圖片編號_dgv.CellClick
        Try
            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 : 日期_dtp.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 : 活動中底編號_tb.Text = 楦頭圖片編號_dgv(8, e.RowIndex).Value.ToString
                鞋墊厚度_tb.Text = 楦頭圖片編號_dgv(9, e.RowIndex).Value.ToString : 中皮軟墊厚度_tb.Text = 楦頭圖片編號_dgv(10, e.RowIndex).Value.ToString : Remarks備註_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 : 腰圍_tb.Text = 楦頭圖片編號_dgv(18, e.RowIndex).Value.ToString : 腳背圍_tb.Text = 楦頭圖片編號_dgv(19, e.RowIndex).Value.ToString
                長跟周長_tb.Text = 楦頭圖片編號_dgv(20, e.RowIndex).Value.ToString : 楦底長度_tb.Text = 楦頭圖片編號_dgv(21, e.RowIndex).Value.ToString : 前掌寬度196mm_tb.Text = 楦頭圖片編號_dgv(22, e.RowIndex).Value.ToString
                前掌寬度184mm_tb.Text = 楦頭圖片編號_dgv(23, e.RowIndex).Value.ToString : 著地點寬度165mm_tb.Text = 楦頭圖片編號_dgv(24, e.RowIndex).Value.ToString : 跟座寬度36mm_tb.Text = 楦頭圖片編號_dgv(25, e.RowIndex).Value.ToString
                Comments意見_tb.Text = 楦頭圖片編號_dgv(27, e.RowIndex).Value.ToString : TextBox28.Text = 楦頭圖片編號_dgv(29, e.RowIndex).Value.ToString : TextBox29.Text = 楦頭圖片編號_dgv(30, e.RowIndex).Value.ToString
                Set_形體號清單() : 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
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub DataGridView2_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
        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 : 掌圍_tb.Text = 楦頭規格表清單_dgv(5, e.RowIndex).Value.ToString
                腰圍1_tb.Text = 楦頭規格表清單_dgv(6, e.RowIndex).Value.ToString : 背圍_tb.Text = 楦頭規格表清單_dgv(7, e.RowIndex).Value.ToString
            End If
        End If
    End Sub
    Private Sub DataGridView4_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(2, e.RowIndex).Value.ToString
        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 楦頭編號_cb.SelectedIndexChanged
        Try
            SQL_查詢楦頭圖片庫5()
            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
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    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 楦頭圖片重新讀取_tb.Click
        ComboBox1下拉表單資料載入()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 類型_cb.SelectedIndexChanged
        Try
            DATE日期變數_cb.SelectedIndex = 類型_cb.SelectedIndex
            SQL_查詢圖片庫()
            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
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 查詢鞋型圖片_tb.Click
        PA = InputBox("請輸入要查詢的楦頭編號") : ComboBox2下拉表單資料載入() : MsgBox("查詢完成，請重新選擇下拉清單")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 重新讀取鞋型圖片_tb.Click
        ComboBox2下拉表單資料載入()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 查詢形體資料_bt.Click
        Try
            PA = InputBox("請輸入要查詢的型體名稱")
            Set_DGV4載入前設定()
            SQL_查詢形體資料()
            Set_DGV4載入後設定() : Set_grid3()
            PA = "" : MsgBox("查詢完成")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 寫入形體資料_bt.Click
        Try
            If 楦頭變數_tb.Text = "" Then
                MsgBox("楦頭規格表未選取")
            Else
                If 腰圍變數_tb.Text = "" And 腰圍變數_tb.Text = "" Then
                    MsgBox("沒有選擇要新增的形體資料")
                Else
                    SQL_最後一筆資料流水號2()
                    If dr.Read() Then : 流水號2 = dr("資料流水號2").ToString : Else : 流水號2 = "" : End If
                    conn.Close()
                    Dim NUM1 As Integer
                    NUM1 = Double.Parse(Strings.Right(流水號2, 8)) + 1
                    If NUM1 < 10 Then : 流水號2 = "SN" & "0000000" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號2 = "SN" & "000000" & NUM1
                    ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號2 = "SN" & "00000" & NUM1
                    ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號2 = "SN" & "0000" & NUM1
                    ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 流水號2 = "SN" & "000" & NUM1
                    ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 流水號2 = "SN" & "00" & NUM1
                    ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 流水號2 = "SN" & "0" & NUM1
                    ElseIf NUM1 > 9999999 Then : 流水號2 = "SN" & NUM1
                    End If
                    SQL_新增楦頭規格形體號清單() : conn.Close()
                    Set_形體號清單() : 腰圍變數_tb.Text = "" : 腳背圍變數_tb.Text = ""
                    MsgBox("新增完成")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 刪除形體資料_bt.Click
        Try
            If 長跟周長變數_tb.Text = "" Then
                MsgBox("沒有選擇要刪除的形體資料")
            Else
                aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then
                    SQL_刪除楦頭規格形體號() : conn.Close()
                    Set_形體號清單() : 長跟周長變數_tb.Text = ""
                    MsgBox("刪除完成")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 楦頭規格清單_bt.Click
        PA = InputBox("請輸入要查詢的楦頭編號") : Set_楦頭規格表清單() : PA = ""
    End Sub
    Private Sub 更新()
        Try
            Set_日期格式轉換()
            SQL_修改楦頭規格形體號() : conn.Close()
            For i As Integer = 0 To 楦頭規格表清單_dgv.Rows.Count - 1
                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

                PA = 楦頭規格表清單_dgv.Rows(i).Cells("楦頭直量長度").Value : PA1 = 楦頭規格表清單_dgv.Rows(i).Cells("楦底板長度").Value
                PA2 = 楦頭規格表清單_dgv.Rows(i).Cells("楦底掌寬度").Value : PA3 = 楦頭規格表清單_dgv.Rows(i).Cells("掌圍").Value
                PA4 = 楦頭規格表清單_dgv.Rows(i).Cells("腰圍").Value : PA5 = 楦頭規格表清單_dgv.Rows(i).Cells("背圍").Value
                SQL_修改楦頭規格表清單() : conn.Close()
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 刪除楦頭規格表_bt.Click
        Try
            If 楦頭變數_tb.Text = "" Then
                MsgBox("沒有選擇要刪除的楦頭規格表")
            Else
                aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then
                    SQL_刪除楦頭規格控制表1() : conn.Close()
                    SQL_刪除楦頭規格形體號清單1() : conn.Close()
                    SQL_刪除楦頭規格表清單() : conn.Close()
                    楦頭變數_tb.Text = "" : 楦頭編號_tb.Text = "" : 組別與尺碼_tb.Text = "" : 後卡編號_tb.Text = "" : 前卡編號_tb.Text = "" : 楦底板編號_tb.Text = "" : 涼鞋腳床_tb.Text = "" : 活動中底編號_tb.Text = ""
                    鞋墊厚度_tb.Text = "" : 中皮軟墊厚度_tb.Text = "" : Remarks備註_tb.Text = "" : 後楦體寬度_tb.Text = "" : 楦後跟高度_tb.Text = "" : 鞋頭翹度_tb.Text = "" : 鞋頭厚度_tb.Text = "" : 第四趾圍_tb.Text = ""
                    第五指圍_tb.Text = "" : 著地奌圍度_tb.Text = "" : 腰圍_tb.Text = "" : 腳背圍_tb.Text = "" : 長跟周長_tb.Text = "" : 楦底長度_tb.Text = "" : 前掌寬度196mm_tb.Text = "" : 前掌寬度184mm_tb.Text = ""
                    著地點寬度165mm_tb.Text = "" : 跟座寬度36mm_tb.Text = "" : Comments意見_tb.Text = "" : TextBox28.Text = "" : TextBox29.Text = "" : 腰圍變數_tb.Text = "" : 腳背圍變數_tb.Text = "" : 長跟周長變數_tb.Text = ""
                    日期_dtp.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 : 楦頭規格表清單_dgv.DataSource = Nothing
                    MsgBox("刪除完成")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 修改楦頭規格表_bt.Click
        Try
            If 楦頭變數_tb.Text = "" Then
                MsgBox("沒有選擇要修改的楦頭規格表")
            Else
                男鞋_rb.Enabled = True : 女鞋_rb.Enabled = True : 楦頭編號_cb.Enabled = True : 類型_cb.Enabled = True : 查詢楦頭圖片_bt.Enabled = True : 查詢鞋型圖片_tb.Enabled = True : 重新讀取鞋型圖片_tb.Enabled = True
                寫入形體資料_bt.Enabled = True : 刪除形體資料_bt.Enabled = True : 儲存修改_bt.Enabled = True : 級放計算_bt.Enabled = True : 楦頭圖片重新讀取_tb.Enabled = True
                楦頭圖片編號_dgv.Enabled = False : 型體名_dgv.Enabled = True : 形體名稱_dgv.Enabled = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 儲存修改_bt.Click
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : 楦頭編號_cb.Enabled = False : 類型_cb.Enabled = False : 查詢楦頭圖片_bt.Enabled = False : 查詢鞋型圖片_tb.Enabled = False : 重新讀取鞋型圖片_tb.Enabled = False
        寫入形體資料_bt.Enabled = False : 刪除形體資料_bt.Enabled = False : 儲存修改_bt.Enabled = False : 級放計算_bt.Enabled = False : 楦頭圖片重新讀取_tb.Enabled = False : GroupBox1.Visible = False
        楦頭圖片編號_dgv.Enabled = True : 型體名_dgv.Enabled = False : 形體名稱_dgv.Enabled = False
        更新() : MsgBox("修改完成")
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 新增楦頭規格表_tb.Click
        Try
            男鞋_rb.Enabled = True : 女鞋_rb.Enabled = True : 楦頭編號_cb.Enabled = True : 類型_cb.Enabled = True : 查詢楦頭圖片_bt.Enabled = True : 查詢鞋型圖片_tb.Enabled = True : 重新讀取鞋型圖片_tb.Enabled = True
            寫入形體資料_bt.Enabled = True : 刪除形體資料_bt.Enabled = True : 儲存新增_bt.Enabled = True : 級放計算_bt.Enabled = True : 楦頭圖片重新讀取_tb.Enabled = True
            楦頭圖片編號_dgv.Enabled = False : 型體名_dgv.Enabled = True : 形體名稱_dgv.Enabled = True

            楦頭變數_tb.Text = "" : 楦頭編號_tb.Text = "" : 組別與尺碼_tb.Text = "" : 後卡編號_tb.Text = "" : 前卡編號_tb.Text = "" : 楦底板編號_tb.Text = "" : 涼鞋腳床_tb.Text = "" : 活動中底編號_tb.Text = ""
            鞋墊厚度_tb.Text = "" : 中皮軟墊厚度_tb.Text = "" : Remarks備註_tb.Text = "" : 後楦體寬度_tb.Text = "" : 楦後跟高度_tb.Text = "" : 鞋頭翹度_tb.Text = "" : 鞋頭厚度_tb.Text = "" : 第四趾圍_tb.Text = ""
            第五指圍_tb.Text = "" : 著地奌圍度_tb.Text = "" : 腰圍_tb.Text = "" : 腳背圍_tb.Text = "" : 長跟周長_tb.Text = "" : 楦底長度_tb.Text = "" : 前掌寬度196mm_tb.Text = "" : 前掌寬度184mm_tb.Text = ""
            著地點寬度165mm_tb.Text = "" : 跟座寬度36mm_tb.Text = "" : Comments意見_tb.Text = "" : TextBox28.Text = "" : TextBox29.Text = "" : 腰圍變數_tb.Text = "" : 腳背圍變數_tb.Text = "" : 長跟周長變數_tb.Text = ""
            日期_dtp.Text = Today() : 男鞋_rb.Checked = False : 女鞋_rb.Checked = False : PictureBox1.Image = Nothing : PictureBox2.Image = Nothing
            型體名_dgv.DataSource = Nothing : 楦頭規格表清單_dgv.DataSource = Nothing

            PA = InputBox("請輸入要新增的楦頭編號") : 楦頭編號_tb.Text = PA
            SQL_最後一筆楦頭規格控制表()
            If dr.Read() Then : 楦頭變數_tb.Text = dr("資料流水號").ToString : Else : 楦頭變數_tb.Text = "" : 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_新增楦頭規格控制表() : 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_規格表清單()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 儲存新增_bt.Click
        男鞋_rb.Enabled = False : 女鞋_rb.Enabled = False : 楦頭編號_cb.Enabled = False : 類型_cb.Enabled = False : 查詢楦頭圖片_bt.Enabled = False : 查詢鞋型圖片_tb.Enabled = False : 重新讀取鞋型圖片_tb.Enabled = False
        寫入形體資料_bt.Enabled = False : 刪除形體資料_bt.Enabled = False : 儲存新增_bt.Enabled = False : 級放計算_bt.Enabled = False : 楦頭圖片重新讀取_tb.Enabled = False : GroupBox1.Visible = False
        楦頭圖片編號_dgv.Enabled = True : 型體名_dgv.Enabled = False : 形體名稱_dgv.Enabled = False
        更新() : Set_楦頭規格表清單() : MsgBox("新增完成")
    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 開啟鞋型圖片導入分頁_tb.Click
        鞋型圖片導入資料庫.Show() : 鞋型圖片導入資料庫.BringToFront()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles 開啟鞋型圖片資料庫_tb.Click
        鞋型圖片資料庫.Show() : 鞋型圖片資料庫.BringToFront()
    End Sub
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles 級放計算_bt.Click
        If GroupBox1.Visible = True Then
            GroupBox1.Visible = False
        Else
            GroupBox1.Visible = True
        End If
    End Sub
    Private Sub 級放範圍選擇邏輯()
        Try
            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 : 鞋號4號半_ch.Checked = True : Else : 鞋號4號半_ch.Checked = False : End If : If AA6(1) = 2 Then : 鞋號5號_ch.Checked = True : Else : 鞋號5號_ch.Checked = False : End If
                If AA6(2) = 3 Then : 鞋號5號半_ch.Checked = True : Else : 鞋號5號半_ch.Checked = False : End If : If AA6(3) = 4 Then : 鞋號6號_ch.Checked = True : Else : 鞋號6號_ch.Checked = False : End If
                If AA6(4) = 5 Then : 鞋號6號半_ch.Checked = True : Else : 鞋號6號半_ch.Checked = False : End If : If AA6(5) = 6 Then : 鞋號7號_ch.Checked = True : Else : 鞋號7號_ch.Checked = False : End If
                If AA6(6) = 7 Then : 鞋號7號半_ch.Checked = True : Else : 鞋號7號半_ch.Checked = False : End If : If AA6(7) = 8 Then : 鞋號8號_ch.Checked = True : Else : 鞋號8號_ch.Checked = False : End If
                If AA6(8) = 9 Then : 鞋號8號半_ch.Checked = True : Else : 鞋號8號半_ch.Checked = False : End If : If AA6(9) = 10 Then : 鞋號9號_ch.Checked = True : Else : 鞋號9號_ch.Checked = False : End If
                If AA6(10) = 11 Then : 鞋號9號半_ch.Checked = True : Else : 鞋號9號半_ch.Checked = False : End If : If AA6(11) = 12 Then : 鞋號10號_ch.Checked = True : Else : 鞋號10號_ch.Checked = False : End If
                If AA6(12) = 13 Then : 鞋號10號半_ch.Checked = True : Else : 鞋號10號半_ch.Checked = False : End If : If AA6(13) = 14 Then : 鞋號11號_ch.Checked = True : Else : 鞋號11號_ch.Checked = False : End If
                If AA6(14) = 15 Then : 鞋號11號半_ch.Checked = True : Else : 鞋號11號半_ch.Checked = False : End If : If AA6(15) = 16 Then : 鞋號12號_ch.Checked = True : Else : 鞋號12號_ch.Checked = False : End If
                If AA6(16) = 17 Then : 鞋號12號半_ch.Checked = True : Else : 鞋號12號半_ch.Checked = False : End If : If AA6(17) = 18 Then : 鞋號13號_ch.Checked = True : Else : 鞋號13號_ch.Checked = False : End If
                If AA6(18) = 19 Then : 鞋號13號半_ch.Checked = True : Else : 鞋號13號半_ch.Checked = False : End If : If AA6(19) = 20 Then : 鞋號14號_ch.Checked = True : Else : 鞋號14號_ch.Checked = False : End If
                If AA6(20) = 21 Then : 鞋號14號半_ch.Checked = True : Else : 鞋號14號半_ch.Checked = False : End If : If AA6(21) = 22 Then : 鞋號15號_ch.Checked = True : Else : 鞋號15號_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
                鞋號4號半_ch.Enabled = False : 鞋號5號_ch.Enabled = False : 鞋號5號半_ch.Enabled = False : 鞋號6號_ch.Enabled = False : 鞋號6號半_ch.Enabled = False : 鞋號7號_ch.Enabled = False : 鞋號7號半_ch.Enabled = False
                鞋號8號_ch.Enabled = False : 鞋號8號半_ch.Enabled = False : 鞋號9號_ch.Enabled = False : 鞋號9號半_ch.Enabled = False : 鞋號10號_ch.Enabled = False : 鞋號10號半_ch.Enabled = False : 鞋號11號_ch.Enabled = False
                鞋號11號半_ch.Enabled = False : 鞋號12號_ch.Enabled = False : 鞋號12號半_ch.Enabled = False : 鞋號13號_ch.Enabled = False : 鞋號13號半_ch.Enabled = False : 鞋號14號_ch.Enabled = False : 鞋號14號半_ch.Enabled = False
                鞋號15號_ch.Enabled = False
                重新選擇_bt.Enabled = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號4號半_ch.Click
        If 鞋號4號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 1 : 鞋號4號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 1 : 鞋號4號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號4號半_ch.Checked = False : End If
        ElseIf 鞋號4號半_ch.Checked = False Then
            If AA1 = 1 Then : AA1 = 0 : 鞋號4號半_ch.Checked = False : ElseIf AA2 = 1 Then : AA2 = 0 : 鞋號4號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號4號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號5號_ch.Click
        If 鞋號5號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 2 : 鞋號5號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 2 : 鞋號5號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號5號_ch.Checked = False : End If
        ElseIf 鞋號5號_ch.Checked = False Then
            If AA1 = 2 Then : AA1 = 0 : 鞋號5號_ch.Checked = False : ElseIf AA2 = 2 Then : AA2 = 0 : 鞋號5號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號5號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號5號半_ch.Click
        If 鞋號5號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 3 : 鞋號5號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 3 : 鞋號5號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號5號半_ch.Checked = False : End If
        ElseIf 鞋號5號半_ch.Checked = False Then
            If AA1 = 3 Then : AA1 = 0 : 鞋號5號半_ch.Checked = False : ElseIf AA2 = 3 Then : AA2 = 0 : 鞋號5號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號5號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號6號_ch.Click
        If 鞋號6號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 4 : 鞋號6號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 4 : 鞋號6號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號6號_ch.Checked = False : End If
        ElseIf 鞋號6號_ch.Checked = False Then
            If AA1 = 4 Then : AA1 = 0 : 鞋號6號_ch.Checked = False : ElseIf AA2 = 4 Then : AA2 = 0 : 鞋號6號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號6號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號6號半_ch.Click
        If 鞋號6號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 5 : 鞋號6號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 5 : 鞋號6號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號6號半_ch.Checked = False : End If
        ElseIf 鞋號6號半_ch.Checked = False Then
            If AA1 = 5 Then : AA1 = 0 : 鞋號6號半_ch.Checked = False : ElseIf AA2 = 5 Then : AA2 = 0 : 鞋號6號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號6號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號7號_ch.Click
        If 鞋號7號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 6 : 鞋號7號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 6 : 鞋號7號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號7號_ch.Checked = False : End If
        ElseIf 鞋號7號_ch.Checked = False Then
            If AA1 = 6 Then : AA1 = 0 : 鞋號7號_ch.Checked = False : ElseIf AA2 = 6 Then : AA2 = 0 : 鞋號7號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號7號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號7號半_ch.Click
        If 鞋號7號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 7 : 鞋號7號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 7 : 鞋號7號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號7號半_ch.Checked = False : End If
        ElseIf 鞋號7號半_ch.Checked = False Then
            If AA1 = 7 Then : AA1 = 0 : 鞋號7號半_ch.Checked = False : ElseIf AA2 = 7 Then : AA2 = 0 : 鞋號7號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號7號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號8號_ch.Click
        If 鞋號8號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 8 : 鞋號8號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 8 : 鞋號8號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號8號_ch.Checked = False : End If
        ElseIf 鞋號8號_ch.Checked = False Then
            If AA1 = 8 Then : AA1 = 0 : 鞋號8號_ch.Checked = False : ElseIf AA2 = 8 Then : AA2 = 0 : 鞋號8號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號8號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號8號半_ch.Click
        If 鞋號8號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 9 : 鞋號8號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 9 : 鞋號8號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號8號半_ch.Checked = False : End If
        ElseIf 鞋號8號半_ch.Checked = False Then
            If AA1 = 9 Then : AA1 = 0 : 鞋號8號半_ch.Checked = False : ElseIf AA2 = 9 Then : AA2 = 0 : 鞋號8號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號8號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號9號_ch.Click
        If 鞋號9號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 10 : 鞋號9號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 10 : 鞋號9號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號9號_ch.Checked = False : End If
        ElseIf 鞋號9號_ch.Checked = False Then
            If AA1 = 10 Then : AA1 = 0 : 鞋號9號_ch.Checked = False : ElseIf AA2 = 10 Then : AA2 = 0 : 鞋號9號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號9號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號9號半_ch.Click
        If 鞋號9號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 11 : 鞋號9號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 11 : 鞋號9號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號9號半_ch.Checked = False : End If
        ElseIf 鞋號9號半_ch.Checked = False Then
            If AA1 = 11 Then : AA1 = 0 : 鞋號9號半_ch.Checked = False : ElseIf AA2 = 11 Then : AA2 = 0 : 鞋號9號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號9號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號10號_ch.Click
        If 鞋號10號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 12 : 鞋號10號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 12 : 鞋號10號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號10號_ch.Checked = False : End If
        ElseIf 鞋號10號_ch.Checked = False Then
            If AA1 = 12 Then : AA1 = 0 : 鞋號10號_ch.Checked = False : ElseIf AA2 = 12 Then : AA2 = 0 : 鞋號10號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號10號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號10號半_ch.Click
        If 鞋號10號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 13 : 鞋號10號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 13 : 鞋號10號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號10號半_ch.Checked = False : End If
        ElseIf 鞋號10號半_ch.Checked = False Then
            If AA1 = 13 Then : AA1 = 0 : 鞋號10號半_ch.Checked = False : ElseIf AA2 = 13 Then : AA2 = 0 : 鞋號10號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號10號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號11號_ch.Click
        If 鞋號11號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 14 : 鞋號11號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 14 : 鞋號11號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號11號_ch.Checked = False : End If
        ElseIf 鞋號11號_ch.Checked = False Then
            If AA1 = 14 Then : AA1 = 0 : 鞋號11號_ch.Checked = False : ElseIf AA2 = 14 Then : AA2 = 0 : 鞋號11號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號11號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號11號半_ch.Click
        If 鞋號11號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 15 : 鞋號11號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 15 : 鞋號11號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號11號半_ch.Checked = False : End If
        ElseIf 鞋號11號半_ch.Checked = False Then
            If AA1 = 15 Then : AA1 = 0 : 鞋號11號半_ch.Checked = False : ElseIf AA2 = 15 Then : AA2 = 0 : 鞋號11號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號11號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號12號_ch.Click
        If 鞋號12號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 16 : 鞋號12號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 16 : 鞋號12號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號12號_ch.Checked = False : End If
        ElseIf 鞋號12號_ch.Checked = False Then
            If AA1 = 16 Then : AA1 = 0 : 鞋號12號_ch.Checked = False : ElseIf AA2 = 16 Then : AA2 = 0 : 鞋號12號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號12號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號12號半_ch.Click
        If 鞋號12號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 17 : 鞋號12號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 17 : 鞋號12號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號12號半_ch.Checked = False : End If
        ElseIf 鞋號12號半_ch.Checked = False Then
            If AA1 = 17 Then : AA1 = 0 : 鞋號12號半_ch.Checked = False : ElseIf AA2 = 17 Then : AA2 = 0 : 鞋號12號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號12號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號13號_ch.Click
        If 鞋號13號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 18 : 鞋號13號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 18 : 鞋號13號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號13號_ch.Checked = False : End If
        ElseIf 鞋號13號_ch.Checked = False Then
            If AA1 = 18 Then : AA1 = 0 : 鞋號13號_ch.Checked = False : ElseIf AA2 = 18 Then : AA2 = 0 : 鞋號13號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號13號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號13號半_ch.Click
        If 鞋號13號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 19 : 鞋號13號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 19 : 鞋號13號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號13號半_ch.Checked = False : End If
        ElseIf 鞋號13號半_ch.Checked = False Then
            If AA1 = 19 Then : AA1 = 0 : 鞋號13號半_ch.Checked = False : ElseIf AA2 = 19 Then : AA2 = 0 : 鞋號13號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號13號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號14號_ch.Click
        If 鞋號14號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 20 : 鞋號14號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 20 : 鞋號14號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號14號_ch.Checked = False : End If
        ElseIf 鞋號14號_ch.Checked = False Then
            If AA1 = 20 Then : AA1 = 0 : 鞋號14號_ch.Checked = False : ElseIf AA2 = 20 Then : AA2 = 0 : 鞋號14號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號14號_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號14號半_ch.Click
        If 鞋號14號半_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 21 : 鞋號14號半_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 21 : 鞋號14號半_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號14號半_ch.Checked = False : End If
        ElseIf 鞋號14號半_ch.Checked = False Then
            If AA1 = 21 Then : AA1 = 0 : 鞋號14號半_ch.Checked = False : ElseIf AA2 = 21 Then : AA2 = 0 : 鞋號14號半_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號14號半_ch.Checked = True : End If
        End If : 級放範圍選擇邏輯()
    End Sub
    Private Sub CheckBox22_CheckedChanged(sender As Object, e As EventArgs) Handles 鞋號15號_ch.Click
        If 鞋號15號_ch.Checked = True Then
            If AA1 = 0 Then : AA1 = 22 : 鞋號15號_ch.Checked = True : ElseIf AA2 = 0 Then : AA2 = 22 : 鞋號15號_ch.Checked = True : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號15號_ch.Checked = False : End If
        ElseIf 鞋號15號_ch.Checked = False Then
            If AA1 = 22 Then : AA1 = 0 : 鞋號15號_ch.Checked = False : ElseIf AA2 = 22 Then : AA2 = 0 : 鞋號15號_ch.Checked = False : ElseIf AA1 <> 0 And AA2 <> 0 Then : 鞋號15號_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
        鞋號4號半_ch.Enabled = True : 鞋號5號_ch.Enabled = True : 鞋號5號半_ch.Enabled = True : 鞋號6號_ch.Enabled = True : 鞋號6號半_ch.Enabled = True : 鞋號7號_ch.Enabled = True : 鞋號7號半_ch.Enabled = True
        鞋號8號_ch.Enabled = True : 鞋號8號半_ch.Enabled = True : 鞋號9號_ch.Enabled = True : 鞋號9號半_ch.Enabled = True : 鞋號10號_ch.Enabled = True : 鞋號10號半_ch.Enabled = True : 鞋號11號_ch.Enabled = True
        鞋號11號半_ch.Enabled = True : 鞋號12號_ch.Enabled = True : 鞋號12號半_ch.Enabled = True : 鞋號13號_ch.Enabled = True : 鞋號13號半_ch.Enabled = True : 鞋號14號_ch.Enabled = True : 鞋號14號半_ch.Enabled = True
        鞋號15號_ch.Enabled = True
        鞋號4號半_ch.Checked = False : 鞋號5號_ch.Checked = False : 鞋號5號半_ch.Checked = False : 鞋號6號_ch.Checked = False : 鞋號6號半_ch.Checked = False : 鞋號7號_ch.Checked = False : 鞋號7號半_ch.Checked = False
        鞋號8號_ch.Checked = False : 鞋號8號半_ch.Checked = False : 鞋號9號_ch.Checked = False : 鞋號9號半_ch.Checked = False : 鞋號10號_ch.Checked = False : 鞋號10號半_ch.Checked = False : 鞋號11號_ch.Checked = False
        鞋號11號半_ch.Checked = False : 鞋號12號_ch.Checked = False : 鞋號12號半_ch.Checked = False : 鞋號13號_ch.Checked = False : 鞋號13號半_ch.Checked = False : 鞋號14號_ch.Checked = False : 鞋號14號半_ch.Checked = False
        鞋號15號_ch.Checked = False
        AA1 = 0 : AA2 = 0 : AA3 = 0 : AA4 = 0
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles 級放計算1_bt.Click
        If 鞋號4號半_ch.Checked = False And 鞋號6號半_ch.Checked = False And 鞋號8號半_ch.Checked = False And 鞋號10號半_ch.Checked = False And 鞋號12號半_ch.Checked = False And 鞋號14號_ch.Checked = False And
            鞋號5號_ch.Checked = False And 鞋號7號_ch.Checked = False And 鞋號9號_ch.Checked = False And 鞋號11號_ch.Checked = False And 鞋號13號_ch.Checked = False And 鞋號14號半_ch.Checked = False And
            鞋號5號半_ch.Checked = False And 鞋號7號半_ch.Checked = False And 鞋號9號半_ch.Checked = False And 鞋號11號半_ch.Checked = False And 鞋號13號半_ch.Checked = False And 鞋號15號_ch.Checked = False And
            鞋號6號_ch.Checked = False And 鞋號8號_ch.Checked = False And 鞋號10號_ch.Checked = False And 鞋號12號_ch.Checked = False Then
            MsgBox("級放範圍沒有選擇")
        Else
            If 級放基準碼數_cb.Text = "" Then
                MsgBox("級放標準碼數沒有選擇")
            Else
                If 楦頭直量長度_tb.Text = "" Or 楦底板長度_tb.Text = "" Or 楦底掌寬度_tb.Text = "" Or 掌圍_tb.Text = "" Or 腰圍1_tb.Text = "" Or 背圍_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) = 鞋號4號半_ch.Checked : BB4(1) = 鞋號5號_ch.Checked : BB4(2) = 鞋號5號半_ch.Checked : BB4(3) = 鞋號6號_ch.Checked : BB4(4) = 鞋號6號半_ch.Checked : BB4(5) = 鞋號7號_ch.Checked
                    BB4(6) = 鞋號7號半_ch.Checked : BB4(7) = 鞋號8號_ch.Checked : BB4(8) = 鞋號8號半_ch.Checked : BB4(9) = 鞋號9號_ch.Checked : BB4(10) = 鞋號9號半_ch.Checked : BB4(11) = 鞋號10號_ch.Checked
                    BB4(12) = 鞋號10號半_ch.Checked : BB4(13) = 鞋號11號_ch.Checked : BB4(14) = 鞋號11號半_ch.Checked : BB4(15) = 鞋號12號_ch.Checked : BB4(16) = 鞋號12號半_ch.Checked : BB4(17) = 鞋號13號_ch.Checked
                    BB4(18) = 鞋號13號半_ch.Checked : BB4(19) = 鞋號14號_ch.Checked : BB4(20) = 鞋號14號半_ch.Checked : BB4(21) = 鞋號15號_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 = 掌圍_tb.Text : 楦頭規格表清單_dgv.Rows(BB2).Cells(6).Value = 腰圍1_tb.Text : 楦頭規格表清單_dgv.Rows(BB2).Cells(7).Value = 背圍_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 = "" : 楦底掌寬度_tb.Text = "" : 掌圍_tb.Text = "" : 腰圍1_tb.Text = "" : 背圍_tb.Text = ""
                    MsgBox("計算完畢")
                End If
            End If
        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
End Class