Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnpm.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjur.Text = “sistem informasi”

ElseIf s = “2” Then

txtjur.Text = “manajemen informatika”

ElseIf s = “3” Then

txtjur.Text = “m.informatika dan akuntansi”

End If

s = Mid(txtnpm.Text, 4, 2)

If s = “00” Then

txtprodi.Text = “strata satu”

ElseIf s = “01” Then

txtprodi.Text = “diploma tiga”

End If

txttm.Text = “20” & Left(txtnpm, 2)

txtnu.Text = Right(txtnpm, 3)

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub