Java & Netbeans

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

Sub bersih()
  Me.tno = ""
  Me.cbkode = ""
  Me.tgelar = ""
  Me.cbpeng = ""
  Me.tstatus = ""
End Sub

Sub aktif()
  Me.cbkode.Enabled = True
  Me.cbpeng.Enabled = True
End Sub

Sub nonaktif()
  Me.tno.Enabled = False
  Me.cbkode.Enabled = False
  Me.tgelar.Enabled = False
  Me.cbpeng.Enabled = False
  Me.tstatus.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(!nosensus) + 1
    Else
       tno.Text = 1
    End If
  End With
End Sub

Private Sub cbkode_Click()
  If cbkode.Text = "D3" Then
     tgelar.Text = "Ahli madya"
  ElseIf cbkode.Text = "S1" Then
     tgelar.Text = "Sarjana"
  Else
     tgelar.Text = "Doctor"
  End If
End Sub

Private Sub cbpeng_Click()
  If cbpeng.Text = "1 Jt" Then
     tstatus.Text = "Kurang"
  ElseIf cbpeng.Text = "1 - 3 Jt" Then
     tstatus.Text = "Menengah"
  Else
     tstatus.Text = "Mampu"
  End If
End Sub

Private Sub csave_Click()
  With data1.Recordset
    .AddNew
       !nosensus = Me.tno.Text
     
       If Me.Option1.Value = True Then
          !wilayah = Me.Option1.Caption
       Else
          !wilayah = Me.Option2.Caption
       End If
     
       !gelar = Me.tgelar.Text
       !penghasilan = Me.cbpeng.Text
       !Status = Me.tstatus.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