Java & Netbeans

Private Sub Form_Load()
  Me.data1.DatabaseName = App.Path + "\quiz.mdb"
End Sub

Sub bersih()
  Me.tno = ""
  Me.tpsi = ""
  Me.tkes = ""
  Me.tint = ""
  Me.tnil = ""
  Me.tket = ""
End Sub

Sub aktif()
  Me.tpsi.Enabled = True
  Me.tkes.Enabled = True
  Me.tint.Enabled = True
End Sub

Sub nonaktif()
  Me.tno.Enabled = False
  Me.tpsi.Enabled = False
  Me.tkes.Enabled = False
  Me.tint.Enabled = False
  Me.tnil.Enabled = False
  Me.tket.Enabled = False
End Sub

'Ketika Form Aktif
Private Sub Form_Activate()
  bersih
  nonaktif
  Me.cnew.SetFocus
End Sub

Private Sub cnew_Click()
  bersih
  aktif
 
  With data1.Recordset
    If .RecordCount > 0 Then
       .MoveLast
       tno.Text = Val(!nopeserta) + 1
    Else
       tno.Text = 1
    End If
  End With
 
  Me.tpsi.SetFocus
End Sub

Private Sub tint_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
  Me.tnil.Text = (Val(Me.tpsi) + Val(Me.tkes) + Val(Me.tint)) / 3
  If Me.tnil.Text > 70 Then
     tket.Text = "Lolos Tes"
  Else
     tket.Text = "Ikut Lagi Taon Dpan"
  End If
 End If
End Sub

Private Sub csave_Click()
  With data1.Recordset
    .AddNew
       !nopeserta = Me.tno.Text
     
       If Me.Option1.Value = True Then
          !pendidikan = Me.Option1.Caption
       Else
          !pendidikan = Me.Option2.Caption
       End If
     
       !psikotes = Val(Me.tpsi.Text)
       !kesehatan = Val(Me.tkes.Text)
       !interview = Val(Me.tint.Text)
       !nilai = Val(Me.tnil.Text)
       !keterangan = Me.tket.Text
    
    .Update
  End With
 
  MsgBox "Data Tersimpan"
 
  bersih
  nonaktif
  Me.cnew.SetFocus
 
End Sub

Private Sub cdel_Click()
  If MsgBox("Hapus Nih?", vbYesNo) = vbYes Then
     data1.Recordset.Delete
  End If
End Sub

Private Sub cexit_Click()
  If MsgBox("Keluar Nih?", vbYesNo) = vbYes Then
     Unload Me
  End If
End Sub