Membuat aplikasi iventori Barang Sederhana dengan VB.Net Part 4

Nah kali ini saya akan membuat CRUD Data Barang pada form Barang setelah membuat kita module koneksi . langkah - langkah yang harus di lakukan adalah :
# Pada  solution  Explorer,    klik  2x  pada frmBarang untuk  mengaktifkan  form  barang pada IDE Visual Studio kita.
# Klik  2x  pada  badan  Form “frmBarang” yang  artinya,  kita  akan  di  arahkan  pada  lembar
kerja pada form data barang. Tepatnya pada Event Form Load()
Nah,  sama  halnya  kita  mengerjakan  kode pada  module  koneksi  diatas,  pada  paling  atas  lembar kerja kode, tambahkan kode berikut :

Imports MySql.Data.MySqlClient

Ada beberapa code yang ada di form barang ini antara lain :
# Menampilkan Data dalam Grid View
# Input Data Barang
# Ubah Data Barang
# Delete Data
# Clear Form

Baiklah kita bahas saja langsung satu per satu ya
#1 Menampilkan Data dalam Grid View
Silahkan Klik  2x  pada  badan  Form “frmBarang” yang  artinya,  kita  akan  di  arahkan  pada  lembar kerja pada form data barang. Tepatnya pada Event Form Load()  dan masuka code berikut :

Imports MySql.Data.MySqlClient
Public Class frmbarang
    Private Sub frmbarang_Load(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles MyBase.Load

        Call TabelBarang()

    End Sub

    Sub TabelBarang()
        Call bukaDB()
        DA = New MySqlDataAdapter("SELECT * FROM tbbarang", Conn)
        DS = New DataSet
        DA.Fill(DS, "tbbarang")
        DataGridView1.DataSource = DS.Tables("tbbarang")
        DataGridView1.ReadOnly = True
    End Sub

End Class

 Jika dijalankan Maka hasilnya seperti ini


#2 . Membersihkan Inputan pada Form Barang
buat sebuah sub baru dengan nama Bersih() kemudian isi dengan code ini :

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

Silahkan double klik pada tombol batal kemudian isi dengan code

Call Bersih()

#3.  Simpan Data Barang
Silahkan 2x klik pada button Simpan lalu isikan dengan kode berikut :

If Button1.Text = "Tambah" Then
            Button1.Text = "Simpan"
            TextBox1.Focus()
        Else
            Try
                Call bukaDB()
                CMD = New MySqlCommand("select kodebarang from tbbarang WHERE kodebarang='" & TextBox1.Text & "'", Conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If RD.HasRows Then
                    MsgBox("maaf Data Barang Dengan Kode Tersebet sudah ada", MsgBoxStyle.Exclamation, "peringatan")
                Else
                    Call bukaDB()
                    simpan = "insert into tbbarang (kodebarang,namabarang,harga,stok) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
                    CMD = New MySqlCommand(simpan, Conn)
                    CMD.ExecuteNonQuery()
                    Call TabelBarang()
                    Call Bersih()

                End If

            Catch ex As Exception

            End Try
        End If

 jika sudah selesai silahkan jalankan program anda dan jika berhasil maka hasilnya akan seperti ini :

Dan sekarang, Coba jalankan... tampilkan kembali frmDataBarang. Coba klik tambah, secara
otomatis  kursor  menuju  ke  Textbox1  dan  Text  yang  ada  di  tombol  Tambah  akan  berubah menjadi  Simpan,  lalu  isikan value pada  textbox –textbox  yang  ada dan  Klik  Simpan.  Jika Berhasil, data baru akan tampak pada DataGridView.
Logikanya kira kira seperti ini, hal pertama yang dilakukan program saat ingin menyimpan data, adalah  mengecek  apakah  data  yang  di  masukkan  sudah  ada  atau  belum.  Jika  tidak  ada,  maka simpan  kedalam  database,  Namun  jika  datanya  ada  munculkan  pesan  bahwasanya  data  dengan kode tersebut telah ada. Ini tampilan jika data yang di masukkan telah ada :


 # Menghapus Data Barang
Logika dari penghapusan data ini adalah sebagai berikut :

1. User akan melakukan Cari Data dahulu untuk data yang ingin dihapus.
2. Tekan Tombol Hapus

Masuk kembali ke desain frmBarang. Klik 2x pada tombol “Hapus” , Anda akan langsung
di arahkan ke Event Button3_Click(). lalu ketikkan kode berikut ini :

      Try
            Call bukaDB()
            hapus = "DELETE FROM tbbarang where kodebarang=@p1"
            CMD = Conn.CreateCommand
            With CMD
                .CommandText = hapus
                .Connection = Conn
                .Parameters.Add("p1", MySqlDbType.String, 4).Value = TextBox1.Text
                .ExecuteNonQuery()
            End With
            Call Bersih()
            Call TabelBarang()

        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan ")

        End Try

Penjelasan Logikanya seperti ini : Sebelum melakukan penghapusan data, pengguna akan
melakukan pencarian terlebih dahulu data yang ingin dihapus. Lalu, dengan menekan tombol
Hapus, maka data akan otomatis terhapus dari database.