MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/財務系統管理/營運狀態彙總_檢視�...

Option Strict Off
Public Class 營運狀態彙總_檢視表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
    Dim iDays As Integer : Dim sDate As String
    Private Sub Set_清單1()
        DataGridView1.DataSource = Nothing : ds1.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25 : DataGridView1.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_採購()
        da.Fill(ds1) : DataGridView1.DataSource = ds1.Tables(0) : conn.Close()

        DataGridView1.Columns(0).FillWeight = 120 : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).FillWeight = 60
        DataGridView1.Columns(2).DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 3
            DataGridView1.Columns(i).ReadOnly = True
            DataGridView1.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Next
        TextBox1.Text = "0" : TextBox4.Text = "0" : TextBox5.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("入庫").Value.ToString = "" Then
                TextBox4.Text = Val(TextBox4.Text) + DataGridView1.Rows(i).Cells("採購成本").Value
            End If
            TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(i).Cells("採購成本").Value
            TextBox5.Text = Val(TextBox1.Text) - Val(TextBox4.Text)
        Next i
    End Sub
    Private Sub Set_清單2()
        DataGridView2.DataSource = Nothing : ds2.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25 : DataGridView2.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_訂單()
        da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close()

        DataGridView2.Columns(0).FillWeight = 130 : DataGridView2.Columns(1).FillWeight = 70 : DataGridView2.Columns(2).FillWeight = 70 : DataGridView2.Columns(3).FillWeight = 80
        DataGridView2.Columns(4).FillWeight = 80 : DataGridView2.Columns(5).FillWeight = 80 : DataGridView2.Columns(6).FillWeight = 80 : DataGridView2.Columns(7).FillWeight = 80
        DataGridView2.Columns(8).FillWeight = 80
        DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(5).DefaultCellStyle.Format = "#,##0"
        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(8).DefaultCellStyle.Format = "#,##0"

        For i As Integer = 0 To 8
            DataGridView2.Columns(i).ReadOnly = True
            DataGridView2.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Next
        TextBox17.Text = "0" : TextBox18.Text = "0" : TextBox19.Text = "0"
        For i As Integer = 0 To DataGridView2.Rows.Count - 1
            If DataGridView2.Rows(i).Cells("訂單採購").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("訂單採購").Value = 0 : End If
            If DataGridView2.Rows(i).Cells("訂單出貨").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("訂單出貨").Value = 0 : End If
            If DataGridView2.Rows(i).Cells("採購成本").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("採購成本").Value = 0 : End If
            If DataGridView2.Rows(i).Cells("出貨銷售").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("出貨銷售").Value = 0 : End If
            TextBox17.Text = Val(TextBox17.Text) + DataGridView2.Rows(i).Cells("採購成本").Value : TextBox18.Text = Val(TextBox18.Text) + DataGridView2.Rows(i).Cells("出貨銷售").Value
            TextBox19.Text = Val(TextBox19.Text) + DataGridView2.Rows(i).Cells("銷售預估").Value
        Next
    End Sub
    Private Sub Set_清單3()
        DataGridView3.DataSource = Nothing : ds.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25 : DataGridView3.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_生產()
        da.Fill(ds) : DataGridView3.DataSource = ds.Tables(0) : conn.Close()

        DataGridView3.Columns(0).FillWeight = 80 : DataGridView3.Columns(1).FillWeight = 80

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

        DataGridView3.Columns(0).ReadOnly = True : DataGridView3.Columns(1).ReadOnly = True

        TextBox3.Text = "0"
        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            TextBox3.Text = Val(TextBox3.Text) + DataGridView3.Rows(i).Cells("損耗成本").Value
        Next i
    End Sub
    Private Sub Set_清單4()
        DataGridView4.DataSource = Nothing : ds3.Clear() : DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView4.ColumnHeadersHeight = 25 : DataGridView4.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_銷售()
        da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()

        DataGridView4.Columns(0).FillWeight = 130 : DataGridView4.Columns(1).FillWeight = 80 : DataGridView4.Columns(2).FillWeight = 70 : DataGridView4.Columns(3).FillWeight = 70

        DataGridView4.Columns(3).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(2).DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 3
            DataGridView4.Columns(i).ReadOnly = True
            DataGridView4.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Next

        TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0"
        For i As Integer = 0 To DataGridView4.Rows.Count - 1
            TextBox10.Text = Val(TextBox10.Text) + DataGridView4.Rows(i).Cells("銷售金額").Value
            TextBox7.Text = Val(TextBox7.Text) + DataGridView4.Rows(i).Cells("銷售成本").Value
        Next i
        TextBox6.Text = Val(TextBox10.Text) - Val(TextBox7.Text)
    End Sub
    Private Sub Set_清單5()
        DataGridView5.DataSource = Nothing : ds4.Clear()
        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView5.ColumnHeadersHeight = 40
        DataGridView5.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_庫存()
        da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()

        DataGridView5.Columns(0).FillWeight = 115 : DataGridView5.Columns(1).Visible = False : DataGridView5.Columns(2).Visible = False : DataGridView5.Columns(3).FillWeight = 250
        DataGridView5.Columns(4).FillWeight = 250 : DataGridView5.Columns(5).FillWeight = 250 : DataGridView5.Columns(6).FillWeight = 100 : DataGridView5.Columns(7).FillWeight = 100
        DataGridView5.Columns(8).FillWeight = 100 : DataGridView5.Columns(9).FillWeight = 100 : DataGridView5.Columns(10).FillWeight = 100 : DataGridView5.Columns(11).FillWeight = 100
        DataGridView5.Columns(12).FillWeight = 100 : DataGridView5.Columns(13).FillWeight = 100 : DataGridView5.Columns(14).FillWeight = 100 : DataGridView5.Columns(15).FillWeight = 450

        DataGridView5.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(8).DefaultCellStyle.Format = "#,##0"
        DataGridView5.Columns(9).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(10).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(11).DefaultCellStyle.Format = "#,##0"
        DataGridView5.Columns(12).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(13).DefaultCellStyle.Format = "#,##0"
        DataGridView5.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView5.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView5.Columns(0).ReadOnly = True : DataGridView5.Columns(3).ReadOnly = True : DataGridView5.Columns(4).ReadOnly = True : DataGridView5.Columns(5).ReadOnly = True
        DataGridView5.Columns(6).ReadOnly = True : DataGridView5.Columns(7).ReadOnly = True : DataGridView5.Columns(8).ReadOnly = True : DataGridView5.Columns(9).ReadOnly = True
        DataGridView5.Columns(10).ReadOnly = True : DataGridView5.Columns(11).ReadOnly = True : DataGridView5.Columns(12).ReadOnly = True : DataGridView5.Columns(13).ReadOnly = True
        DataGridView5.Columns(14).ReadOnly = True : DataGridView5.Columns(15).ReadOnly = True

        DataGridView5.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView5.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
        DataGridView5.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : DataGridView5.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        DataGridView5.Columns(11).DefaultCellStyle.BackColor = Color.LightGreen : DataGridView5.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen

        TextBox9.Text = "0" : TextBox12.Text = "0" : TextBox13.Text = "0" : TextBox11.Text = "0"
        For i As Integer = 0 To DataGridView5.Rows.Count - 1
            If DataGridView5.Rows(i).Cells("未入庫").Value.ToString = "" Then : DataGridView5.Rows(i).Cells("未入庫").Value = 0 : End If
            If DataGridView5.Rows(i).Cells("在途成本_台幣").Value.ToString = "" Then : DataGridView5.Rows(i).Cells("在途成本_台幣").Value = 0 : End If
            If DataGridView5.Rows(i).Cells("未出庫").Value.ToString = "" Then : DataGridView5.Rows(i).Cells("未出庫").Value = 0 : End If
            If DataGridView5.Rows(i).Cells("備貨成本_台幣").Value.ToString = "" Then : DataGridView5.Rows(i).Cells("備貨成本_台幣").Value = 0 : End If
            DataGridView5.Rows(i).Cells("可領用").Value = DataGridView5.Rows(i).Cells("庫存").Value - DataGridView5.Rows(i).Cells("未出庫").Value

            TextBox9.Text = Val(TextBox9.Text) + DataGridView5.Rows(i).Cells("庫存成本_台幣").Value : TextBox12.Text = Val(TextBox12.Text) + DataGridView5.Rows(i).Cells("在途成本_台幣").Value
            TextBox13.Text = Val(TextBox13.Text) + DataGridView5.Rows(i).Cells("備貨成本_台幣").Value
        Next
        TextBox11.Text = Val(TextBox9.Text) + Val(TextBox12.Text) - Val(TextBox13.Text)
    End Sub
    Private Sub Set_清單6()
        DataGridView6.DataSource = Nothing : ds5.Clear()
        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView6.ColumnHeadersHeight = 25
        DataGridView6.AllowUserToAddRows = False
        SQL_營運狀態彙總_檢視表清單_盤點()
        da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()

        DataGridView6.Columns(0).FillWeight = 130 : DataGridView6.Columns(1).FillWeight = 80 : DataGridView6.Columns(2).FillWeight = 80 : DataGridView6.Columns(3).FillWeight = 80

        DataGridView6.Columns(3).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(2).DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 3
            DataGridView6.Columns(i).ReadOnly = True
            DataGridView6.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Next

        TextBox20.Text = "0" : TextBox21.Text = "0" : TextBox22.Text = "0"
        For i As Integer = 0 To DataGridView6.Rows.Count - 1
            TextBox20.Text = Val(TextBox20.Text) + DataGridView6.Rows(i).Cells("盤營金額").Value
            TextBox21.Text = Val(TextBox21.Text) + DataGridView6.Rows(i).Cells("盤損金額").Value
        Next i
        TextBox22.Text = Val(TextBox20.Text) - Val(TextBox21.Text)
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        PA = "%%" : SQL_年份清單查詢()
        ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "" Or ComboBox2.Text = "" Then : Else
            日期設定() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單6() : Set_清單5() : 格式設定()
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox1.Text = "" Or ComboBox2.Text = "" Then : Else
            日期設定() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單6() : Set_清單5() : 格式設定()
        End If
    End Sub
    Private Sub 日期設定()
        iDays = Date.DaysInMonth(ComboBox1.Text, ComboBox2.Text)
        If iDays < 10 Then : sDate = "0" & iDays : Else : sDate = iDays : End If
        PA1 = sDate
    End Sub
    Private Sub 格式設定()
        TextBox1.Text = Format(Val(TextBox1.Text), "#,##0") : TextBox3.Text = Format(Val(TextBox3.Text), "#,##0") : TextBox4.Text = Format(Val(TextBox4.Text), "#,##0")
        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0") : TextBox7.Text = Format(Val(TextBox7.Text), "#,##0")
        TextBox9.Text = Format(Val(TextBox9.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0") : TextBox11.Text = Format(Val(TextBox11.Text), "#,##0")
        TextBox12.Text = Format(Val(TextBox12.Text), "#,##0") : TextBox13.Text = Format(Val(TextBox13.Text), "#,##0") : TextBox17.Text = Format(Val(TextBox17.Text), "#,##0")
        TextBox18.Text = Format(Val(TextBox18.Text), "#,##0") : TextBox19.Text = Format(Val(TextBox19.Text), "#,##0") : TextBox20.Text = Format(Val(TextBox20.Text), "#,##0")
        TextBox21.Text = Format(Val(TextBox21.Text), "#,##0") : TextBox22.Text = Format(Val(TextBox22.Text), "#,##0")
    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
        ComboBox1下拉表單資料載入() : ComboBox1.Text = Year(Today) : ComboBox2.SelectedIndex = Month(Today) - 1
    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(1, e.RowIndex).Value.ToString <> DataGridView1(1, 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
    End Sub
    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView2.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub DataGridView4_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView4.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView4.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView4(1, e.RowIndex).Value.ToString <> DataGridView4(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView4.RowHeadersVisible, DataGridView4.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView4.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView4.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        日期設定() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單6() : Set_清單5() : 格式設定()
    End Sub
End Class