Private Sub cmdproses_Click()
kode = Mid(txtnpm.Text, 3, 1)
If kode = “1” Then
txtjur.Text = “SistemInformasiManajemen”
ElseIfkode = “2” Then
txtjur.Text = “ManajemenInformatika”
ElseIfkode = “3” Then
txtjur.Text = “TehnikInformatika”
ElseIfkode = “4” Then
txtjur.Text = “KomputerAkutansi”
End If
txtnpm.SetFocus
kode = Mid(txtnpm.Text, 4, 2)
If kode = “01” Then
txtprodi.Text = “Strata Satu”
ElseIfkode = “02” Then
txtprodi.Text = “Diploma Empat”
ElseIfkode = “03” Then
txtprodi.Text = ” DiplomaTiga”
ElseIfkode = “04” Then
txtprodi.Text = “Diploma Dua”
End If
txttm.Text = “20” &Left(txtnpm.Text, 2)
txtno.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtno.Text = “”
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub
Private Sub Command3_Click()
Data1.Recordset.Delete
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtno.Text = “”
End Sub
Private Sub Command4_Click()
End
End Sub