Java & Netbeans

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

Sub bersih()
  Me.tno = ""
  Me.tnama = ""
  Me.ttul = ""
  Me.tkes = ""
  Me.tpra = ""
  Me.tnil = ""
  Me.tket = ""
End Sub

Sub aktif()
  Me.tnama.Enabled = True
  Me.ttul.Enabled = True
  Me.tkes.Enabled = True
  Me.tpra.Enabled = True
End Sub

Sub nonaktif()
  Me.tno.Enabled = False
  Me.tnama.Enabled = False
  Me.ttul.Enabled = False
  Me.tkes.Enabled = False
  Me.tpra.Enabled = False
  Me.tnil.Enabled = False
  Me.tket.Enabled = False
End Sub

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(!nourut) + 1
    Else
       tno.Text = 1
    End If
  End With
 
  Me.tnama.SetFocus
End Sub

Private Sub tpra_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
  Me.tnil.Text = (0.2 * Val(Me.ttul)) + (0.3 * Val(Me.tkes)) + (0.5 * Val(Me.tpra))
  If Me.tnil.Text > 70 Then
     tket.Text = "Lulus Tes"
  Else
     tket.Text = "Tes Lagi Minggu Depan"
  End If
 End If
End Sub

Private Sub csave_Click()
  With data1.Recordset
    .AddNew
       !nourut = Me.tno.Text
       !nama = Me.tnama.Text
      
       If Me.Option1.Value = True Then
          !jenis = Me.Option1.Caption
       Else
          !jenis = Me.Option2.Caption
       End If
      
       !tulis = Val(Me.ttul.Text)
       !kesehatan = Val(Me.tkes.Text)
       !praktek = Val(Me.tpra.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