Jawaban Latihan VB Lanjutan Master Customer

Sub bersih( )

txtkocus.Text = " "

txtnacus.Text = " "

txtalamat.Text = " "

txttelp.Text = " "

opt1.Value = False

opt2.Value = False

cmdsimpan.Caption = "&SIMPAN"

End Sub

Sub aktif( )

txtkocus.Enabled = True

txtnacus.Enabled = True

txtalamat.Enabled = True

txttelp.Enabled = True

opt1.Enabled = True

opt2.Enabled = True

cmdedit.Enabled = True

cmdsimpan.Enabled = True

cmdhapus.Enabled = True

cmdbatal.Enabled = True

End Sub

Read More

Latihan Untuk Quiz VB Lanjutan

Lanjutan dari project Penjualan

Buatlah Form baru simpan nanti dengan nama : Customer

Buatlah Tabel baru didalam database penjualan.mdb dengan nama : customer

Name field	Type field	size
Kode_cus	Text	6
Nama_cus	Text	50
Jenis_kel	Text	10
alamat	Text	50
telp	Text	15

Lalu buatlah tampilan formnya menjadi berikut : (klik gambarnya kalau tidak jelas)

Ketentuan Latihannya :

1. Pada saat form di jalankan semua objek dalam keadaan tidak aktif
2. Objek yang aktif adalah tombol navigasi, ADD, CARI dan KELUAR
3. Ketika Tombol ADD di klik maka posisi kursor ada di txtkkocus dan Tombol simpan caption = SIMPAN
4. Kode customer di input, jika data sudah ada maka akan tampil pesan data sudah ada dan menampilkan data customer. Objek yang aktif tombol EDIT, HAPUS, UNDO, KELUAR. Jika kode yang di inputkan belum ada maka muncul pesan data belum ada kemudian di lanjutkan menginputkan nama customer, jenis kelamin, alamat dan telp kemudian Klik SIMPAN untuk menyimpan data
5. Tombol SIMPAN mempunyai 2 caption SIMPAN dan UPDATE.
6. Jika Tombol EDIT di klik maka tombol simpan berubah captionnya menjadi UPDATE, dan posisi kursor ada di nama customer. Kode customer tidak bisa diganti. Tombol UNDO aktif
7. Jika Tombol HAPUS di klik maka akan menghapus data
8. Tombol CARI menggunakan Input Box untuk pencarian datanya. Jika datanya ditemukan maka Tombol EDIT dan HAPUS akan aktif, jika tidak di temukan muncul pesan data tidak ditemukan.
9. Tombol UNDO untuk membatalkan tampilan
10. Tombol navigasi di gunakan untuk menavigasi record yang ada di dalam datagrid
11. Untuk option jenis kelamin
12. Jika opt1 dipilih maka akan menuliskan “Laki-Laki” di dalam field jenis_kel
13. Jika opt2 dipilih maka akan menuliskan “Perempuan” di dalam field jenis_kel
14. Buat sub aktif, tidak_aktif, bersih, caridata dan tampil

Nah, kerjakan dahulu latihan di atas dengan teliti membaca petunjuk logikanya yakh.. Untuk listing Tombol Navigasi berikut saya tampilkan :

Private Sub cmdback_Click( )

On Error Resume Next

tidak_aktif

cmdtambah.Enabled = True

adocust.Recordset.MovePrevious

If adocust.Recordset.BOF Then

MsgBox "SUDAH DIAWAL RECORD", , "INFO"

adocust.Recordset.MoveFirst

End If

End Sub

Private Sub cmdlast_Click( )

On Error Resume Next

If adocust.Recordset.EOF Then

MsgBox "SUDAH DIAKHIR RECORD", , "INFO"

End If

adocust.Recordset.MoveLast

tidak_aktif

cmdtambah.Enabled = True

End Sub

Read More

Materi VB II Membuat Form Transaksi, Laporan dengan Crystal Report dan Menu Utama

Walau sempat tertunda pemostingannya, materi ini terbit juga.. maaf yakh sudah terlambat mempostingkannya. materi kali ini lanjutan project penjualan yang akan kita buat. nah, kali ini kita buat form transaksi dan laporannya. pembuatan laporannya menggunakan software crystal report, yang merupakan software pendamping VB. kalau masih belum terinstal di komputer anda masing2, maka pembuatan laporannya tidak bisa dilakukan. Klik DISINI untuk download materi lengkapnya.
Semoga bermanfaat ilmunya... ^_^

Read More