TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/TENDENZA_STYLE_資料管理.vb

Option Strict Off
Public Class TENDENZA_STYLE_資料管理
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
    Dim OO As Boolean
    Private Sub Set_DGV1載入前設定()
        conn.Close()
        产品名称清单_dgv.DataSource = Nothing : ds.Clear()
        产品名称清单_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        产品名称清单_dgv.ColumnHeadersHeight = 25
        产品名称清单_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV1載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 产品名称清单_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_TENDENZASTYLE清單()
        Set_DGV1載入前設定()
        SQL1 = "SELECT STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, " &
               "Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認 " &
               "FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY    形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = " &
               "STYLELIST.ProductName FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 ORDER BY Q.總雙數 DESC, RIGHT(STYLELIST.建立季節,2) DESC, 形體號碼 DESC"
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_grid1()
        产品名称清单_dgv.Columns(0).FillWeight = 70 : 产品名称清单_dgv.Columns(1).Visible = False : 产品名称清单_dgv.Columns(2).FillWeight = 180 : 产品名称清单_dgv.Columns(3).FillWeight = 80
        产品名称清单_dgv.Columns(4).FillWeight = 80 : 产品名称清单_dgv.Columns(5).FillWeight = 220 : 产品名称清单_dgv.Columns(6).Visible = False : 产品名称清单_dgv.Columns(7).FillWeight = 60
        产品名称清单_dgv.Columns(8).FillWeight = 60 : 产品名称清单_dgv.Columns(9).FillWeight = 90
        产品名称清单_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 产品名称清单_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        产品名称清单_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        产品名称清单_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        产品名称清单_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        产品名称清单_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_DGV2載入前設定()
        项目编号清单_dgv.DataSource = Nothing : ds1.Clear()
        项目编号清单_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        项目编号清单_dgv.ColumnHeadersHeight = 25
        项目编号清单_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV2載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 项目编号清单_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid2()
        项目编号清单_dgv.Columns(0).FillWeight = 75 : 项目编号清单_dgv.Columns(1).FillWeight = 50 : 项目编号清单_dgv.Columns(2).FillWeight = 110 : 项目编号清单_dgv.Columns(3).FillWeight = 45
        项目编号清单_dgv.Columns(4).FillWeight = 80 : 项目编号清单_dgv.Columns(5).FillWeight = 80 : 项目编号清单_dgv.Columns(6).FillWeight = 80 : 项目编号清单_dgv.Columns(7).FillWeight = 90
        项目编号清单_dgv.Columns(8).FillWeight = 130 : 项目编号清单_dgv.Columns(9).FillWeight = 230 : 项目编号清单_dgv.Columns(10).FillWeight = 90 : 项目编号清单_dgv.Columns(11).FillWeight = 50
        项目编号清单_dgv.Columns(12).FillWeight = 55
        项目编号清单_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        项目编号清单_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        项目编号清单_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_DGV3載入前設定()
        conn.Close()
        订单形體號清单_dgv.DataSource = Nothing : ds2.Clear()
        订单形體號清单_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        订单形體號清单_dgv.ColumnHeadersHeight = 25
        订单形體號清单_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV3載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 订单形體號清单_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單1()
        Set_DGV3載入前設定()
        SQL1 = "SELECT STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, " &
               "STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY 形體號) AS Q " &
               "RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = STYLELIST分析.型體名稱 FULL OUTER JOIN " &
               "訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 " &
               "WHERE (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) > - 183) " &
               "ORDER BY   Q.總雙數 DESC"
        Set_DGV3載入後設定()
    End Sub
    Private Sub Set_grid3()
        订单形體號清单_dgv.Columns(0).FillWeight = 250 : 订单形體號清单_dgv.Columns(1).FillWeight = 100 : 订单形體號清单_dgv.Columns(2).FillWeight = 100
        订单形體號清单_dgv.Columns(3).FillWeight = 70 : 订单形體號清单_dgv.Columns(4).FillWeight = 70
        订单形體號清单_dgv.Columns(5).FillWeight = 80
        订单形體號清单_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 订单形體號清单_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        订单形體號清单_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        订单形體號清单_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_DGV4載入前設定()
        conn.Close()
        订单形體號清单1_dgv.DataSource = Nothing : ds3.Clear()
        订单形體號清单1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        订单形體號清单1_dgv.ColumnHeadersHeight = 25
        订单形體號清单1_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV4載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 订单形體號清单1_dgv.DataSource = ds3.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單2()
        Set_DGV4載入前設定()
        SQL1 = "SELECT STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, " &
               "STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY 形體號) AS Q " &
               "RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = STYLELIST分析.型體名稱 FULL OUTER JOIN " &
               "訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 " &
               "WHERE (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) < -183) " &
               "AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) > -913) " &
               "ORDER BY   Q.總雙數 DESC"
        Set_DGV4載入後設定()
    End Sub
    Private Sub Set_grid4()
        订单形體號清单1_dgv.Columns(0).FillWeight = 250 : 订单形體號清单1_dgv.Columns(1).FillWeight = 100 : 订单形體號清单1_dgv.Columns(2).FillWeight = 100
        订单形體號清单1_dgv.Columns(3).FillWeight = 70 : 订单形體號清单1_dgv.Columns(4).FillWeight = 70
        订单形體號清单1_dgv.Columns(5).FillWeight = 80
        订单形體號清单1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 订单形體號清单1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        订单形體號清单1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        订单形體號清单1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_DGV5載入前設定()
        conn.Close()
        订单形體號清单2_dgv.DataSource = Nothing : ds4.Clear()
        订单形體號清单2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        订单形體號清单2_dgv.ColumnHeadersHeight = 25
        订单形體號清单2_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV5載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 订单形體號清单2_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單3()
        Set_DGV5載入前設定()
        SQL1 = "SELECT STYLELIST分析.型體名稱, STYLELIST分析.第一次訂單日期, STYLELIST分析.最後一次訂單日, Q.訂單數量 AS 訂單筆數, Q.總雙數, DATEDIFF(day, STYLELIST分析.第一次訂單日期, " &
               "STYLELIST分析.最後一次訂單日) + 1 AS 型體壽命 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY 形體號) AS Q " &
               "RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName LEFT OUTER JOIN STYLELIST分析 ON STYLELIST.ProductName = STYLELIST分析.型體名稱 FULL OUTER JOIN " &
               "訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 " &
               "WHERE (STYLELIST分析.最後一次訂單日 NOT LIKE '') AND (DATEDIFF(day, '" & Today() & "', STYLELIST分析.最後一次訂單日) < - 912) " &
               "ORDER BY   Q.總雙數 DESC"
        Set_DGV5載入後設定()
    End Sub
    Private Sub Set_grid5()
        订单形體號清单2_dgv.Columns(0).FillWeight = 250 : 订单形體號清单2_dgv.Columns(1).FillWeight = 100 : 订单形體號清单2_dgv.Columns(2).FillWeight = 100
        订单形體號清单2_dgv.Columns(3).FillWeight = 70 : 订单形體號清单2_dgv.Columns(4).FillWeight = 70
        订单形體號清单2_dgv.Columns(5).FillWeight = 80
        订单形體號清单2_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 订单形體號清单2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        订单形體號清单2_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        订单形體號清单2_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单2_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单2_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单2_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        订单形體號清单2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub TENDENZA_STYLE_資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        日期_dtp.Visible = False
        Set_TENDENZASTYLE清單() : Set_grid1()
        Set_清單1() : Set_grid3() : Set_清單2() : Set_grid4() : Set_清單3() : Set_grid5()
        型體數1_tb.Text = 订单形體號清单_dgv.Rows.Count : 型體數2_tb.Text = 订单形體號清单1_dgv.Rows.Count : 型體數3_tb.Text = 订单形體號清单2_dgv.Rows.Count
        If CC(69) = True Then : 刪除_bt.Enabled = True : Else : 刪除_bt.Enabled = False : End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 更新分析資料_bt.Click
        Dim 日期(1) As String
        ConnOpen()
        SQL1 = "DELETE FROM STYLELIST分析"
        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
        For FD As Integer = 0 To 产品名称清单_dgv.Rows.Count - 1
            ConnOpen()
            SQL1 = "SELECT TOP (1) 客戶交期 FROM 訂單控制表 WHERE (形體號 LIKE '" & 产品名称清单_dgv.Rows(FD).Cells("形體名稱").Value & "') ORDER BY   客戶交期"
            CmdSet_For_dr()
            If dr.Read() Then : 日期(0) = dr("客戶交期") : Else : 日期(0) = "" : End If : conn.Close()
            ConnOpen()
            SQL1 = "SELECT TOP (1) 客戶交期 FROM 訂單控制表 WHERE (形體號 LIKE '" & 产品名称清单_dgv.Rows(FD).Cells("形體名稱").Value & "') ORDER BY   客戶交期 DESC"
            CmdSet_For_dr()
            If dr.Read() Then : 日期(1) = dr("客戶交期") : Else : 日期(1) = "" : End If : conn.Close()
            ConnOpen()
            SQL1 = "INSERT INTO STYLELIST分析 (型體名稱, 第一次訂單日期, 最後一次訂單日) " &
                       "VALUES ('" & 产品名称清单_dgv.Rows(FD).Cells("形體名稱").Value & "', '" & 日期(0) & "', '" & 日期(1) & "')"
            CmdSet_For_dr() : conn.Close()
        Next
        Set_清單1() : Set_grid3() : Set_清單2() : Set_grid4() : Set_清單3() : Set_grid5()
        型體數1_tb.Text = 订单形體號清单_dgv.Rows.Count : 型體數2_tb.Text = 订单形體號清单1_dgv.Rows.Count : 型體數3_tb.Text = 订单形體號清单2_dgv.Rows.Count
        MsgBox("更新完成")
    End Sub
    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 项目编号清单_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 项目编号清单_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 项目编号清单_dgv(2, e.RowIndex).Value.ToString <> 项目编号清单_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(项目编号清单_dgv.RowHeadersVisible, 项目编号清单_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 项目编号清单_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 项目编号清单_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 产品名称清单_dgv.CellEndEdit
        Dim EU(0) As String
        EU(0) = 产品名称清单_dgv(9, e.RowIndex).Value.ToString
        If EU(0) = "" Then
        Else
            日期_dtp.Text = EU(0)
            产品名称清单_dgv.Rows(e.RowIndex).Cells(9).Value = Format(日期_dtp.Value, "yyyy/MM/dd")
        End If
        ConnOpen()
        SQL1 = "UPDATE STYLELIST SET APMA確認 = '" & 产品名称清单_dgv.Rows(e.RowIndex).Cells("APMA確認").Value & "' 
                WHERE (ProductName = '" & 产品名称清单_dgv.Rows(e.RowIndex).Cells("形體名稱").Value & "')"
        CmdSet_For_dr() : conn.Close()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 产品名称清单_dgv.CellClick
        形體名稱_tb.Text = 产品名称清单_dgv(1, e.RowIndex).Value.ToString : 项目编号_tb.Text = 产品名称清单_dgv(3, e.RowIndex).Value.ToString
        形體號_bt.Text = 产品名称清单_dgv(4, e.RowIndex).Value.ToString : 描述_tb.Text = 产品名称清单_dgv(5, e.RowIndex).Value.ToString
        季節_bt.Text = 产品名称清单_dgv(0, e.RowIndex).Value.ToString
        Set_DGV2載入前設定()
        SQL1 = "SELECT 訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, " &
               "訂單控制表.TVW AS 型體號, " &
               "訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 FROM 訂單控制表 LEFT OUTER JOIN " &
               "訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 " &
               "AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 WHERE (訂單控制表.形體號 LIKE '" & 产品名称清单_dgv.Rows(e.RowIndex).Cells("形體名稱").Value & "') " &
               "ORDER BY 訂單控制表.客戶交期, VT#"
        Set_DGV2載入後設定() : Set_grid2()
    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(7, e.RowIndex).Value.ToString : 形體號_bt.Text = 项目编号清单_dgv(6, e.RowIndex).Value.ToString
            描述_tb.Text = 项目编号清单_dgv(9, e.RowIndex).Value.ToString : 季節_bt.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
            Set_DGV2載入前設定()
            SQL1 = "SELECT 訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, " &
                   "訂單控制表.TVW AS 型體號, " &
                   "訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 FROM 訂單控制表 LEFT OUTER JOIN " &
                   "訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 " &
                   "AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 WHERE (訂單控制表.形體號 LIKE '" & 订单形體號清单_dgv.Rows(e.RowIndex).Cells("型體名稱").Value & "') " &
                   "ORDER BY 訂單控制表.客戶交期, VT#"
            Set_DGV2載入後設定() : Set_grid2()
        End If
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 订单形體號清单1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Set_DGV2載入前設定()
            SQL1 = "SELECT 訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, " &
                   "訂單控制表.TVW AS 型體號, " &
                   "訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 FROM 訂單控制表 LEFT OUTER JOIN " &
                   "訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 " &
                   "AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 WHERE (訂單控制表.形體號 LIKE '" & 订单形體號清单1_dgv.Rows(e.RowIndex).Cells("型體名稱").Value & "') " &
                   "ORDER BY 訂單控制表.客戶交期, VT#"
            Set_DGV2載入後設定() : Set_grid2()
        End If
    End Sub
    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 订单形體號清单2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Set_DGV2載入前設定()
            SQL1 = "SELECT 訂單控制表.訂單流水號 AS VT#, 訂單控制表.年份季度 AS 季度, 訂單控制表.客戶訂單號, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.客戶交期 AS 訂單日期, " &
                   "訂單控制表.TVW AS 型體號, " &
                   "訂單明細表.ItemNumber, 訂單控制表.形體號 AS ProductName, 訂單明細表.ProductDescription, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 FROM 訂單控制表 LEFT OUTER JOIN " &
                   "訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.顏色 = 訂單明細表.Color AND 訂單控制表.訂單流水號 = 訂單明細表.天盾流水號 " &
                   "AND 訂單控制表.客戶訂單號 = 訂單明細表.客戶訂單號 WHERE (訂單控制表.形體號 LIKE '" & 订单形體號清单2_dgv.Rows(e.RowIndex).Cells("型體名稱").Value & "') " &
                   "ORDER BY 訂單控制表.客戶交期, VT#"
            Set_DGV2載入後設定() : Set_grid2()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        Dim AA = MsgBox("確定要新增資料?", MsgBoxStyle.OkCancel)
        If AA = MsgBoxResult.Ok Then
            If 形體名稱_tb.Text <> "" And 形體號_bt.Text <> "" And 季節_bt.Text <> "" Then
                ConnOpen()
                SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE 形體號 LIKE '" & 形體名稱_tb.Text & "'"
                CmdSet_For_dr()
                If dr.Read() Then
                    OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
                Else
                    OO = False
                End If : conn.Close()

                If OO = False Then
                    ConnOpen()
                    SQL1 = "INSERT INTO 訂單控制表形體號清單 (形體號) VALUES ('" & 形體名稱_tb.Text & "')"
                    CmdSet_For_dr() : conn.Close()
                End If

                ConnOpen()
                SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & 形體名稱_tb.Text & "'"
                CmdSet_For_dr()
                If dr.Read() Then
                    OO = True
                Else
                    OO = False
                End If : conn.Close()

                If OO = False Then
                    ConnOpen()
                    SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節) " &
                           "VALUES ('" & 项目编号_tb.Text & "', '" & 形體名稱_tb.Text & "', '" & 形體號_bt.Text & "', '" & 描述_tb.Text & "', '" & 季節_bt.Text & "')"
                    CmdSet_For_dr() : conn.Close()
                End If
                If 形體號_bt.Text = "" Then
                Else
                    ConnOpen()
                    SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & 形體號_bt.Text & "'"
                    CmdSet_For_dr()
                    If dr.Read() Then
                        OO = True : MsgBox("新增完成") : Set_TENDENZASTYLE清單() : Set_grid1() : conn.Close() : Exit Sub
                    Else
                        OO = False
                    End If : conn.Close()

                    If OO = False Then
                        ConnOpen()
                        SQL1 = "INSERT INTO 訂單控制表TVW清單 (形體號) VALUES ('" & 形體號_bt.Text & "')"
                        CmdSet_For_dr() : conn.Close()
                    End If
                End If

                Set_TENDENZASTYLE清單() : Set_grid1()
                MsgBox("新增完成")
            Else
                MsgBox("型體建立季節/Product Name/型體號碼 不可空白")
            End If
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 形體名稱_tb.Text <> "" Then
            conn.Close()
            ConnOpen()
            SQL1 = "UPDATE 訂單控制表形體號清單 SET 形體號 = '" & 形體名稱_tb.Text & "' WHERE (形體號 = '" & 形體名稱_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

            ConnOpen()
            SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & 形體名稱_tb.Text & "'"
            CmdSet_For_dr()
            If dr.Read() Then
                OO = True
            Else
                OO = False
            End If : conn.Close()

            If OO = True Then
                ConnOpen()
                SQL1 = "UPDATE STYLELIST SET ItemNumber = '" & 项目编号_tb.Text & "', Style = '" & 形體號_bt.Text & "', Description = '" & 描述_tb.Text & "', 建立季節 = '" & 季節_bt.Text & "' " &
                       "WHERE (ProductName = '" & 形體名稱_tb.Text & "')"
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            ElseIf OO = False Then
                ConnOpen()
                SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節) " &
                       "VALUES ('" & 项目编号_tb.Text & "', '" & 形體名稱_tb.Text & "', '" & 形體號_bt.Text & "', '" & 描述_tb.Text & "', '" & 季節_bt.Text & "')"
                CmdSet_For_dr() : conn.Close()
            End If
            If 形體號_bt.Text = "" Then
            Else
                ConnOpen()
                SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & 形體號_bt.Text & "'"
                CmdSet_For_dr()
                If dr.Read() Then
                    OO = True : MsgBox("修改完成") : Set_TENDENZASTYLE清單() : Set_grid1() : conn.Close() : Exit Sub
                Else
                    OO = False
                End If : conn.Close()

                If OO = False Then
                    ConnOpen()
                    SQL1 = "INSERT INTO 訂單控制表TVW清單 (形體號) VALUES ('" & 形體號_bt.Text & "')"
                    CmdSet_For_dr() : conn.Close()
                End If
            End If

            Set_TENDENZASTYLE清單() : Set_grid1()
            MsgBox("修改完成")
        Else
            MsgBox("Key index 不可空白")
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            ConnOpen()
            SQL1 = "DELETE FROM 訂單控制表形體號清單 WHERE (形體號 = '" & 形體名稱_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

            ConnOpen()
            SQL1 = "DELETE FROM STYLELIST WHERE (ProductName = '" & 形體名稱_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            Set_TENDENZASTYLE清單() : Set_grid1()
            MsgBox("刪除完成")
        End If
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
        PP1 = 形體名稱_tb.Text : PP2 = 形體號_bt.Text
        鞋型圖片導入資料庫.Button23_Click()
        Me.Close()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的資料")
        Set_DGV1載入前設定()
        SQL1 = "SELECT STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, " &
               "Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認 FROM (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 
               GROUP BY    形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = " &
               "STYLELIST.ProductName FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 " &
               "WHERE 訂單控制表形體號清單.形體號 LIKE '%" & PA & "%' OR STYLELIST.ItemNumber LIKE '%" & PA & "%' OR STYLELIST.Style LIKE '%" & PA & "%' OR STYLELIST.Description LIKE '%" & PA & "%' " &
               "ORDER BY Q.總雙數 DESC, RIGHT(STYLELIST.建立季節,2) DESC, 形體號碼 DESC"
        Set_DGV1載入後設定() : Set_grid1()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 清空資料_bt.Click
        形體名稱_tb.Text = "" : 项目编号_tb.Text = "" : 形體號_bt.Text = "" : 描述_tb.Text = "" : 季節_bt.Text = ""
    End Sub
    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles 季節_bt.TextChanged
        If CC(68) = True Then
            If 形體名稱_tb.Text <> "" And 项目编号_tb.Text <> "" And 形體號_bt.Text <> "" And 描述_tb.Text <> "" And 季節_bt.Text <> "" Then
                If CC(70) = True Then : 修改_bt.Enabled = True : Else : 修改_bt.Enabled = False : End If
            Else
                修改_bt.Enabled = True
            End If
        Else
            修改_bt.Enabled = False
        End If
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles 形體名稱_tb.TextChanged
        If CC(68) = True Then
            If 形體名稱_tb.Text <> "" And 项目编号_tb.Text <> "" And 形體號_bt.Text <> "" And 描述_tb.Text <> "" And 季節_bt.Text <> "" Then
                If CC(70) = True Then : 修改_bt.Enabled = True : Else : 修改_bt.Enabled = False : End If
            Else
                修改_bt.Enabled = True
            End If
        Else
            修改_bt.Enabled = False
        End If
    End Sub
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles 项目编号_tb.TextChanged
        If CC(68) = True Then
            If 形體名稱_tb.Text <> "" And 项目编号_tb.Text <> "" And 形體號_bt.Text <> "" And 描述_tb.Text <> "" And 季節_bt.Text <> "" Then
                If CC(70) = True Then : 修改_bt.Enabled = True : Else : 修改_bt.Enabled = False : End If
            Else
                修改_bt.Enabled = True
            End If
        Else
            修改_bt.Enabled = False
        End If
    End Sub
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles 形體號_bt.TextChanged
        If CC(68) = True Then
            If 形體名稱_tb.Text <> "" And 项目编号_tb.Text <> "" And 形體號_bt.Text <> "" And 描述_tb.Text <> "" And 季節_bt.Text <> "" Then
                If CC(70) = True Then : 修改_bt.Enabled = True : Else : 修改_bt.Enabled = False : End If
            Else
                修改_bt.Enabled = True
            End If
        Else
            修改_bt.Enabled = False
        End If
    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles 描述_tb.TextChanged
        If CC(68) = True Then
            If 形體名稱_tb.Text <> "" And 项目编号_tb.Text <> "" And 形體號_bt.Text <> "" And 描述_tb.Text <> "" And 季節_bt.Text <> "" Then
                If CC(70) = True Then : 修改_bt.Enabled = True : Else : 修改_bt.Enabled = False : End If
            Else
                修改_bt.Enabled = True
            End If
        Else
            修改_bt.Enabled = False
        End If
    End Sub
End Class