14 Apr 2011


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...^_^

Tagged: ,

0 komentar:

Posting Komentar