Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Public Class printperprecinpuroktmaster

    Dim connectionString As New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
    Private Sub printperprecint_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Me.full_data_entryTableAdapter.Fill(Me.caragavotersdbDataSet.full_data_entry)
        'Me.ReportViewer1.RefreshReport()
        selectbargy2()
        purok1()
    End Sub
    Private Sub selectbargy2()
        Dim adapter As New MySqlDataAdapter("SELECT barangay FROM purok ORDER BY barangay ASC", connectionString)
        Dim table As New DataTable()
        adapter.Fill(table)
        ComboBox1.DataSource = table
        ComboBox1.ValueMember = "barangay"
        ComboBox1.DisplayMember = "barangay"
        Dim lst = (From row In table.AsEnumerable
                   Select row.Field(Of String)(0)).Distinct.ToList
        ComboBox1.DataSource = lst
        connectionString.Close()
        connectionString.Dispose()
        MySqlConnection.ClearPool(connectionString)

    End Sub
    Private Sub purok1()
        Dim adapter As New MySqlDataAdapter("SELECT purok FROM purok ORDER BY purok ASC", connectionString)
        Dim table As New DataTable()
        adapter.Fill(table)
        ComboBox3.DataSource = table
        ComboBox3.ValueMember = "purok"
        ComboBox3.DisplayMember = "purok"
        Dim lst = (From row In table.AsEnumerable
                   Select row.Field(Of String)(0)).Distinct.ToList
        ComboBox3.DataSource = lst
        connectionString.Close()
        connectionString.Dispose()
        MySqlConnection.ClearPool(connectionString)

    End Sub
    Private Sub selectprec()
        Dim adapter As New MySqlDataAdapter("SELECT precinct_number FROM full_data WHERE barangay LIKE '%" & ComboBox1.Text & "%' ORDER BY precinct_number ASC", connectionString)
        Dim table As New DataTable()
        adapter.Fill(table)
        ComboBox2.DataSource = table
        ComboBox2.ValueMember = "precinct_number"
        ComboBox2.DisplayMember = "precinct_number"
        Dim lst = (From row In table.AsEnumerable
                   Select row.Field(Of String)(0)).Distinct.ToList
        ComboBox2.DataSource = lst
        connectionString.Close()
        connectionString.Dispose()
        MySqlConnection.ClearPool(connectionString)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox3.SelectedIndexChanged
        selectprec()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Me.full_dataTableAdapter.FillByPurokPrecint(Me.caragavotersdbDataSet.full_data, ComboBox2.Text, ComboBox1.Text, ComboBox3.Text)
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class