• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Check Stock

Check Stock

Check Stock

Rate Check Stock

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Date March 2005
'http:\\programmervb.blog.com
'http:\\programmervb.wordpress.com
'email:[email protected]
'      [email protected]



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