Membuat program Form Transaksi (Visual Basic + Mysql)

Materi 1. Membuat Program Aplikasi Penjualan Barang pada Visual Basic + Mysql
Ahmad Rizal Abidin, M.Kom
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008

1. Mangaktifkan VB 6.0, dengan cara klik start, Klik Microsoft Visual Studio 6.0 dan klik Microsoft Visual Basic 6.0.
2. Setelah tampil Windows Projects, Klik Cancel
3. Klik menu file, Klik Open Project, bukalah project yang sudah dibuat pada matri 1. Membuat Menu dan Modul
4. Setelah project terbuka, double klik frmtransaksi pada window project dan buatlah form sebagai berikut :

Gambar 1. Form Transaksi

Catatan :

Form tersebut teridiri dari objek-objek : textbox, datagrid, label, datacombo dan commandbutton serta Frame,

1. Langkah selanjutnya membuat koding pada form load, yaitu 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"
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.

Catatan : setiap kali membuat koding pada suatu objek uji program tersebut, ini digunakan agar kita memahami apa yang telah kita buat.

1. Membuat filter pada text1 (textboxnya idnota), dengan logika jika data sudah ada maka tampilkan datanya, tetapi jika belum kursor pindah ke textbox berikutnya, caranya adalah double klik textbox1, lalu tukar event dari change menjadi keypress. Ketikkan listing berikut :

 

Private Sub txtnota_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = "select * from trans where nota='" & txtnota.Text & "'"
Set rs = kondb.Execute(strsql)
If Not rs.EOF Then
    MsgBox "Nomor tersebut sudah ada"
Else
    dckode.SetFocus
End If
End If
End Sub

1. Membuat koding pada datacombo IdPelanggan, double klik datacombo1 (tetap pada event change) lalu ketik listing program berikut :

Private Sub dckode_Change()
strsql = "select * from pelanggan where idpelanggan = '" + dckode.Text + "'"
Set rs = kondb.Execute(strsql)
If Not rs.EOF Then
    txtnama.Text = rs!NMPelanggan
    txtalamat.Text = rs!almpelanggan
Else
    MsgBox "Data tersebut tidak ditemukan"
End If
End Sub

1. Membuat koding pada datacombo2 (kode Produk), double klik datacombo2 (tetap pada event change) lalu ketik listing program berikut :

Private Sub DataCombo2_Change()
strsql = "select * from produk where idproduk ='" + DataCombo2.Text + "'"
Set rs = kondb.Execute(strsql)
If Not rs.EOF Then
    txtnmbar.Text = rs!NmProduk
    txtharga.Text = rs!harga
    txtstock.Text = rs!stock
          txtbeli.SetFocus
Else
    txtnmbar.Text = ""
    txtharga.Text = ""
    txtstock.Text = ""
    DataCombo2.SetFocus
End If
End Sub

1. Membuat koding pada textbox (qty) double klik textbox tersebut, lalu ketik listing berikut:

Private Sub txtbeli_Change()
If txtbeli <> "" Then
    If CInt(txtbeli.Text) <= CInt(txtstock.Text) Then
        txtjumharga.Text = txtharga.Text * txtbeli.Text
 cmdsimpan.setfocus
    Else
        MsgBox "Stock tidak mencukupi"
    End If
End If
End Sub

1. Membuat koding pada tombol simpan, double klick pada tombol Simpan lalu ketikkan listing berikut :

 

Private Sub Cmdsimpan_Click()
strsql = "insert into trans (nota,idpelanggan,tglnota) values ('" + txt_id + "','" + txtidpelanggan + "','" + tanggal + "')"
Set rs = kondb.Execute(strsql)
strsql = "insert into detail(nota,idproduk,jumlah,harga_beli) values ('" + txt_id + "','" + txtidproduk+ "','" + jumlah + "',’”+ harga beli+”’)"
Set rs = kondb.Execute(strsql)
End Sub

1. Tambahakan satu sub untuk mendefinisikan koding berikut :

 

Sub tampilkan()
 strsql = "SELECT produk.idproduk, produk.nmproduk, detail.jumlah as Qty, " & _
 " detail.harga_beli as Harga, (detail.jumlah * harga_beli) as JumlahHarga " & _
 " FROM detail,produk,trans" & _
 " Where produk.idproduk = detail.idproduk " & _
 " And detail.nota = trans.nota and trans.nota ='" + txtnota.Text + "'"
 Set rs = kondb.Execute(strsql)
 If rs.RecordCount <> 0 Then
    rs.MoveFirst
    While Not rs.EOF
   totharga = totharga + (rs!JUMLAHharga)
    rs.MoveNext
 Wend
 End If
 Text1.Text = Format(totharga, "Rp###,###,###") & ",-"
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

About these ads