[VB.NET] تجميع ازرار البحث بزر واحد

كود :
Imports System.Data

Imports System.Data.OleDb



Public Class Form1

    Dim cmdselect As New OleDbCommand

    Dim connAccess2005 As New OleDbConnection

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        connAccess2005.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\data.mdb"

    End Sub



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)

        ' زر الحفظ



        connAccess2005.Open()



        Try

            Dim cmdinsert As New OleDbCommand("insert into tan (namemt, idmt, numq) values ('" & txtname_m.Text & "','" & txtid_m.Text & "','" & txtnum_q.Text & "')")

            cmdinsert.Connection = connAccess2005

            cmdinsert.ExecuteNonQuery()

            MsgBox("تم حفظ البيانات بنجاح")

            txtname_m.Clear()

            txtid_m.Clear()

            txtnum_q.Clear()



        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try

        connAccess2005.Close()

    End Sub



    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        '  البحث بالاسم



        connAccess2005.Open()

        Try

            Dim cmdselect As New OleDbCommand("SELECT * FROM [tan] WHERE [namemt] LIKE '%" & txtname_m.Text & "%'", connAccess2005)

            Dim da As New OleDbDataAdapter(cmdselect)

            Dim re As OleDbDataReader

            re = cmdselect.ExecuteReader

            If re.Read Then

                txtname_m.Text = re(0).ToString

                txtnum_q.Text = re(2).ToString

                txtid_m.Text = re(1).ToString



            Else

                MsgBox("بيانات الشخص غير موجوده قم باضافتها")

                txtname_m.Clear()

                txtnum_q.Clear()

                txtid_m.Clear()



            End If

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try



        connAccess2005.Close()

    End Sub



    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)



        '  البحث بالهويه



        connAccess2005.Open()

        Try

            Dim cmdselect As New OleDbCommand

            cmdselect.Connection = connAccess2005

            cmdselect.CommandText = " select * from tan where idmt = '" + txtid_m.Text + "' "

            Dim re As OleDbDataReader

            re = cmdselect.ExecuteReader

            If re.Read Then

                txtname_m.Text = re(0).ToString

                txtnum_q.Text = re(2).ToString

                txtid_m.Text = re(1).ToString



            Else

                MsgBox("بيانات الشخص غير موجوده قم باضافتها")

                txtname_m.Clear()

                txtnum_q.Clear()

                txtid_m.Clear()

            End If

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try



        connAccess2005.Close()

    End Sub



    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)



        ' البحث برقم الجوال



        connAccess2005.Open()

        Try

            Dim cmdselect As New OleDbCommand

            cmdselect.Connection = connAccess2005

            cmdselect.CommandText = " select * from tan where numq = '" + txtnum_q.Text + "' "

            Dim re As OleDbDataReader

            re = cmdselect.ExecuteReader

            If re.Read Then

                txtname_m.Text = re(0).ToString

                txtnum_q.Text = re(2).ToString

                txtid_m.Text = re(1).ToString



            Else

                MsgBox("بيانات الشخص غير موجوده قم باضافتها")

                txtname_m.Clear()

                txtnum_q.Clear()

                txtid_m.Clear()

            End If

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try



        connAccess2005.Close()

    End Sub



    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

        'مسح البيانات الموجوده



        txtname_m.Text = ""

        txtid_m.Text = ""

        txtnum_q.Text = ""

    End Sub

End Class