Membuat program Form Transaksi (Visual Basic + Mysql)

Posted on february 13, 2011 by ady A.
Materi 1. Membuat Program Aplikasi Penjualan Barang pada Visual Basic + Mysql
Ahmad Rizal Abidin, M.Kom

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 :

01

02	Private Sub Form_Load()

03

konek

04	konekdb.CursorLocation = adUseClient

05	strsql = "select * from pelanggan"

06	Set rs = konekdb.Execute(strsql)

07	Set dckode.RowSource = rs

08	dckode.ListField = "IdPelanggan"

09	strsql = "select * from produk"

10	Set rs = konekdb.Execute(strsql)

11	Set DataCombo2.RowSource = rs

12	DataCombo2.ListField = "idproduk"

13

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 :

01	Private Sub txtnota_KeyPress(KeyAscii As Integer)

02	If KeyAscii = 13 Then

03	strsql = "select * from trans where nota='" & txtnota.Text & "'"

04	Set rs = kondb.Execute(strsql)

05	If Not rs.EOF Then

06	MsgBox "Nomor tersebut sudah ada"

07

Else

08	dckode.SetFocus

09

End If

10

End If

11

End Sub

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

01	Private Sub dckode_Change()

02	strsql = "select * from pelanggan where idpelanggan = '" + dckode.Text + "'"

03	Set rs = kondb.Execute(strsql)

04	If Not rs.EOF Then

05	txtnama.Text = rs!NMPelanggan

06	txtalamat.Text = rs!almpelanggan

07

Else

08	MsgBox "Data tersebut tidak ditemukan"

09

End If

10

End Sub

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

01	Private Sub DataCombo2_Change()

02	strsql = "select * from produk where idproduk ='" + DataCombo2.Text + "'"

03	Set rs = kondb.Execute(strsql)

04	If Not rs.EOF Then

05	txtnmbar.Text = rs!NmProduk

06	txtharga.Text = rs!harga

07	txtstock.Text = rs!stock

08	txtbeli.SetFocus

09

Else

10	txtnmbar.Text = ""

11	txtharga.Text = ""

12	txtstock.Text = ""

13	DataCombo2.SetFocus

14

End If

15

End Sub

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

01	Private Sub txtbeli_Change()

02	If txtbeli <> "" Then

03	If CInt(txtbeli.Text) <= CInt(txtstock.Text) Then

04	txtjumharga.Text = txtharga.Text * txtbeli.Text

05	cmdsimpan.setfocus

06

Else

07	MsgBox "Stock tidak mencukupi"

08

End If

09

End If

10

End Sub

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

1	Private Sub Cmdsimpan_Click()

2	strsql = "insert into trans (nota,idpelanggan,tglnota) values ('" + txt_id + "','" + txtidpelanggan + "','" + tanggal + "')"

3	Set rs = kondb.Execute(strsql)

4	strsql = "insert into detail(nota,idproduk,jumlah,harga_beli) values ('" + txt_id + "','" + txtidproduk+ "','" + jumlah + "',’”+ harga beli+”’)"

5	Set rs = kondb.Execute(strsql)

6

End Sub

1. Tambahakan satu sub untuk mendefinisikan koding berikut :

01	Sub tampilkan()

02	strsql = "SELECT produk.idproduk, produk.nmproduk, detail.jumlah as Qty, " & _

03	" detail.harga_beli as Harga, (detail.jumlah * harga_beli) as JumlahHarga " & _

04	" FROM detail,produk,trans" & _

05	" Where produk.idproduk = detail.idproduk " & _

06	" And detail.nota = trans.nota and trans.nota ='" + txtnota.Text + "'"

07	Set rs = kondb.Execute(strsql)

08	If rs.RecordCount <> 0 Then

09	rs.MoveFirst

10	While Not rs.EOF

11	totharga = totharga + (rs!JUMLAHharga)

12	rs.MoveNext

13

Wend

14

End If

15	Text1.Text = Format(totharga, "Rp###,###,###") & ",-"

16

End Sub