Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
Txtkt.SetFocus
Txtht = “”
Txtjk = “”
Txtjb = “”
Txtjt = “”
txtjp = “”
Txttotalp = “”
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
Txtkt.SetFocus
Txtkt = “”
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
Txtkt.SetFocus
Txtkt = “”
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotalp = Val(Txtht) * Val(Txtjt)
End If
End Sub
Private Sub Cmdproes_Click()
Dim B, E, M, S As String
B = Left(Txtkt, 3)
If B = “BIM” Then
jk = “BIMA”
ht = “50000”
jb = “16.00”
ElseIf B = “EKO” Then
jk = “EKONOMI”
ht = “35000”
jb = “19.00”
ElseIf B = “MUT” Then
jk = “MUTIARA”
ht = “23000”
jb = “17.00”
ElseIf B = “SEN” Then
jk = “SENJA”
ht = “15000”
jb = “20.00”
End If
Txtjk = jk
Txtjb = jb
Txtjt = jt
Txttotalp = tp
Txtht = ht
Txtjt.SetFocus
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
Txtkt.SetFocus
Txtkt = “”
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
Txtkt.SetFocus
Txtkt = “”
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotalp = Val(Txtht) * Val(Txtjt)
End If
End Sub
fadhilahstmikpringsewu 