Membuat Aplikasi Penjualan Sederhana Menggunakan VB.Net dan database Access 2010 (CRUD)

Saya Hafiz Ma'ruf dari kelas 1KA23 Universitas Gunadarma. 
Kali ini saya akan memposting tugas mata kuliah Algoritma dan Pemrograman 2B, mengenai pembuatan aplikasi penjualan menggunakan VB.Net dengan database Access 2010.

Berikut ini pembahasan mengenai program tersebut.

Pada program penjualan ini terdapat 3 input, yaitu input nama barang, harga barang, dan jumlah barang pada textbox disertai 4 tombol operasi (simpan, ubah, hapus, clear) pada form dari komponen toolbox yang disediakan.

1.     Langkah Pengerjaan :

a.    Buka software Ms. Office Access, lalu pilih Create Database. Beri nama database “dbPenjualan”.

b.    Lalu buat tabel dengan nama “tbPenjualan” dengan struktur tabel berikut.

c.    Setelah pembuatan database selesai, buka software Visual Studio 2010 lalu pilih New Project “Standard EXE”. 

d.    Klik project, lalu klik add module. Beri nama module tersebut dengan “ModulKoneksi”.

e.    Masukkan source code berikut ini pada code editor.

Imports System.Data.OleDb Module ModuleKoneksi     Public conn As OleDbConnection       Public da As OleDbDataAdapter     Public ds As DataSet     Public cmd As OleDbCommand     Public rd As OleDbDataReader     Public dgv As New DataGridView     Public Sub Koneksi()         conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\data\dbpenjualan.accdb")   //memilih jenis dan lokasi penyimpanan database access yang telah dibuat         conn.Open()     End Sub End Module

Source code di atas adalah code untuk mendeklarasikan variabel secara global/public. Sehingga variabel di atas dapat digunakan di semua komponen, seperti form dan class.

f.     Kemudian pada menustrip “Project”, klik add form. Beri nama “FormPenjualan”.

g.    Setelah itu, akan muncul tampilan form kosong dan kita dapat memasukkan beberapa komponen toolbox yang akan digunakan pada form tersebut. Berikut ini properties dari komponen-komponen toolbox yang akan digunakan :

h.   





Sesuaikan tampilan komponen toolbox pada form dengan tampilan form di bawah ini :

i.     Masukkan source code berikut ini pada code editor.

Imports System.Data.OleDb //kode di atas digunakan untuk mengimport library OleDb sebagai library database Ms.Access Public Class FormPenjualan     Private NomOt As String = ""     Sub TampilGrid()         da = New OleDbDataAdapter("select * from tbPenjualan", conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "tbPenjualan")         dgv.DataSource = ds.Tables("tbPenjualan")         dgv.ReadOnly = True     End Sub //kode di atas digunakan untuk menampilkan data dari database ke datagridview     Private Sub nomorpenjualan()         Koneksi()         Try             cmd = New OleDbCommand("SELECT TOP 1 right(no_penjualan,3) + 1 as nomor FROM tbPenjualan ORDER BY no_penjualan DESC ", conn)             rd = cmd.ExecuteReader             If rd.Read Then                 Select Case rd!nomor                     Case Is <= 9                         NomOt = "P-" & "00" & rd!nomor                     Case Is <= 99                         NomOt = "P-" & "0" & rd!nomor                 End Select             Else                 'tabel kosong                 NomOt = "P-" & "001"             End If             lblNoPenjualan.Text = NomOt         Catch ex As Exception             MessageBox.Show(ex.Message)         End Try     End Sub //kode di atas digunakan untuk membuat no penjualan secara otomatis     Private Sub FormPenjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call Koneksi()         Call TampilGrid()         Call nomorpenjualan()     End Sub //kode di atas digunakan untuk menampilkan form dengan kondisi-kondisi yang telah dibuat pada class-class     Private Sub txtCari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress         If e.KeyChar = Chr(13) Then             cmd = New OleDbCommand("select * from tbPenjualan where nama_brg  like '%" & txtCari.Text & "%' or harga_brg like '%" & txtCari.Text & "%' or no_penjualan like '%" & txtCari.Text & "%'", conn)             rd = cmd.ExecuteReader             rd.Read()             If rd.HasRows Then                 da = New OleDbDataAdapter("select * from tbPenjualan where nama_brg  like '%" & txtCari.Text & "%' or harga_brg like '%" & txtCari.Text & "%' or no_penjualan like '%" & txtCari.Text & "%'", conn)                 ds = New DataSet                 da.Fill(ds, "ketemu")                 dgv.DataSource = ds.Tables("ketemu")                 dgv.ReadOnly = True                 lblNoPenjualan.Text = rd.Item(0)                 txtNama.Text = rd.Item(1)                 txtHarga.Text = rd.Item(2)                 txtJumlah.Text = rd.Item(3)                 lblTotalHarga.Text = rd.Item(4)             Else                 MsgBox("data tidak ditemukan")             End If         End If     End Sub //kode di atas digunakan untuk mencari data     Private Sub txtJumlah_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged         lblTotalHarga.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)     End Sub //kode di atas digunakan untuk menghitung total harga     Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click         cmd = New OleDbCommand("INSERT INTO tbPenjualan VALUES ('" & NomOt & "','" & txtNama.Text & "','" & txtHarga.Text & "','" & txtJumlah.Text & "','" & lblTotalHarga.Text & "')", conn)         cmd.ExecuteNonQuery()         MsgBox("Berhasil Menyimpan Data !", MsgBoxStyle.Information)         Call TampilGrid()     End Sub //kode di atas digunakan untuk menyimpan data     Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click         cmd = New OleDbCommand("DELETE FROM tbPenjualan WHERE No_Penjualan = '" & lblNoPenjualan.Text & "'", conn)         cmd.ExecuteNonQuery()         MsgBox("Berhasil Menghapus Data !", MsgBoxStyle.Information)         Call TampilGrid()     End Sub //kode di atas digunakan untuk menghapus data     Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click         cmd = New OleDbCommand("UPDATE tbPenjualan SET nama_brg = '" & txtNama.Text & "', harga_brg = '" & txtHarga.Text & "', jumlah_brg = '" & txtJumlah.Text & "', total_harga = '" & lblTotalHarga.Text & "' WHERE no_penjualan = '" & lblNoPenjualan.Text & "'", conn)         cmd.ExecuteNonQuery()         MsgBox("Berhasil Mengubah Data !", MsgBoxStyle.Information)         Call TampilGrid()     End Sub //kode di atas digunakan untuk mengubah data     Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click         lblNoPenjualan.Text = NomOt         txtNama.Text = ""         txtHarga.Text = ""         txtJumlah.Text = ""         lblTotalHarga.Text = ""     End Sub //kode di atas digunakan untuk membatalkan penginputan     End Class

j.     Jalankan aplikasi penjualan dengan menekan tombol F5.

2.   
Cara Kerja Program :

a.    Masukkan nama, harga, dan jumlah barang pada textbox yang tersedia. No penjualan akan secara otomatis muncul, jadi kita tidak perlu mengetikkan no penjualan secara manual. Total harga diperoleh dari hasil perkalian jumlah barang dengan harga barang.

b.    Ketika anda mengklik tombol Simpan, maka data yang anda ketikkan akan tersimpan di database dan muncul secara otomatis di datagridview  pada form.

c.    Ketika anda mengklik tombol Ubah, maka data yang ingin anda ubah akan terupdate di database dan muncul secara otomatis di datagridview  pada form.

d.    Ketika anda mengklik tombol Hapus, maka data yang telah anda simpan di database akan terhapus.

e.    Ketika anda mengklik tombol Clear, maka inputan yang anda ketik bisa dibatalkan sehingga textbox inputan menjadi kosong seperti saat penginputan awal.

f.     Ketika anda ingin mencari data secara detail, maka anda dapat menginput data yang anda ingin cari pada textbox cari.

~~~~~~~~~~~~~~~~SELESAI~~~~~~~~~~~~~~~~~

*blog sedang dalam perbaikan, maaf