Membuat program Form Produk (VB +Mysql)

Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql
Ahmad Rizal Abidin, M.Kom

Membuat program Form Produk

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 materi 1. Membuat Menu dan Modul
d. Setelah project terbuka, double klik frmproduk pada window project dan buatlah form sebagai berikut :
Gambar 1. Form Produk


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

e. 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()
'Menggkonekkan database dari Modul
konek

'Mengaktifkan Datagrid2 dengan table produk
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

'Mengaktifkan Datagrid1 dengan table kategori
strsql = "select * from kategori"
Set rs2 = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs2

'Mengaitkan Datacombo dengan Table kategori
'dan Menampilkan data berdasarkan IDKategori
Set cmb_id.RowSource = rs2
cmb_id.ListField = "Idkategori"

'Menonaktifkan tampilan Frame 2
Frame2.Visible = False
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 . Jika jalan maka data akan ditampilkan pada datagrid.

f. Membuat filter pada text1 (textboxnya idproduk), 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 txt_id_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = "select * from produk where idproduk = '" + txt_id.Text + "'"
Set rs = kondb.Execute(strsql)
If rs.EOF Then
txt_nama.Text = ""
txt_harga.Text = ""
cmb_id.Text = ""
txt_nama.SetFocus
Else
txt_nama.Text = rs!NmProduk
txt_harga.Text = rs!harga
cmb_id.Text = rs!idkategori
End If
End If
End Sub

g. Membuat koding pada datacombo IdKategori, double klik datacombo tersebut lalu ketik listing program berikut :

Private Sub cmb_id_Click(Area As Integer)
If Len(cmb_id) = 2 Then
strsql = "select * from kategori where idkategori ='" + cmb_id + "'"
Set rs = kondb.Execute(strsql)
If rs.EOF Then
MsgBox "data tidak ditemukan"
Else
txt_kategori.Text = rs!NmKategori
End If
End If
End Sub

h. Membuat koding pada tombol Help, double klik tombol help, lalu ketik listing berikut:

Private Sub Command5_Click()
Frame2.Visible = True
Text4.SetFocus
End Sub

i. Membuat koding pada texbox 4 pada help, double klik text tersebut lalu ketik listing berikut :

Private Sub Text4_Change()
strsql = "select * from kategori where nmkategori like '%" + Text4.Text + "%'"
Set rs = kondb.Execute(strsql)
DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
End Sub

j. Membuat koding pada tombol ok yang ada pada frame help, yaitu double klik tombol ok, lalu ketik listing berikut :

Private Sub btn_OK_Click()
Frame2.Visible = False
If Text4.Text = "" Then
Exit Sub
Else
cmb_id.Text = rs!idkategori
txt_kategori.Text = rs!NmKategori
End If
cmb_id.SetFocus
End Sub

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

Private Sub Command1_Click()
strsql = "insert into produk (idproduk, nmproduk,harga, Idkategori) values ('" + txt_id + "','" + txt_nama + "','" + txt_harga + "','" + cmb_id + "')"
Set rs = kondb.Execute(strsql)

'agar begitu tersimpan, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

End Sub

l. Membuat koding pada tombol update, double klick pada tombol edit lalu ketikkan listing berikut :

Private Sub Command2_Click()
strsql = "update produk set nmproduk ='" + txt_nama.Text + "', harga ='" & txt_harga.Text & "', IdKategori ='" + cmb_id.Text + "' where idproduk ='" + txt_id + "'"
Set rs = kondb.Execute(strsql)

'agar begitu diedit, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs
End Sub

m. Membuat koding pada tombol hapus, double klick pada tombol Hapus lalu ketikkan listing berikut :

Private Sub Command3_Click()
strsql = "delete from produk where idproduk ='" + txt_id + "'"
Set rs = kondb.Execute(strsql)

'agar begitu diedit, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

End Sub

n. Membuat koding pada tombol keluar, double klick pada tombol keluar lalu ketikkan listing berikut :

Private Sub Command4_Click()
End
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

2 Responses

  1. Thanks ya Mas, ini bermanfaat banget buat menambah pembelajaran tentang VB, saya baru belajar Mas..

  2. aslm wr wb
    mas sy mo nanya
    trus cara koneksi ke databasenya caranya gimana??
    knapa ndak ada coding module.nya mas???
    tlong share
    makasih infonya🙂

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: