Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Public Class printdatabyhhlinpurok
    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 printdatabyhhlinpurok_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        namebgy()
        '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)
        '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)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.DataTable2' table. You can move, or remove it, as needed.
        
        '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.full_data_entryTableAdapter.FillByhhl_in_bgy_purok(Me.caragavotersdbDataSet.full_data_entry, DataEntry.barangay.Text, DataEntry.purok.Text)
        ' Me.ReportViewer1.RefreshReport()

        '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})


        'Me.caragavotersdbDataSet.EnforceConstraints = False
        'Me.DataTable2TableAdapter.FillByHHLperBrgy(Me.caragavotersdbDataSet.DataTable2, ComboBox1.Text)
        'Me.ReportViewer1.RefreshReport()
    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 ComboBox2
                .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
                ComboBox2.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
        namepurok()
        If ComboBox2.Text = "" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable2TableAdapter.FillByHHLperBrgy(Me.caragavotersdbDataSet.DataTable2, ComboBox1.Text)
            Me.ReportViewer1.RefreshReport()
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        If ComboBox2.Text = "" Then
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable2TableAdapter.FillByHHLperBrgy(Me.caragavotersdbDataSet.DataTable2, ComboBox1.Text)
            Me.ReportViewer1.RefreshReport()
        Else
            Me.caragavotersdbDataSet.EnforceConstraints = False
            Me.DataTable2TableAdapter.FillByHHLBrgyPurok(Me.caragavotersdbDataSet.DataTable2, ComboBox1.Text, ComboBox2.Text)
            Me.ReportViewer1.RefreshReport()
        End If

    End Sub
End Class