Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Text Imports System.Windows.Forms Imports System.Data.OleDb Imports System.Data.SqlClient Imports MySql.Data.MySqlClient Public Class masterlist Private sCon As MySqlConnection = New MySqlConnection Private sComand As MySqlDataAdapter = New MySqlDataAdapter Private 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 New 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 conns() ' Try ' conn = New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706") ' conn.Open() ' Catch ex As Exception ' MessageBox.Show("Please Close and try again.", "Close", 'MessageBoxButtons.OK, MessageBoxIcon.Error) ' 'End ' End Try ' End Sub ' Private Subconclos() ' Try ' connectionString.Close() ' connectionString.Dispose() ' conn.Close() ' conn.Dispose() ' MySqlConnection.ClearPool(conn1) ' MySqlConnection.ClearPool(connectionString) ' Catch ex As Exception ' End Try ' End Sub Private Sub hhldata_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed conclos() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'conns() 'fillis() Panel5.Visible = False Label7.Visible = False 'selectbargy() 'selectpurok() End Sub Private Sub selectbargy() If Dashboard.Label17.Text = "jeleen" Then ComboBox1.Items.Clear() ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList ComboBox1.Items.Add("POBLACION") ComboBox1.SelectedItem = "POBLACION" Else Dim adapter As New MySqlDataAdapter("SELECT * 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)(2)).Distinct.ToList ComboBox1.DataSource = lst connectionString.Close() connectionString.Dispose() MySqlConnection.ClearPool(conn1) MySqlConnection.ClearPool(connectionString) End If conclos() End Sub Private Sub selectpurok() If ComboBox1.Text = "" Then MessageBox.Show("Please Select Barangay First", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim adapter As New MySqlDataAdapter("SELECT * FROM purok WHERE barangay LIKE '%" & ComboBox1.Text & "%' ORDER BY purok ASC", connectionString) Dim table As New DataTable() adapter.Fill(table) ComboBox2.DataSource = table ComboBox2.ValueMember = "purok" ComboBox2.DisplayMember = "purok" Dim lst = (From row In table.AsEnumerable Select row.Field(Of String)(1)).Distinct.ToList ComboBox2.DataSource = lst connectionString.Close() connectionString.Dispose() MySqlConnection.ClearPool(conn1) MySqlConnection.ClearPool(connectionString) End If conclos() End Sub Private Sub selectbargy2() If Dashboard.Label17.Text = "jeleen" Then ComboBox3.Items.Clear() ComboBox3.DropDownStyle = ComboBoxStyle.DropDownList ComboBox3.Items.Add("POBLACION") ComboBox3.SelectedItem = "POBLACION" Else Dim adapter As New MySqlDataAdapter("SELECT * FROM purok ORDER BY barangay ASC", connectionString) Dim table As New DataTable() adapter.Fill(table) ComboBox3.DataSource = table ComboBox3.ValueMember = "barangay" ComboBox3.DisplayMember = "barangay" Dim lst = (From row In table.AsEnumerable Select row.Field(Of String)(2)).Distinct.ToList ComboBox3.DataSource = lst connectionString.Close() connectionString.Dispose() MySqlConnection.ClearPool(conn1) MySqlConnection.ClearPool(connectionString) End If conclos() End Sub Private Sub selectpurok2() If ComboBox3.Text = "" Then MessageBox.Show("Please Select Barangay First", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim adapter As New MySqlDataAdapter("SELECT * FROM purok WHERE barangay LIKE '%" & ComboBox3.Text & "%' ORDER BY purok ASC", connectionString) Dim table As New DataTable() adapter.Fill(table) ComboBox4.DataSource = table ComboBox4.ValueMember = "purok" ComboBox4.DisplayMember = "purok" Dim lst = (From row In table.AsEnumerable Select row.Field(Of String)(1)).Distinct.ToList ComboBox4.DataSource = lst connectionString.Close() connectionString.Dispose() MySqlConnection.ClearPool(conn1) MySqlConnection.ClearPool(connectionString) End If conclos() End Sub Private Sub findname() If Dashboard.Label17.Text = "jeleen" Then findnamePobOnly() Else Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where Name LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" .Columns(11).HeaderCell.Value = "Birthdate" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").Visible = False DataGridView1.Columns.Item("province").Visible = False DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill End If conclos() End Sub Private Sub findnamePobOnly() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where Name LIKE '%" & TextBox2.Text & "%' AND barangay LIKE 'POBLACION' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findBARANGAY() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where barangay LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findPUROK() If Dashboard.Label17.Text = "jeleen" Then findPUROKpob() Else Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where address LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill End If conclos() End Sub Private Sub findPUROKpob() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where address = '" & TextBox2.Text & "' AND barangay = 'POBLACION' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findPRECINT() If Dashboard.Label17.Text = "jeleen" Then findPRECINTpob() Else Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where precinct_number LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill End If conclos() End Sub Private Sub findPRECINTpob() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where barangay LIKE 'POBLACION' AND precinct_number LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findVOTERSNO() If Dashboard.Label17.Text = "jeleen" Then findVOTERSNOpob() Else Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where number LIKE '%" & TextBox2.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill End If conclos() End Sub Private Sub findVOTERSNOpob() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where number LIKE '%" & TextBox2.Text & "%' AND barangay LIKE 'POBLACION' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findNAMEBARANGAYPUROK() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where name LIKE '%" & TextBox2.Text & "%' AND address = '" & ComboBox4.Text _ & "' AND barangay = '" & ComboBox3.Text & "' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findNAMEBARANGAYPUROKblank() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where name LIKE '%" & TextBox2.Text & "%' AND address LIKE '%" & ComboBox4.Text _ & "%' AND barangay = '" & ComboBox3.Text & "' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findNAMEBARANGAYPUROKblanksearch() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where name LIKE '%" & TextBox2.Text & "%' AND barangay = '" & ComboBox3.Text & "' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub findnameupdated() Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data where Name LIKE '%" & TextBox1.Text & "%' AND barangay LIKE '%" & ComboBox3.Text & "%' AND address LIKE '%" & ComboBox4.Text & "%' ORDER BY Name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS2, "full_data_table") pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Address" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill conclos() End Sub Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting 'For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1 ' If Me.DataGridView1.Rows(i).Cells(7).Value = "D" Then ' Me.DataGridView1.Rows(i).Cells(7).Style.ForeColor = Color.Red ' End If 'Next End Sub Private Sub fillis() If Dashboard.Label17.Text = "jeleen" Then poblonly() Else Try 'Dim table As New DataTable() 'pagingDS = New DataSet() 'conns() 'Dim adapter As New MySqlDataAdapter("SELECT name,birthday,precinct_number,Gender,barangay,address,number,d_ FROM full_data ORDER BY barangay, address ASC", conn1) '' command.CommandText = "INSERT INTO full_data_x (name, birthday, precinct_number, Gender, barangay, address, number) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7)" ''adapter.Fill(table) 'adapter.Fill(pagingDS, scrollVal, 20, "full_data_table") 'DataGridView1.DataSource = pagingDS 'With DataGridView1 ' .Columns(0).HeaderCell.Value = "Name" ' .Columns(1).HeaderCell.Value = "Birthday" ' .Columns(2).HeaderCell.Value = "Precinct" ' .Columns(3).HeaderCell.Value = "Gender" ' .Columns(4).HeaderCell.Value = "Barangay" ' .Columns(5).HeaderCell.Value = "Purok" ' .Columns(6).HeaderCell.Value = "VN" ' .Columns(7).HeaderCell.Value = "Decease" 'End With 'DataGridView1.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(5).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 'DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data ORDER BY id ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") pagingAdapter.Fill(pagingDS2, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" pagingAdapter.Fill(pagingDS, "full_data") sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Purok" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill Catch ex As Exception MsgBox(ex.Message) ' MessageBox.Show("Please Close to finish update 5 seconds & Open the program again.", "Update", 'MessageBoxButtons.OK, MessageBoxIcon.Error) 'End End Try End If conclos() End Sub Private Sub poblonly() Try Dim connectionString As String = "server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706" Dim sql As String = "SELECT * FROM full_data WHERE barangay LIKE 'POBLACION' ORDER BY name ASC" Dim connection As New MySqlConnection(connectionString) pagingAdapter = New MySqlDataAdapter(sql, connection) pagingDS = New DataSet() pagingDS2 = New DataSet() connection.Open() pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") pagingAdapter.Fill(pagingDS2, "full_data_table") connection.Close() DataGridView1.DataSource = pagingDS DataGridView1.DataMember = "full_data_table" pagingAdapter.Fill(pagingDS, "full_data") sRecord_Count = pagingDS2.Tables(0).Rows.Count Label5.Text = sRecord_Count With DataGridView1 .Columns(0).HeaderCell.Value = "ID No." .Columns(2).HeaderCell.Value = "Name" .Columns(3).HeaderCell.Value = "Purok" .Columns(5).HeaderCell.Value = "Gender" .Columns(6).HeaderCell.Value = "Precinct number" .Columns(7).HeaderCell.Value = "Barangay" .Columns(8).HeaderCell.Value = "Municipality" .Columns(9).HeaderCell.Value = "Province" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("Gender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("municipality").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("province").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DataGridView1.Columns.Item("number").Visible = False DataGridView1.Columns.Item("birthday").Visible = False DataGridView1.Columns.Item("legend").Visible = False DataGridView1.Columns.Item("d_").Visible = False DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill Catch ex As Exception End Try conclos() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Try scrollVal = scrollVal - 20 If scrollVal <= 0 Then scrollVal = 0 End If pagingDS.Clear() pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") Catch ex As Exception MessageBox.Show("Please Close to finish update 5 seconds & Open the program again.", "Update", MessageBoxButtons.OK, MessageBoxIcon.Error) 'End End Try conclos() End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Try scrollVal = scrollVal + 20 'If scrollVal > 23 Then ' scrollVal = 18 'End If If scrollVal >= 0 Then 'scrollVal = 40 End If pagingDS.Clear() pagingAdapter.Fill(pagingDS, scrollVal, 20, "full_data_table") Catch ex As Exception MessageBox.Show("Please Close to finish update 5 seconds & Open the program again.", "Update", MessageBoxButtons.OK, MessageBoxIcon.Error) 'End End Try conclos() End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick Try Try Dim i As Integer With DataGridView1 If e.RowIndex >= 0 Then i = .CurrentRow.Index Label7.Text = .Rows(i).Cells("id").Value.ToString TextBox1.Text = .Rows(i).Cells("name").Value.ToString ComboBox1.Text = .Rows(i).Cells("barangay").Value.ToString ComboBox2.Text = .Rows(i).Cells("address").Value.ToString End If End With ' name.Text = Decryptel(name.Text, 1) Catch exx As Exception 'MsgBox(exx.Message) 'MessageBox.Show("Please Close to finish update 5 seconds & Open the program again.", "Update", MessageBoxButtons.OK, MessageBoxIcon.Error) 'End End Try Catch exx As Exception Finally End Try conclos() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 'findname() End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged 'findname() End Sub Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged 'findname() End Sub Private Sub ComboBox3_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged selectpurok2() End Sub Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.Click selectbargy() End Sub Private Sub ComboBox2_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox2.Click selectpurok() End Sub Private Sub ComboBox4_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged 'selectpurok2() End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged If searchby.Text = "NAME" Then findname() ElseIf searchby.Text = "" Then ElseIf searchby.Text = "BARANGAY" Then findBARANGAY() ElseIf searchby.Text = "PUROK" Then findPUROK() ElseIf searchby.Text = "PRECINT NO." Then findPRECINT() ElseIf searchby.Text = "VOTERS NO." Then findVOTERSNO() ElseIf searchby.Text = "NAME, BARANGAY, PUROK" Then findNAMEBARANGAYPUROK() End If If ComboBox4.Text = "" And searchby.Text = "NAME, BARANGAY, PUROK" Then findNAMEBARANGAYPUROKblanksearch() End If End Sub Private Sub searchby_SelectedIndexChanged(sender As Object, e As EventArgs) Handles searchby.SelectedIndexChanged If searchby.Text = "NAME" Then Panel5.Visible = False TextBox2.Enabled = True ElseIf searchby.Text = "" Then Panel5.Visible = False TextBox2.Enabled = True ElseIf searchby.Text = "BARANGAY" Then If Dashboard.Label17.Text = "jeleen" Then TextBox2.Clear() TextBox2.Text = "POBLACION" TextBox2.Enabled = False End If Panel5.Visible = False ElseIf searchby.Text = "PUROK" Then TextBox2.Enabled = True Panel5.Visible = False ElseIf searchby.Text = "PRECINT NO." Then TextBox2.Enabled = True Panel5.Visible = False ElseIf searchby.Text = "VOTERS NO." Then TextBox2.Enabled = True Panel5.Visible = False ElseIf searchby.Text = "NAME, BARANGAY, PUROK" Then TextBox2.Enabled = True Panel5.Visible = True selectbargy2() End If End Sub Private Sub clear() scrollVal = 0 TextBox1.Text = "" ComboBox1.Text = "" ComboBox2.Text = "" Label7.Text = "" fillis() connectionString.Close() connectionString.Dispose() MySqlConnection.ClearAllPools() conclos() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click clear() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If TextBox1.Text = "" Or Label7.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then MessageBox.Show("Please select data", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM hhl where names = '" & TextBox1.Text & "'", conn1) dr = cmd.ExecuteReader 'Dim sdr As MySqlDataReader 'sdr = cmd.ExecuteReader(CommandBehavior.CloseConnection) Dim bgy Dim prk If (dr.Read) Then bgy = dr("barangay") prk = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN HHL of '" & bgy & "' & purok '" & prk & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 142") = MsgBoxResult.Ok Then End If ' MsgBox("ALREADY IN HHL '" & ComboBox1.Text & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Delete") = MsgBoxResult.Ok) Else conns() cmd = New MySqlCommand("SELECT * FROM bcc where names = '" & TextBox1.Text & "'", conn1) dr = cmd.ExecuteReader Dim bgy1 Dim prk1 If (dr.Read) Then bgy1 = dr("barangay") prk1 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN BCC of '" & bgy1 & "' & purok '" & prk1 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 142") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN BCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM pco where names = '" & TextBox1.Text & "'", conn1) dr = cmd.ExecuteReader Dim bgy2 Dim prk2 If (dr.Read) Then bgy2 = dr("barangay") prk2 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN PCC of '" & bgy2 & "' & purok '" & prk2 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 142") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN PCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM full_data_entry where name = '" & TextBox1.Text & "'", conn1) dr = cmd.ExecuteReader Dim bgy3 Dim prk3 Dim hhl3 If (dr.Read) Then bgy3 = dr("barangay") prk3 = dr("address") hhl3 = dr("pco") If MsgBox("'" & TextBox1.Text & "' ALREADY IN RECRUITS of '" & bgy3 & "' & purok '" & prk3 & "' under HHL '" & hhl3 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 142") = MsgBoxResult.Ok Then End If conns() cmd = New MySqlCommand("SELECT * FROM hhl where names = '" & hhl3 & "'", conn1) dr = cmd.ExecuteReader Dim hhlprk If (dr.Read) Then hhlprk = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN RECRUITS of '" & bgy3 & "' & purok '" & prk3 & "' under HHL '" & hhl3 & "' of purok '" & hhlprk & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 142") = MsgBoxResult.Ok Then End If End If Else conns() cmd = New MySqlCommand("Update full_data set address ='" & ComboBox2.Text & "' where id = '" & Label7.Text & "'", conn1) cmd.ExecuteNonQuery() MsgBox("Successfully Updated", MsgBoxStyle.Information, "Update") findnameupdated() Label7.Text = "" End If End If End If End If End If conclos() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click 'loadingform.Show() 'loadingform.Label4.Text = "unmarkdecease" 'loadingform.Timer1.Enabled = True 'loadingform.Timer1.Start() Dashboard.openapp.Text = "unmarkdecease" passopen.ShowDialog() End Sub Sub unmarkdecease() If TextBox1.Text = "" Or Label7.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then MessageBox.Show("Please select data", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM hhl where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader 'Dim sdr As MySqlDataReader 'sdr = cmd.ExecuteReader(CommandBehavior.CloseConnection) Dim bgy Dim prk If (dr.Read) Then bgy = dr("barangay") prk = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN HHL of '" & bgy & "' & purok '" & prk & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 143") = MsgBoxResult.Ok Then End If ' MsgBox("ALREADY IN HHL '" & ComboBox1.Text & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Delete") = MsgBoxResult.Ok) Else conns() cmd = New MySqlCommand("SELECT * FROM bcc where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy1 Dim prk1 If (dr.Read) Then bgy1 = dr("barangay") prk1 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN BCC of '" & bgy1 & "' & purok '" & prk1 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 143") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN BCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM pco where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy2 Dim prk2 If (dr.Read) Then bgy2 = dr("barangay") prk2 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN PCC of '" & bgy2 & "' & purok '" & prk2 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 143") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN PCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM full_data_entry where name LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy3 Dim prk3 Dim hhl3 If (dr.Read) Then bgy3 = dr("barangay") prk3 = dr("address") hhl3 = dr("pco") If MsgBox("'" & TextBox1.Text & "' ALREADY IN RECRUITS of '" & bgy3 & "' & purok '" & prk3 & "' under HHL '" & hhl3 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 143") = MsgBoxResult.Ok Then End If Else conns() cmd = New MySqlCommand("Update full_data set d_ ='' where id = '" & Label7.Text & "'", conn1) cmd.ExecuteNonQuery() MsgBox("Successfully Updated", MsgBoxStyle.Information, "Update") findnameupdated() Label7.Text = "" End If End If End If End If End If conclos() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = "" Or Label7.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then MessageBox.Show("Please select data", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM hhl where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader 'Dim sdr As MySqlDataReader 'sdr = cmd.ExecuteReader(CommandBehavior.CloseConnection) Dim bgy Dim prk If (dr.Read) Then bgy = dr("barangay") prk = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN HHL of '" & bgy & "' & purok '" & prk & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 144") = MsgBoxResult.Ok Then End If ' MsgBox("ALREADY IN HHL '" & ComboBox1.Text & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Delete") = MsgBoxResult.Ok) Else conns() cmd = New MySqlCommand("SELECT * FROM bcc where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy1 Dim prk1 If (dr.Read) Then bgy1 = dr("barangay") prk1 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN BCC of '" & bgy1 & "' & purok '" & prk1 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 144") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN BCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM pco where names LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy2 Dim prk2 If (dr.Read) Then bgy2 = dr("barangay") prk2 = dr("purok") If MsgBox("'" & TextBox1.Text & "' ALREADY IN PCC of '" & bgy2 & "' & purok '" & prk2 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 144") = MsgBoxResult.Ok Then End If ' MessageBox.Show("ALREADY IN PCC", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error) Else conns() cmd = New MySqlCommand("SELECT * FROM full_data_entry where name LIKE '%" & TextBox1.Text & "%'", conn1) dr = cmd.ExecuteReader Dim bgy3 Dim prk3 Dim hhl3 If (dr.Read) Then bgy3 = dr("barangay") prk3 = dr("address") hhl3 = dr("pco") If MsgBox("'" & TextBox1.Text & "' ALREADY IN RECRUITS of '" & bgy3 & "' & purok '" & prk3 & "' under HHL '" & hhl3 & "' ", CType(MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Error 144") = MsgBoxResult.Ok Then End If Else conns() cmd = New MySqlCommand("Update full_data set d_ ='D' where id = '" & Label7.Text & "'", conn1) cmd.ExecuteNonQuery() MsgBox("Successfully Updated", MsgBoxStyle.Information, "Update") findnameupdated() Label7.Text = "" End If End If End If End If End If conclos() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'a1() printduplicatedmaster.Show() End Sub Private Sub a1() conns() Dim cmd1 As New MySqlCommand("Select `id`,`name`,`barangay`,`address`,`precinct_number` from full_data GROUP BY `name` HAVING COUNT(`name`) > 1 order by name ASC", conn1) Dim da As New MySqlDataAdapter Dim dt As New DataTable da.SelectCommand = cmd1 dt.Clear() da.Fill(dt) DataGridView1.DataSource = dt With DataGridView1 .Columns("id").HeaderCell.Value = "ID No." .Columns("name").HeaderCell.Value = "Name" .Columns("barangay").HeaderCell.Value = "Barangay" .Columns("address").HeaderCell.Value = "Purok" .Columns("precinct_number").HeaderCell.Value = "Precint Number" End With DataGridView1.Columns.Item("id").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("barangay").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("address").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns.Item("precinct_number").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.DefaultCellStyle.Font = New Font("arial", 12) 'DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill DataGridView1.Dock = DockStyle.Fill sRecord_Count = dt.Rows.Count Label5.Text = sRecord_Count conclos() End Sub Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged If ComboBox4.Text = "" Then findNAMEBARANGAYPUROKblank() Else findNAMEBARANGAYPUROK() End If End Sub End Class