Scripts Vb CRUD

Imports MySql.Data.MySqlClient

    Dim mysqlconn As MySqlConnection
    Dim reader As MySqlDataReader
    Dim cmd As MySqlCommand
    Dim ds As DataSet
    Sub koneksi()
        Try
            mysqlconn = New MySqlConnection
            mysqlconn.ConnectionString = "server=127.0.0.1;user id=root;database=....."
            mysqlconn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub tampil()
        Dim msd As New MySqlDataAdapter
        Dim dt As New DataTable
        Dim bs As New BindingSource
        Try
            koneksi()
            Dim query As String
            query = "SELECT * FROM tb..."
            cmd = New MySqlCommand(query, mysqlconn)
            msd.SelectCommand = cmd
            msd.Fill(dt)
            bs.DataSource = dt
            DGV.DataSource = bs
            msd.Update(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        DGV.Columns(0).HeaderText = ""
        DGV.Columns(0).Width = 210
    End Sub
    Sub Login()
        koneksi()
        Dim query As String
        query = "SELECT * FROM tb_user WHERE user='" & Txtuser.Text & "' and Password='" & Password.Text & "'"
        cmd = New MySqlCommand(query, mysqlconn)
        reader = cmd.ExecuteReader
        reader.Read()
        If reader.HasRows Then
            MsgBox("LOGIN BERHASIL")
            form.show()
        Else
            MsgBox("Pass/User Salah")
            reader.close()
        End If
        mysqlconn.close()
    End Sub
    Sub ref_tombol()
        btn.BackColor = Color.FromArgb(85, 85, 85)
    End Sub
    Sub ref_tombol()
        form.close()
    End Sub
    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        tutup()
        ref_tombol()
        btn.BackColor = Color.FromArgb(70, 70, 70)
        Panel7.Show()
        Panel7.Location = New Point(0, btn.Location.Y)
        form.TopLevel = False
        PnlIsi.Controls.Add(form)
        form.Show()
    End Sub
    Sub simpan()
        Try
            Dim query As String
            If TxtKode.Text = "" Or TxtNama.Text = "" Then
                MsgBox("Data masih ada yang kosong")
                Exit Sub
            Else
                koneksi()
                query = "SELECT * FROM tb_barang WHERE Kode_Barang='" & TxtKode.Text & "'"
                cmd = New MySqlCommand(query, mysqlconn)
                reader = cmd.ExecuteReader
                reader.Read()
                If reader.HasRows = True Then
                    MsgBox("Data telah ada sebelumnya", vbInformation + vbOKOnly, "Pesan")
                    BtnSimpan.Enabled = False
                    Call tampil()
                Else
                    koneksi()
                    query = "INSERT INTO tb_barang VALUES ('" & TxtKode.Text & "','" & TxtNama.Text & "')"
                    cmd = New MySqlCommand(query, mysqlconn)
                    reader = cmd.ExecuteReader
                    MessageBox.Show("Data Tersimpan")
                    tampil()
                    bersih()
                    mysqlconn.Close()
                End If
                reader.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Ubah()
        Try
            If TxtKode.Text = "" Then
                MsgBox("Kode Masih Kosong")
                BtnBatal.Focus()
                Exit Sub
            Else
                koneksi()
                Dim query As String
                query = "UPDATE tb_barang SET Nama_Barang='" & TxtNama.Text & "',Satuan='" & TextBox3.Text & "' WHERE Kode_Barang='" & TxtKode.Text & "'"
                cmd = New MySqlCommand(query, mysqlconn)
                reader = cmd.ExecuteReader
                MessageBox.Show("Data Terubah")
                tampil()
                bersih()
                mysqlconn.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Hapus()
         If TxtKode.Text = "" Then
            MsgBox("Kode Masih Kosong")
            BtnBatal.Focus()
            Exit Sub
        Else
            If MessageBox.Show("Anda Yakin Ingin Menghapus Data..?", "Konfirmasi", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Try
                    koneksi()
                    Dim query As String
                    query = "DELETE FROM tb_barang WHERE Kode_Barang ='" & TxtKode.Text & "'"
                    cmd = New MySqlCommand(query, mysqlconn)
                    reader = cmd.ExecuteReader
                    MessageBox.Show("Data Terhapus")
                    bersih()
                    tampil()
                    tampil_supplier()
                    TxtKode.Focus()
                    mysqlconn.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                Call bersih()
                Call tampil()
            End If
        End If
    End Sub
    Sub Tampil2()
        Try
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.Tables.Add(dt)
            Dim da As New MySqlDataAdapter("SELECT * FROM tb_supplier", mysqlconn)
            da.Fill(dt)
            Dim r As DataRow
            ComboBox1.Items.Clear()
            For Each r In dt.Rows
                ComboBox1.Items.Add(r.Item(0).ToString)
            Next
        Catch ex As Exception
             MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub TxtKode_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtKode.KeyPress
        If e.KeyChar = Chr(13) Then
            koneksi()
            Dim query As String
            query = "SELECT * FROM tb_barang WHERE Kode_Barang = '" & TxtKode.Text & "'"
            cmd = New MySqlCommand(query, mysqlconn)
            reader = cmd.ExecuteReader
            reader.Read()
            If reader.HasRows = True Then
                MsgBox("Data Ditemukan")
                TxtKode.Text = reader.Item("Kode_Barang")
                TxtNama.Text = reader.Item("Nama_Barang")
                TxtKode.Enabled = False
                BtnSimpan.Enabled = False
                BtnHapus.Enabled = True
                BtnUbah.Enabled = True
                BtnBatal.Focus()
            Else
                TxtNama.Focus()
            End If
            reader.Close()
            mysqlconn.Close()
        End If
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True
    End Sub
    Sub Cari()
        koneksi()
        Dim query As String
        query = "SELECT * FROM tb_barang WHERE Kode_Barang like  '%" & TxtCari.Text & "%' or Nama_Barang like  '%" & TxtCari.Text & "%'"
        cmd = New MySqlCommand(query, mysqlconn)
        reader = cmd.ExecuteReader
        Dim tampil_barang As New DataTable
        tampil_barang.Load(reader)
        DGV.DataSource = tampil_barang
    End Sub
' Color :> Button : 57, 158, 187
'                   242, 111, 141
'                   209, 23, 37
'                   85, 85, 85
'       :> Header : 61, 182, 177