Private Sub CMDBR_Click()
Data1.Recordset.AddNew
TXTNAMA.SetFocus
End Sub
Private Sub CMDHP_Click()
TXTNAMA.SetFocus
TXTNAMA.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPRO.Text = “”
TXTTAH.Text = “”
TXTNOM.Text = “”
End Sub
Private Sub CMDKL_Click()
Unload Me
End Sub
Private Sub CMDSP_Click()
Data1.Recordset.Update
End Sub
Private Sub TXTNAMA_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTNPM.SetFocus
End If
End Sub
Private Sub TXTNPM_keypress(keyascii As Integer)
If keyascii = 13 Then
CMDPR.SetFocus
End If
End Sub
Private Sub CMDPR_Click()
Dim j, p As String
TXTTAH.Text = “20” & Left(TXTNPM.Text, 2)
j = Mid(TXTNPM, 3, 1)
If j = “1” Then
TXTJUR.Text = “Sistem Informasi”
ElseIf j = “2” Then
TXTJUR.Text = “Tehnik Informatika”
ElseIf j = “3” Then
TXTJUR.Text = “Manajemen Informatika”
ElseIf j = “4” Then
TXTJUR.Text = “Manajemen & Komp. Akuntansi”
End If
p = Mid(TXTNPM.Text, 4, 2)
If p = “01” Then
TXTPRO.Text = “Strata Satu”
ElseIf p = “02” Then
TXTPRO.Text = “Diploma Empat”
ElseIf p = “03” Then
TXTPRO.Text = “Diploma Tiga”
ElseIf p = “04” Then
TXTPRO.Text = “Diploma Dua”
End If
TXTNOM.Text = Right(TXTNPM.Text, 3)
End Sub