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

Private Sub cmdtop_Click( )

adocust.Recordset.MoveFirst

If adocust.Recordset.BOF Then

MsgBox "SUDAH DIAWAL RECORD", , "INFO"

End If

cmdtambah.Enabled = True

cmdcari.Enabled = True

End Sub

Private Sub cmdnext_Click( )

tidak_aktif

cmdtambah.Enabled = True

adocust.Recordset.MoveNext

If adocust.Recordset.EOF Then

MsgBox "SUDAH DIAKHIR RECORD", , "INFO"

adocust.Recordset.MoveLast

End If

End Sub

Selamat Mengerjakan Latihannya.. Anda Pasti Bisa !!! Ganbatte Kudasai...^_^