GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/財務系統管理/財務流水帳系統.vb

Option Strict Off
Public Class 財務流水帳系統
    Private ReadOnly ds As DataSet = New DataSet
    Private ReadOnly ds1 As DataSet = New DataSet
    Private ReadOnly ds2 As DataSet = New DataSet
    Private ReadOnly ds3 As DataSet = New DataSet
    Private ReadOnly ds4 As DataSet = New DataSet
    Private Sub Set_時間()
        DateTimePicker4.Value = Today
        TextBox14.Text = Format(DateTimePicker3.Value, "yyyy")
        TextBox15.Text = Format(DateTimePicker3.Value, "MM")
        TextBox17.Text = Format(DateTimePicker4.Value, "yyyy")
        TextBox18.Text = Format(DateTimePicker4.Value, "MM")
    End Sub
    Private Sub Set_匯率()
        Set_時間()
        If TextBox17.Text = TextBox14.Text And TextBox18.Text = TextBox15.Text Then
            ConnOpen()
            SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')"
            CmdSet_For_dr()
            If dr.Read() Then : Label2.Text = dr("匯率").ToString : End If
            ER = Double.Parse(dr("匯率").ToString)
            conn.Close() : dr.Close()
        Else
            ConnOpen()
            SQL1 = "SELECT 中心匯率 FROM 歷史匯率表 WHERE (年 LIKE '" & TextBox14.Text & "%') AND (月 LIKE '" & TextBox15.Text & "%')"
            CmdSet_For_dr()
            If dr.Read() Then
                Label2.Text = dr("中心匯率").ToString
                ER = Double.Parse(dr("中心匯率").ToString)
            Else
                MsgBox("請先維護匯率表資料")
            End If
            conn.Close() : dr.Close()
        End If
    End Sub
    Private Sub Set_匯總()
        Set_匯率()
        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)) - SUM(CONVERT(FLOAT, 支出)), 2) AS 剩餘 From 流水帳 Where (類別 Like '互沖帳') AND " &
               "(明細 LIKE '%跟公司借款%' OR 明細 Like '%與公司還款%')"
        CmdSet_For_dr()
        If dr.Read() Then : TextBox9.Text = dr("剩餘").ToString : If TextBox9.Text = "" Then : TextBox9.Text = 0 : End If : End If
        TextBox9.Text = Format(Val(TextBox9.Text), "#,##0.00")
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)) - SUM(CONVERT(FLOAT, 支出)), 2) AS 台幣現金總資產 FROM 財務流水帳 WHERE (銀行 LIKE '%台幣現金%')"
        CmdSet_For_dr()
        If dr.Read() Then : N23 = Double.Parse(dr("台幣現金總資產").ToString) : R23 = CDbl(CStr(Math.Round(N23 / ER, 2)))
            Label150.Text = "$" & Format(Val(dr("台幣現金總資產").ToString), "#,##0.00") : Label148.Text = "￥" & Format(Val(R23), "#,##0.00") : End If
        If Label150.Text = "$" Then : Label150.Text = "$0.00" : Label148.Text = "￥ 0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)) - SUM(CONVERT(FLOAT, 支出)), 2) AS 人民幣現金總資產 FROM 財務流水帳 WHERE (銀行 LIKE '%人民幣現金%')"
        CmdSet_For_dr()
        If dr.Read() Then
            R24 = Double.Parse(dr("人民幣現金總資產").ToString) : N24 = CDbl(CStr(Math.Round(ER * R24, 2)))
            Label147.Text = "￥" & Format(Val(dr("人民幣現金總資產").ToString), "#,##0.00") : Label149.Text = "$" & Format(Val(N24), "#,##0.00")
        End If
        If Label147.Text = "￥" Then : Label147.Text = "￥0.00" : Label149.Text = "$ 0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 台幣資金 From 財務流水帳 Where (銀行 Like '%台幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%李玖瑽%')"
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 人民幣資金 From 財務流水帳 Where (銀行 Like '%人民幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%李玖瑽%')"
        CmdSet_For_dr()
        CmdSet_For_dr()
        If dr.Read() Then : Label12.Text = "$" & dr("台幣資金").ToString : End If
        If dr.Read() Then : Label10.Text = "￥" & dr("人民幣資金").ToString : End If
        If Label12.Text = "$" And Label10.Text <> "￥" Then
            N1 = 0 : R1 = Double.Parse(dr("人民幣資金").ToString) : Label12.Text = "$" & Format(Val(CStr(Math.Round((R1 * ER), 2))), "#,##0.00") : Label10.Text = "￥" & Format(Val(R1), "#,##0.00")
        ElseIf Label10.Text = "￥" And Label12.Text <> "$" Then
            N1 = Double.Parse(dr("台幣資金").ToString) : R1 = 0 : Label12.Text = "$" & Format(Val(N1), "#,##0.00") : Label10.Text = "￥" & Format(Val(CStr(Math.Round((N1 / ER), 2))), "#,##0.00")
        ElseIf Label10.Text <> "￥" And Label12.Text <> "$" Then
            N1 = Double.Parse(dr("台幣資金").ToString) : R1 = Double.Parse(dr("人民幣資金").ToString)
            Label12.Text = "$" & Format(Val(CStr(Math.Round((N1 + R1 * ER), 2))), "#,##0.00") : Label10.Text = "￥" & Format(Val(CStr(Math.Round((N1 / ER + R1), 2))), "#,##0.00")
        ElseIf Label10.Text = "￥" And Label12.Text = "$" Then
            Label12.Text = "$ 0" : Label10.Text = "￥0"
        End If
        conn.Close() : dr.Close() : conn.Close() : dr.Close()

        ConnOpen()
        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 台幣資金 From 財務流水帳 WHERE (銀行 Like '%台幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%李協叡%')"
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 人民幣資金 From 財務流水帳 Where (銀行 Like '%人民幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%李協叡%')"
        CmdSet_For_dr()
        CmdSet_For_dr()
        If dr.Read() Then : Label11.Text = "$" & dr("台幣資金").ToString : End If
        If dr.Read() Then : Label9.Text = "￥" & dr("人民幣資金").ToString : End If
        If Label11.Text = "$" And Label9.Text <> "￥" Then
            N2 = 0 : R2 = Double.Parse(dr("人民幣資金").ToString) : Label11.Text = "$" & Format(Val(CStr(Math.Round((R2 * ER), 2))), "#,##0.00") : Label9.Text = "￥" & Format(Val(R2), "#,##0.00")
        ElseIf Label9.Text = "￥" And Label11.Text <> "$" Then
            N2 = Double.Parse(dr("台幣資金").ToString) : R2 = 0 : Label11.Text = "$" & Format(Val(N2), "#,##0.00") : Label9.Text = "￥" & Format(Val(CStr(Math.Round((N2 / ER), 2))), "#,##0.00")
        ElseIf Label9.Text <> "￥" And Label11.Text <> "$" Then
            N2 = Double.Parse(dr("台幣資金").ToString) : R2 = Double.Parse(dr("人民幣資金").ToString)
            Label11.Text = "$" & Format(Val(CStr(Math.Round((N2 + R2 * ER), 2))), "#,##0.00") : Label9.Text = "￥" & Format(Val(CStr(Math.Round((N2 / ER + R2), 2))), "#,##0.00")
        ElseIf Label9.Text = "￥" And Label11.Text = "$" Then
            Label11.Text = "$ 0" : Label9.Text = "￥0"
        End If
        conn.Close() : dr.Close() : conn.Close() : dr.Close()

        ConnOpen()
        ConnOpen()
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 台幣資金 From 財務流水帳 Where (銀行 Like '%台幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%楊國興%')"
        SQL1 = "SELECT ROUND(SUM(CONVERT(FLOAT, 收入)), 2) AS 人民幣資金 From 財務流水帳 Where (銀行 Like '%人民幣現金%') AND (類別 LIKE '%互沖帳%') AND " &
              "(明細 LIKE '%轉入款-%') AND (人員 LIKE '%楊國興%')"
        CmdSet_For_dr()
        CmdSet_For_dr()
        If dr.Read() Then : Label13.Text = "$" & dr("台幣資金").ToString : End If
        If dr.Read() Then : Label5.Text = "￥" & dr("人民幣資金").ToString : End If
        If Label13.Text = "$" And Label5.Text <> "￥" Then
            N3 = 0 : R3 = Double.Parse(dr("人民幣資金").ToString) : Label13.Text = "$" & Format(Val(CStr(Math.Round((R3 * ER), 2))), "#,##0.00") : Label5.Text = "￥" & Format(Val(R3), "#,##0.00")
        ElseIf Label5.Text = "￥" And Label13.Text <> "$" Then
            N3 = Double.Parse(dr("台幣資金").ToString) : R3 = 0 : Label13.Text = "$" & Format(Val(N3), "#,##0.00") : Label5.Text = "￥" & Format(Val(CStr(Math.Round((N3 / ER), 2))), "#,##0.00")
        ElseIf Label5.Text <> "￥" And Label13.Text <> "$" Then
            N3 = Double.Parse(dr("台幣資金").ToString) : R3 = Double.Parse(dr("人民幣資金").ToString)
            Label13.Text = "$" & Format(Val(CStr(Math.Round((N3 + R3 * ER), 2))), "#,##0.00") : Label5.Text = "￥" & Format(Val(CStr(Math.Round((N3 / ER + R3), 2))), "#,##0.00")
        ElseIf Label5.Text = "￥" And Label13.Text = "$" Then
            Label13.Text = "$ 0" : Label5.Text = "￥0"
        End If
        conn.Close() : dr.Close() : conn.Close() : dr.Close()

        SUM1 = N1 + N2 + N3 + ((R1 + R2 + R3) * ER)
        Label25.Text = "$" & Format(Val(CStr(Math.Round(N1 + N2 + N3 + ((R1 + R2 + R3) * ER), 2))), "#,##0.00")
        Label24.Text = "￥" & Format(Val(CStr(Math.Round(R1 + R2 + R3 + ((N1 + N2 + N3) / ER), 2))), "#,##0.00")
        Label7.Text = CStr(Math.Round(((N1 + (R1 * ER)) / SUM1) * 100, 2)) & "%" : Label6.Text = CStr(Math.Round(((N2 + (R2 * ER)) / SUM1) * 100, 2)) & "%"
        Label4.Text = CStr(Math.Round(((N3 + (R3 * ER)) / SUM1) * 100, 2)) & "%"
    End Sub
    Private Sub Set_明細()
        Set_匯率()

        If Format(DateTimePicker3.Value, "MM") - 1 = 0 Then
            TextBox7.Text = Format(DateTimePicker3.Value, "yyyy") - 1
            TextBox23.Text = 12
        Else
            TextBox7.Text = Format(DateTimePicker3.Value, "yyyy")
            TextBox23.Text = Format(DateTimePicker3.Value, "MM") - 1
        End If

        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False

        ConnOpen()
        If TextBox2.Text = "" Then
            SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出, 人員 FROM 財務流水帳 WHERE (銀行 LIKE '%人民幣現金%') AND " &
                  "(日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  " ORDER BY CONVERT(date, 日期) DESC"
        ElseIf TextBox2.Text <> "" Then
            SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出, 人員 FROM 財務流水帳 WHERE (銀行 LIKE '" & TextBox2.Text & "') AND " &
                  "(日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  " ORDER BY CONVERT(date, 日期) DESC"
        End If
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

        DataGridView2.DataSource = Nothing : ds1.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 類別, ROUND(SUM(CONVERT(FLOAT, 支出)),2) AS 支出, ROUND(SUM(CONVERT(FLOAT, 支出)) / (SELECT SUM(CONVERT(FLOAT, 支出)) AS 總支出 FROM 財務流水帳 " &
                  "WHERE (銀行 LIKE '%台幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "')) * 100, 2) " &
                  "AS 百分比 FROM 財務流水帳 AS 財務流水帳_1 " &
                  "WHERE (銀行 LIKE '%台幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  "AND (類別 NOT LIKE '%互沖帳%') AND (類別 NOT LIKE '%收入%') GROUP BY   類別"
        CmdSet_For_DGV() : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

        DataGridView3.DataSource = Nothing : ds2.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 類別, ROUND(SUM(CONVERT(FLOAT, 支出)),2) AS 支出, ROUND(SUM(CONVERT(FLOAT, 支出)) / (SELECT SUM(CONVERT(FLOAT, 支出)) AS 總支出 FROM 財務流水帳 " &
                  "WHERE (銀行 LIKE '%人民幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "')) * 100, 2) " &
                  "AS 百分比 FROM 財務流水帳 AS 財務流水帳_1 " &
                  "WHERE (銀行 LIKE '%人民幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  "AND (類別 NOT LIKE '%互沖帳%') AND (類別 NOT LIKE '%收入%') GROUP BY   類別"
        CmdSet_For_DGV() : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()

        DataGridView4.DataSource = Nothing : ds3.Clear()
        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView4.ColumnHeadersHeight = 25
        DataGridView4.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 類別, ROUND(SUM(CONVERT(FLOAT, 收入)),2) AS 收入, ROUND(SUM(CONVERT(FLOAT, 收入)) / (SELECT SUM(CONVERT(FLOAT, 收入)) AS 總收入 FROM 財務流水帳 " &
                  "WHERE (銀行 LIKE '%台幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "')) * 100, 2) " &
                  "AS 百分比 FROM 財務流水帳 AS 財務流水帳_1 " &
                  "WHERE (銀行 LIKE '%台幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  "AND ((類別 LIKE '%收入%') OR (類別 LIKE '%互沖帳%')) GROUP BY   類別"
        CmdSet_For_DGV() : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()

        DataGridView5.DataSource = Nothing : ds4.Clear()
        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView5.ColumnHeadersHeight = 25
        DataGridView5.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 類別, ROUND(SUM(CONVERT(FLOAT, 收入)),2) AS 收入, ROUND(SUM(CONVERT(FLOAT, 收入)) / (SELECT SUM(CONVERT(FLOAT, 收入)) AS 總收入 FROM 財務流水帳 " &
                  "WHERE (銀行 LIKE '%人民幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "')) * 100, 2) " &
                  "AS 百分比 FROM 財務流水帳 AS 財務流水帳_1 " &
                  "WHERE (銀行 LIKE '%人民幣現金%') AND (日期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                  "AND ((類別 LIKE '%收入%') OR (類別 LIKE '%互沖帳%')) GROUP BY   類別"
        CmdSet_For_DGV() : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()

        Dim MyCount As Double = 0
        For i As Integer = 0 To DataGridView2.Rows.Count - 1
            If DataGridView2.RowCount = 0 Then : TextBox41.Text = "0" : Else : MyCount += DataGridView2.Rows(i).Cells("支出").Value : End If
        Next i
        TextBox41.Text = MyCount
        TextBox26.Text = Format(Val(TextBox41.Text), "#,##0.00")

        MyCount = 0
        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            If DataGridView3.RowCount = 0 Then : TextBox19.Text = "0" : Else : MyCount += DataGridView3.Rows(i).Cells("支出").Value : End If
        Next i
        TextBox19.Text = MyCount
        TextBox27.Text = Format(Val(TextBox19.Text), "#,##0.00")

        MyCount = 0
        For i As Integer = 0 To DataGridView4.Rows.Count - 1
            If DataGridView4.RowCount = 0 Then : TextBox55.Text = "0" : Else : MyCount += DataGridView4.Rows(i).Cells("收入").Value : End If
        Next i
        TextBox55.Text = MyCount
        TextBox22.Text = Format(Val(TextBox55.Text), "#,##0.00")

        MyCount = 0
        For i As Integer = 0 To DataGridView5.Rows.Count - 1
            If DataGridView5.RowCount = 0 Then : TextBox25.Text = "0" : Else : MyCount += DataGridView5.Rows(i).Cells("收入").Value : End If
        Next i
        TextBox25.Text = MyCount
        TextBox24.Text = Format(Val(TextBox25.Text), "#,##0.00")

        ConnOpen()
        SQL1 = "SELECT CONVERT(FLOAT, 收入) - CONVERT(FLOAT, 支出) AS 台幣結算 From 財務流水帳 Where (Year(Convert(Char(10), 日期, 110)) = '" & TextBox7.Text & "') AND " &
                  "(MONTH(CONVERT(CHAR(10), 日期, 110)) = '" & TextBox23.Text & "') AND (人員 = '會計') AND (銀行 = '台幣結算')"
        CmdSet_For_dr()
        If dr.Read() Then : TextBox56.Text = dr("台幣結算").ToString : Else : TextBox56.Text = "0" : End If
        TextBox20.Text = Format(Val(TextBox56.Text), "#,##0.00")
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT CONVERT(FLOAT, 收入) - CONVERT(FLOAT, 支出) AS 人民幣結算 From 財務流水帳 Where (Year(Convert(Char(10), 日期, 110)) = '" & TextBox7.Text & "') AND " &
                  "(MONTH(CONVERT(CHAR(10), 日期, 110)) = '" & TextBox23.Text & "') AND (人員 = '會計') AND (銀行 = '人民幣結算')"
        CmdSet_For_dr()
        If dr.Read() Then : TextBox8.Text = dr("人民幣結算").ToString : Else : TextBox8.Text = "0" : End If
        TextBox21.Text = Format(Val(TextBox8.Text), "#,##0.00")
        conn.Close() : dr.Close()

        TextBox38.Text = CStr(Math.Round((Double.Parse(TextBox56.Text)) + (Double.Parse(TextBox55.Text)) - (Double.Parse(TextBox41.Text)), 2))
        TextBox28.Text = Format(Val(TextBox38.Text), "#,##0.00")
        TextBox11.Text = CStr(Math.Round((Double.Parse(TextBox8.Text)) + (Double.Parse(TextBox25.Text)) - (Double.Parse(TextBox19.Text)), 2))
        TextBox29.Text = Format(Val(TextBox11.Text), "#,##0.00")
        TextBox10.Text = CStr(Math.Round((Double.Parse(TextBox38.Text)) + ((Double.Parse(TextBox11.Text)) * ER), 2))
        TextBox30.Text = Format(Val(TextBox10.Text), "#,##0.00")
        TextBox12.Text = CStr(Math.Round((Double.Parse(TextBox55.Text)) + (Double.Parse(TextBox56.Text)), 2))
        TextBox13.Text = CStr(Math.Round((Double.Parse(TextBox25.Text)) + (Double.Parse(TextBox8.Text)), 2))
        If ComboBox2.Text = "" Then : GroupBox5.Text = "台幣現金-帳本清單" : Else : GroupBox5.Text = ComboBox2.Text + "-帳本清單" : End If
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).Width = 75 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Width = 75 : DataGridView1.Columns(3).Width = 60
        DataGridView1.Columns(4).Width = 180 : DataGridView1.Columns(5).Width = 60 : DataGridView1.Columns(6).Width = 60 : DataGridView1.Columns(7).Visible = False
    End Sub
    Private Sub Set_流水號()
        conn.Close() : dr.Close()
        Dim NUM1 As Integer
        For NUM1 = 0 To 99
            Dim d As String : Dim f As String : Dim g As Integer = 1
            If Month(Now) < 10 Then
                d = "0" & CStr(Month(Now))
            Else
                d = CStr(Month(Now))
            End If
            If Now.Day() < 10 Then
                f = "0" & CStr(Now.Day())
            Else
                f = CStr(Now.Day())
            End If
            If NUM1 < 10 Then
                TextBox6.Text = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
            Else
                TextBox6.Text = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
            End If
            TextBox16.Text = ""

            ConnOpen()
            SQL1 = "SELECT 流水號 FROM 財務流水帳 WHERE (流水號 ='" & TextBox6.Text & "')"
            CmdSet_For_dr()
            If dr.Read() Then
                TextBox16.Text = dr("流水號").ToString
            End If
            conn.Close()
            If TextBox16.Text = "" Then
                TextBox16.Text = "可用"
                TextBox1.Text = TextBox6.Text
                NUM1 = 99
            End If
        Next
    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString
            TextBox2.Text = DataGridView1(1, e.RowIndex).Value.ToString
            DateTimePicker1.Text = DataGridView1(2, e.RowIndex).Value.ToString
            ComboBox1.Text = DataGridView1(3, e.RowIndex).Value.ToString
            TextBox3.Text = DataGridView1(4, e.RowIndex).Value.ToString
            TextBox4.Text = DataGridView1(5, e.RowIndex).Value.ToString
            TextBox5.Text = DataGridView1(6, e.RowIndex).Value.ToString
            ComboBox3.Text = DataGridView1(7, e.RowIndex).Value.ToString
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS
        Me.WindowState = 2
        DateTimePicker2.Value = CDate(Year(Now) & "/" & Month(Now) & "/1") : DateTimePicker3.Value = Today
        Set_匯總() : Set_明細() : Set_grid()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DateTimePicker1.Enabled = True : ComboBox1.Enabled = True : Button7.Enabled = True : Button5.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button4.Enabled = True : Button5.Enabled = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button5.Enabled = True : Button8.Enabled = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If ComboBox1.Text = "" Or TextBox2.Text = "" Or ComboBox3.Text = "" Then
            MsgBox("請選擇銀行或帳目類別")
        Else
            Set_流水號()
            If TextBox16.Text = "可用" Then
                Dim a As String = InputBox("請輸入帳務明細") : Dim b As String = InputBox("請輸入收入金額") : Dim c As String = InputBox("請輸入支出金額")
                TextBox3.Text = a : TextBox4.Text = b : TextBox5.Text = c

                ConnOpen()
                SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 明細, 收入, 支出, 人員) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text &
                      "','" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text &
                      "','" & TextBox5.Text & "','" & ComboBox3.Text & "')"
                CmdSet_For_DGV()
                MsgBox("新增完成")
                conn.Close()
            End If
        End If
        Button7.Enabled = False : Button5.Enabled = False
        Set_匯總() : Set_明細() : Set_grid()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       ConnOpen()
        SQL1 = "UPDATE    財務流水帳 SET 銀行 = '" & TextBox2.Text & "', 日期 = '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") &
                  "', 類別 = '" & ComboBox1.Text & "', 明細 = '" & TextBox3.Text & "', 收入 = '" & TextBox4.Text &
                  "', 支出 = '" & TextBox5.Text & "', 人員 = '" & ComboBox3.Text & "' WHERE (流水號 = '" & TextBox1.Text & "')"
        CmdSet_For_dr
        MsgBox("修改完成")
        conn.Close()
        Button4.Enabled = False : Button5.Enabled = False
        Set_匯總() : Set_明細() : Set_grid()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        SQL1 = "DELETE FROM 財務流水帳 WHERE (流水號 = '" & TextBox1.Text & "')"
        cmd.CommandText = SQL : cmd.Connection = conn
       ConnOpen()

        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close()

        Button5.Enabled = False : Button8.Enabled = False
        Set_匯總() : Set_明細() : Set_grid()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button4.Enabled = False : Button5.Enabled = False : Button7.Enabled = False : Button8.Enabled = False
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "" Then : TextBox2.Text = "" : TextBox57.Text = "" : End If
        If ComboBox2.Text = "台幣現金" Then : TextBox2.Text = "台幣現金" : TextBox57.Text = "台幣現金" : End If
        If ComboBox2.Text = "人民幣現金" Then : TextBox2.Text = "人民幣現金" : TextBox57.Text = "人民幣現金" : End If
        Set_明細() : Set_grid()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Set_匯總() : Set_明細() : Set_grid()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        ConnOpen()
        SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員 FROM 財務流水帳 " &
               "WHERE (YEAR(CONVERT(CHAR(10), 日期, 110)) = '" & Format(DateTimePicker3.Value, "yyyy") & "') " &
               "AND (MONTH(CONVERT(CHAR(10), 日期, 110)) = '" & Format(DateTimePicker3.Value, "MM") & "') AND  (人員 = '會計') AND (銀行 = '人民幣結算')"
        CmdSet_For_dr()
        If dr.Read() Then
            MsgBox("資料已存在")
        Else
            Set_流水號()
            If TextBox16.Text = "可用" Then
                ConnOpen()
                SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 明細, 收入, 支出, 人員) VALUES ('" & TextBox1.Text & "','台幣結算','" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "
                  ','月結算','" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "到" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "','" & TextBox12.Text &
                          "','" & TextBox41.Text & "','會計')"
                CmdSet_For_DGV()
                conn.Close()
            End If
            Set_流水號()
            If TextBox16.Text = "可用" Then
                ConnOpen()
                SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 明細, 收入, 支出, 人員) VALUES ('" & TextBox1.Text & "','人民幣結算','" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "
                  ','月結算','" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "到" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "','" & TextBox13.Text &
                          "','" & TextBox19.Text & "','會計')"
                CmdSet_For_DGV()
                MsgBox("新增完成")
                conn.Close()
            End If
        End If
        conn.Close() : dr.Close()
    End Sub
End Class