GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售報表.vb

Imports System.Windows.Forms.DataVisualization.Charting
Public Class 車輛銷售報表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
    Dim NUM1, NUM2, NUM3 As Integer : Dim 狀態, 價, 車 As String
    Private maxY As Long = 0
    Private Sub 車輛銷售報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If CC(104) = False Then
            車廠型態 = False
        Else
            線路選擇.ShowDialog() : 線路選擇.BringToFront()
        End If
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        If 車廠型態 = True Then
            狀態 = "車輛買賣"
            價 = "賣出售價"
        Else
            狀態 = "保養維修"
            價 = "買入進價"
        End If
        ComboBox1下拉表單資料載入()
        Set_清單1() : Set_清單2()
    End Sub
    Private Function IsVerticalScrollBarVisible(dgv As DataGridView) As Boolean
        Return dgv.FirstDisplayedScrollingRowIndex > 0 OrElse dgv.DisplayedRowCount(False) < dgv.Rows.Count
    End Function

    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        SQL_營運報表_年份查詢()
        年份清單_cb.Items.Clear()
        While (dr.Read()) : 年份清單_cb.Items.Add(dr("年份")) : End While
        conn.Close()
        年份清單_cb.Text = Year(Today)

        月份清單_cb.Items.Clear()
        月份清單_cb.Items.Add("")
        Dim currentMonth As Integer = DateTime.Now.Month
        For month As Integer = 1 To 12
            Dim monthString As String = month.ToString("D2") ' 这里使用 "D2" 格式化将单个数字的月份前面补零
            月份清單_cb.Items.Add(monthString)

            ' 如果这个月份是当前月份，可以将其选中
            If month = currentMonth Then
                月份清單_cb.SelectedItem = monthString
            End If
        Next




    End Sub
    Private Sub Set_清單1()
        Dim ds1, ds2 As New DataSet : 車種_dgv.DataSource = Nothing : ds1.Clear() : 合計1_dgv.DataSource = Nothing : ds2.Clear()
        車種_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        車種_dgv.ColumnHeadersHeight = 25 : 車種_dgv.AllowUserToAddRows = False : 車種_dgv.RowTemplate.Height = 20
        合計1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合計1_dgv.ColumnHeadersHeight = 25 : 合計1_dgv.AllowUserToAddRows = False : 合計1_dgv.RowTemplate.Height = 20
        合計1_dgv.ScrollBars = ScrollBars.None : 合計1_dgv.ColumnHeadersVisible = False

        PA58 = 年份清單_cb.Text & 月份清單_cb.Text
        SQL_車輛銷售報表_車種(價, 狀態) : da.Fill(ds1) : 車種_dgv.DataSource = ds1.Tables(0) : conn.Close()
        SQL_車輛銷售報表_車種合計(價, 狀態) : da.Fill(ds2) : 合計1_dgv.DataSource = ds2.Tables(0) : conn.Close()

        車種_dgv.Columns(0).FillWeight = 40 : 車種_dgv.Columns(1).FillWeight = 20 : 車種_dgv.Columns(2).FillWeight = 40
        車種_dgv.Columns("總價").DefaultCellStyle.Format = "#,##0"
        車種_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        車種_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        車種_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        車種_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        合計1_dgv.Columns(0).FillWeight = 40 : 合計1_dgv.Columns(1).FillWeight = 20 : 合計1_dgv.Columns(2).FillWeight = 40
        合計1_dgv.Columns("總價").DefaultCellStyle.Format = "#,##0" : 合計1_dgv.Columns("次數").DefaultCellStyle.Format = "#,##0"
        合計1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合計1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        合計1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合計1_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        NUM3 = 0
        合計1_dgv.Rows(0).Cells(0).Value = "合計:" : 合計1_dgv.Rows(0).Cells(1).Value = "0" : 合計1_dgv.Rows(0).Cells(2).Value = "0"
        For i As Integer = 0 To 車種_dgv.Rows.Count - 1
            合計1_dgv.Rows(0).Cells(1).Value += 車種_dgv.Rows(i).Cells(1).Value
            合計1_dgv.Rows(0).Cells(2).Value += 車種_dgv.Rows(i).Cells(2).Value
            If 車種_dgv.Rows(i).Cells(2).Value > NUM3 Then
                NUM3 = 車種_dgv.Rows(i).Cells(2).Value
            End If
        Next
        If 車種_dgv.Rows.Count Mod 15 = 0 Then
            ' 如果能整除15，直接等于商
            NUM1 = (車種_dgv.Rows.Count / 15) - 1
        Else
            ' 如果不能整除15，向上取整
            NUM1 = 車種_dgv.Rows.Count \ 15
        End If
        NUM2 = 0
        If IsVerticalScrollBarVisible(車種_dgv) Then : 合計1_dgv.Size = New Size(車種_dgv.Size.Width - 17, 合計1_dgv.Size.Height)
        Else : 合計1_dgv.Size = New Size(車種_dgv.Size.Width, 合計1_dgv.Size.Height) : End If
        If 車種_dgv.Rows.Count > 0 Then
            彙總1()
            下一頁_bt.Visible = True
            上一頁_bt.Visible = True
        Else
            Chart2.Series.Clear()
            下一頁_bt.Visible = False
            上一頁_bt.Visible = False
        End If
    End Sub

    Private Sub Set_清單2()
        Dim ds1, ds2 As New DataSet : 計算_dgv.DataSource = Nothing : ds1.Clear() : 合計2_dgv.DataSource = Nothing : ds2.Clear()
        計算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        計算_dgv.ColumnHeadersHeight = 25 : 計算_dgv.AllowUserToAddRows = False : 計算_dgv.RowTemplate.Height = 20
        合計2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合計2_dgv.ColumnHeadersHeight = 25 : 合計2_dgv.AllowUserToAddRows = False : 合計2_dgv.RowTemplate.Height = 20
        合計2_dgv.ScrollBars = ScrollBars.None : 合計2_dgv.ColumnHeadersVisible = False
        SQL_車輛銷售報表_日期合計(價, 狀態) : da.Fill(ds2) : 合計2_dgv.DataSource = ds2.Tables(0) : conn.Close()
        合計2_dgv.Columns("總價").DefaultCellStyle.Format = "#,##0"
        合計2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合計2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


        Dim str1 As String = 年份清單_cb.Text
        Dim str2 As String = 月份清單_cb.Text
        If str2 <> "" Then
            PA58 = 年份清單_cb.Text & 月份清單_cb.Text
            SQL_車輛銷售報表_日期(價, 狀態) : da.Fill(ds1) : 計算_dgv.DataSource = ds1.Tables(0) : conn.Close()
            Dim table As New DataTable()
            table.Columns.Add("日期", GetType(String))
            table.Columns.Add("金額", GetType(Decimal))
            Dim daysInMonth As Integer = DateTime.DaysInMonth(CInt(str1), CInt(str2))
            For day As Integer = 1 To daysInMonth
                Dim dateStr As String = str1 & str2.PadLeft(2, "0"c) & day.ToString().PadLeft(2, "0"c)
                table.Rows.Add(dateStr, 0)
            Next
            日期_dgv.DataSource = table
            日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            日期_dgv.ColumnHeadersHeight = 25 : 日期_dgv.AllowUserToAddRows = False : 日期_dgv.RowTemplate.Height = 20
            日期_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
            日期_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            日期_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            For i As Integer = 0 To 日期_dgv.Rows.Count - 1
                For j As Integer = 0 To 計算_dgv.Rows.Count - 1
                    If 日期_dgv.Rows(i).Cells("日期").Value = 計算_dgv.Rows(j).Cells("日期").Value Then
                        日期_dgv.Rows(i).Cells("金額").Value = 計算_dgv.Rows(j).Cells("總價").Value
                    End If
                Next
            Next
        Else
            PA58 = 年份清單_cb.Text
            SQL_車輛銷售報表_日期年(價, 狀態) : da.Fill(ds1) : 計算_dgv.DataSource = ds1.Tables(0) : conn.Close()
            Dim table As New DataTable()
            table.Columns.Add("月份", GetType(String))
            table.Columns.Add("金額", GetType(Decimal))
            For day As Integer = 1 To 12
                Dim dateStr As String = str1 & day.ToString().PadLeft(2, "0"c)
                table.Rows.Add(dateStr, 0)
            Next
            日期_dgv.DataSource = table
            日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            日期_dgv.ColumnHeadersHeight = 25 : 日期_dgv.AllowUserToAddRows = False : 日期_dgv.RowTemplate.Height = 20
            日期_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
            日期_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            日期_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            For i As Integer = 0 To 日期_dgv.Rows.Count - 1
                For j As Integer = 0 To 計算_dgv.Rows.Count - 1
                    If 日期_dgv.Rows(i).Cells("月份").Value = 計算_dgv.Rows(j).Cells("日期").Value Then
                        日期_dgv.Rows(i).Cells("金額").Value = 計算_dgv.Rows(j).Cells("總價").Value
                    End If
                Next
            Next
        End If
        合計2_dgv.Rows(0).Cells(0).Value = "合計:" : 合計2_dgv.Rows(0).Cells(1).Value = "0"
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1
            合計2_dgv.Rows(0).Cells(1).Value += 日期_dgv.Rows(i).Cells(1).Value
        Next
        If IsVerticalScrollBarVisible(日期_dgv) Then : 合計2_dgv.Size = New Size(日期_dgv.Size.Width - 17, 合計2_dgv.Size.Height)
        Else : 合計2_dgv.Size = New Size(日期_dgv.Size.Width, 合計2_dgv.Size.Height) : End If
        If 合計2_dgv.Rows(0).Cells(1).Value <> 0 Then
            彙總()
        Else
            Chart1.Series.Clear()
        End If

    End Sub
    Private Sub 彙總()
        Chart1.Series.Clear()
        Chart1.Series.Add("金額") : Chart1.Series("金額").ChartType = SeriesChartType.Column
        Chart1.ChartAreas(0).BackColor = Color.Transparent : Chart1.Legends(0).BackColor = Color.Transparent
        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0"
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1
            Dim fullString As String = 日期_dgv.Rows(i).Cells(0).Value.ToString
            Dim lastTwoChars As String = fullString.Substring(fullString.Length - 2)
            Chart1.Series("金額").Points.AddXY(lastTwoChars, CLng(日期_dgv.Rows(i).Cells(1).Value.ToString))
        Next
    End Sub

    Private Sub 彙總1()
        Chart2.Series.Clear()
        Chart2.Series.Add("金額") : Chart2.Series("金額").ChartType = SeriesChartType.Column
        Chart2.Series.Add("次數") : Chart2.Series("次數").ChartType = SeriesChartType.FastLine
        Chart2.ChartAreas(0).BackColor = Color.Transparent : Chart2.Legends(0).BackColor = Color.Transparent
        Chart2.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart2.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0"
        Chart2.ChartAreas(0).AxisY.Minimum = 0

        Dim sum3 As Double = 合計1_dgv.Rows(0).Cells(2).Value / 合計1_dgv.Rows(0).Cells(1).Value

        For i As Integer = 15 * NUM2 To (15 * (NUM2 + 1)) - 1
            If i < 車種_dgv.Rows.Count Then

                Chart2.Series("金額").Points.AddXY(車種_dgv.Rows(i).Cells(0).Value.ToString, CLng(車種_dgv.Rows(i).Cells(2).Value.ToString))
                Chart2.Series("次數").Points.AddXY(車種_dgv.Rows(i).Cells(0).Value.ToString, CLng(車種_dgv.Rows(i).Cells(1).Value.ToString) * sum3)
            End If
        Next

    End Sub
    Private Sub 下一頁_bt_Click(sender As Object, e As EventArgs) Handles 下一頁_bt.Click
        If NUM2 < NUM1 Then
            NUM2 += 1
        End If
        彙總1()
    End Sub

    Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click
        If NUM2 > 0 Then
            NUM2 -= 1
        End If
        彙總1()
    End Sub
    Private Sub 年份清單_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份清單_cb.SelectedIndexChanged
        maxY = 0 : Set_清單1() : Set_清單2()
    End Sub
    Private Sub 月份清單_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份清單_cb.SelectedIndexChanged
        maxY = 0 : Set_清單1() : Set_清單2()
    End Sub


End Class