Materi 1. Membuat Program Aplikasi Penjualan Barang pada Visual Basic 6.0 dengan Mysql : Membuat Nomor Nota Otomatis pada Visual Basic

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