Membuat Nomor Nota Otomatis pada Visual Basic
Ahmad Rizal Abidin, M.Kom
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008
a. Mangaktifkan VB 6.0, dengan cara klik start, Klik Microsoft Visual Studio 6.0 dan klik Microsoft Visual Basic 6.0.
b. Setelah tampil Windows Projects, Klik Cancel
c. Klik menu file, Klik Open Project, bukalah project yang sudah dibuat pada Membuat Menu Utama pada VB
d. Setelah project terbuka, double klik frmtransaksi pada window project sebagai berikut :
Gambar 1. Form Transaksi
Langkah selanjutnya membuat koding nomor nota secara otomatis pada form load, yang akan dibuat dengan format mmtt.99999
mm : untuk menampung 2 digit angka bulan
tt : untuk menampung 2 digit tahun terakhir
99999 : untuk menampung urutan data yang disesuaikan atau dilengkapi dengan angka 0
e. Untuk membuat nomor otomatis tersebut dapat dilakukan dengan cara double klik form (pada gambar yang ada titiknya), setelah itu ketik koding berikut :
Private Sub Form_Load() konek konekdb.CursorLocation = adUseClient strsql = "select * from pelanggan" Set rs = konekdb.Execute(strsql) Set dckode.RowSource = rs dckode.ListField = "IdPelanggan" strsql = "select * from produk" Set rs = konekdb.Execute(strsql) Set DataCombo2.RowSource = rs DataCombo2.ListField = "idproduk" strsql = "select * from trans" Set rs = kondb.Execute(strsql) rs.MoveLast If rs.RecordCount = 0 Then nomor = “00001” Else nomor = right(Val(rs!nota),5) + 1 End If n = "0" For i = 1 To (4 - Len(nomor)) n = n + "0" Next nonota = n&nomor txtnota.Text = Right(0&(Month(Date)), 2) & Right(Year(Date), 2) & nonota End Sub
Setelah selesai mengetikkan koding tersebut ujilah form dengan cara klik menu run, klik start, tetapi pastikan database sudah terbuat, mysql sudah aktif dan jangan lupa dsnnyapun sudah dibuat baca tentang makalah basis data. Dan perlu diperhatikan dan dipastikan panjang digit untuk nota pada table transaksi hendaknya 9 digit.
Catatan : setiap kali membuat koding pada suatu objek uji program tersebut, ini digunakan agar kita memahami apa yang telah kita buat.
f. Membuat filter pada text5 (textboxnya qty), dengan logika jika data yang diinputkan bukan angka maka akan ditampilkan messagebox “Salah input dengan menambahkan koding berikut :
If Not (txtbeli >= "0" And txtbeli <= "9") Then MsgBox "Maaf anda salah masukkan data" txtbeli.Text = "" Else If txtbeli <> "" Then If CInt(txtbeli.Text) <= CInt(txtstock.Text) Then txtjumharga.Text = txtharga.Text * txtbeli.Text Else MsgBox "Stock tidak mencukupi" End If End If End If End sub
@Ahmad
Selamat mencoba…
Related Post:
Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql “Membut Menu dan Modul”
Materi 2. Membuat Form Kategori dgn Visual Basic 6.0 + Mysql
Materi 3. Membuat program Form Produk (VB + Mysql)
Materi 4. Membuat program Form Transaksi (Visual Basic + Mysql)
Materi 5. Membuat Program Aplikasi Penjualan Barang pada Visual Basic 6.0 dengan Mysql : Membuat Nomor Nota Otomatis pada Visual Basic
Materi 6. Membuat laporan dengan Crystal Report
Filed under: Visual Basic |
saya dari malaysia ada ke tidak no lengkap vb
maksudnya… apa gitu lho….
mysql nya wat databasenya ya?kok gak dijelasin koneksinya……makasih
ada kok dijelasin tapi sedikit… di Membuat Menu dan Modul pada Visual Basic
om maav ngerepotin
bisa tolong kirim ke mail saya gg form cetak notanya
om maav ganggu
saya mau minta form cetak notanya dund
Wah Terimakasih ya’
Sangat membantu sekali