WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫狀態.vb

Option Strict Off
Public Class 製鞋技術資料庫狀態
    Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds11, ds12, ds13, ds14 As New DataSet
    Dim 已超出 As Boolean
    Private Sub Set_清單()
        楦頭規格_dgv.DataSource = Nothing : ds.Clear()
        楦頭規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        楦頭規格_dgv.ColumnHeadersHeight = 40
        楦頭規格_dgv.AllowUserToAddRows = False
        SQL_楦頭規格控制表查詢()
        da.Fill(ds) : 楦頭規格_dgv.DataSource = ds.Tables(0) : conn.Close()

        楦頭規格_dgv.Columns(0).FillWeight = 100 : 楦頭規格_dgv.Columns(1).FillWeight = 100 : 楦頭規格_dgv.Columns(2).FillWeight = 100 : 楦頭規格_dgv.Columns(3).FillWeight = 100
        楦頭規格_dgv.Columns(4).FillWeight = 150 : 楦頭規格_dgv.Columns(5).FillWeight = 60 : 楦頭規格_dgv.Columns(6).FillWeight = 60 : 楦頭規格_dgv.Columns(7).FillWeight = 60
        楦頭規格_dgv.Columns(8).FillWeight = 60

        楦頭編號_tb.Text = "%%"
        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
        For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
            楦頭規格_dgv("模具資料", i).Value = 0 : 楦頭規格_dgv("素描圖片", i).Value = 0 : 楦頭規格_dgv("MINI WALL", i).Value = 0 : 楦頭規格_dgv("樣品單", i).Value = 0
        Next

        For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
            資料數 = 楦頭規格_dgv.Rows.Count : MyModule1.進度條()
            For ii As Integer = 0 To 模具開發_dgv.Rows.Count - 1
                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 模具開發_dgv("楦頭編號", ii).Value.ToString Then
                    楦頭規格_dgv("模具資料", i).Value = Val(楦頭規格_dgv("模具資料", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 鞋樣素描_dgv.Rows.Count - 1
                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 鞋樣素描_dgv("楦頭編號", ii).Value.ToString Then
                    楦頭規格_dgv("素描圖片", i).Value = Val(楦頭規格_dgv("素描圖片", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To MINI_WAL_dgv.Rows.Count - 1
                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = MINI_WAL_dgv("楦頭編號", ii).Value.ToString Then
                    楦頭規格_dgv("MINI WALL", i).Value = Val(楦頭規格_dgv("MINI WALL", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 樣品訂單_dgv.Rows.Count - 1
                If 楦頭規格_dgv("楦頭編號", i).Value.ToString = 樣品訂單_dgv("楦頭編號", ii).Value.ToString Then
                    楦頭規格_dgv("樣品單", i).Value = Val(楦頭規格_dgv("樣品單", i).Value.ToString) + 1
                End If
            Next
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        模具開發_dgv.DataSource = Nothing : ds1.Clear() : 鞋樣素描_dgv.DataSource = Nothing : ds2.Clear()
        MINI_WAL_dgv.DataSource = Nothing : ds3.Clear() : 樣品訂單_dgv.DataSource = Nothing : ds4.Clear()
        楦頭編號_tb.Text = ""
        筆數1_tb.Text = 楦頭規格_dgv.Rows.Count
    End Sub
    Private Sub Set_清單1()
        模具開發_dgv.DataSource = Nothing : ds1.Clear()
        模具開發_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        模具開發_dgv.ColumnHeadersHeight = 25
        模具開發_dgv.AllowUserToAddRows = False
        SQL_模具清單()
        da.Fill(ds1) : 模具開發_dgv.DataSource = ds1.Tables(0) : conn.Close()
        模具開發_dgv.Columns(0).Visible = False
    End Sub
    Private Sub Set_清單2()
        鞋樣素描_dgv.DataSource = Nothing : ds2.Clear()
        鞋樣素描_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        鞋樣素描_dgv.ColumnHeadersHeight = 25
        鞋樣素描_dgv.AllowUserToAddRows = False
        SQL_鞋樣素描清單()
        da.Fill(ds2) : 鞋樣素描_dgv.DataSource = ds2.Tables(0) : conn.Close()
        鞋樣素描_dgv.Columns(0).Visible = False
    End Sub
    Private Sub Set_清單3()
        MINI_WAL_dgv.DataSource = Nothing : ds3.Clear()
        MINI_WAL_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        MINI_WAL_dgv.ColumnHeadersHeight = 25
        MINI_WAL_dgv.AllowUserToAddRows = False
        SQL_MINIWAL_()
        da.Fill(ds3) : MINI_WAL_dgv.DataSource = ds3.Tables(0) : conn.Close()
        MINI_WAL_dgv.Columns(0).Visible = False
    End Sub
    Private Sub Set_清單4()
        樣品訂單_dgv.DataSource = Nothing : ds4.Clear()
        樣品訂單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        樣品訂單_dgv.ColumnHeadersHeight = 25
        樣品訂單_dgv.AllowUserToAddRows = False
        SQL_樣品訂單()
        da.Fill(ds4) : 樣品訂單_dgv.DataSource = ds4.Tables(0) : conn.Close()
        樣品訂單_dgv.Columns(0).Visible = False
    End Sub
    Private Sub Set_清單5()
        模具規格_dgv.DataSource = Nothing : ds5.Clear()
        模具規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        模具規格_dgv.ColumnHeadersHeight = 40
        模具規格_dgv.AllowUserToAddRows = False
        SQL_模具規格()
        da.Fill(ds5) : 模具規格_dgv.DataSource = ds5.Tables(0) : conn.Close()

        模具規格_dgv.Columns(0).FillWeight = 100 : 模具規格_dgv.Columns(1).FillWeight = 100 : 模具規格_dgv.Columns(2).FillWeight = 100 : 模具規格_dgv.Columns(3).FillWeight = 100
        模具規格_dgv.Columns(4).FillWeight = 100 : 模具規格_dgv.Columns(5).FillWeight = 100 : 模具規格_dgv.Columns(6).FillWeight = 100 : 模具規格_dgv.Columns(7).FillWeight = 50
        模具規格_dgv.Columns(8).FillWeight = 100 : 模具規格_dgv.Columns(9).FillWeight = 80 : 模具規格_dgv.Columns(10).FillWeight = 90 : 模具規格_dgv.Columns(11).FillWeight = 60
        模具規格_dgv.Columns(12).FillWeight = 60

        For i As Integer = 0 To 模具規格_dgv.Rows.Count - 1
            資料數 = 模具規格_dgv.Rows.Count : MyModule1.進度條()
            模具規格_tb.Text = 模具規格_dgv("模具編號", i).Value.ToString
            Set_清單6()
            模具規格_dgv("鞋樣素描", i).Value = 鞋樣素描1_dgv.Rows.Count
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        模具規格_tb.Text = ""
        筆數2_tb.Text = 模具規格_dgv.Rows.Count
    End Sub
    Private Sub Set_清單6()
        鞋樣素描1_dgv.DataSource = Nothing : ds6.Clear()
        鞋樣素描1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        鞋樣素描1_dgv.ColumnHeadersHeight = 25
        鞋樣素描1_dgv.AllowUserToAddRows = False
        SQL_鞋樣素描1清單()
        da.Fill(ds6) : 鞋樣素描1_dgv.DataSource = ds6.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單7()
        型體資訊_dgv.DataSource = Nothing : ds7.Clear()
        型體資訊_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        型體資訊_dgv.ColumnHeadersHeight = 40
        型體資訊_dgv.AllowUserToAddRows = False
        SQL_型體資訊()
        da.Fill(ds7) : 型體資訊_dgv.DataSource = ds7.Tables(0) : conn.Close()

        型體資訊_dgv.Columns(0).FillWeight = 100 : 型體資訊_dgv.Columns(1).FillWeight = 100 : 型體資訊_dgv.Columns(2).FillWeight = 100 : 型體資訊_dgv.Columns(3).FillWeight = 60
        型體資訊_dgv.Columns(4).FillWeight = 60 : 型體資訊_dgv.Columns(5).FillWeight = 60 : 型體資訊_dgv.Columns(6).FillWeight = 60 : 型體資訊_dgv.Columns(7).FillWeight = 60
        型體資訊_dgv.Columns(8).FillWeight = 60

        客戶_tb.Text = "%%" : 編號_tb.Text = "%%" : 名稱_tb.Text = "%%"
        For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
            型體資訊_dgv("鞋樣素描", i).Value = 0 : 型體資訊_dgv("鞋型圖片", i).Value = 0 : 型體資訊_dgv("樣品訂單", i).Value = 0
            型體資訊_dgv("量產控制", i).Value = 0 : 型體資訊_dgv("量產明細", i).Value = 0 : 型體資訊_dgv("出貨明細", i).Value = 0
        Next

        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : Set_清單13()
        For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
            資料數 = 型體資訊_dgv.Rows.Count : MyModule1.進度條()
            For ii As Integer = 0 To 鞋樣素描2_dgv.Rows.Count - 1
                If 型體資訊_dgv("型體號碼", i).Value.ToString = 鞋樣素描2_dgv("型體編號", ii).Value.ToString And
                    型體資訊_dgv("型體名稱", i).Value.ToString = 鞋樣素描2_dgv("型體名稱", ii).Value.ToString Then
                    型體資訊_dgv("鞋樣素描", i).Value = Val(型體資訊_dgv("鞋樣素描", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 鞋型圖片_dgv.Rows.Count - 1
                If 型體資訊_dgv("客戶簡稱", i).Value.ToString = 鞋型圖片_dgv("客戶", ii).Value.ToString And
                    型體資訊_dgv("型體號碼", i).Value.ToString = 鞋型圖片_dgv("形體號", ii).Value.ToString And
                    型體資訊_dgv("型體名稱", i).Value.ToString = 鞋型圖片_dgv("形體名", ii).Value.ToString Then
                    型體資訊_dgv("鞋型圖片", i).Value = Val(型體資訊_dgv("鞋型圖片", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 樣品訂單1_dgv.Rows.Count - 1
                If 型體資訊_dgv("型體號碼", i).Value.ToString = 樣品訂單1_dgv("型體號碼", ii).Value.ToString And
                    型體資訊_dgv("型體名稱", i).Value.ToString = 樣品訂單1_dgv("型體名稱", ii).Value.ToString Then
                    型體資訊_dgv("樣品訂單", i).Value = Val(型體資訊_dgv("樣品訂單", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 量產控制_dgv.Rows.Count - 1
                If 型體資訊_dgv("型體號碼", i).Value.ToString = 量產控制_dgv("型體號碼", ii).Value.ToString And
                    型體資訊_dgv("型體名稱", i).Value.ToString = 量產控制_dgv("GOODBOX", ii).Value.ToString Then
                    型體資訊_dgv("量產控制", i).Value = Val(型體資訊_dgv("量產控制", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 量產明細_dgv.Rows.Count - 1
                If 型體資訊_dgv("型體號碼", i).Value.ToString = 量產明細_dgv("ItemNumber", ii).Value.ToString And
                    型體資訊_dgv("型體名稱", i).Value.ToString = 量產明細_dgv("ProductName", ii).Value.ToString Then
                    型體資訊_dgv("量產明細", i).Value = Val(型體資訊_dgv("量產明細", i).Value.ToString) + 1
                End If
            Next
            For ii As Integer = 0 To 出貨明細_dgv.Rows.Count - 1
                If 型體資訊_dgv("型體名稱", i).Value.ToString = 出貨明細_dgv("形體號", ii).Value.ToString Then
                    型體資訊_dgv("出貨明細", i).Value = Val(型體資訊_dgv("出貨明細", i).Value.ToString) + 1
                End If
            Next
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        鞋樣素描2_dgv.DataSource = Nothing : ds8.Clear() : 鞋型圖片_dgv.DataSource = Nothing : ds9.Clear()
        樣品訂單1_dgv.DataSource = Nothing : ds10.Clear() : 量產控制_dgv.DataSource = Nothing : ds11.Clear()
        量產明細_dgv.DataSource = Nothing : ds12.Clear() : 出貨明細_dgv.DataSource = Nothing : ds13.Clear()
        客戶_tb.Text = "" : 編號_tb.Text = "" : 名稱_tb.Text = ""
        筆數3_tb.Text = 型體資訊_dgv.Rows.Count
    End Sub
    Private Sub Set_清單8()
        鞋樣素描2_dgv.DataSource = Nothing : ds8.Clear()
        鞋樣素描2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        鞋樣素描2_dgv.ColumnHeadersHeight = 25
        鞋樣素描2_dgv.AllowUserToAddRows = False
        SQL_鞋樣素描2()
        da.Fill(ds8) : 鞋樣素描2_dgv.DataSource = ds8.Tables(0) : conn.Close()
        鞋樣素描2_dgv.Columns(0).Visible = False : 鞋樣素描2_dgv.Columns(1).Visible = False
    End Sub
    Private Sub Set_清單9()
        鞋型圖片_dgv.DataSource = Nothing : ds9.Clear()
        鞋型圖片_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        鞋型圖片_dgv.ColumnHeadersHeight = 25
        鞋型圖片_dgv.AllowUserToAddRows = False
        SQL_鞋型圖片()
        da.Fill(ds9) : 鞋型圖片_dgv.DataSource = ds9.Tables(0) : conn.Close()
        鞋型圖片_dgv.Columns(0).Visible = False : 鞋型圖片_dgv.Columns(1).Visible = False : 鞋型圖片_dgv.Columns(2).Visible = False
    End Sub
    Private Sub Set_清單10()
        樣品訂單1_dgv.DataSource = Nothing : ds10.Clear()
        樣品訂單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        樣品訂單1_dgv.ColumnHeadersHeight = 25
        樣品訂單1_dgv.AllowUserToAddRows = False
        SQL_樣品訂單1()
        da.Fill(ds10) : 樣品訂單1_dgv.DataSource = ds10.Tables(0) : conn.Close()
        樣品訂單1_dgv.Columns(0).Visible = False : 樣品訂單1_dgv.Columns(1).Visible = False
    End Sub
    Private Sub Set_清單11()
        量產控制_dgv.DataSource = Nothing : ds11.Clear()
        量產控制_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        量產控制_dgv.ColumnHeadersHeight = 25
        量產控制_dgv.AllowUserToAddRows = False
        SQL_量產控制()
        da.Fill(ds11) : 量產控制_dgv.DataSource = ds11.Tables(0) : conn.Close()
        量產控制_dgv.Columns(0).Visible = False : 量產控制_dgv.Columns(1).Visible = False
    End Sub
    Private Sub Set_清單12()
        量產明細_dgv.DataSource = Nothing : ds12.Clear()
        量產明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        量產明細_dgv.ColumnHeadersHeight = 25
        量產明細_dgv.AllowUserToAddRows = False
        SQL_量產明細()
        da.Fill(ds12) : 量產明細_dgv.DataSource = ds12.Tables(0) : conn.Close()
        量產明細_dgv.Columns(0).Visible = False : 量產明細_dgv.Columns(1).Visible = False
    End Sub
    Private Sub Set_清單13()
        出貨明細_dgv.DataSource = Nothing : ds13.Clear()
        出貨明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        出貨明細_dgv.ColumnHeadersHeight = 25
        出貨明細_dgv.AllowUserToAddRows = False
        SQL_出貨明細()
        da.Fill(ds13) : 出貨明細_dgv.DataSource = ds13.Tables(0) : conn.Close()
        出貨明細_dgv.Columns(0).Visible = False
    End Sub
    Private Sub Set_清單14()
        楦模轉換_dgv.DataSource = Nothing : ds14.Clear()
        楦模轉換_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        楦模轉換_dgv.ColumnHeadersHeight = 25
        楦模轉換_dgv.AllowUserToAddRows = False
        SQL_楦模轉換()
        da.Fill(ds14) : 楦模轉換_dgv.DataSource = ds14.Tables(0) : conn.Close()
        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
            楦模轉換_dgv("選擇", i).Value = False
        Next
    End Sub
    Private Sub 製鞋技術資料庫除錯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        WINPROFIT_ERP_SYS.WindowState = 2
        Set_清單() : Set_清單5() : Set_清單7() : Set_清單14()
    End Sub
    Private Sub 製鞋技術資料庫除錯_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        WINPROFIT_ERP_SYS.WindowState = 0
    End Sub
    Private Sub 楦模轉換_dgv_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("模具編號", e.RowIndex).Value.ToString <> 楦模轉換_dgv("模具編號", 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
            For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
                If 楦模轉換_dgv("選擇", i).Value = True Then
                    楦模轉換_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                End If
            Next
        End If
    End Sub
    Private Sub 型體資訊_dgv_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("客戶簡稱", e.RowIndex).Value.ToString <> 型體資訊_dgv("客戶簡稱", 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
            For i As Integer = 0 To 型體資訊_dgv.Rows.Count - 1
                If 型體資訊_dgv("鞋樣素描", i).Value.ToString = "0" And 型體資訊_dgv("鞋型圖片", i).Value.ToString = "0" And
                型體資訊_dgv("樣品訂單", i).Value.ToString = "0" And 型體資訊_dgv("量產控制", i).Value.ToString = "0" And
                型體資訊_dgv("量產明細", i).Value.ToString = "0" And 型體資訊_dgv("出貨明細", i).Value.ToString = "0" Then
                    型體資訊_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                End If
                If 型體資訊_dgv("鞋樣素描", i).Value.ToString <> "0" And 型體資訊_dgv("鞋型圖片", i).Value.ToString <> "0" And
                型體資訊_dgv("樣品訂單", i).Value.ToString <> "0" And 型體資訊_dgv("量產控制", i).Value.ToString <> "0" And
                型體資訊_dgv("量產明細", i).Value.ToString <> "0" And 型體資訊_dgv("出貨明細", i).Value.ToString <> "0" Then
                    型體資訊_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                End If
            Next
        End If
    End Sub
    Private Sub 物料清單_dgv_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("模具編號", e.RowIndex).Value.ToString <> 模具規格_dgv("模具編號", 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
            For i As Integer = 0 To 模具規格_dgv.Rows.Count - 1
                If 模具規格_dgv("鞋樣素描", i).Value.ToString = "0" Then : 模具規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
                If 模具規格_dgv("鞋樣素描", i).Value.ToString <> "0" Then : 模具規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Next
        End If
    End Sub
    Private Sub 楦頭規格_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 楦頭規格_dgv.RowPostPaint
        If e.RowIndex = 楦頭規格_dgv.Rows.Count - 1 Then : Exit Sub : Else
            For i As Integer = 0 To 楦頭規格_dgv.Rows.Count - 1
                If 楦頭規格_dgv("模具資料", i).Value.ToString = "0" And 楦頭規格_dgv("素描圖片", i).Value.ToString = "0" And
                楦頭規格_dgv("MINI WALL", i).Value.ToString = "0" And 楦頭規格_dgv("樣品單", i).Value.ToString = "0" Then
                    楦頭規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                End If
                If 楦頭規格_dgv("模具資料", i).Value.ToString <> "0" And 楦頭規格_dgv("素描圖片", i).Value.ToString <> "0" And
                楦頭規格_dgv("MINI WALL", i).Value.ToString <> "0" And 楦頭規格_dgv("樣品單", i).Value.ToString <> "0" Then
                    楦頭規格_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                End If
            Next
        End If
    End Sub
    Private Sub 楦模轉換_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 楦模轉換_dgv.CellClick
        If 楦模轉換_dgv("模具開發單號", e.RowIndex).Value.ToString = "" Then
            楦模轉換_dgv("選擇", e.RowIndex).Value = False
        Else
            If 楦模轉換_dgv("資料流水號", e.RowIndex).Value.ToString = "" Then
                楦模轉換_dgv("選擇", e.RowIndex).Value = False
            Else
                If 楦模轉換_dgv("OCN", e.RowIndex).Value.ToString = "" Then
                    楦模轉換_dgv("選擇", e.RowIndex).Value = False
                Else
                    楦模轉換_dgv("選擇", e.RowIndex).Value = True
                    楦模轉換_dgv("NCN", e.RowIndex).Value = 楦模轉換_dgv("OCN", e.RowIndex).Value.ToString
                End If
            End If
        End If
    End Sub
    Private Sub 型體資訊_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 型體資訊_dgv.CellClick
        客戶_tb.Text = 型體資訊_dgv("客戶簡稱", e.RowIndex).Value.ToString : 編號_tb.Text = 型體資訊_dgv("型體號碼", e.RowIndex).Value.ToString
        名稱_tb.Text = 型體資訊_dgv("型體名稱", e.RowIndex).Value.ToString
        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : Set_清單13()
    End Sub
    Private Sub 模具規格_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 模具規格_dgv.CellClick
        模具規格_tb.Text = 模具規格_dgv("模具編號", e.RowIndex).Value.ToString
        Set_清單6()
    End Sub
    Private Sub 楦頭規格_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 楦頭規格_dgv.CellClick
        楦頭編號_tb.Text = 楦頭規格_dgv("楦頭編號", e.RowIndex).Value.ToString
        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
    End Sub
    Private Sub 自動比對_bt_Click(sender As Object, e As EventArgs) Handles 自動比對_bt.Click
        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
            If 楦模轉換_dgv("模具開發單號", i).Value.ToString = "" Then
                楦模轉換_dgv("選擇", i).Value = False
            Else
                If 楦模轉換_dgv("資料流水號", i).Value.ToString = "" Then
                    楦模轉換_dgv("選擇", i).Value = False
                Else
                    If 楦模轉換_dgv("OCN", i).Value.ToString = "" Then
                        楦模轉換_dgv("選擇", i).Value = False
                    Else
                        楦模轉換_dgv("選擇", i).Value = True
                        楦模轉換_dgv("NCN", i).Value = 楦模轉換_dgv("OCN", i).Value.ToString
                    End If
                End If
            End If
        Next
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        For i As Integer = 0 To 楦模轉換_dgv.Rows.Count - 1
            資料數 = 楦模轉換_dgv.Rows.Count : MyModule1.進度條()
            If 楦模轉換_dgv("模具開發單號", i).Value.ToString = "" Then : Else
                PA = 楦模轉換_dgv("NCN", i).Value.ToString : PA1 = 楦模轉換_dgv("模具開發單號", i).Value.ToString
                SQL_更改模具開發控制表() : conn.Close()
            End If
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Set_清單14()
    End Sub
    '-----------------------------------------------------------------------------------------------------------
    Private Sub 楦頭規格_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 楦頭規格_dgv.MouseUp
        If 楦頭規格_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 楦頭規格_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 楦頭規格_dgv.SelectedCells(0).ColumnIndex >= 5 And 楦頭規格_dgv.SelectedCells(0).ColumnIndex <= 8 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 楦頭規格_dgv.SelectedCells.Count - 1
                        '楦頭規格_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(楦頭規格_dgv.Rows(楦頭規格_dgv.SelectedCells.Item(i).RowIndex).Cells(楦頭規格_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub 型體資訊_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 型體資訊_dgv.MouseUp
        If 型體資訊_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 型體資訊_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 型體資訊_dgv.SelectedCells(0).ColumnIndex >= 3 And 型體資訊_dgv.SelectedCells(0).ColumnIndex <= 8 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 型體資訊_dgv.SelectedCells.Count - 1
                        '型體資訊_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(型體資訊_dgv.Rows(型體資訊_dgv.SelectedCells.Item(i).RowIndex).Cells(型體資訊_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub 模具規格_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 模具規格_dgv.MouseUp
        If 模具規格_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 模具規格_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 模具規格_dgv.SelectedCells(0).ColumnIndex = 12 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 模具規格_dgv.SelectedCells.Count - 1
                        '模具規格_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(模具規格_dgv.Rows(模具規格_dgv.SelectedCells.Item(i).RowIndex).Cells(模具規格_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
End Class