Contoh Latihan Soal VB1 "Toko Ceria"

Posted by Awan Setio Budi at Selasa, Januari 07, 2014 Read our previous post

1. Buat database baru dengan nama toko_ceria.mdb
2. Dalam database tersebut buat 2 tabel baru yaitu : tabel_barang dan tabel_transaksi
    Buat seperti berikut :

    - tabel_barang


    - tabel_transaksi

3. Kemudian isikan recordnya seperti berikut :

4. Kemudian Buat Tampilan Formnya seperti berikut :

5. Menggunakan 2 ADODC dan 1 DataGrid untuk menampilkan data (tabel_transaksi) dari salah satu
    ADOCD (adotransaksi)

6. Tambahkan 2 Components baru untuk memunculkan ADODC (Microsoft ADO Data Control 6.0 (OLEDB)) dan DataGrid (Microsoft DataGrid Control 6.0 (OLEDB)), caranya klik kanan pada ToolBox pada VB6 kemudian pilih Components dan Checklist  :

Jika Rancangan Form dan Database sudah siap maka berikutnya adalah mulai proses pengkodean (Listing).

1. Logika Program
- Buat Prosedur aktif, nonaktif dan bersih
- Form dijalankan dalam keadaan nonaktif dan bersih
- Tombol Tambah diklik maka form menjadi aktif
- Pada Form, textbox "No Transaksi" muncul otomatis ketika diklik tombol Tambah.
- Pada Form, textbox "Kode Barang" diisi maka otomatis textbox "Nama Barang" dan "Harga" terisi.    (Data diambil dari Adobarang yang sudah dikoneksikan dengan tabel_barang).
- Pada Form, textbox "Jumlah" diinput maka otomatis muncul hasilnya pada textbox "Total"
- Pada Form, textbox "Pembayaran" diinput maka textbox "Kembalian" muncul.
   (Hasil dari hasil pengurangan Pembayaran dikurangi Total).

2. Listingan :

Private Sub cmdfirst_Click() adotransaksi.Recordset.MoveFirst End Sub Private Sub cmdhapus_Click() If MsgBox("Hapus data ini", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then adotransaksi.Recordset.Delete End If End Sub Private Sub cmdkeluar_Click() If MsgBox("Yakin akan keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then End End If End Sub Private Sub cmdlast_Click() adotransaksi.Recordset.MoveLast End Sub Private Sub cmdnext_Click() adotransaksi.Recordset.MoveNext If adotransaksi.Recordset.EOF Then MsgBox ("Data sudah diakhir") adotransaksi.Recordset.MoveLast End If End Sub Private Sub cmdprevious_Click() adotransaksi.Recordset.MovePrevious If adotransaksi.Recordset.BOF Then MsgBox ("Data sudah diawal") adotransaksi.Recordset.MoveFirst End If End Sub Private Sub cmdsimpan_Click() With adotransaksi.Recordset adotransaksi.Recordset.Find "no_transaksi='" & txtnotransaksi.Text & "'", , adSearchForward If adotransaksi.Recordset.EOF Then .AddNew !no_transaksi = txtnotransaksi.Text !tanggal_transaksi = txttanggal.Text !nama_pelanggan = txtnamapelanggan.Text !alamat = txtalamat.Text !kode_barang = txtkodebarang.Text !jumlah = txtjumlah.Text !total = txttotal.Text !pembayaran = txtpembayaran.Text !kembalian = txtkembalian.Text .Update Else !no_transaksi = txtnotransaksi.Text !tanggal_transaksi = txttanggal.Text !nama_pelanggan = txtnamapelanggan.Text !alamat = txtalamat.Text !kode_barang = txtkodebarang.Text !jumlah = txtjumlah.Text !total = txttotal.Text !pembayaran = txtpembayaran.Text !kembalian = txtkembalian.Text .Update End If End With Call bersih End Sub Private Sub cmdtambah_Click() Call aktif Call nomor txtnamapelanggan.SetFocus End Sub Private Sub Form_Load() Call nonaktif End Sub Sub nomor() Dim urutan As String Dim hitung As Integer With adotransaksi.Recordset If .RecordCount = 0 Then urutan = "TRS01" txtnotransaksi.Text = urutan Else .MoveLast hitung = Val(Right(!no_transaksi, 2)) + 1 urutan = "TRS" & Right("00" & hitung, 2) txtnotransaksi.Text = urutan End If End With End Sub Sub bersih() txtnotransaksi.Text = "" txtnamapelanggan.Text = "" txttanggal.Text = "" txtalamat.Text = "" txtkodebarang.Text = "" txtnamabarang.Text = "" txtharga.Text = "" txtjumlah.Text = "" txtharga.Text = "" txttotal.Text = "" txtpembayaran.Text = "" txtkembalian.Text = "" End Sub Sub aktif() txtnotransaksi.Enabled = True txtnamapelanggan.Enabled = True txttanggal.Enabled = True txtalamat.Enabled = True txtkodebarang.Enabled = True txtnamabarang.Enabled = True txtharga.Enabled = True txtjumlah.Enabled = True txtharga.Enabled = True txttotal.Enabled = True txtpembayaran.Enabled = True txtkembalian.Enabled = True 'cmdtambah.Enabled = False 'cmdsimpan.Enabled = True 'cmdhapus.Enabled = True 'cmdkeluar.Enabled = False End Sub Sub nonaktif() txtnotransaksi.Enabled = False txtnamapelanggan.Enabled = False txttanggal.Enabled = False txtalamat.Enabled = False txtkodebarang.Enabled = False txtnamabarang.Enabled = False txtharga.Enabled = False txtjumlah.Enabled = False txtharga.Enabled = False txttotal.Enabled = False txtpembayaran.Enabled = False txtkembalian.Enabled = False 'cmdtambah.Enabled = True 'cmdsimpan.Enabled = False 'cmdhapus.Enabled = False 'cmdkeluar.Enabled = True End Sub Private Sub Timer1_Timer() txttanggal.Text = Date End Sub Private Sub txtalamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtkodebarang.SetFocus End If End Sub Private Sub txtjumlah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal.Text = Val(txtjumlah.Text) * Val(txtharga.Text) txtpembayaran.SetFocus End If End Sub Private Sub txtkodebarang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then adobarang.Refresh With adobarang.Recordset adobarang.Recordset.Find "kode_barang='" & txtkodebarang & "'", , adSearchForward If Not adobarang.Recordset.EOF Then txtkodebarang.Text = !kode_barang txtnamabarang.Text = !nama_barang txtharga.Text = !harga txtjumlah.SetFocus Else MsgBox ("Data tidak ditemukan") txtkodebarang.Text = "" txtkodebarang.SetFocus End If End With End If End Sub Private Sub txtnamapelanggan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub Private Sub txtpembayaran_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtkembalian.Text = Val(txtpembayaran.Text) - Val(txttotal.Text) cmdsimpan.SetFocus End If End Sub

ARTIKEL TERKAIT :