Membuat Form Kategori dgn Visual Basic 6.0 + Mysql

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

Membuat program Form Kategori

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 frmkategori pada window project dan buatlah form sebagai berikut :
Gambar 1. Form kategori

Catatan :
Form tersebut teridiri dari objek-objek : textbox, datagrid, label 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()
konek
kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
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 idkategori), dengan logika jika data sudah ada maka tampilkan data nama kategori pada nama kategori, 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_Idkategori_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from kategori where idkategori ='” + txt_Idkategori + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
txt_namakategori.SetFocus
Else
txt_namakategori.Text = rs!NmKategori
End If
End If
End Sub

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

Private Sub Cmd_simpan_Click()
strsql = “insert into kategori(IDKategori,NMKategori) values (‘” + txt_Idkategori.Text + “‘,'” + txt_namakategori.Text + “‘)”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

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

Private Sub Cmd_Edit_Click()
strsql = “update kategori set NmKategori ='” + txt_namakategori.Text + “‘ where idkategori = ‘” + txt_Idkategori.Text + “‘”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

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

Private Sub Cmd_Hapus_Click()
strsql = “delete from kategori where Idkategori = ‘” + txt_Idkategori + “‘”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

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

Private Sub cmd_keluar_Click()
End
End Sub

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

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: