Check Stock
April 16, 2008
Private Sub cmdbarang_Click()
Dim kode$, nama$, harga%, stok$
kode = txtkode.Text
If kode = “BRG01″ Then nama = “Buku”: harga = 1000: stok = 100: sisa = 1
If kode = “BRG02″ Then nama = “Pulpen”: harga = 1500: stok = 100: sisa = 12
If kode = “BRG03″ Then nama = “Pensil”: harga = 750: stok = 100: sisa = 45
If kode = “BRG04″ Then nama = “Tas Sekolah”: harga = 15000: stok = 13: sisa = 10
txtnama.Text = nama
txtharga.Text = harga
txtstok.Text = stok
txtsisa.Text = sisa
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdreset_Click()
txtnama.Text = “”
txtharga.Text = “”
txtkode.Text = “”
txtstok.Text = “”
txtsisa.Text = “”
End Sub
Private Sub File1_Click()
End Sub
Private Sub Form_Load()
End Sub
