Cara Mudah Dan Praktis Buat Form Data BarangVB6

Setelah beberapa tahap cara untuk menjembatani project yang sobat buat baik menggunakan berbagai provider atau dengan app-path , tapi banyak juga yang menggunakan MYSQL, sekarang mari bersama-sama membuat form awal untuk project yang sobat buat.
untuk yang awal perlu sobat buat adalah buat form master data yang mana ini berfungsi untuk memasukkan data master yang nanti akan kita gunakan pada form-form selanjutnya. untuk kali ini saya akan ulas sedikit bagaimana membuat form master data barang yang nantinya akan masuk kedatabase
pada table barang/product.
Langsung saja pada intinya :

1. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen Image, Label, Textbox dan CommandButton.

2. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar form Nama
Control Properties Nilai

Form 1 Name FrmBarang

Caption Data Barang

Label 1 Caption Kode Barang :

Label 2 Caption Nama Barang :

Label 3 Caption Jumlah Barang :

Label 4 Caption Satuan :

Label 5 Caption Jenis Flute

TextBox 1 Name Txtkd

TextBox 2 Name Txtnm

TextBox 3 Name Txtjumlah

TextBox 4 Name Txtsatuan

TextBox 5 Name Txtjenis

CommandButton1 Name Cmdcari Text Cari

CommandButton1 Name Cmdsimpan Text Simpan

CommandButton1 Name Cmdubah Text Ubah

CommandButton1 Name Cmdhapus Text Hapus

CommandButton1 Name Cmdbatal Text Batal

CommandButton1 Name Cmdkeluar Text Keluar

3. Copy pastekan listing kode di bawah ini apabila sobat tidak mau report :

Option Explicit

Dim panjang As Integer

Dim hapus, kode As String

Sub bersih()

txtkd.Text = ""

txtnm.Text = ""

txtjumlah.Text = ""

txtsatuan.Text = ""

txtjenis.Text = ""

cmdsimpan.Enabled = True

cmdubah.Enabled = False

cmdhapus.Enabled = False

End Sub

Private Sub cmdbatal_Click()

Call bersih

txtkd.SetFocus

End Sub

Private Sub cmdcari_Click()

kode = InputBox("Masukkan kode barang", "Pencarian")

If kode = "" Then Exit Sub

On Error Resume Next

Call Koneksi_Database

sql = "select * from barang where kd_barang ='" & kode & "'"

rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

txtkd.Text = rs.Fields("kd_barang")

txtnm.Text = rs.Fields("nm_barang")

txtjumlah.Text = rs.Fields("jml_barang")

txtsatuan.Text = rs.Fields("satuan")

txtjenis.Text = rs.Fields("jns_flute")

cmdsimpan.Enabled = False

cmdubah.Enabled = True

cmdhapus.Enabled = True

Else

MsgBox "Data tidak ditemukan", vbInformation, "Message"

End If

End Sub

Private Sub cmdhapus_Click()

Call Koneksi_Database

sql = "delete from barang where kd_barang = '" & txtkd.Text & "'"

db.Execute (sql)

Call bersih

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub

If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub

If txtjumlah.Text = "" Then txtjumlah.SetFocus: Exit Sub

If txtsatuan.Text = "" Then txtsatuan.SetFocus: Exit Sub

If txtjenis.Text = "" Then txtjenis.SetFocus: Exit Sub

Call Koneksi_Database

sql = "select * from barang where kd_barang ='" & txtkd.Text & "'"

rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

MsgBox "Data Sudah Ada", vbInformation + vbOKOnly, "Pesan"

Call bersih: Exit Sub

Else

Call Koneksi_Database

sql = "insert into barang values('" & txtkd.Text & "','" & txtnm.Text & "','" & _

Val(txtjumlah.Text) & "','" & txtsatuan.Text & "','" & txtjenis.Text & "')"

db.Execute (sql)

Call bersih

End If

End Sub

Private Sub cmdubah_Click()

If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub

If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub

If txtjumlah.Text = "" Then txtjumlah.SetFocus: Exit Sub

If txtsatuan.Text = "" Then txtsatuan.SetFocus: Exit Sub

If txtjenis.Text = "" Then txtjenis.SetFocus: Exit Sub

Call Koneksi_Database

sql = "update barang set nm_barang ='" & txtnm.Text & "',jml_barang ='" & _

Val(txtjumlah.Text) & "',satuan='" & txtsatuan.Text & "',jns_flute ='" & _

txtjenis.Text & "' where kd_barang ='" & txtkd.Text & "'"

db.Execute (sql)

Call bersih

End Sub

Private Sub Form_Activate()

txtkd.SetFocus

End Sub

Private Sub Form_Load()

Call bersih

Me.Top = 2500

Me.Left = 3750

End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtsatuan.SetFocus

End Sub

Private Sub txtsatuan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtjenis.SetFocus

End Sub

Private Sub txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtjumlah.SetFocus

End Sub

Private Sub txtjenis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then cmdsimpan.SetFocus

End Sub

4. Simpan Form Data Barang dengan nama formdatabrg di Folder Persediaan Barang dimana Project & Database Persediaan Barang dibuat

Untuk lebih jelasnya sobat bisa download listing program dengan format .docx didalam kemasan .rar, Apabila belum memiliki software untuk extrac .rar/.zip download disini

Link Download Contoh project, [.dll],[.ocx]