Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Public Class PrintData
    Public sCon As MySqlConnection = New MySqlConnection
    Public sComand As MySqlDataAdapter = New MySqlDataAdapter
    Public ds As DataSet = New DataSet
    Dim scrollVal As Integer
    Dim pagingAdapter As MySqlDataAdapter
    Dim pagingDS As DataSet
    Dim pagingDS2 As DataSet
    'Private sRecord_Count As Integer
    Dim conn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim dr As MySqlDataReader
    Dim connectionString As New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
    'Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    Me.DialogResult = System.Windows.Forms.DialogResult.OK
    '    Me.Close()
    'End Sub

    'Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
    '    Me.Close()
    'End Subl
    Private Sub PrintData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.full_data_entry' table. You can move, or remove it, as needed.
        'Me.full_data_entryTableAdapter.Fill(Me.caragavotersdbDataSet.full_data_entry)
        Me.caragavotersdbDataSet.EnforceConstraints = False
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.DataTable5' table. You can move, or remove it, as needed.
        Me.DataTable5TableAdapter.FillbyAllRecruits(Me.caragavotersdbDataSet.DataTable5)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.full_data_entry' table. You can move, or remove it, as needed.
        'Me.full_data_entryTableAdapter.Fill(Me.caragavotersdbDataSet.full_data_entry)


      
        'Me.DataTable1TableAdapter.Fillbydatahhlmember(Me.caragavotersdbDataSet.DataTable1)

        'Dim parReportParam1 As New ReportParameter("BCC", DataEntry.hhlbcc.Text)
        'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {parReportParam1})
        'Dim parReportParam2 As New ReportParameter("PCC", DataEntry.hhlpcc.Text)
        'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {parReportParam2})

        Dim parReportParam3 As New ReportParameter("barangay", DataEntry.barangay.Text)
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {parReportParam3})
        Dim parReportParam4 As New ReportParameter("purok", DataEntry.purok.Text)
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {parReportParam4})

        'Dim parms As ReportParameter() = New ReportParameter(n - 1) {}
        'parms(0) = New ReportParameter("BCC", DataEntry.hhlbcc(n - 1).text)
        'parms(1) = New ReportParameter("PCC", DataEntry.hhlpcc(n).text)
        'Me.ReportViewer1.LocalReport.SetParameters(parms)
        Me.ReportViewer1.RefreshReport()
        'namesugg()
        ComboBox1.Text = ""
        ComboBox3.Visible = False
    End Sub
    Private Sub namehhl()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT names FROM hhl where names LIKE '%" & ComboBox1.Text & "%'", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox1
                .DataSource = table
                .DisplayMember = "names"
                .ValueMember = "names"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub namemember()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT name FROM full_data_entry where name LIKE '%" & ComboBox1.Text & "%'", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox1
                .DataSource = table
                .DisplayMember = "name"
                .ValueMember = "name"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub namepcc()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT names FROM pco where names LIKE '%" & ComboBox1.Text & "%'", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox1
                .DataSource = table
                .DisplayMember = "names"
                .ValueMember = "names"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub namebcc()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT names FROM bcc where names LIKE '%" & ComboBox1.Text & "%'", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox1
                .DataSource = table
                .DisplayMember = "names"
                .ValueMember = "names"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub namebgy()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT barangay FROM purok", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox1
                .DataSource = table
                .DisplayMember = "barangay"
                .ValueMember = "barangay"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
                Dim lst = (From row In table.AsEnumerable
                       Select row.Field(Of String)(0)).Distinct.ToList
                ComboBox1.DataSource = lst
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub namepurok()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT purok FROM purok where barangay LIKE  '%" & ComboBox1.Text & "%'", connectionString)
            Dim table As New DataTable()
            adapter.Fill(table)
            With ComboBox3
                .DataSource = table
                .DisplayMember = "purok"
                .ValueMember = "purok"
                .DropDownStyle = ComboBoxStyle.DropDown
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
                Dim lst = (From row In table.AsEnumerable
                     Select row.Field(Of String)(0)).Distinct.ToList
                ComboBox3.DataSource = lst
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            connectionString.Close()
            connectionString.Dispose()
        End Try
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "" Then

        ElseIf ComboBox2.Text = "HHL" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillByHllPccBccMember(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text)
            'Me.DataTable1TableAdapter.FillByonehhl(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text)
            ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "PCC" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillByHllPccBccMember(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text)
            'Me.DataTable1TableAdapter.FillBypccnames(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text)
            ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "BCC" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillByHllPccBccMember(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text)
            'Me.DataTable1TableAdapter.FillBybccnames(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text)
            ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "BARANGAY" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillBybarangay(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text)
            'Me.DataTable1TableAdapter.FillBybccbarangay(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text)
            ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "RECRUITES" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillByHllPccBccMember(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text)
            'Me.DataTable1TableAdapter.FillByallrecruites(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text)
            ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "PUROK" Then
            namepurok()
        Else

        End If

    End Sub
    Private Sub alldata()
        Me.caragavotersdbDataSet.EnforceConstraints = False
        Me.DataTable5TableAdapter.FillbyAllRecruits(Me.caragavotersdbDataSet.DataTable5)
        'Me.DataTable1TableAdapter.Fillbydatahhlmember(Me.caragavotersdbDataSet.DataTable1)
        ReportViewer1.RefreshReport()
    End Sub
    Private Sub ComboBox1_SsndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
        Try
            If ComboBox1.Text = "" Then
                alldata()
            End If
        Catch ex As Exception

        End Try
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "HHL" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
            namehhl()
        ElseIf ComboBox2.Text = "RECRUITES" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
            namemember()
        ElseIf ComboBox2.Text = "PCC" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
            namepcc()
        ElseIf ComboBox2.Text = "BCC" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
            namebcc()
        ElseIf ComboBox2.Text = "BARANGAY" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
            namebgy()
        ElseIf ComboBox2.Text = "PUROK" Then
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = True
            namebgy()
            namepurok()
        ElseIf ComboBox2.Text = "ALL" Then
            alldata()
            ComboBox1.DataSource = Nothing
            ComboBox1.DisplayMember = ""
            ComboBox1.ValueMember = ""
            ComboBox3.Visible = False
        End If
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        If ComboBox2.Text = "PUROK" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable5TableAdapter.FillByHHLbrgyandpurok(Me.caragavotersdbDataSet.DataTable5, ComboBox1.Text, ComboBox3.Text)
            ' Me.DataTable1TableAdapter.FillBypccbrgyandpurok(Me.caragavotersdbDataSet.DataTable1, ComboBox1.Text, ComboBox3.Text)
            ReportViewer1.RefreshReport()
        End If
    End Sub
End Class