Java & Netbeans

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

Sub bersih()
  Me.tno = ""
  Me.tpasien = ""
  Me.cbjenis = ""
  Me.tdokter = ""
  Me.tbiaya = ""
End Sub

Sub aktif()
  Me.tpasien.Enabled = True
  Me.cbjenis.Enabled = True
End Sub

Sub nonaktif()
  Me.tno.Enabled = False
  Me.tpasien.Enabled = False
  Me.cbjenis.Enabled = False
  Me.tdokter.Enabled = False
  Me.tbiaya.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(!noantri) + 1
    Else
       tno.Text = 1
    End If
  End With
 
  Me.tpasien.SetFocus
End Sub

Private Sub cbjenis_Click()
  If Me.cbjenis.Text = "Umum" Then
     Me.tdokter.Text = "R.Panji"
     Me.tbiaya.Text = 3000
  ElseIf Me.cbjenis.Text = "Gigi" Then
     Me.tdokter.Text = "Dr. Heena"
     Me.tbiaya.Text = 7000
  ElseIf Me.cbjenis.Text = "Surat Ket" Then
     Me.tdokter.Text = "Dr. Yusro"
     Me.tbiaya.Text = 5000
  End If
End Sub

Private Sub csave_Click()
  With data1.Recordset
    .AddNew
       !noantri = Me.tno.Text
     
       If Me.Option1.Value = True Then
          !Status = Me.Option1.Caption
       Else
          !Status = Me.Option2.Caption
       End If
     
       !pasien = Me.tpasien.Text
       !layanan = Me.cbjenis.Text
       !dokter = Me.tdokter.Text
       !biaya = Val(Me.tbiaya.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