GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/未整理與未使用/其他/分類查詢.vb

Public Class 分類查詢
    ReadOnly ds As New DataSet
    Private Sub 分類查詢_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS
        DateTimePicker1.Value = CDate(Year(Now) & "/" & Month(Now) & "/1") : DateTimePicker2.Value = Today
    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
        DataGridView1.DataSource = Nothing : ds.Clear()
        If RadioButton1.Checked = False And RadioButton2.Checked = False Then
            MsgBox("請選擇幣別種類")
        Else
            If Label18.Text = ".........." Then
                MsgBox("請選擇帳目類別")
            Else
                conn.ConnectionString = ConString
                conn.Open()
                If CheckBox1.Checked = True And RadioButton1.Checked = True Then
                    SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出 FROM 流水帳 WHERE (銀行 NOT LIKE '%人民幣現金%') AND (銀行 NOT LIKE '%中國工商銀行%') AND " &
                          " (銀行 NOT LIKE '%中國銀行%') AND (銀行 NOT LIKE '%中行定存%') AND (銀行 NOT LIKE '%工行定存%') AND (銀行 NOT LIKE '%農業銀行(協叡)%') AND " &
                          " (銀行 NOT LIKE '%農業銀行(秀虹)%') AND (銀行 NOT LIKE '%農業銀行福建叡%') AND (銀行 NOT LIKE '%農業銀行肇慶叡%') AND (銀行 NOT LIKE '%農業銀行福建虹%') AND " &
                          " (銀行 NOT LIKE '%農行定存福建叡%') AND (銀行 NOT LIKE '%農行定存肇慶叡%') AND (銀行 NOT LIKE '%農行定存福建虹%') AND (銀行 NOT LIKE '%農行定存(協叡)%') AND " &
                          " (銀行 NOT LIKE '%農行定存(秀虹)%') AND (類別 LIKE '%" & Label18.Text & "%') AND " &
                          " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') ORDER BY CONVERT(date, 日期) DESC"
                    cmd.Connection = conn
                    cmd.CommandText = SQL
                    da.SelectCommand = cmd
                    da.Fill(ds)
                    DataGridView1.DataSource = ds.Tables(0)
                    conn.Close()
                    ConnOpen()
                    SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入))+ SUM(CONVERT(FLOAT, 支出)) AS 加總 FROM 流水帳 WHERE (銀行 NOT LIKE '%人民幣現金%') AND (銀行 NOT LIKE '%中國工商銀行%') AND " &
                        " (銀行 NOT LIKE '%中國銀行%') AND (銀行 NOT LIKE '%中行定存%') AND (銀行 NOT LIKE '%工行定存%') AND (銀行 NOT LIKE '%農業銀行(協叡)%') AND " &
                        " (銀行 NOT LIKE '%農業銀行(秀虹)%') AND (銀行 NOT LIKE '%農業銀行福建叡%') AND (銀行 NOT LIKE '%農業銀行肇慶叡%') AND (銀行 NOT LIKE '%農業銀行福建虹%') AND " &
                        " (銀行 NOT LIKE '%農行定存福建叡%') AND (銀行 NOT LIKE '%農行定存肇慶叡%') AND (銀行 NOT LIKE '%農行定存福建虹%') AND (銀行 NOT LIKE '%農行定存(協叡)%') AND " &
                        " (銀行 NOT LIKE '%農行定存(秀虹)%') AND (類別 LIKE '%" & Label18.Text & "%') AND " &
                        " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "')"
                     CmdSet_For_dr()
                    If dr.Read() Then : TextBox4.Text = dr("加總").ToString : End If
                    If TextBox4.Text = "" Then : TextBox4.Text = "0.00" : End If
                    conn.Close() : dr.Close()
                ElseIf CheckBox1.Checked = True And RadioButton1.Checked = False Then
                    SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出 FROM 流水帳 WHERE (銀行 NOT LIKE '%台幣現金%') AND (銀行 NOT LIKE '%新光銀行(協叡)%') AND " &
                        " (銀行 NOT LIKE '%新光銀行(秀虹)%') AND (銀行 NOT LIKE '%中國信託(協叡)%') AND (銀行 NOT LIKE '%中國信託(秀虹)%') AND (銀行 NOT LIKE '%郵局(協叡)%') AND " &
                        " (銀行 NOT LIKE '%郵局(秀虹)%') AND (銀行 NOT LIKE '%元大銀行%') AND (銀行 NOT LIKE '%元大證卷%') AND (類別 LIKE '%" & Label18.Text & "%') AND " &
                        " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') ORDER BY CONVERT(date, 日期) DESC"
                    cmd.Connection = conn
                    cmd.CommandText = SQL
                    da.SelectCommand = cmd
                    da.Fill(ds)
                    DataGridView1.DataSource = ds.Tables(0)
                    conn.Close()
                    ConnOpen()
                    SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入))+ SUM(CONVERT(FLOAT, 支出)) AS 加總 FROM 流水帳 WHERE (銀行 NOT LIKE '%台幣現金%') AND (銀行 NOT LIKE '%新光銀行(協叡)%') AND " &
                        " (銀行 NOT LIKE '%新光銀行(秀虹)%') AND (銀行 NOT LIKE '%中國信託(協叡)%') AND (銀行 NOT LIKE '%中國信託(秀虹)%') AND (銀行 NOT LIKE '%郵局(協叡)%') AND " &
                        " (銀行 NOT LIKE '%郵局(秀虹)%') AND (銀行 NOT LIKE '%元大銀行%') AND (銀行 NOT LIKE '%元大證卷%') AND (類別 LIKE '%" & Label18.Text & "%') AND " &
                        " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "')"
                     CmdSet_For_dr()
                    If dr.Read() Then : TextBox4.Text = dr("加總").ToString : End If
                    If TextBox4.Text = "" Then : TextBox4.Text = "0.00" : End If
                    conn.Close() : dr.Close()
                Else
                    If RadioButton1.Checked = True Then
                        SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出 FROM 流水帳 WHERE (銀行 NOT LIKE '%人民幣現金%') AND (銀行 NOT LIKE '%中國工商銀行%') AND " &
                            " (銀行 NOT LIKE '%中國銀行%') AND (銀行 NOT LIKE '%中行定存%') AND (銀行 NOT LIKE '%工行定存%') AND (銀行 NOT LIKE '%農業銀行(協叡)%') AND " &
                            " (銀行 NOT LIKE '%農業銀行(秀虹)%') AND (銀行 NOT LIKE '%農業銀行福建叡%') AND (銀行 NOT LIKE '%農業銀行肇慶叡%') AND (銀行 NOT LIKE '%農業銀行福建虹%') AND " &
                            " (銀行 NOT LIKE '%農行定存福建叡%') AND (銀行 NOT LIKE '%農行定存肇慶叡%') AND (銀行 NOT LIKE '%農行定存福建虹%') AND (銀行 NOT LIKE '%農行定存(協叡)%') AND " &
                            " (銀行 NOT LIKE '%農行定存(秀虹)%') AND (類別 LIKE '%" & Label18.Text & "%') ORDER BY CONVERT(date, 日期) DESC"
                        cmd.Connection = conn
                        cmd.CommandText = SQL
                        da.SelectCommand = cmd
                        da.Fill(ds)
                        DataGridView1.DataSource = ds.Tables(0)
                        conn.Close()
                        ConnOpen()
                        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入))+ SUM(CONVERT(FLOAT, 支出)) AS 加總 FROM 流水帳 WHERE (銀行 NOT LIKE '%人民幣現金%') AND (銀行 NOT LIKE '%中國工商銀行%') AND " &
                            " (銀行 NOT LIKE '%中國銀行%') AND (銀行 NOT LIKE '%中行定存%') AND (銀行 NOT LIKE '%工行定存%') AND (銀行 NOT LIKE '%農業銀行(協叡)%') AND " &
                            " (銀行 NOT LIKE '%農業銀行(秀虹)%') AND (銀行 NOT LIKE '%農業銀行福建叡%') AND (銀行 NOT LIKE '%農業銀行肇慶叡%') AND (銀行 NOT LIKE '%農業銀行福建虹%') AND " &
                            " (銀行 NOT LIKE '%農行定存福建叡%') AND (銀行 NOT LIKE '%農行定存肇慶叡%') AND (銀行 NOT LIKE '%農行定存福建虹%') AND (銀行 NOT LIKE '%農行定存(協叡)%') AND " &
                            " (銀行 NOT LIKE '%農行定存(秀虹)%') AND (類別 LIKE '%" & Label18.Text & "%')"
                         CmdSet_For_dr()
                        If dr.Read() Then : TextBox4.Text = dr("加總").ToString : End If
                        If TextBox4.Text = "" Then : TextBox4.Text = "0.00" : End If
                        conn.Close() : dr.Close()
                    Else
                        SQL1 = "SELECT 流水號, 銀行, 日期, 類別, 明細, 收入, 支出 FROM 流水帳 WHERE (銀行 NOT LIKE '%台幣現金%') AND (銀行 NOT LIKE '%新光銀行(協叡)%') AND " &
                            " (銀行 NOT LIKE '%新光銀行(秀虹)%') AND (銀行 NOT LIKE '%中國信託(協叡)%') AND (銀行 NOT LIKE '%中國信託(秀虹)%') AND (銀行 NOT LIKE '%郵局(協叡)%') AND " &
                            " (銀行 NOT LIKE '%郵局(秀虹)%') AND (銀行 NOT LIKE '%元大銀行%') AND (銀行 NOT LIKE '%元大證卷%') AND (類別 LIKE '%" & Label18.Text & "%') ORDER BY CONVERT(date, 日期) DESC"
                        cmd.Connection = conn
                        cmd.CommandText = SQL
                        da.SelectCommand = cmd
                        da.Fill(ds)
                        DataGridView1.DataSource = ds.Tables(0)
                        conn.Close()
                        ConnOpen()
                        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入))+ SUM(CONVERT(FLOAT, 支出)) AS 加總 FROM 流水帳 WHERE (銀行 NOT LIKE '%台幣現金%') AND (銀行 NOT LIKE '%新光銀行(協叡)%') AND " &
                            " (銀行 NOT LIKE '%新光銀行(秀虹)%') AND (銀行 NOT LIKE '%中國信託(協叡)%') AND (銀行 NOT LIKE '%中國信託(秀虹)%') AND (銀行 NOT LIKE '%郵局(協叡)%') AND " &
                            " (銀行 NOT LIKE '%郵局(秀虹)%') AND (銀行 NOT LIKE '%元大銀行%') AND (銀行 NOT LIKE '%元大證卷%') AND (類別 LIKE '%" & Label18.Text & "%')"
                         CmdSet_For_dr()
                        If dr.Read() Then : TextBox4.Text = dr("加總").ToString : End If
                        If TextBox4.Text = "" Then : TextBox4.Text = "0.00" : End If
                        conn.Close() : dr.Close()
                    End If
                End If
                set_grid()
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView1.DataSource = Nothing : ds.Clear()
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False
        RadioButton7.Checked = False : RadioButton8.Checked = False : RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False
        RadioButton13.Checked = False : RadioButton14.Checked = False : RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = ".........." : TextBox4.Text = ""
        CheckBox1.Checked = False
    End Sub
    Private Sub RadioButton1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        RadioButton1.Checked = True : RadioButton2.Checked = False
    End Sub
    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        RadioButton1.Checked = False : RadioButton2.Checked = True
    End Sub
    '----------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub RadioButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.Click
        RadioButton3.Checked = True : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton3.Text
    End Sub
    Private Sub RadioButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.Click
        RadioButton3.Checked = False : RadioButton4.Checked = True : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton4.Text
    End Sub
    Private Sub RadioButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = True : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton5.Text
    End Sub
    Private Sub RadioButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = True : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton6.Text
    End Sub
    Private Sub RadioButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = True : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton7.Text
    End Sub
    Private Sub RadioButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = True
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton8.Text
    End Sub
    Private Sub RadioButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = True : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton9.Text
    End Sub
    Private Sub RadioButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = True : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton10.Text
    End Sub
    Private Sub RadioButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = True : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton11.Text
    End Sub
    Private Sub RadioButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = True : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton12.Text
    End Sub
    Private Sub RadioButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton13.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = True : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton13.Text
    End Sub
    Private Sub RadioButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton14.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = True
        RadioButton15.Checked = False : RadioButton16.Checked = False : Label18.Text = RadioButton14.Text
    End Sub
    Private Sub RadioButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = True : RadioButton16.Checked = False : Label18.Text = RadioButton15.Text
    End Sub
    Private Sub RadioButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.Click
        RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
        RadioButton9.Checked = False : RadioButton10.Checked = False : RadioButton11.Checked = False : RadioButton12.Checked = False : RadioButton13.Checked = False : RadioButton14.Checked = False
        RadioButton15.Checked = False : RadioButton16.Checked = True : Label18.Text = RadioButton16.Text
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).Width = 75 : DataGridView1.Columns(1).Width = 75 : 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
    End Sub
End Class