Private Sub Cmdproses_Click()
Dim s As String
s = Left(Txtkode, 3)
If s = "BIM" Then
Txtjk = "BIMA"
Txtht = "50000"
Txtjb = "16.00"
ElseIf s = "EKO" Then
Txtjk = "EKONOMI"
Txtht = "35000"
Txtjb = "19.00"
ElseIf s = "MUT" Then
Txtjk = "MUTIARA"
Txtht = "23000"
Txtjb = "17.00"
ElseIf s = "SEN" Then
Txtjk = "SENJA"
Txtht = "15000"
Txtjb = "20.00"
End If
Txttp = Val(Txtjt) * Val(Txtht)
Txtjt.SetFocus
End Sub
Private Sub Command2_Click()
Txtkode.SetFocus
Txtkode = ""
Txtht = ""
Txtjk = ""
Txtjb = ""
Txtjt = ""
Txttp = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Txtjt_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Txttp = Val(Txtjt) * Val(Txtht)
End If
End Sub
Tidak ada komentar:
Posting Komentar