Cara membuatnya yaitu dengn mengatur form seperti diatas , setelah itu atur tabel tersebut seperti tabel di bawah ini:
Setelah itu masukan Source kode berikut dan sesuaikan data basenya supaya aplikasi bisa berjalan sempurna :
Source kode --->
Private Sub cmdproses_Click()
Dim total As Double
total = Val(txths.Text) * Val(txtjb.Text)
txtht.Text = total
End Sub
Private Sub cmdproses2_Click()
Dim kembali As Double
kembali = Val(txtkembali.Text) - Val(txtht.Text)
lbkembali.Caption = "Rp." & kembali
End Sub
Private Sub cmdbaru_Click()
dbpenjualan.Recordset.AddNew
txtnp.Text = ""
txtnb.Text = ""
txths.Text = ""
txtjb.Text = ""
txtht.Text = ""
txtkembali.Text = ""
txtnp.Locked = False
txtnb.Locked = False
txths.Locked = False
txtjb.Locked = False
txtnp.SetFocus
End Sub
Private Sub cmdsimpan_Click()
dbpenjualan.Recordset!nama_pembeli = txtnp.Text
dbpenjualan.Recordset!nama_barang = txtnb.Text
dbpenjualan.Recordset!harga_satuan = txths.Text
dbpenjualan.Recordset!jumlah_barang = txtjb.Text
dbpenjualan.Recordset!total_harga = txtht.Text
dbpenjualan.Recordset.Update
End Sub
Private Sub cmdedit_Click()
With dbpenjualan.Recordset
txtnp.Text = dbpenjualan.Recordset!nama_pembeli
txtnb.Text = dbpenjualan.Recordset!nama_barang
txths.Text = dbpenjualan.Recordset!harga_satuan
txtjb.Text = dbpenjualan.Recordset!jumlah_barang
txtht.Text = dbpenjualan.Recordset!total_harga
End With
txtnp.Locked = False
txtnb.Locked = False
txths.Locked = False
txtjb.Locked = False
End Sub
Private Sub cmdhapus_Click()
dbpenjualan.Recordset.Delete
DataGrid1.Refresh
End Sub
Private Sub cmdulang_Click()
txtnp.Text = ""
txtnb.Text = ""
txths.Text = ""
txtjb.Text = ""
txtht.Text = ""
txtkembali.Text = ""
txtnp.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Silahkan dicoba jika tidak bisa silahkan Comment di bawah Terimkasih....