Kali ini kita akan membuat lanjutan dari project PRA_UAS nya... yang akan kita buat adalah form transaksi.. nah transaksi kali ini menggunakan gabungan data picker, dan list box seperti tampilan berikut ini :
Buat Tampilannya menjadi sebagai berikut :
dengan ketentuan logikanya sebagai berikut :
Kemudian Ketikkan Listing sebagai berikut :
Buat Tampilannya menjadi sebagai berikut :
dengan ketentuan logikanya sebagai berikut :
- Buat sub tidak_aktif, bersih, koneksi_refresh, hapus, bersih_brg,dan no_baru
- Ketika di jalankan semua tombol dalam keadaan non aktif. Tombol yang aktif hanya tambah dan Keluar. Fokus di tombol tambah
- Tombol Tambah di klik maka Nota muncul otomatis. Tanggal transaksi menggunakan data picker. Pilih Kode user yang akan otomatis memunculkan nama user. Tombol simpan dan batal aktif. Tombol tambah dan keluar tidak aktif
- Pilih Kode barang yang ada di listbrg, Secara otomatis akan menampilkan nama barang dan harga. Posisi kursor focus di qty.
- Input jumlah QTY. jika > dari stok barang akan muncul pesan “Stok Tidak Cukup” , dan posisi kursor masih di QTY. jika tidak maka akan melakukan perhitungan subtotal = harga * qty dan kemudian memasukkan data barang tersebut kedalam grid sementara.
- Kemudian muncul message box “Ingin beli lagi ?” jika ya maka akan mengulang proses No 4. Jika tidak akan dilakukan perhitungan Total bayar = subtotal + total bayar. Dan posisi kursor ada di uang bayar.
- Uang bayar di input maka akan menghitung uang kembali = uang bayar – total bayar
- Tombol simpan di klik maka akan menyimpan data transaksi kedalam tabel transaksi dan detail transaksi. Kemudian mengedit stok barang di data barang = stok barang – qty
- Tombol batal untuk membatalkan transaksi
- Tombol keluar untuk menutup program dengan message box
Kemudian Ketikkan Listing sebagai berikut :
Sub bersih( )
txtnota.Text = " "
cbuser.Text = "Pilih"
txtnama_user.Text = " "
listbrg.ListIndex = -1
txtnabar.Text = " "
txthrg.Text = " "
txtqty.Text = " "
txtsub.Text = " "
txttotal.Text = " "
txtbayar.Text = " "
txtkembali.Text = " "
End Sub
Sub koneksi_refresh( )
conn.CursorLocation = adUseClient
rstmp.Open "sementara", conn
With rstmp
If Not (.BOF And .EOF) Then
a = .Bookmark
End If
End With
Set gridtmp.DataSource = rstmp.DataSource
End Sub
