Basic Cashiering

Sample Codes Here:
Private Sub Command1_Click()
lblDisplay.Caption = "Item Code:  " & " " & txtIC.Text & " Item Name:  " & " " & txtName.Text & " Item Price:  " & " " & txtPrice.Text
End Sub
Private Sub Command2_Click()
If txtIC.Text = "10001" Then txtName.Text = "Colgate" txtPrice.Text = "7" ElseIf txtIC.Text = "10002" Then txtName.Text = "Tinapa" txtPrice.Text = "15" ElseIf txtIC.Text = "10003" Then txtName.Text = "Shampoo" txtPrice.Text = "6.50" Else txtName.Text = "" txtPrice.Text = "" lblDisplay.Caption = "" End If
End Sub
YOUTUBE CHANNEL: http://www.youtube.com/user/MrJomarflores123
OFFICIAL WEBSITE: http://jstechtutor.blogspot.com/