Membuat button simpan, edit,batal dan textbox cari

Penggunaan button (tombol-tombol) pada program aplikasi berfungsi untuk menyimpan, mengedit dan menghapus yang terkoneksi dengan database. Kali ini saya membuat bagaimana pembuatan dari button serta pencarian dalam textbox, sebelumnya telah dijelaskan bagaimana menampilkan database pada datagridview. Berikut  adalah interfacenya bisa terlihat pada gambar berikut:

Coding:

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim con As New MySqlConnection(strkon)
    Dim perintah As New MySqlCommand
    Dim cek As MySqlDataReader
    Dim data As New MySqlDataAdapter
    Dim aktn As Integer
    Dim simpan As Boolean

'----------

'Button simpan

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If simpan = True Then
            prosesdisplay("insert into barang (IDBarang, NamaBarang, StockBarang, HargaBarang) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')")
            clearinput()
            tidakaktiftextbox()
        Else
            prosesdisplay("update barang set NamaBarang='" & TextBox2.Text & "',StockBarang='" & TextBox3.Text & "',HargaBarang='" & TextBox4.Text & "' where IDBarang='" & TextBox1.Text & "'")
        End If
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False

    End Sub
'-----------

'Button edit

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "update barang set NamaBarang='" & TextBox2.Text & "',StockBarang='" & TextBox3.Text & "',HargaBarang='" & TextBox4.Text & "' where IDBarang='" & TextBox1.Text & "'"
        perintah.ExecuteNonQuery()
        con.Close()
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
    End Sub

'----------

'Button Batal

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tidakaktiftextbox()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button1.Focus()
    End Sub

'----------

'Button hapus

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("Yakin mau dihapus", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            prosesdisplay("delete ignore from  barang where IDBarang='" & TextBox1.Text & "'")
        End If
        clearinput()
        MsgBox("Data Sukses Dihapus", MsgBoxStyle.Information)
        tidakaktiftextbox()
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
    End Sub

'----------

'Untuk menampilkan data pada datagridview

    Sub tampil()
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "select * from barang"
        Dim mda As New MySqlDataAdapter
        mda.SelectCommand = perintah
        Dim dspem As New DataSet
        mda.Fill(dspem, "IDBarang")
        DataGridView1.DataSource = dspem.Tables("IDBarang")
        con.Close()
    End Sub

'----------

'koneksi tampilan database

    Sub prosesdisplay(ByVal sql As String)
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = sql
        perintah.ExecuteNonQuery()
        con.Close()
    End Sub

'----------

'Membersihkan textbox

    Sub clearinput()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

'----------

'pencarian data pada datagridview

 

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        displaymhs("select * from barang where IDbarang like '%" & TextBox7.Text & "%' or NamaBarang like '%" & TextBox7.Text & "%'order by IDBarang")
    End Sub

'----------

'Penggunaan tombol enter pada keyboard

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox2.Focus()
        End Select
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox3.Focus()
        End Select
    End Sub

    Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox4.Focus()
        End Select
    End Sub

End Class

Semoga bermanfaat.