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

Imports System.Data.SqlClient
Public Class 分類查詢
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
    Dim 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
                    SQL = "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()
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL = "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") & "')"
                    cmd.Connection = conn : cmd.CommandText = SQL : dr = cmd.ExecuteReader
                    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
                    SQL = "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()
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL = "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") & "')"
                    cmd.Connection = conn : cmd.CommandText = SQL : dr = cmd.ExecuteReader
                    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
                        SQL = "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()
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL = "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 & "%')"
                        cmd.Connection = conn : cmd.CommandText = SQL : dr = cmd.ExecuteReader
                        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
                        SQL = "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()
                        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                        SQL = "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 & "%')"
                        cmd.Connection = conn : cmd.CommandText = SQL : dr = cmd.ExecuteReader
                        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