Alat Hitung toko

Private Sub Command1_Click()
Data1.Recordset.AddNew
Textnb.SetFocus
End Sub
Private Sub Command2_Click()
Textnb.Text = “”
Texthb.Text = “”
Textjb.Text = “”
Textby.Text = “”
Textpt.Text = “”
Texttb.Text = “”
End Sub
Private Sub Command3_Click()
Data1.Recordset.Update
Data1.Refresh
End Sub
Private Sub Command6_Click()
Data1.Recordset.Delete
End Sub

Private Sub textnb_keypress(keyascii As Integer)
If keyascii = 13 Then
Texthb.SetFocus
End If
End Sub
Private Sub texthb_keypress(keyascii As Integer)
If keyascii = 13 Then
Textjb.SetFocus
End If
End Sub
Private Sub Command4_Click()
Textby.Text = Val(Texthb.Text) * Val(Textjb.Text)
If Textjb > 5 Then
Textpt.Text = Val(Textby.Text) * 0.02
Texttb.Text = Val(Textby.Text) – Val(Textpt.Text)
End If
End Sub
Private Sub Command5_Click()
Unload Me
End Sub