VB 2

Private Sub CMDABORT_Click()
Data1.Recordset.Cancel
End Sub

Private Sub CMDDELETE_Click()
Data1.Recordset.Delete
End Sub

Private Sub CMDEDIT_Click()
Data1.Recordset.Edit
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim s As String
s = Left(txtkt.Text, 3)
If s = “bim” Or s = “BIM” Then
txtht.Text = “50000”
txtjk.Text = “BIMA SAKTI”
txtjb.Text = “16.00”
ElseIf s = “eko” Or s = “EKO” Then
txtht.Text = “35000”
txtjk.Text = “ekonomi”
txtjb.Text = “19.00”
ElseIf s = “mut” Or s = “MUT” Then
txtht.Text = “23000”
txtjk.Text = “mutiara”
txtjb.Text = “17.00”
ElseIf s = “sen” Or s = “SEN” Then
txtht.Text = “15000”
txtjk.Text = “senja”
txtjb.Text = “20.00”

End If
txtjt.SetFocus
End Sub

Private Sub CMDSAVE_Click()
Data1.Recordset.Update
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If “13” Then
txtjt.SetFocus
txttp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub

Advertisements
Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

w

Connecting to %s