Membuat Form Master Barang

Sebelum membuat form buatlah database penjualan dan buat tabel berikut :
Tabel barang;
+----------+----------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+----------+----------+------+-----+---------+-------+
| kd_brg | char(6) | NO | PRI | | |
| nm_brg | char(30) | YES | | NULL | |
| satuan | char(10) | YES | | NULL | |
| harga | double | YES | | NULL | |
| stok | int(5) | YES | | NULL | |
| stok_min | int(4) | YES | | NULL | |
+----------+----------+------+-----+---------+-------+
create table barang(kd_brg char(6) primary key not null,nm_brg char(30),satuan char(10), harga double, stok int(5), stok_min int(4));


Desain form di atas, dengan langkah sebagai berikut :

1. Dari form kosong, pada properties form, pada caption isikan dengan “Pendataan Barang” sehingga akan tampak pada judul form.
2. Pilih toolbox label, untuk membuat tulisan Kode Barang, Nama Barang, Satuan dan seterusnya.
3. Pilih pada properties dan ganti masing-masing label sesuai dengan desain di atas.3. Pilih toolbox inputbox, untuk membuat inputan data mulai dari Kode Barang sampai dengan Stok Minimal. Kosongkan properties Text dari masing-masing inputbox.
4. Pilih toolbox combobox, pada properties Text isikan “---Pilihan ---“, kemudian isikan satuan (Buah, Box, Lusin, Kg, Meter dll) pada properties List. Gunakan tombol CTRL + ENTER untuk pindah baris, jika selesai tekan ENTER.
5. Pilih toolbox CommandButton, buat tombol sebanyak 10 dan sesuaikan dengan tampilan di atas. Semua text diisi pada properties Caption dari masing-masing commanbutton.
6. Pilih toolbox DataGrid, isikan captionnya dengan “Informasi Data Barang”, apabila dataGrid belum ada maka tambahkan componennya dengan mengclick kanan pada area toolbox, pilih menu Components, pilih Microsoft ADO Data Control 6.0(OLEDB) dengan mencentak kotak kecil di sebelah kiri.
7. Buat bingkai dengan Frame, properties caption diisi dengan “Pencarian Data”, buat label “Berdasarkan” dan “Teks yang dicari”, kemudian buat combobox dan textbox nya.

Tambahkan kode program berikut :

Dim rsbarang As New ADODB.Recordset

Dim strsql As String

Dim cek As Integer

Private Sub cmbsatuan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtharga.SetFocus

End Sub

Private Sub cmdakhir_Click()

rsbarang.MoveLast 'pindah akhir record

End Sub

Private Sub cmdawal_Click()

rsbarang.MoveFirst 'pindah awal record

End Sub

Private Sub cmdbatal_Click()

tombol True

aktif False

End Sub

Private Sub cmdhapus_Click()

strsql = "delete from barang where kd_brg='" & _

txtkd_brg.Text & "'"

hapus = MsgBox("Yakin diHapus", vbYesNo, "Konfirmasi")

If hapus = vbYes Then

dbcon.Execute strsql

End If

rsbarang.Requery

End Sub

Private Sub cmdkeluar_Click()

dbcon.Close

Unload Me

End Sub

Private Sub cmdkoreksi_Click()

cek = 2

aktif True

tombol False

txtkd_brg.Enabled = False

txtnm_brg.SetFocus

End Sub

Private Sub cmdsebelum_Click()

On Error GoTo GoPrevError

If Not rsbarang.BOF Then rsbarang.MovePrevious

If rsbarang.BOF And rsbarang.RecordCount > 0 Then

Beep

'moved off the end so go back

rsbarang.MoveFirst

End If

'show the current record

Exit Sub

GoPrevError:

MsgBox Err.Description

End Sub

Private Sub cmdsesudah_Click()

On Error GoTo GoNextError

If Not rsbarang.EOF Then rsbarang.MoveNext

If rsbarang.EOF And rsbarang.RecordCount > 0 Then

Beep

'moved off the end so go back

rsbarang.MoveLast

End If

'show the current record

Exit Sub

GoNextError:

MsgBox Err.Description

End Sub

Private Sub cmdsimpan_Click()

On Error GoTo errSimpan

If cek = 1 Then

'tambah data

strsql = "insert into barang values('" & txtkd_brg.Text _

& "','" & txtnm_brg.Text & "','" & cmbsatuan.Text & "'," & _

Val(txtharga.Text) & "," & _

Val(txtstok.Text) & "," & Val(txtstok_min.Text) & ")"

Else

'edit data

strsql = "update barang set nm_brg='" & txtnm_brg.Text & _

"',satuan='" & cmbsatuan.Text & _

"',harga=" & Val(txtharga.Text) & _

",stok=" & Val(txtstok.Text) & _

",stok_min=" & Val(txtstok_min.Text) & _

" where kd_brg='" & txtkd_brg.Text & "'"

End If

' MsgBox strsql

dbcon.Execute (strsql) ' eksekusi perintah SQL

rsbarang.Requery

tombol True

aktif False

MsgBox "Sukses disimpan", vbOKOnly, "Konfirmasi Simpan"

Exit Sub

errSimpan:

MsgBox Err.Description, vbCritical, "Error Simpan"

End Sub

Private Sub cmdtambah_Click()

cek = 1

tombol False

aktif True

kosong

txtkd_brg.SetFocus

End Sub

Private Sub DgBarang_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

baca_data

End Sub

Private Sub Form_Activate()

tombol True

aktif False

baca_data

End Sub

Private Sub tombol(x)

cmdtambah.Enabled = x

cmdsimpan.Enabled = Not x

cmdkoreksi.Enabled = x

cmdhapus.Enabled = x

cmdbatal.Enabled = Not x

cmdkeluar.Enabled = x

cmdawal.Enabled = x

cmdakhir.Enabled = x

cmdsebelum.Enabled = x

cmdsesudah.Enabled = x

End Sub

Private Sub aktif(x)

txtkd_brg.Enabled = x

txtnm_brg.Enabled = x

cmbsatuan.Enabled = x

txtharga.Enabled = x

txtstok.Enabled = x

txtstok_min.Enabled = x

End Sub

Private Sub kosong()

txtkd_brg.Text = ""

txtnm_brg.Text = ""

cmbsatuan.Text = ""

txtharga.Text = ""

txtstok.Text = ""

txtstok_min.Text = ""

End Sub

Private Sub Form_Load()

nyambung

strsql = "select * from barang order by kd_brg asc"

rsbarang.Open strsql, dbcon

Set dgbarang.DataSource = rsbarang

rsbarang.Requery

load_cbocari "barang", cbocari

End Sub

Private Sub Form_Unload(Cancel As Integer)

tutup_koneksi

End Sub

Private Sub txtcari_Change()

strsql = "select * from barang where barang." & _

cbocari.Text & " LIKE ('%" & txtcari.Text & "%')"

rsbarang.Close

rsbarang.Open strsql, dbcon, adOpenStatic

rsbarang.Requery

dgbarang.Refresh

'lebar_grid

End Sub

Private Sub txtharga_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtstok.SetFocus

End Sub

Private Sub txtkd_brg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtnm_brg.SetFocus

End Sub

Private Sub txtnm_brg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then cmbsatuan.SetFocus

End Sub

Private Sub txtstok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then txtstok_min.SetFocus

End Sub

Private Sub baca_data()

On Error Resume Next

If rsbarang.RecordCount > 0 Then 'untuk cek jumlah record

txtkd_brg.Text = rsbarang!kd_brg 'pindahkan data dr tabel ke form

txtnm_brg.Text = rsbarang!nm_brg

cmbsatuan.Text = rsbarang!satuan

txtharga.Text = rsbarang!harga

txtstok.Text = rsbarang!stok

txtstok_min.Text = rsbarang!stok_min

End If

End Sub