Imports System.Data.OleDb
Public Class User_Record

    Dim myconn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Visual Basic source\Assignment 2\Assignment 2\VBN.mdb")
    Dim cmdBuilder As OleDbCommandBuilder
    Dim ds As New DataSet
    Dim changes As DataSet
    Dim adaptor As New OleDbDataAdapter

    Private Sub Closebtn_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Dim Ans As DialogResult = MessageBox.Show(" Are you sure you want to quit", "Are you sure?", MessageBoxButtons.YesNo)
        If Ans = DialogResult.Yes Then
            Me.Close()
            Administrator.Show()
        Else Me.Show()
        End If
    End Sub

    Private Sub PatientBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.UserBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.VBNDataSet)

    End Sub

    Private Sub Patients_Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'VBNDataSet.User' table. You can move, or remove it, as needed.
        Me.UserTableAdapter.Fill(Me.VBNDataSet.User)

        With UserDataGridView
            .ClearSelection()
            .ReadOnly = True
            .MultiSelect = False
        End With

    End Sub


    Private Sub Searchbtn_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        If txtKeyword.Text = "" Then
            MsgBox("Please key in your I/C or Passport Number.")
        Else
            Dim cantfine As String = txtKeyword.Text
            UserBindingSource.Filter = "(Convert([Username],'System.String') like '" & txtKeyword.Text & "')"

            If UserBindingSource.Count <> 0 Then
                With UserDataGridView
                    .DataSource = UserBindingSource
                End With
            Else
                MsgBox("Invalid Number")

                UserBindingSource.Filter = Nothing
                With UserDataGridView
                    .ClearSelection()
                    .ReadOnly = True
                    .MultiSelect = False
                    .DataSource = UserBindingSource

                End With
            End If
        End If
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        If MessageBox.Show("Are You Sure Want to DELETE this User account?", "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            UserBindingSource.RemoveCurrent()
        Else
            txtKeyword.Clear()
            Me.Show()
        End If
    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click




    End Sub
End Class