TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/彙總報表管理/訂單分析報表五.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 訂單分析報表五
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim cmd As New SqlCommand
    Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet : Dim ds5 As New DataSet : Dim ds6 As New DataSet
    Dim ds7 As New DataSet : Dim ds8 As New DataSet : Dim ds9 As New DataSet : Dim ds10 As New DataSet : Dim ds11 As New DataSet : Dim ds12 As New DataSet : Dim ds13 As New DataSet
    Dim ds14 As New DataSet
    Dim dr As SqlDataReader
    Private  Sub Set_DGV1載入前設定()
        訂單控制表_dgv.DataSource = Nothing : ds.Clear()
        訂單控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單控制表_dgv.ColumnHeadersHeight = 25
        訂單控制表_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV1載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_分析清單1()
        Set_DGV1載入前設定()
        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & 年度_cb.Text & "') ORDER BY 開始日期"
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_DGV2載入前設定()
        分析清單_dgv.DataSource = Nothing : ds1.Clear()
        分析清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單_dgv.ColumnHeadersHeight = 25
        分析清單_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV2載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 分析清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV3載入前設定()
        分析清單1_dgv.DataSource = Nothing : ds2.Clear()
        分析清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單1_dgv.ColumnHeadersHeight = 25
        分析清單1_dgv.AllowUserToAddRows = False
        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.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 分析清單1_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV4載入前設定()
        分析清單2_dgv.DataSource = Nothing : ds3.Clear()
        分析清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單2_dgv.ColumnHeadersHeight = 25
        分析清單2_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV4載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 分析清單2_dgv.DataSource = ds3.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV5載入前設定()
        分析清單3_dgv.DataSource = Nothing : ds4.Clear()
        分析清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單3_dgv.ColumnHeadersHeight = 25
        分析清單3_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV5載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 分析清單3_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV6載入前設定()
        分析清單4_dgv.DataSource = Nothing : ds5.Clear()
        分析清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單4_dgv.ColumnHeadersHeight = 25
        分析清單4_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV6載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 分析清單4_dgv.DataSource = ds5.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV7載入前設定()
        分析清單5_dgv.DataSource = Nothing : ds6.Clear()
        分析清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單5_dgv.ColumnHeadersHeight = 25
        分析清單5_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV7載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 分析清單5_dgv.DataSource = ds6.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV8載入前設定()
        分析清單6_dgv.DataSource = Nothing : ds7.Clear()
        分析清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單6_dgv.ColumnHeadersHeight = 25
        分析清單6_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV8載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : 分析清單6_dgv.DataSource = ds7.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV9載入前設定()
        分析清單7_dgv.DataSource = Nothing : ds8.Clear()
        分析清單7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單7_dgv.ColumnHeadersHeight = 25
        分析清單7_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV9載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 分析清單7_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV10載入前設定()
        分析清單8_dgv.DataSource = Nothing : ds9.Clear()
        分析清單8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單8_dgv.ColumnHeadersHeight = 25
        分析清單8_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV10載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : 分析清單8_dgv.DataSource = ds9.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV11載入前設定()
        分析清單9_dgv.DataSource = Nothing : ds10.Clear()
        分析清單9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單9_dgv.ColumnHeadersHeight = 25
        分析清單9_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV11載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds10) : 分析清單9_dgv.DataSource = ds10.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV12載入前設定()
        分析清單10_dgv.DataSource = Nothing : ds11.Clear()
        分析清單10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單10_dgv.ColumnHeadersHeight = 25
        分析清單10_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV12載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds11) : 分析清單10_dgv.DataSource = ds11.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV13載入前設定()
        分析清單11_dgv.DataSource = Nothing : ds12.Clear()
        分析清單11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單11_dgv.ColumnHeadersHeight = 25
        分析清單11_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV13載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : 分析清單11_dgv.DataSource = ds12.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV14載入前設定()
        分析清單12_dgv.DataSource = Nothing : ds13.Clear()
        分析清單12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        分析清單12_dgv.ColumnHeadersHeight = 25
        分析清單12_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV14載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : 分析清單12_dgv.DataSource = ds13.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_DGV15載入前設定()
        訂單預估資料表2_dgv.DataSource = Nothing : ds14.Clear()
        訂單預估資料表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單預估資料表2_dgv.ColumnHeadersHeight = 25
        訂單預估資料表2_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV15載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : 訂單預估資料表2_dgv.DataSource = ds14.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_分析清單7()
        Set_DGV15載入前設定()
        SQL1 = "SELECT YEAR_P, 預估數量 AS Assess_QTY, 預估單價 AS Assess_Price FROM 訂單預估資料表2 WHERE YEAR_P NOT LIKE '%2017%' AND YEAR_P NOT LIKE '%2018%' ORDER BY YEAR_P DESC"
        Set_DGV15載入後設定()
    End Sub
    Private Sub Set_grid()
        分析清單_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單1_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單1_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單2_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單2_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單3_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單3_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單3_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單3_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單3_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單3_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單4_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單4_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單4_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單4_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單5_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單5_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單5_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單5_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單5_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單5_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單5_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單6_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單6_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單6_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單6_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單6_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單6_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單7_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單7_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單7_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單8_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單8_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單8_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單8_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單8_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單8_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單8_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單8_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單8_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單9_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單9_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單9_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單9_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單9_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單9_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單9_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單9_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單9_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單10_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單10_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單10_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單10_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單10_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單10_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單10_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單10_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單10_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單11_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單11_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單11_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單11_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單11_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單11_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單11_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單11_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單11_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        分析清單12_dgv.Columns(0).Width = 95 : 分析清單12_dgv.Columns(1).Width = 100 : 分析清單12_dgv.Columns(2).Width = 100 : 分析清單12_dgv.Columns(3).Width = 85
        分析清單12_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單12_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單12_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
        分析清單12_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單12_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單12_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單12_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        分析清單12_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單12_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        訂單預估資料表2_dgv.Columns(0).Width = 125 : 訂單預估資料表2_dgv.Columns(1).Width = 130 : 訂單預估資料表2_dgv.Columns(2).Width = 130
        訂單預估資料表2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 訂單預估資料表2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00"
        訂單預估資料表2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單預估資料表2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單預估資料表2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單預估資料表2_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        訂單預估資料表2_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    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
        客戶交期_tb.Visible = False : 訂單數量_tb.Visible = False : 總金額_tb.Visible = False
        Set_分析清單7()
        年度_cb.Text = Year(Now)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年度_cb.SelectedIndexChanged
        Set_分析清單1()
        Summary_Order_Quantity_tb.Text = "0" : Summary_Total_Sum_tb.Text = "0" : Summary_Average_tb.Text = "0"
        For i As Integer = 0 To 訂單控制表_dgv.Rows.Count - 1
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR
                            CXL = 0) AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(i).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(i).Cells("Closing_date").Value & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then
                客戶交期_tb.Text = dr("Order_Quantity").ToString
                訂單數量_tb.Text = dr("Total_Sum").ToString
                總金額_tb.Text = dr("Average").ToString
            End If : conn.Close()

            If 客戶交期_tb.Text = "" Then : 客戶交期_tb.Text = "0" : End If
            If 訂單數量_tb.Text = "" Then : 訂單數量_tb.Text = "0" : End If
            If 總金額_tb.Text = "" Then : 總金額_tb.Text = "0" : End If

            Summary_Order_Quantity_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(Summary_Order_Quantity_tb.Text)) + (Double.Parse(客戶交期_tb.Text))))), "#,##0")
            Summary_Total_Sum_tb.Text = Format(Val(CStr(Double.Parse(Summary_Total_Sum_tb.Text) + Double.Parse(訂單數量_tb.Text))), "#,##0.00")
            Summary_Average_tb.Text = Format(Val(CStr(Double.Parse(Summary_Total_Sum_tb.Text) / Double.Parse(Summary_Order_Quantity_tb.Text))), "#,##0.00")

            If i = 0 Then
                Order_Quantity_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 1 Then
                Order_Quantity1_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum1_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average1_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 2 Then
                Order_Quantity2_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum2_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average2_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 3 Then
                Order_Quantity3_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum3_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average3_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 4 Then
                Order_Quantity4_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum4_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average4_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 5 Then
                Order_Quantity5_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum5_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average5_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 6 Then
                Order_Quantity6_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum6_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average6_tb.Text = Format(Val(CStr((Double.Parse(總金額_tb.Text)))), "#,##0.00")
            ElseIf i = 7 Then
                Order_Quantity7_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum7_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average7_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 8 Then
                Order_Quantity8_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum8_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average8_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 9 Then
                Order_Quantity9_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum9_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average9_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 10 Then
                Order_Quantity10_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum10_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average10_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            ElseIf i = 11 Then
                Order_Quantity11_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum11_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
                Average11_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
            End If

            If i = 0 Then : Set_DGV2載入前設定() : ElseIf i = 1 Then : Set_DGV3載入前設定() : ElseIf i = 2 Then : Set_DGV4載入前設定() : ElseIf i = 3 Then : Set_DGV5載入前設定()
            ElseIf i = 4 Then : Set_DGV6載入前設定() : ElseIf i = 5 Then : Set_DGV7載入前設定() : ElseIf i = 6 Then : Set_DGV8載入前設定() : ElseIf i = 7 Then : Set_DGV9載入前設定()
            ElseIf i = 8 Then : Set_DGV10載入前設定() : ElseIf i = 9 Then : Set_DGV11載入前設定() : ElseIf i = 10 Then : Set_DGV12載入前設定() : ElseIf i = 11 Then : Set_DGV13載入前設定()
            End If
            SQL1 = "SELECT 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR CXL = 0) " &
                   "AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(i).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(i).Cells("Closing_date").Value & "') 
                   GROUP BY   訂單種類 ORDER BY   Order_Type"
            If i = 0 Then : Set_DGV2載入後設定() : ElseIf i = 1 Then : Set_DGV3載入後設定() : ElseIf i = 2 Then : Set_DGV4載入後設定() : ElseIf i = 3 Then : Set_DGV5載入後設定()
            ElseIf i = 4 Then : Set_DGV6載入後設定() : ElseIf i = 5 Then : Set_DGV7載入後設定() : ElseIf i = 6 Then : Set_DGV8載入後設定() : ElseIf i = 7 Then : Set_DGV9載入後設定()
            ElseIf i = 8 Then : Set_DGV10載入後設定() : ElseIf i = 9 Then : Set_DGV11載入後設定() : ElseIf i = 10 Then : Set_DGV12載入後設定() : ElseIf i = 11 Then : Set_DGV13載入後設定()
            End If

            Set_DGV14載入前設定()
            SQL1 = "SELECT 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR CXL = 0) " &
                   "AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(0).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(11).Cells("Closing_date").Value & "') 
                   GROUP BY   訂單種類 ORDER BY   Order_Type"
            Set_DGV14載入後設定()
        Next
        Set_grid()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ADD_bt.Click
        Dim PA1 As String : Dim PA2 As String : Dim PA3 As String
        PA1 = InputBox("請輸入要欲新增之年月份，請注意格式為   xxxx_Pxx  ，例如 : 2019_P01。")
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT YEAR_P FROM 訂單預估資料表2 WHERE (YEAR_P LIKE '" & PA1 & "')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
        If dr.Read() Then
            conn.Close()
            MsgBox("該年月份預估值已存在")
        Else
            conn.Close()
            PA2 = InputBox("請輸入要欲新增之預估數量")
            PA3 = InputBox("請輸入要欲新增之預估單價")
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "INSERT INTO 訂單預估資料表2 (YEAR_P, 預估數量, 預估單價) " &
                       "VALUES ('" & PA1 & "','" & PA2 & "', '" & PA3 & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            MsgBox("新增完成")
        End If
        Set_分析清單7() : Set_grid()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles MODIFY_bt.Click
        For i As Integer = 0 To 訂單預估資料表2_dgv.Rows.Count - 1
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "UPDATE 訂單預估資料表2 SET  預估數量 = '" & 訂單預估資料表2_dgv.Rows(i).Cells("Assess_QTY").Value & "', 
                                                預估單價 = '" & 訂單預估資料表2_dgv.Rows(i).Cells("Assess_Price").Value & "' " &
                   "WHERE (YEAR_P LIKE '" & 訂單預估資料表2_dgv.Rows(i).Cells("YEAR_P").Value & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        Next i
        Set_分析清單7() : Set_grid()
        MsgBox("修改完成")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles DELETE_bt.Click

    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles PRINT_bt.Click
        列印用SQL = 年度_cb.Text
        列印_訂單分析五.Show()
    End Sub
End Class