WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/量產訂單管理系統/量產訂單控制表.vb

Option Strict Off
Imports System.Data.SqlClient
Imports System.IO
Public Class 量產訂單控制表
    ReadOnly conn As New SqlConnection
    ReadOnly da As New SqlDataAdapter
    ReadOnly cmd As New SqlCommand
    ReadOnly ds1 As New DataSet : ReadOnly ds3 As New DataSet
    Dim dr As SqlDataReader
    Dim GHJK As String : Dim ESTR As String
    Dim aa As MsgBoxResult
    Private Sub Set_DGV3載入前設定()
        DataGridView3.DataSource = Nothing : ds3.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        DataGridView3.RowTemplate.Height = 35
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV3載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView3.DataSource = ds3.Tables(0) : conn.Close() : Set_grid4()
    End Sub
    Private Sub Set_清單3()
        Set_DGV3載入前設定()
        If PA = "" Then
            SQL1 = "SELECT  訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS 工廠交期, 客戶交期 AS 交期開始, 
                            客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC AS 訂單屬性, 明細建檔, 材質, 東莞業務備註, LEATHER AS 手剪全套, LEA_Note AS 斬刀全套, 
                            面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 工廠進度表備註1 AS 驗貨結果, 工廠進度表備註2 AS 工廠備註, 
                            資料流水號, 實際離廠日, 出貨數量, CXL, CXLTime, 驗貨報告圖片,
                            CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 貼標時間, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, 
                            Special_Packaging, Remarks, 出貨地, 楦頭號, 長期試穿, 七號模具, 國標測試, 客戶包裝確認
                    FROM 訂單控制表  
                    WHERE ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)
                    ORDER BY 訂單流水號 DESC, 型體號碼, APMA確認, TVW"
        Else
            SQL1 = "SELECT  訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 工廠回復交期 AS 工廠交期, 客戶交期 AS 交期開始, 
                            客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC AS 訂單屬性, 明細建檔, 材質, 東莞業務備註, LEATHER AS 手剪全套, LEA_Note AS 斬刀全套, 
                            面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 工廠進度表備註1 AS 驗貨結果, 工廠進度表備註2 AS 工廠備註, 
                            資料流水號, 實際離廠日, 出貨數量, CXL, CXLTime, 驗貨報告圖片,
                            CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 貼標時間, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, 
                            Special_Packaging, Remarks, 出貨地, 楦頭號, 長期試穿, 七號模具, 國標測試, 客戶包裝確認
                    FROM 訂單控制表
                    WHERE ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0) AND 
                         (訂單流水號 LIKE N'%" & PA & "%' OR 年份季度 LIKE N'%" & PA & "%' OR 客戶訂單號 LIKE N'%" & PA & "%' OR 型體號碼 LIKE N'%" & PA & "%' OR GOODBOX LIKE N'%" & PA & "%' OR 
                          APMA確認 LIKE N'%" & PA & "%' OR TVW LIKE N'%" & PA & "%' OR 訂單數量 LIKE N'%" & PA & "%' OR 客戶交期 LIKE N'%" & PA & "%' OR 客戶交期1 LIKE N'%" & PA & "%' OR 
                          備註 LIKE N'%" & PA & "%' OR 生產工廠 LIKE N'%" & PA & "%' OR 訂單種類 LIKE N'%" & PA & "%' OR BUYER LIKE N'%" & PA & "%' OR CFMSPEC LIKE N'%" & PA & "%')
                    ORDER BY 訂單流水號 DESC, 型體號碼, APMA確認, TVW"
        End If
        Set_DGV3載入後設定()
    End Sub
    Private Sub Set_grid4()
        DataGridView3.Columns(0).FillWeight = 140 : DataGridView3.Columns(1).FillWeight = 80 : DataGridView3.Columns(2).FillWeight = 140 : DataGridView3.Columns(3).FillWeight = 130
        DataGridView3.Columns(4).FillWeight = 140 : DataGridView3.Columns(5).FillWeight = 90 : DataGridView3.Columns(6).FillWeight = 60 : DataGridView3.Columns(7).FillWeight = 90
        DataGridView3.Columns(8).FillWeight = 100 : DataGridView3.Columns(9).FillWeight = 100 : DataGridView3.Columns(10).FillWeight = 100 : DataGridView3.Columns(11).FillWeight = 90
        DataGridView3.Columns(12).FillWeight = 90 : DataGridView3.Columns(13).FillWeight = 270 : DataGridView3.Columns(14).FillWeight = 90 : DataGridView3.Columns(15).FillWeight = 120
        DataGridView3.Columns(16).FillWeight = 140 : DataGridView3.Columns(17).FillWeight = 115 : DataGridView3.Columns(18).FillWeight = 50 : DataGridView3.Columns(19).FillWeight = 60
        DataGridView3.Columns(20).FillWeight = 495 : DataGridView3.Columns(21).FillWeight = 120 : DataGridView3.Columns(22).FillWeight = 120 : DataGridView3.Columns(23).FillWeight = 113
        DataGridView3.Columns(24).FillWeight = 113 : DataGridView3.Columns(25).FillWeight = 113 : DataGridView3.Columns(26).FillWeight = 114 : DataGridView3.Columns(27).FillWeight = 114
        DataGridView3.Columns(28).FillWeight = 114 : DataGridView3.Columns(29).FillWeight = 114 : DataGridView3.Columns(30).FillWeight = 120 : DataGridView3.Columns(31).FillWeight = 120
        DataGridView3.Columns(32).FillWeight = 120 : DataGridView3.Columns(33).FillWeight = 120 : DataGridView3.Columns(34).FillWeight = 120 : DataGridView3.Columns(35).FillWeight = 195
        DataGridView3.Columns(36).FillWeight = 123 : DataGridView3.Columns(37).FillWeight = 123 : DataGridView3.Columns(38).FillWeight = 123 : DataGridView3.Columns(39).FillWeight = 60
        DataGridView3.Columns(41).FillWeight = 123 : DataGridView3.Columns(41).FillWeight = 123
        '795
        If Button3.Enabled = False And Button34.Enabled = True And Button35.Enabled = True And Button4.Enabled = True And Button6.Enabled = True Then
            DataGridView3.Columns(8).Visible = True : DataGridView3.Columns(9).Visible = True : DataGridView3.Columns(10).Visible = True : DataGridView3.Columns(11).Visible = True
            DataGridView3.Columns(12).Visible = True : DataGridView3.Columns(13).Visible = True : DataGridView3.Columns(14).Visible = True : DataGridView3.Columns(17).Visible = True

            DataGridView3.Columns(19).Visible = False : DataGridView3.Columns(20).Visible = False : DataGridView3.Columns(21).Visible = False : DataGridView3.Columns(15).Visible = False
            DataGridView3.Columns(22).Visible = False : DataGridView3.Columns(23).Visible = False : DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False
            DataGridView3.Columns(26).Visible = False : DataGridView3.Columns(27).Visible = False : DataGridView3.Columns(28).Visible = False : DataGridView3.Columns(29).Visible = False
            DataGridView3.Columns(30).Visible = False : DataGridView3.Columns(31).Visible = False : DataGridView3.Columns(32).Visible = False : DataGridView3.Columns(33).Visible = False
            DataGridView3.Columns(34).Visible = False : DataGridView3.Columns(35).Visible = False : DataGridView3.Columns(36).Visible = False : DataGridView3.Columns(37).Visible = False
            DataGridView3.Columns(38).Visible = False : DataGridView3.Columns(39).Visible = False : DataGridView3.Columns(40).Visible = False : DataGridView3.Columns(41).Visible = False
            DataGridView3.Columns(42).Visible = False : DataGridView3.Columns(43).Visible = False : DataGridView3.Columns(44).Visible = False : DataGridView3.Columns(45).Visible = False
            DataGridView3.Columns(46).Visible = False : DataGridView3.Columns(47).Visible = False : DataGridView3.Columns(48).Visible = False : DataGridView3.Columns(49).Visible = False
            DataGridView3.Columns(50).Visible = False : DataGridView3.Columns(51).Visible = False : DataGridView3.Columns(52).Visible = False : DataGridView3.Columns(53).Visible = False
            DataGridView3.Columns(54).Visible = False : DataGridView3.Columns(55).Visible = False : DataGridView3.Columns(56).Visible = False : DataGridView3.Columns(57).Visible = False
            DataGridView3.Columns(58).Visible = False : DataGridView3.Columns(59).Visible = False
        ElseIf Button3.Enabled = True And Button34.Enabled = False And Button35.Enabled = True And Button4.Enabled = True And Button6.Enabled = True Then
            DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Visible = False : DataGridView3.Columns(10).Visible = False : DataGridView3.Columns(11).Visible = False
            DataGridView3.Columns(12).Visible = False : DataGridView3.Columns(13).Visible = False : DataGridView3.Columns(14).Visible = False : DataGridView3.Columns(17).Visible = False

            DataGridView3.Columns(19).Visible = True : DataGridView3.Columns(20).Visible = True : DataGridView3.Columns(21).Visible = True : DataGridView3.Columns(22).Visible = True

            DataGridView3.Columns(23).Visible = False : DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(15).Visible = False
            DataGridView3.Columns(26).Visible = False : DataGridView3.Columns(27).Visible = False : DataGridView3.Columns(28).Visible = False : DataGridView3.Columns(29).Visible = False
            DataGridView3.Columns(30).Visible = False : DataGridView3.Columns(31).Visible = False : DataGridView3.Columns(32).Visible = False : DataGridView3.Columns(33).Visible = False
            DataGridView3.Columns(34).Visible = False : DataGridView3.Columns(35).Visible = False : DataGridView3.Columns(36).Visible = False : DataGridView3.Columns(37).Visible = False
            DataGridView3.Columns(38).Visible = False : DataGridView3.Columns(39).Visible = False : DataGridView3.Columns(40).Visible = False : DataGridView3.Columns(41).Visible = False
            DataGridView3.Columns(42).Visible = False : DataGridView3.Columns(43).Visible = False : DataGridView3.Columns(44).Visible = False : DataGridView3.Columns(45).Visible = False
            DataGridView3.Columns(46).Visible = False : DataGridView3.Columns(47).Visible = False : DataGridView3.Columns(48).Visible = False : DataGridView3.Columns(49).Visible = False
            DataGridView3.Columns(50).Visible = False : DataGridView3.Columns(51).Visible = False : DataGridView3.Columns(52).Visible = False : DataGridView3.Columns(53).Visible = False
            DataGridView3.Columns(54).Visible = False : DataGridView3.Columns(55).Visible = False : DataGridView3.Columns(56).Visible = False : DataGridView3.Columns(57).Visible = False
            DataGridView3.Columns(58).Visible = False : DataGridView3.Columns(59).Visible = False
        ElseIf Button3.Enabled = True And Button34.Enabled = True And Button35.Enabled = False And Button4.Enabled = True And Button6.Enabled = True Then
            DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Visible = False : DataGridView3.Columns(10).Visible = False : DataGridView3.Columns(11).Visible = False
            DataGridView3.Columns(12).Visible = False : DataGridView3.Columns(13).Visible = False : DataGridView3.Columns(14).Visible = False : DataGridView3.Columns(17).Visible = False
            DataGridView3.Columns(19).Visible = False : DataGridView3.Columns(20).Visible = False : DataGridView3.Columns(21).Visible = False : DataGridView3.Columns(22).Visible = False

            DataGridView3.Columns(23).Visible = True : DataGridView3.Columns(24).Visible = True : DataGridView3.Columns(25).Visible = True : DataGridView3.Columns(26).Visible = True
            DataGridView3.Columns(27).Visible = True : DataGridView3.Columns(28).Visible = True : DataGridView3.Columns(29).Visible = True

            DataGridView3.Columns(30).Visible = False : DataGridView3.Columns(31).Visible = False : DataGridView3.Columns(32).Visible = False : DataGridView3.Columns(33).Visible = False
            DataGridView3.Columns(34).Visible = False : DataGridView3.Columns(35).Visible = False : DataGridView3.Columns(36).Visible = False : DataGridView3.Columns(37).Visible = False
            DataGridView3.Columns(38).Visible = False : DataGridView3.Columns(39).Visible = False : DataGridView3.Columns(40).Visible = False : DataGridView3.Columns(41).Visible = False
            DataGridView3.Columns(42).Visible = False : DataGridView3.Columns(43).Visible = False : DataGridView3.Columns(44).Visible = False : DataGridView3.Columns(45).Visible = False
            DataGridView3.Columns(46).Visible = False : DataGridView3.Columns(47).Visible = False : DataGridView3.Columns(48).Visible = False : DataGridView3.Columns(49).Visible = False
            DataGridView3.Columns(50).Visible = False : DataGridView3.Columns(51).Visible = False : DataGridView3.Columns(52).Visible = False : DataGridView3.Columns(53).Visible = False
            DataGridView3.Columns(54).Visible = False : DataGridView3.Columns(55).Visible = False : DataGridView3.Columns(56).Visible = False : DataGridView3.Columns(57).Visible = False
            DataGridView3.Columns(58).Visible = False : DataGridView3.Columns(59).Visible = False : DataGridView3.Columns(15).Visible = False
        ElseIf Button3.Enabled = True And Button34.Enabled = True And Button35.Enabled = True And Button4.Enabled = False And Button6.Enabled = True Then
            DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Visible = False : DataGridView3.Columns(10).Visible = False : DataGridView3.Columns(11).Visible = False
            DataGridView3.Columns(12).Visible = False : DataGridView3.Columns(13).Visible = False : DataGridView3.Columns(14).Visible = False : DataGridView3.Columns(17).Visible = False
            DataGridView3.Columns(19).Visible = False : DataGridView3.Columns(20).Visible = False : DataGridView3.Columns(21).Visible = False : DataGridView3.Columns(22).Visible = False
            DataGridView3.Columns(23).Visible = False : DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(26).Visible = False
            DataGridView3.Columns(27).Visible = False : DataGridView3.Columns(28).Visible = False : DataGridView3.Columns(29).Visible = False

            DataGridView3.Columns(30).Visible = True : DataGridView3.Columns(31).Visible = True : DataGridView3.Columns(32).Visible = True : DataGridView3.Columns(33).Visible = True
            DataGridView3.Columns(34).Visible = True : DataGridView3.Columns(35).Visible = True

            DataGridView3.Columns(36).Visible = False : DataGridView3.Columns(37).Visible = False : DataGridView3.Columns(15).Visible = False
            DataGridView3.Columns(38).Visible = False : DataGridView3.Columns(39).Visible = False : DataGridView3.Columns(40).Visible = False : DataGridView3.Columns(41).Visible = False
            DataGridView3.Columns(42).Visible = False : DataGridView3.Columns(43).Visible = False : DataGridView3.Columns(44).Visible = False : DataGridView3.Columns(45).Visible = False
            DataGridView3.Columns(46).Visible = False : DataGridView3.Columns(47).Visible = False : DataGridView3.Columns(48).Visible = False : DataGridView3.Columns(49).Visible = False
            DataGridView3.Columns(50).Visible = False : DataGridView3.Columns(51).Visible = False : DataGridView3.Columns(52).Visible = False : DataGridView3.Columns(53).Visible = False
            DataGridView3.Columns(54).Visible = False : DataGridView3.Columns(55).Visible = False : DataGridView3.Columns(56).Visible = False : DataGridView3.Columns(57).Visible = False
            DataGridView3.Columns(58).Visible = False : DataGridView3.Columns(59).Visible = False
        ElseIf Button3.Enabled = True And Button34.Enabled = True And Button35.Enabled = True And Button4.Enabled = True And Button6.Enabled = False Then
            DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Visible = False : DataGridView3.Columns(10).Visible = False : DataGridView3.Columns(11).Visible = False
            DataGridView3.Columns(12).Visible = False : DataGridView3.Columns(13).Visible = False : DataGridView3.Columns(14).Visible = False : DataGridView3.Columns(17).Visible = False
            DataGridView3.Columns(19).Visible = False : DataGridView3.Columns(20).Visible = False : DataGridView3.Columns(21).Visible = False : DataGridView3.Columns(22).Visible = False
            DataGridView3.Columns(23).Visible = False : DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(26).Visible = False
            DataGridView3.Columns(27).Visible = False : DataGridView3.Columns(28).Visible = False : DataGridView3.Columns(29).Visible = False : DataGridView3.Columns(30).Visible = False
            DataGridView3.Columns(31).Visible = False : DataGridView3.Columns(32).Visible = False : DataGridView3.Columns(33).Visible = False : DataGridView3.Columns(34).Visible = False
            DataGridView3.Columns(35).Visible = False

            DataGridView3.Columns(15).Visible = True : DataGridView3.Columns(36).Visible = True : DataGridView3.Columns(37).Visible = True : DataGridView3.Columns(38).Visible = True
            DataGridView3.Columns(39).Visible = True : DataGridView3.Columns(40).Visible = True : DataGridView3.Columns(41).Visible = True

            DataGridView3.Columns(42).Visible = False : DataGridView3.Columns(43).Visible = False : DataGridView3.Columns(44).Visible = False : DataGridView3.Columns(45).Visible = False
            DataGridView3.Columns(46).Visible = False : DataGridView3.Columns(47).Visible = False : DataGridView3.Columns(48).Visible = False : DataGridView3.Columns(49).Visible = False
            DataGridView3.Columns(50).Visible = False : DataGridView3.Columns(51).Visible = False : DataGridView3.Columns(52).Visible = False : DataGridView3.Columns(53).Visible = False
            DataGridView3.Columns(54).Visible = False : DataGridView3.Columns(55).Visible = False : DataGridView3.Columns(56).Visible = False : DataGridView3.Columns(57).Visible = False
            DataGridView3.Columns(58).Visible = False : DataGridView3.Columns(59).Visible = False
        End If

        DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(11).DefaultCellStyle.Format = "#,##0.00" : DataGridView3.Columns(12).DefaultCellStyle.Format = "#,##0.00"
        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        TextBox6.Text = "0" : TextBox3.Text = "0" : TextBox8.Text = "0" : TextBox7.Text = "0" : TextBox5.Text = "0" : TextBox4.Text = "0"
        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            If DataGridView3.Rows(i).Cells("訂單屬性").Value.ToString = "LANDED BRANDED" Then
                TextBox6.Text = Val(TextBox6.Text) + DataGridView3.Rows(i).Cells("訂單數量").Value
                TextBox5.Text = Val(TextBox5.Text) + DataGridView3.Rows(i).Cells("總金額").Value
            Else
                TextBox3.Text = Val(TextBox3.Text) + DataGridView3.Rows(i).Cells("訂單數量").Value
                TextBox4.Text = Val(TextBox4.Text) + DataGridView3.Rows(i).Cells("總金額").Value
            End If
        Next
        TextBox8.Text = Val(TextBox6.Text) + Val(TextBox3.Text) : TextBox7.Text = Val(TextBox5.Text) + Val(TextBox4.Text)
        TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox4.Text = Format(Val(TextBox4.Text), "#,##0")
        TextBox6.Text = Format(Val(TextBox6.Text), "#,##0") : TextBox3.Text = Format(Val(TextBox3.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
    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
        DataGridView2.Visible = False : TextBox13.Enabled = False : Button3.Enabled = False
        Set_清單3()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "DELETE FROM 貨款匯入出款明細表 WHERE (出貨數量 = 0)"
        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox12.Text = DataGridView3.Rows(e.RowIndex).Cells("訂單流水號").Value
            TextBox2.Text = DataGridView3.Rows(e.RowIndex).Cells("資料流水號").Value

            TextBox13.Text = DataGridView3.Rows(e.RowIndex).Cells("訂單數量").Value - DataGridView3.Rows(e.RowIndex).Cells("出貨數量").Value
            TextBox13.Text = Format(Val(TextBox13.Text), "###0")

            If DataGridView3.Rows(e.RowIndex).Cells("明細建檔").Value = True Then : Button30.Enabled = True : Else : Button30.Enabled = False : End If

            PictureBox1.Image = Nothing : conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'  AND 類別 LIKE N'設計圖'"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then
                PictureBox1.Image = Nothing : conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'  AND 類別 LIKE N'設計圖'"
                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                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()
            Else
                PictureBox1.Image = Nothing : conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                If dr.Read() Then
                    PictureBox1.Image = Nothing : conn.Close()
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "SELECT TOP(1) 圖片 FROM 鞋型圖片資料庫 WHERE 形體號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                    While dr.Read() = True
                        Dim unused3 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()
                Else
                    PictureBox1.Image = Nothing : conn.Close()
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                    If dr.Read() Then
                        PictureBox1.Image = Nothing : conn.Close()
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE N'" & DataGridView3.Rows(e.RowIndex).Cells("型體號碼").Value & "'"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                        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) : PictureBox1.Image = Bitmap.FromStream(oStream)
                        End While
                        conn.Close()
                    Else
                        conn.Close()
                    End If
                End If
            End If : PictureBox1.SizeMode = 4

            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & DataGridView3.Rows(e.RowIndex).Cells("驗貨報告圖片").Value & "'"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            PictureBox2.Image = Nothing
            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) : PictureBox2.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close() : PictureBox2.SizeMode = 4
            驗貨報告 = DataGridView3.Rows(e.RowIndex).Cells("驗貨報告圖片").Value
        End If
    End Sub
    Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView3.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView3.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView3(0, e.RowIndex).Value.ToString <> DataGridView3(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView3.RowHeadersVisible, DataGridView3.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView3.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView3.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.Click
        If CheckBox10.Checked = True Then : CheckBox10.Checked = True : CheckBox11.Checked = False : Else : CheckBox10.Checked = False : CheckBox11.Checked = True : End If
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.Click
        If CheckBox11.Checked = True Then : CheckBox11.Checked = True : CheckBox10.Checked = False : Else : CheckBox11.Checked = False : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.Click
        If CheckBox24.Checked = True Then : CheckBox24.Checked = True : CheckBox25.Checked = False : Else : CheckBox24.Checked = False : CheckBox25.Checked = True : End If
    End Sub
    Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.Click
        If CheckBox25.Checked = True Then : CheckBox24.Checked = False : CheckBox25.Checked = True : Else : CheckBox24.Checked = True : CheckBox25.Checked = False : End If
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
        If TextBox12.Text = "" Then
            MsgBox("請先選擇訂單資料")
        Else
            PA = TextBox12.Text
            量產訂單明細表.Show() : 量產訂單明細表.WindowState = 2
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox12.Text = "" Then
            MsgBox("未選擇需要刪除的資料")
        Else
            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "DELETE FROM 訂單明細表抬頭 WHERE (訂單流水號 LIKE N'" & TextBox12.Text & "')"
                cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "DELETE FROM 訂單控制表 WHERE (訂單流水號 LIKE N'" & TextBox12.Text & "')"
                cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "DELETE FROM 訂單明細表 WHERE (訂單流水號 LIKE N'" & TextBox12.Text & "')"
                cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
                Set_清單3()
                MsgBox("刪除完成")
            End If
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_清單3() : PA = ""
    End Sub
    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
        aa = MsgBox("確定要CXL訂單?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If TextBox2.Text = "" Or TextBox12.Text = "" Then
                MsgBox("沒有正確選擇要修改的資料")
            Else
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                If CheckBox24.Checked = False Then
                    SQL1 = "UPDATE 訂單控制表 SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (資料流水號 = '" & TextBox2.Text & "')"
                ElseIf CheckBox24.Checked = True Then
                    SQL1 = "UPDATE 訂單控制表 SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (訂單流水號 = '" & TextBox12.Text & "')"
                End If
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            End If
        End If
        Set_清單3()
    End Sub
    Private Sub DateTimePicker30_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker30.MouseDown
        DateTimePicker30.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
        DateTimePicker30.Format = DateTimePickerFormat.Custom : DateTimePicker30.CustomFormat = " "
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        aa = MsgBox("確定要將此產品訂單移到出貨?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If DateTimePicker30.Format = DateTimePickerFormat.Custom Then : MsgBox("ACTUAL ex-fty不能空白")
            Else
                Dim EDR As Integer
                Dim EDRW As Integer
                If CheckBox10.Checked = True Then
                    If TextBox1.Text = "" Or IsNumeric(TextBox1.Text) = False Then
                        MsgBox("出貨數量不可為空白或非數字型態")
                    Else
                        DataGridView2.DataSource = Nothing : ds1.Clear()
                        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                        DataGridView2.ColumnHeadersHeight = 25
                        DataGridView2.AllowUserToAddRows = False
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 
                                       單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 
                                       驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, 
                                       Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 
                                       驗貨報告圖片 FROM 訂單控制表 
                                WHERE (資料流水號 = '" & TextBox2.Text & "') AND (CXL <> 1)"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

                        For i As Integer = 0 To DataGridView2.Rows.Count - 1
                            GHJK = DataGridView2.Rows(i).Cells("驗貨報告圖片").Value
                            If GHJK = "" Then
                                MsgBox("驗貨報告不齊全，請重新確認。")
                                Set_清單3() : TextBox1.Text = "" : TextBox2.Text = "" : TextBox12.Text = ""
                                Exit Sub
                            End If
                        Next

                        If DataGridView2.Rows(0).Cells("出貨數量").Value >= DataGridView2.Rows(0).Cells("訂單數量").Value Then
                            MsgBox("系統有誤，請通知系統管理員處理。")
                            Exit Sub
                        End If

                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If
                        conn.Close()
                        EDR += 1
                        If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                        ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                        End If

                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                           "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                           "VALUES ('" & ESTR & "','" & DataGridView2.Rows(0).Cells("資料流水號").Value & "','" & DataGridView2.Rows(0).Cells("訂單流水號").Value &
                           "','" & DataGridView2.Rows(0).Cells("年份季度").Value & "','" & DataGridView2.Rows(0).Cells("客戶訂單號").Value &
                           "','" & DataGridView2.Rows(0).Cells("型體名稱").Value & "','" & DataGridView2.Rows(0).Cells("顏色").Value &
                           "','" & DataGridView2.Rows(0).Cells("楦型").Value & "','" & DataGridView2.Rows(0).Cells("訂單數量").Value &
                           "','" & TextBox1.Text & "', '', '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', '', '', '')"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

                        EDRW = DataGridView2.Rows(0).Cells("出貨數量").Value + Double.Parse(TextBox1.Text)
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', 出貨數量 = '" & EDRW & "' " &
                           "WHERE (資料流水號 = '" & TextBox2.Text & "')"
                        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                    End If
                Else
                    DataGridView2.DataSource = Nothing : ds1.Clear()
                    DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                    DataGridView2.ColumnHeadersHeight = 25
                    DataGridView2.AllowUserToAddRows = False
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 
                                   單價, 總金額, 備註, 生產工廠, 訂單種類, BUYER, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 
                                   驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, 
                                   Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 
                                   驗貨報告圖片 FROM 訂單控制表 
                            WHERE (訂單流水號 = '" & TextBox12.Text & "') AND (CXL <> 1)"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

                    For i As Integer = 0 To DataGridView2.Rows.Count - 1
                        GHJK = DataGridView2.Rows(i).Cells("驗貨報告圖片").Value
                        If GHJK = "" Then
                            MsgBox("驗貨報告不齊全，請重新確認。")
                            Set_清單3() : TextBox1.Text = "" : TextBox2.Text = "" : TextBox12.Text = ""
                            Exit Sub
                        End If
                    Next

                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If
                    conn.Close()

                    For i As Integer = 0 To DataGridView2.Rows.Count - 1
                        EDR += 1
                        If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                        ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                        End If
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        If DataGridView2.Rows(i).Cells("出貨數量").Value = 0 Then
                            EDRW = DataGridView2.Rows(i).Cells("訂單數量").Value
                        Else
                            EDRW = DataGridView2.Rows(i).Cells("訂單數量").Value - DataGridView2.Rows(i).Cells("出貨數量").Value
                        End If
                        SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                           "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                           "VALUES ('" & ESTR & "','" & DataGridView2.Rows(i).Cells("資料流水號").Value & "','" & DataGridView2.Rows(i).Cells("訂單流水號").Value &
                           "','" & DataGridView2.Rows(i).Cells("年份季度").Value & "','" & DataGridView2.Rows(i).Cells("客戶訂單號").Value &
                           "','" & DataGridView2.Rows(i).Cells("型體名稱").Value & "','" & DataGridView2.Rows(i).Cells("顏色").Value &
                           "','" & DataGridView2.Rows(i).Cells("楦型").Value & "','" & DataGridView2.Rows(i).Cells("訂單數量").Value &
                           "','" & EDRW & "', '', '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', '', '', '')"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                    Next i

                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', 出貨數量 = 訂單數量 " &
                       "WHERE (訂單流水號 = '" & TextBox12.Text & "')"
                    cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                End If
                MsgBox("出貨資料作業完成")
            End If
        End If
        Set_清單3() : TextBox1.Text = "" : TextBox2.Text = ""
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        驗貨報告大圖.ShowDialog()
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If Val(TextBox1.Text) > Val(TextBox13.Text) Then
            MsgBox("出貨數量不可大於可出貨數量") : TextBox1.Text = "0"
        End If
    End Sub
    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
        PA = ComboBox10.Text : Set_清單3() : PA = ""
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Button3.Enabled = False : Button34.Enabled = True : Button35.Enabled = True : Button4.Enabled = True : Button6.Enabled = True
        Set_grid4()
    End Sub
    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
        Button3.Enabled = True : Button34.Enabled = False : Button35.Enabled = True : Button4.Enabled = True : Button6.Enabled = True
        Set_grid4()
    End Sub
    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
        Button3.Enabled = True : Button34.Enabled = True : Button35.Enabled = False : Button4.Enabled = True : Button6.Enabled = True
        Set_grid4()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Button3.Enabled = True : Button34.Enabled = True : Button35.Enabled = True : Button4.Enabled = False : Button6.Enabled = True
        Set_grid4()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Button3.Enabled = True : Button34.Enabled = True : Button35.Enabled = True : Button4.Enabled = True : Button6.Enabled = False
        Set_grid4()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        列印_量產訂單控制表.ShowDialog()
    End Sub
End Class