OK session kali ini saya akan membahas sedikit program ber database Microsoft Access. Lets make program.
Langkah pertama, kita buat dahulu database nya dengan langkah sebagai berikut :
- Buka program Microsoft Access
- Klik File dan pilih Blank database (Tentukan nama dan destination nya)
- Buat Table dengan kolom (ID, Tanggal, Nama, Quantity, Harga, TotalHarga, dan Kasir)
- Save program dan exit
Buka program VB.Net / Visual Studio 2008.
Buat project baru dengan cara :
- Klik File (Pada Toolbar)
- Pilih New
- Pilih Project
- Pilih Windows Form Aplication (Setting Name, Location, Solution dan Solution Name) lalu OK
Dan buat tampilan dengan ukuran yang kita inginkan terlebih dahulu,dan pilih Menu Strip pada Toolbox. Lalu isi Menu Strip sesuai dengan nama Menu (Cashier, History, dan Exit), boleh juga ditambahkan denganapa yang kita mau.
.Contoh Menu Picture
Dengan coding sebagai berikut
'Subrutin untuk memanggil form Cashier / Project lain
Public Class Menu
Private Sub CashierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CashierToolStripMenuItem.Click
Call Cashier.Show()
End Sub
'Subrutin untuk memanggil form History / Project lain
Private Sub HistoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HistoryToolStripMenuItem.Click
Call History.Show()
End Sub
'Subrutin untuk memanggil form Help / Project lain
Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
Call Help.Show()
End Sub
'Subrutin untuk menutup program
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class
Dan buat Form kedua untuk menjalankan program Cashier yang ada di Menu dengan Step sebagai berikut :
- Klik Project (Pada Toolbar)
- Pilih Add Windows Form
- Pilih Windows Form (Tentukan Nama Form) lalu OK
Dan buat tampilan dengan ukuran yang kita inginkan terlebih dahulu,dan pilih Label (untuk membuat nama), combobox (untuk menampilkan pilihan), Groupbox (untuk membuat pemilah dalam tampilan), Textbox (untuk diisi), dan Button (untuk menjalankan program) pada Toolbox. Lalu isi ubah Properties nya agar lebih mudah dipahami sesuai dengan yang kita inginkan.
.Contoh Cashier Picture
Dengan coding sebagai berikut :
Imports System.Data.OleDb
Public Class Cashier
'Skrip ini untuk membuat koneksi antara VB.NET dengan database (access)
Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\apotik.mdb"
'Subrutin ini akan menampilkan daftar record yang ada didatabase ke dalam Data Grid View dan menampilkan daftar harga pada form Cashier
Private Sub cboNama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNama.SelectedIndexChanged
Dim Paramex, Panadol, Dekolgen, Antangin, Hansaplast As Integer
Select Case cboNama.SelectedIndex
Case 0
Paramex = 3500
txt_harga.Text = Paramex
Case 1
Panadol = 3000
txt_harga.Text = Panadol
Case 2
Dekolgen = 2500
txt_harga.Text = Dekolgen
Case 3
Antangin = 1000
txt_harga.Text = Antangin
Case 4
Hansaplast = 500
txt_harga.Text = Hansaplast
End Select
End Sub
'Subrutin ini berisi pernyataan untuk memindahkan data dari form ke dalam database dengan kata lain menambah data atau menyimpan data
Private Sub add()
Dim adp As OleDbDataAdapter, tbl As New DataTable
adp = New OleDbDataAdapter("Select * From Apk", con)
tbl.Clear()
adp.Fill(tbl)
Dim row As DataRow = tbl.NewRow
row("Tanggal") = DateTime.Text
row("Nama") = cboNama.Text
row("Quantity") = txt_qty.Text
row("Harga") = txt_harga.Text
row("TotalHarga") = txt_total.Text
row("Kasir") = cboKasir.Text
tbl.Rows.Add(row)
Dim comb As New OleDbCommandBuilder(adp)
adp.Update(tbl)
Clear()
End Sub
'Subrutin untuk memastikan bahwa NIM, Nama dan Tempat tidak boleh kosong
Private Sub Check_Isi()
If (cboKasir.Text = "") Then
MsgBox("Siapa Ini..??")
ElseIf (cboNama.Text = "") Then
MsgBox("Pilih nama barang")
ElseIf (txt_qty.Text = "") Then
MsgBox("Masukkan jumlah barang")
ElseIf (txt_harga.Text = "") Then
MsgBox("Masukkan harga barang")
End If
End Sub
'Subrutin untuk mengosongkan form
Sub Clear()
cboNama.Text = ""
txt_qty.Text = ""
txt_harga.Text = ""
txt_total.Text = ""
End Sub
'Subrutin untuk Menghitung form yang diisi
Private Sub btn_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hitung.Click
Check_Isi()
txt_total.Text = txt_harga.Text * txt_qty.Text
End Sub
'Subrutin ini merupakan even dari tombol Simpan yang memanggil subrutin Check_Isi, Add dan Clear
Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
Check_Isi()
add()
Clear()
End Sub
'Subrutin ini merupakan even dari tombol Keluar
Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click
Close()
End Sub
End Class
Langkah terakhir buat Form History dengan langkah seperti membuat Form Cashier, namun hanya menggunakan DataGridView (Menampilkan Database yang tersimpan) dan Button.
.Contoh History Picture
Dengan coding sebagai berikut :
Imports System.Data.OleDb
Public Class History
'Skrip ini untuk membuat koneksi antara VB.NET dengan database (access)
Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\apotik.mdb"
Private Sub load_recid()
Dim adp As OleDbDataAdapter, tbl As New DataTable
adp = New OleDbDataAdapter("Select * From Apk", con)
tbl.Clear()
adp.Fill(tbl)
'adp.Fill(tbl)
dgvStock.DataSource = tbl
End Sub
'Subrutin ini merupakan even dari tombol Simpan yang memanggil subrutin
Private Sub btn_Preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Preview.Click
load_recid()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
End Class
Setelah diisikan coding dan sudah di save, kita masukkan dahulu database yang sudah dibuat tadi, dengan cara copy database dan paste di folder anda, contoh WindowsApplication1\Bin\Debug\. Lalu jalan kan programnya.
Selamat mencoba :D
