MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/銷售控制表.vb

Option Strict Off
Public Class 銷售控制表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
    Dim screenWidth As Integer : Dim screenHeight As Integer : Dim newWidth1 As Integer : Dim newHeight1 As Integer
    Private Sub Set_清單()
        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25 : DataGridView1.AllowUserToAddRows = False
        SQL_銷售控制表清單()
        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

        DataGridView1.Columns(0).Width = 120 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Width = 90 : DataGridView1.Columns(3).Visible = False
        DataGridView1.Columns(4).Width = 90 : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Width = 200 : DataGridView1.Columns(7).Width = 150
        DataGridView1.Columns(8).Width = 150 : DataGridView1.Columns(9).Width = 65 : DataGridView1.Columns(10).Width = 65 : DataGridView1.Columns(11).Width = 65
        DataGridView1.Columns(12).Width = 65 : DataGridView1.Columns(13).Width = 65 : DataGridView1.Columns(14).Width = 65 : DataGridView1.Columns(15).Width = 85
        DataGridView1.Columns(16).Width = 85 : DataGridView1.Columns(17).Width = 85 : DataGridView1.Columns(18).Width = 147

        If CheckBox1.Checked = True Then : DataGridView1.Columns(18).Width = 62 : Else : DataGridView1.Columns(18).Width = 435 : End If
        格式設定1() : 格式設定2()
        DataGridView1.Columns(0).Frozen = True : DataGridView1.Columns(1).Frozen = True : DataGridView1.Columns(2).Frozen = True : DataGridView1.Columns(3).Frozen = True
        DataGridView1.Columns(4).Frozen = True : DataGridView1.Columns(5).Frozen = True : DataGridView1.Columns(6).Frozen = True

        DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(11).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(12).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(13).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(14).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(0).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True
        DataGridView1.Columns(7).ReadOnly = True : DataGridView1.Columns(8).ReadOnly = True : DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True
        DataGridView1.Columns(11).ReadOnly = True : DataGridView1.Columns(12).ReadOnly = True : DataGridView1.Columns(13).ReadOnly = True : DataGridView1.Columns(14).ReadOnly = True
        DataGridView1.Columns(15).ReadOnly = True : DataGridView1.Columns(16).ReadOnly = True : DataGridView1.Columns(17).ReadOnly = True : DataGridView1.Columns(18).ReadOnly = True

        DataGridView1.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : DataGridView1.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        DataGridView1.Columns(14).DefaultCellStyle.BackColor = Color.LightGreen : DataGridView1.Columns(13).DefaultCellStyle.BackColor = Color.LightGreen
        DataGridView1.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen

        TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox5.Text = "0" : TextBox3.Text = "0" : TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox9.Text = "0" : TextBox4.Text = "0" : TextBox8.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("出貨日期").Value.ToString = "" Then
                TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("銷售金額").Value : TextBox6.Text = Val(TextBox6.Text) + DataGridView1.Rows(i).Cells("銷售成本").Value
            End If
            If DataGridView1.Rows(i).Cells("出貨日期").Value.ToString <> "" Then
                TextBox3.Text = Val(TextBox3.Text) + DataGridView1.Rows(i).Cells("銷售金額").Value : TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(i).Cells("銷售成本").Value
            End If
        Next
        TextBox5.Text = Val(TextBox7.Text) - Val(TextBox6.Text) : TextBox2.Text = Val(TextBox3.Text) - Val(TextBox1.Text)
        TextBox9.Text = Val(TextBox7.Text) + Val(TextBox3.Text) : TextBox4.Text = Val(TextBox6.Text) + Val(TextBox1.Text) : TextBox8.Text = Val(TextBox5.Text) + Val(TextBox2.Text)
        TextBox6.Text = Format(Val(TextBox6.Text), "#,##0") : TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox5.Text = Format(Val(TextBox5.Text), "#,##0")
        TextBox3.Text = Format(Val(TextBox3.Text), "#,##0") : TextBox1.Text = Format(Val(TextBox1.Text), "#,##0") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0")
        TextBox8.Text = Format(Val(TextBox8.Text), "#,##0") : TextBox4.Text = Format(Val(TextBox4.Text), "#,##0") : TextBox9.Text = Format(Val(TextBox9.Text), "#,##0")
    End Sub
    Private Sub Set_清單1()
        DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25 : DataGridView2.AllowUserToAddRows = False
        SQL_銷售控制表彙總()
        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

        DataGridView2.Columns(0).FillWeight = 80 : DataGridView2.Columns(1).FillWeight = 60 : DataGridView2.Columns(2).FillWeight = 60 : DataGridView2.Columns(3).FillWeight = 60

        DataGridView2.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0"
        DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView2.Columns(0).ReadOnly = True : DataGridView2.Columns(1).ReadOnly = True : DataGridView2.Columns(2).ReadOnly = True : DataGridView2.Columns(3).ReadOnly = True
    End Sub
    Private Sub 格式設定()
        screenWidth = MAOJI_ERP_SYS.Width
        screenHeight = MAOJI_ERP_SYS.Height
        If CheckBox1.Checked = True Then
            DataGridView2.Visible = True : DataGridView1.Location = New Point(379, 76)
            newWidth1 = screenWidth - 403 : newHeight1 = screenHeight - 171
            DataGridView1.Size = New Size(newWidth1, newHeight1)
        Else
            DataGridView2.Visible = False : DataGridView1.Location = New Point(6, 76)
            newWidth1 = screenWidth - 30 : newHeight1 = screenHeight - 171
            DataGridView1.Size = New Size(newWidth1, newHeight1)
        End If
        If CheckBox1.Checked = True Then : DataGridView1.Columns(18).Width = 62 : Else : DataGridView1.Columns(18).Width = 435 : End If
    End Sub
    Private Sub 格式設定1()
        If CheckBox2.Checked = True Then : DataGridView1.Columns(4).Visible = False : Else : DataGridView1.Columns(4).Visible = True : End If
    End Sub
    Private Sub 格式設定2()
        If CheckBox3.Checked = True Then : DataGridView1.Columns(0).Visible = False : Else : DataGridView1.Columns(0).Visible = True : End If
    End Sub
    Private Sub 日期格式()
        If 會計月.Checked = True Then
            '-------------日期一----------------------------------------------------------------------------------------
            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
        Else
            '-------------日期一----------------------------------------------------------------------------------------
            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
        End If
    End Sub
    Private Sub 銷售控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        DateTimePicker1.Value = Today() : DateTimePicker2.Value = Today() : DateTimePicker4.Visible = False
        日期格式()
        CheckBox1.Checked = True
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value
            TextBox12.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1.Rows(i).Cells("客戶").Value.ToString = TextBox13.Text Then
                    TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("銷售金額").Value : TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("銷售成本").Value
                End If
            Next
            TextBox11.Text = Val(TextBox12.Text) - Val(TextBox10.Text)
            TextBox11.Text = Format(Val(TextBox11.Text), "#,##0") : TextBox12.Text = Format(Val(TextBox12.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox13.Text = DataGridView2.Rows(e.RowIndex).Cells("客戶").Value : TextBox10.Text = "0"
            TextBox12.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1.Rows(i).Cells("客戶").Value.ToString = TextBox13.Text Then
                    TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("銷售金額").Value : TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("銷售成本").Value
                End If
            Next
            TextBox11.Text = Val(TextBox12.Text) - Val(TextBox10.Text)
            TextBox11.Text = Format(Val(TextBox11.Text), "#,##0") : TextBox12.Text = Format(Val(TextBox12.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("出貨日期").Value.ToString = "" Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.MistyRose
            End If
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If 會計月.Checked = True Then
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
            DateTimePicker1.Value = DateTimePicker4.Value
            DateTimePicker2.Value = DateTimePicker4.Value
        Else
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
            DateTimePicker2.Value = DateTimePicker4.Value
        End If
        日期格式()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If 會計月.Checked = True Then
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
            DateTimePicker1.Value = DateTimePicker4.Value
            DateTimePicker2.Value = DateTimePicker4.Value
        Else
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
            DateTimePicker2.Value = DateTimePicker4.Value
        End If
        日期格式()
    End Sub
    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        Set_清單() : Set_清單1() : 格式設定()
    End Sub
    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
        Set_清單() : Set_清單1() : 格式設定()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        格式設定()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        格式設定1()
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        格式設定2()
    End Sub
    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
        會計月.Checked = True : 一般月.Checked = False : 日期格式()
    End Sub
    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
        會計月.Checked = False : 一般月.Checked = True : 日期格式()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單() : Set_清單1() : 格式設定()
    End Sub

End Class