MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/財務系統管理/營運成本收支單_對�...

Option Strict Off
Public Class 營運成本收支單_對帳表
    ReadOnly ds As New DataSet
    Private Sub Set_清單1()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        SQL_營運成本收支_決算表_清單() : 列印用SQL = SQL1
        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).FillWeight = 120 : DataGridView1.Columns(1).FillWeight = 60 : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).FillWeight = 60
        DataGridView1.Columns(4).FillWeight = 80 : DataGridView1.Columns(5).FillWeight = 50 : DataGridView1.Columns(6).FillWeight = 200 : DataGridView1.Columns(7).FillWeight = 233
        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 80 : DataGridView1.Columns(11).FillWeight = 80
        DataGridView1.Columns(12).FillWeight = 80 : DataGridView1.Columns(13).FillWeight = 50 : DataGridView1.Columns(14).FillWeight = 85 : DataGridView1.Columns(15).FillWeight = 50
        DataGridView1.Columns(16).FillWeight = 85 : DataGridView1.Columns(17).FillWeight = 80 : DataGridView1.Columns(18).FillWeight = 80 : DataGridView1.Columns(19).FillWeight = 80
        DataGridView1.Columns(20).FillWeight = 80

        If CheckBox4.Checked = False Then
            DataGridView1.Columns(1).Visible = True : DataGridView1.Columns(2).Visible = True : DataGridView1.Columns(3).Visible = True : DataGridView1.Columns(4).Visible = True
        Else
            DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).Visible = False : DataGridView1.Columns(4).Visible = False
        End If

        If CheckBox5.Checked = False Then
            DataGridView1.Columns(13).Visible = True : DataGridView1.Columns(14).Visible = True : DataGridView1.Columns(15).Visible = True : DataGridView1.Columns(16).Visible = True
        Else
            DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False : DataGridView1.Columns(16).Visible = False
        End If

        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(11).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox4.Text = "0" : TextBox8.Text = "0" : TextBox10.Text = "0" : TextBox12.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            TextBox6.Text = Val(TextBox6.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("支出").Value
            TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("零用金").Value
            If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then
                TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("支票").Value
            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then
                TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("支票").Value
            End If
        Next i
        TextBox4.Text = Val(TextBox10.Text) + Val(TextBox8.Text) + Val(TextBox6.Text) - Val(TextBox5.Text)
        If Val(TextBox4.Text) > 0 Then : TextBox4.ForeColor = Color.Blue : Else : TextBox4.ForeColor = Color.Red : End If
        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox4.Text = Format(Val(TextBox4.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
        TextBox8.Text = Format(Val(TextBox8.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0") : TextBox12.Text = Format(Val(TextBox12.Text), "#,##0")
    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
            '-------------日期二----------------------------------------------------------------------------------------
            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
        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
        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0" : KKKJJ = "" : KKKJJ2 = ""
        SQL_營運成本明細表_會計歸零() : SQL_營運成本明細表_出納歸零() : SQL_營運成本明細表_現金歸零() : SQL_營運成本明細表_備用金歸零()
        SQL_營運成本明細表_公帳歸零() : SQL_營運成本明細表_支票歸零() : SQL_營運成本明細表_作帳日期歸零() : SQL_營運成本明細表_出納日期歸零() : conn.Close()
        Label62.Visible = False
        日期格式() : KKKJJ3 = "AND (營運成本控制表.審核日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
    End Sub
    Private Sub 總金額計算()
        Dim FFGG As Integer = 0 : Dim GGHH As Integer = 0 : Dim HHJJ As Integer = 0 : Dim JJKK As Integer = 0 : Dim KKLL As Integer = 0
        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("收支單號").Value = TextBox1.Text Then
                FFGG = Val(FFGG) + DataGridView1.Rows(i).Cells("現金").Value : GGHH = Val(GGHH) + DataGridView1.Rows(i).Cells("支出").Value
                HHJJ = Val(HHJJ) + DataGridView1.Rows(i).Cells("零用金").Value
                If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then : JJKK = Val(JJKK) + DataGridView1.Rows(i).Cells("支票").Value
                ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then : KKLL = Val(KKLL) + DataGridView1.Rows(i).Cells("支票").Value : End If
            End If
        Next i
        TextBox7.Text = FFGG : TextBox2.Text = GGHH : TextBox9.Text = HHJJ : TextBox11.Text = JJKK : TextBox13.Text = KKLL : TextBox3.Text = JJKK + HHJJ + FFGG - GGHH
        If Val(TextBox3.Text) > 0 Then : TextBox3.ForeColor = Color.Blue : Else : TextBox3.ForeColor = Color.Red : End If
        TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0") : TextBox3.Text = Strings.Format(Val(TextBox3.Text), "#,##0")
        TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0") : TextBox13.Text = Strings.Format(Val(TextBox13.Text), "#,##0")
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("收支單號").Value : Timer1.Enabled = True : 總金額計算()
        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(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
        Next
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
        If CheckBox1.Checked = False Then : KKKJJ = "" : Set_清單1()
        Else : KKKJJ = " AND (營運成本明細表.支票數 <> 0) " : Set_清單1() : End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
        Set_grid()
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
        Set_grid()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1)
        KKKJJ3 = "AND (營運成本控制表.審核日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1)
        KKKJJ3 = "AND (營運成本控制表.審核日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
    End Sub
    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
        會計月.Checked = True : 一般月.Checked = False : 日期格式()
        KKKJJ3 = "AND (營運成本控制表.審核日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
    End Sub
    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
        會計月.Checked = False : 一般月.Checked = True : 日期格式()
        KKKJJ3 = "AND (營運成本控制表.審核日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.重新整理ToolStripMenuItem.PerformClick()
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 對帳記錄存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔ToolStripMenuItem.Click
        Timer1.Enabled = False : Label62.Visible = False
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
            布林1 = DataGridView1.Rows(i).Cells("現金點交").Value : 布林2 = DataGridView1.Rows(i).Cells("零用金點交").Value : 布林3 = DataGridView1.Rows(i).Cells("支出點交").Value
            布林4 = DataGridView1.Rows(i).Cells("支票兌現").Value : PA1 = DataGridView1.Rows(i).Cells("收支單號").Value : PA2 = DataGridView1.Rows(i).Cells("項次").Value
            SQL_營運成本明細表_對帳記錄存檔() : conn.Close()
        Next : MsgBox("存檔完成。") : Set_清單1() : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
        PA = InputBox("請輸入要查詢的關鍵字。")
        KKKJJ2 = " AND (營運成本控制表.支付單號 LIKE N'%" & PA & "%' OR 營運成本控制表.申請人 LIKE N'%" & PA & "%' OR 營運成本控制表.審核人 LIKE N'%" & PA &
                 "%' OR 營運成本明細表.用途 LIKE N'%" & PA & "%' OR 營運成本控制表.備註 LIKE N'%" & PA & "%' OR 營運成本明細表.備註 LIKE N'%" & PA & "%')" : Set_清單1()
        KKKJJ2 = "" : PA = ""
    End Sub
    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BBBToolStripMenuItem.Click
        MsgBox("待開發。")   ' 列印_零用金支付明細.ShowDialog()
    End Sub
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單1()
    End Sub
End Class