TUGAS ORACLE 3( PROGRAM 4)

Private Sub cmdbatal_Click()
Txtnama = “”
txtnpm = “”
txtjurusan = “”
txtstudi = “”
txtmasuk = “”
txtnurut = “”
txtbp = “”
Txtnama.SetFocus
End Sub

Private Sub cmdlagi_Click()
Txtnama = “”
txtnpm = “”
txtjurusan = “”
txtstudi = “”
txtmasuk = “”
txtnurut = “”
txtbp = “”
Txtnama.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim a, b, c As String
a = Mid(txtnpm, 3, 1)
If a = “1” Then
jurusan = “Sistem Informasi”
ElseIf a = “2” Then
jurusan = “tekhnik informatika”
ElseIf a = “3” Then
jurusan = “Manajemen Informatika”
ElseIf a = “4” Then
jurusan = “Manajemen & Komp. Akuntansi”
End If
b = Mid(txtnpm, 4, 2)
If b = “01” Then
studi = “Strata Satu ”
bp = “1950000”
ElseIf b = “02” Then
studi = “Diploma Empat ”
bp = “1750000”
ElseIf b = “03” Then
studi = “Diploma Tiga ”
bp = “1650000”
ElseIf b = “04” Then
studi = “Diploma Dua ”
bp = “1450000”
End If
nurut = Right(txtnpm, 3)
masuk = “20” & Left(txtnpm, 2)

txtnurut = nurut
txtstudi = studi
txtjurusan = jurusan
txtbp = bp
txtmasuk = masuk

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Txtnama.SetFocus
End Sub

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

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox(“yakin keluar?”, vbQuestion + vbYesNo, “informasi”)
If x = vbYes Then
End
End If
End Sub