Check Stock


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

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