Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Public Class printlistcard
    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 printdetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.MEMcard' table. You can move, or remove it, as needed.
        Me.MEMcardTableAdapter.FillMemCard(Me.caragavotersdbDataSet.MEMcard)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.HHLcard' table. You can move, or remove it, as needed.
        Me.HHLcardTableAdapter.FillHHLcard(Me.caragavotersdbDataSet.HHLcard)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.BCCcard' table. You can move, or remove it, as needed.
        Me.BCCcardTableAdapter.FillBccCard(Me.caragavotersdbDataSet.BCCcard)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.PCCcard' table. You can move, or remove it, as needed.
        Me.PCCcardTableAdapter.FillPccCard(Me.caragavotersdbDataSet.PCCcard)
        'TODO: This line of code loads data into the 'caragavotersdbDataSet.bccdetails' table. You can move, or remove it, as needed.
        'Me.bccdetailsTableAdapter.Fillbybccdetails(Me.caragavotersdbDataSet.bccdetails)
        ''TODO: This line of code loads data into the 'caragavotersdbDataSet.pccdetails' table. You can move, or remove it, as needed.
        'Me.pccdetailsTableAdapter.Fillpccdetails(Me.caragavotersdbDataSet.pccdetails)
        ''TODO: This line of code loads data into the 'caragavotersdbDataSet.hlldetails' table. You can move, or remove it, as needed.
        'Me.hlldetailsTableAdapter.Fillhhldetails(Me.caragavotersdbDataSet.hlldetails)

        ''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.ReportViewer1.RefreshReport()
        namebgy()
    End Sub
    Private Sub namebgy()
        Try
            Dim adapter As New MySqlDataAdapter("SELECT barangay FROM purok order by barangay ASC", 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 ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Me.HHLcardTableAdapter.FillByBarangay(Me.caragavotersdbDataSet.HHLcard, ComboBox1.Text)
        Me.BCCcardTableAdapter.FillByBarangay(Me.caragavotersdbDataSet.BCCcard, ComboBox1.Text)
        Me.PCCcardTableAdapter.FillByBarangay(Me.caragavotersdbDataSet.PCCcard, ComboBox1.Text)
        Me.MEMcardTableAdapter.FillByBarangay(Me.caragavotersdbDataSet.MEMcard, ComboBox1.Text)
        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "NotY" Then
            Me.HHLcardTableAdapter.FillByBrgyNotPrinted(Me.caragavotersdbDataSet.HHLcard, ComboBox1.Text)
            Me.BCCcardTableAdapter.FillByBrgyNotPrinted(Me.caragavotersdbDataSet.BCCcard, ComboBox1.Text)
            Me.PCCcardTableAdapter.FillByBrgyNotPrinted(Me.caragavotersdbDataSet.PCCcard, ComboBox1.Text)
            Me.MEMcardTableAdapter.FillByBrgyNotPrinted(Me.caragavotersdbDataSet.MEMcard, ComboBox1.Text)
            Me.ReportViewer1.RefreshReport()
        ElseIf ComboBox2.Text = "Y" Then
            Me.HHLcardTableAdapter.FillByBrgyPrinted(Me.caragavotersdbDataSet.HHLcard, ComboBox1.Text)
            Me.BCCcardTableAdapter.FillByBrgyPrinted(Me.caragavotersdbDataSet.BCCcard, ComboBox1.Text)
            Me.PCCcardTableAdapter.FillByBrgyPrinted(Me.caragavotersdbDataSet.PCCcard, ComboBox1.Text)
            Me.MEMcardTableAdapter.FillByBrgyPrinted(Me.caragavotersdbDataSet.MEMcard, ComboBox1.Text)
            Me.ReportViewer1.RefreshReport()
        Else
            Me.HHLcardTableAdapter.FillHHLcard(Me.caragavotersdbDataSet.HHLcard)
            Me.BCCcardTableAdapter.FillBccCard(Me.caragavotersdbDataSet.BCCcard)
            Me.PCCcardTableAdapter.FillPccCard(Me.caragavotersdbDataSet.PCCcard)
            Me.MEMcardTableAdapter.FillMemCard(Me.caragavotersdbDataSet.MEMcard)
            Me.ReportViewer1.RefreshReport()
        End If
       
    End Sub
End Class