TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/周進度表.vb

Option Strict Off
Imports System.IO
Public Class 周進度表
    ReadOnly ds As New DataSet
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim file_name As String = "" : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Private Sub Set_訂單清單()
        訂單種類_dgv.DataSource = Nothing : ds.Clear()
        訂單種類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單種類_dgv.ColumnHeadersHeight = 25
        訂單種類_dgv.AllowUserToAddRows = False
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, " &
                   "訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 
                    驗貨報告圖片, 力威訂單號 
                    FROM " & 訂單資料表(1) & " " &
                   "WHERE (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH "
        Else
            SQL1 = "SELECT 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 訂單數量 AS QTY, Requested_XF, Confirm_XF, " &
                   "Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號 FROM " & 訂單資料表(1) & " " &
                   "WHERE (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (訂單流水號 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (年份季度 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (客戶訂單號 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (形體號 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (顏色 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (楦型 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (訂單數量 LIKE '%" & PA & "%') OR" &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (備註 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (生產工廠 LIKE '%" & PA & "%') OR " &
                         "(CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (訂單種類 LIKE '%" & PA & "%') " &
                         "ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
        End If
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單種類_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid()
        訂單種類_dgv.Columns(0).FillWeight = 80 : 訂單種類_dgv.Columns(1).FillWeight = 80 : 訂單種類_dgv.Columns(2).FillWeight = 50 : 訂單種類_dgv.Columns(3).FillWeight = 110
        訂單種類_dgv.Columns(4).FillWeight = 200 : 訂單種類_dgv.Columns(5).FillWeight = 130 : 訂單種類_dgv.Columns(6).FillWeight = 55 : 訂單種類_dgv.Columns(7).FillWeight = 55
        訂單種類_dgv.Columns(8).FillWeight = 90 : 訂單種類_dgv.Columns(9).FillWeight = 80 : 訂單種類_dgv.Columns(10).FillWeight = 80 : 訂單種類_dgv.Columns(11).FillWeight = 75
        訂單種類_dgv.Columns(12).FillWeight = 75 : 訂單種類_dgv.Columns(13).FillWeight = 75 : 訂單種類_dgv.Columns(14).FillWeight = 150 : 訂單種類_dgv.Columns(15).FillWeight = 152
        訂單種類_dgv.Columns(16).Visible = False
        訂單種類_dgv.Columns(17).Visible = False
        訂單種類_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
        訂單種類_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單種類_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單種類_dgv.Columns(1).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.Columns(10).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.Columns(14).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.Columns(15).DefaultCellStyle.BackColor = Color.MistyRose
        訂單種類_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub Set_excel導入()
        For i As Integer = 4 To 99999
            生產工廠_tb.Text = xlSheet.Cells(i, 4).value
            客戶訂單號_tb.Text = xlSheet.Cells(i, 2).value : If 客戶訂單號_tb.Text = "" Then : Else : 客戶訂單號_tb.Text = Format(xlSheet.Cells(i, 2).value, "yyyy/MM/dd") : End If
            形體號_tb.Text = xlSheet.Cells(i, 9).value : If 形體號_tb.Text = "" Then : Else : 形體號_tb.Text = Format(xlSheet.Cells(i, 9).value, "yyyy/MM/dd") : End If
            顏色_tb.Text = xlSheet.Cells(i, 10).value : If 顏色_tb.Text = "" Then : Else : 顏色_tb.Text = Format(xlSheet.Cells(i, 10).value, "yyyy/MM/dd") : End If
            Revised_XF_tb.Text = xlSheet.Cells(i, 11).value : If Revised_XF_tb.Text = "" Then : Else : Revised_XF_tb.Text = Format(xlSheet.Cells(i, 11).value, "yyyy/MM/dd") : End If
            If 生產工廠_tb.Text <> "" Then
                If gUserName = "李協叡" Then
                    ConnOpen()
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 客戶訂單號_tb.Text & "', Requested_XF = '" & 形體號_tb.Text & "', Confirm_XF = '" & 顏色_tb.Text & "', 
                            Revised_XF = '" & Revised_XF_tb.Text & "'," &
                           "裁斷時間 = '" & xlSheet.Cells(i, 12).value & "', 針車時間 = '" & xlSheet.Cells(i, 13).value & "', " &
                           "成型時間 = '" & xlSheet.Cells(i, 14).value & "', Special_Packaging = '" & xlSheet.Cells(i, 15).value & "', Remarks = '" & xlSheet.Cells(i, 16).value & "' " &
                           "WHERE (力威訂單號 LIKE '" & xlSheet.Cells(i, 4).value & "') AND (形體號 LIKE '" & xlSheet.Cells(i, 5).value & "') AND (顏色 LIKE '" & xlSheet.Cells(i, 6).value & "') " &
                           "AND (楦型 LIKE '" & xlSheet.Cells(i, 7).value & "') AND (訂單數量 = " & xlSheet.Cells(i, 8).value & ".0000" & ")"
                    CmdSet_For_dr() : conn.Close()
                Else
                    ConnOpen()
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET " &
                           "裁斷時間 = '" & xlSheet.Cells(i, 12).value & "', 針車時間 = '" & xlSheet.Cells(i, 13).value & "', " &
                           "成型時間 = '" & xlSheet.Cells(i, 14).value & "', Special_Packaging = '" & xlSheet.Cells(i, 15).value & "', Remarks = '" & xlSheet.Cells(i, 16).value & "' " &
                           "WHERE (力威訂單號 LIKE '" & xlSheet.Cells(i, 4).value & "') AND (形體號 LIKE '" & xlSheet.Cells(i, 5).value & "') AND (顏色 LIKE '" & xlSheet.Cells(i, 6).value & "') " &
                           "AND (楦型 LIKE '" & xlSheet.Cells(i, 7).value & "') AND (訂單數量 = " & xlSheet.Cells(i, 8).value & ".0000" & ")"
                    CmdSet_For_dr() : conn.Close()
                End If
            Else
                i = 99999
            End If
            楦型_tb.Text = i
        Next
    End Sub
    Private Sub 周進度表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        訂單資料庫選擇.ShowDialog()

        生產工廠_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : Revised_XF_tb.Enabled = False : 楦型_tb.Enabled = False
        日期1_dtp.Visible = False : 日期2_dtp.Visible = False : 日期3_dtp.Visible = False : 日期4_dtp.Visible = False
        日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
        If CC(36) = True Then : 導入Excel_bt.Enabled = True : Else : 導入Excel_bt.Enabled = False : End If
        Revised_XF1_tb.Visible = False
        Set_訂單清單() : Set_grid()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If 注释_lb.Visible = True Then : 注释_lb.Visible = False : Else : 注释_lb.Visible = True : End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單種類_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 訂單種類_dgv(5, e.RowIndex).Value = "" Then
                ConnOpen()
                SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 訂單種類_dgv(4, e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                CmdSet_For_dr()
                圖片_pb.Image = Nothing
                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) : 圖片_pb.Image = Bitmap.FromStream(oStream)
                End While
            Else
                ConnOpen()
                SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 訂單種類_dgv(4, e.RowIndex).Value.ToString & "' AND 顏色 LIKE '" & 訂單種類_dgv(5, e.RowIndex).Value.ToString &
                    "' AND 類型 NOT LIKE '確認-產地標'"
                CmdSet_For_dr()
                If dr.Read() Then
                    conn.Close()
                    ConnOpen()
                    SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 訂單種類_dgv(4, e.RowIndex).Value.ToString & "' AND 顏色 LIKE '" & 訂單種類_dgv(5, e.RowIndex).Value.ToString &
                        "' AND 類型 NOT LIKE '確認-產地標'"
                    CmdSet_For_dr()
                    圖片_pb.Image = Nothing
                    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) : 圖片_pb.Image = Bitmap.FromStream(oStream)
                    End While
                Else
                    conn.Close()
                    ConnOpen()
                    SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 訂單種類_dgv(4, e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                    CmdSet_For_dr()
                    圖片_pb.Image = Nothing
                    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) : 圖片_pb.Image = Bitmap.FromStream(oStream)
                    End While
                End If
            End If
            conn.Close() : 圖片_pb.SizeMode = 4

            ConnOpen()
            SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 訂單種類_dgv(17, e.RowIndex).Value.ToString & "'"
            CmdSet_For_dr()
            驗貨報告圖片_pb.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) : 驗貨報告圖片_pb.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close() : 驗貨報告圖片_pb.SizeMode = 4

            驗貨報告 = 訂單種類_dgv(17, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView1_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(16, e.RowIndex).Value.ToString <> 訂單種類_dgv(16, 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(3) As String
        EU(0) = 訂單種類_dgv(1, e.RowIndex).Value.ToString
        EU(1) = 訂單種類_dgv(8, e.RowIndex).Value.ToString
        EU(2) = 訂單種類_dgv(9, e.RowIndex).Value.ToString
        EU(3) = 訂單種類_dgv(10, e.RowIndex).Value.ToString
        If EU(0) = "" Then
        Else
            日期1_dtp.Text = EU(0)
            訂單種類_dgv.Rows(e.RowIndex).Cells(1).Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
        End If
        If EU(1) = "" Then
        Else
            日期2_dtp.Text = EU(1)
            訂單種類_dgv.Rows(e.RowIndex).Cells(8).Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
        End If
        If EU(2) = "" Then
        Else
            日期3_dtp.Text = EU(2)
            訂單種類_dgv.Rows(e.RowIndex).Cells(9).Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
        End If
        If EU(3) = "" Then
        Else
            日期4_dtp.Text = EU(3)
            訂單種類_dgv.Rows(e.RowIndex).Cells(10).Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
        End If
    End Sub
    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        列印_周進度表.Show()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 導入Excel_bt.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            file_name = OpenFileDialog1.FileName
        End If
        xlApp = CreateObject("Excel.Application")
        xlApp.DisplayAlerts = True
        xlApp.Visible = True
        xlApp.Workbooks.Open(file_name)
        xlSheet = xlApp.Worksheets(1) : xlSheet.Activate() : Set_excel導入()
        xlSheet = xlApp.Worksheets(2) : xlSheet.Activate() : Set_excel導入()
        xlSheet = xlApp.Worksheets(3) : xlSheet.Activate() : Set_excel導入()
        xlSheet = xlApp.Worksheets(4) : xlSheet.Activate() : Set_excel導入()
        xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
        楦型_tb.Text = ""
        MsgBox("資料導入完成")
        Set_訂單清單() : Set_grid()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
        PA = InputBox("請輸入要查詢的資料")
        If PA = "" Then
            Set_訂單清單() : Set_grid() : Timer1.Enabled = False : 日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
        Else
            Set_訂單清單() : Set_grid()
            If CC(37) = True Then
                日期存檔_bt.Enabled = True
                存檔_bt.Enabled = True
            Else
                日期存檔_bt.Enabled = False
                存檔_bt.Enabled = True
            End If
            Timer1.Enabled = True
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 日期存檔_bt.Click
        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
            If 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value Is DBNull.Value Then
                Revised_XF1_tb.Text = ""
            Else
                Revised_XF1_tb.Text = 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value
            End If

            ConnOpen()
            If Revised_XF1_tb.Text = "" Then
                SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 訂單種類_dgv.Rows(i).Cells("PO_S_Date").Value & "', " &
                                          "Requested_XF = '" & 訂單種類_dgv.Rows(i).Cells("Requested_XF").Value & "', " &
                                            "Confirm_XF = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "', " &
                                            "Revised_XF = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "', " &
                                              "客戶交期 = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "' " &
                       "WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
                       "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
                       "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
            Else
                SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 訂單種類_dgv.Rows(i).Cells("PO_S_Date").Value & "', " &
                                          "Requested_XF = '" & 訂單種類_dgv.Rows(i).Cells("Requested_XF").Value & "', " &
                                            "Confirm_XF = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "', " &
                                            "Revised_XF = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "', " &
                                              "客戶交期 = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "' 
                        WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
                       "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
                       "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
            End If
            CmdSet_For_dr() : conn.Close()
        Next i
        MsgBox("存檔完成")
        Set_訂單清單() : Set_grid()
        Timer1.Enabled = False : 注释_lb.Visible = False
        日期存檔_bt.Enabled = False
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(1) & " SET Special_Packaging = '" & 訂單種類_dgv.Rows(i).Cells("Special_Packaging").Value & "', " &
                                                       "Remarks = '" & 訂單種類_dgv.Rows(i).Cells("Remarks").Value & "' " &
                             "WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
                       "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
                       "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
            CmdSet_For_dr() : conn.Close()
        Next i
        MsgBox("存檔完成")
        Set_訂單清單() : Set_grid()
        Timer1.Enabled = False : 注释_lb.Visible = False
        存檔_bt.Enabled = False
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        驗貨報告大圖.ShowDialog()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        驗貨報告圖片_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 驗貨報告圖片_pb.Refresh() : 驗貨報告圖片_pb.SizeMode = 4
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        驗貨報告圖片_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 驗貨報告圖片_pb.Refresh() : 驗貨報告圖片_pb.SizeMode = 4
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        驗貨報告圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 驗貨報告圖片_pb.Refresh() : 驗貨報告圖片_pb.SizeMode = 4
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        驗貨報告圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 驗貨報告圖片_pb.Refresh() : 驗貨報告圖片_pb.SizeMode = 4
    End Sub
    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
        SQL_訂單資料表選擇_VIONIC() : Set_訂單清單() : Set_grid()
    End Sub
    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
        SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid()
    End Sub
    Private Sub 進度條()
        平均數 = 10000 / 資料數
        最終數 += 平均數
        If 最終數 > 10000 Then : 最終數 = 10000 : End If
        ProgressBar1.Value = 最終數
    End Sub
    Private Sub 日期格式修正_bt_Click(sender As Object, e As EventArgs) Handles 日期格式修正_bt.Click
        Dim EU(3) As String
        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
            EU(0) = 訂單種類_dgv(1, i).Value.ToString
            EU(1) = 訂單種類_dgv(8, i).Value.ToString
            EU(2) = 訂單種類_dgv(9, i).Value.ToString
            EU(3) = 訂單種類_dgv(10, i).Value.ToString
            If EU(0) = "" Then
            Else
                日期1_dtp.Text = EU(0)
                訂單種類_dgv.Rows(i).Cells(1).Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
            End If
            If EU(1) = "" Then
            Else
                日期2_dtp.Text = EU(1)
                訂單種類_dgv.Rows(i).Cells(8).Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
            End If
            If EU(2) = "" Then
            Else
                日期3_dtp.Text = EU(2)
                訂單種類_dgv.Rows(i).Cells(9).Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
            End If
            If EU(3) = "" Then
            Else
                日期4_dtp.Text = EU(3)
                訂單種類_dgv.Rows(i).Cells(10).Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
            End If
        Next
        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
            資料數 = 訂單種類_dgv.Rows.Count : 進度條()
            If 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value Is DBNull.Value Then
                Revised_XF1_tb.Text = ""
            Else
                Revised_XF1_tb.Text = 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value
            End If

            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 訂單種類_dgv.Rows(i).Cells("PO_S_Date").Value & "', " &
                                          "Requested_XF = '" & 訂單種類_dgv.Rows(i).Cells("Requested_XF").Value & "', " &
                                            "Confirm_XF = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "', " &
                                            "Revised_XF = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "' " &
                       "WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
                       "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
                       "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
            CmdSet_For_dr() : conn.Close()
        Next i : ProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成")
        Set_訂單清單() : Set_grid()
    End Sub
End Class