Java & Netbeans

'1. membuat variabel status edit atau add
Dim status As Boolean
Dim ST, lT, n
Dim h As Currency

'2. membersihkan teks
Sub bersih()
    tnip = "": tnama = "": cbjab = "": tgaji = 0
End Sub

'3. mengaktifkan teks
Sub aktif()
    tnip.Enabled = True: tnama.Enabled = True
    cbjab.Enabled = True: tgaji.Enabled = True
End Sub

'4. menonaktifkan teks
Sub nonaktif()
    tnip.Enabled = False: tnama.Enabled = False
    cbjab.Enabled = False: tgaji.Enabled = False
End Sub

'5. menampilkan data
Sub tampil()
  On Error Resume Next
    With Adodc2.Recordset
      tnip.Text = !nip: tnama.Text = !nama
      cbjab.Text = !jabatan: tgaji.Text = !Gaji
    End With
End Sub

'6. prosedur mencari data
Sub cari()
    Adodc2.Recordset.Find "nip='" + tnip + "'", , adSearchForward, 1
    If Not Adodc2.Recordset.EOF Then tampil
End Sub

'7. ketika tombol cari di klik
Private Sub ccari_Click()
  cari
End Sub

'8. ketika form aktif
Private Sub Form_Activate()
  nonaktif
  bersih
  cbaru.SetFocus
End Sub

'9. Ketika tombol baru di klik
Private Sub cbaru_Click()
  status = False
  aktif
  bersih
  tnip.Enabled = True
  tnip.SetFocus
End Sub

'10. variabel untuk animasi teks
Private Sub Form_Load()
ST = judul.Caption
    n = 1
End Sub

'11. pencarian ketika nip di enter
Private Sub tnip_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then cari
End Sub

'12. pencarian ketika berdasarkan jabatan
Private Sub cbjab_Click(Area As Integer)
    Adodc1.Recordset.Find "jabatan='" + cbjab + "'", , adSearchForward, 1
    If Not Adodc1.Recordset.EOF Then h = Adodc1.Recordset!gaji_pokok: tgaji.Text = "Rp." + Format(h, "#,###.#0")
End Sub

'13. Ketika tombol hapus di klik
Private Sub chapus_Click()
  If MsgBox("Hapus?", vbYesNo) = vbYes Then Adodc2.Recordset.Delete
  nonaktif
  bersih
End Sub

'14. ketika tombol simpan di klik
Private Sub csimpan_Click()
  With Adodc2.Recordset
    If status = 0 Then .AddNew
       !nip = tnip: !nama = tnama
       !jabatan = cbjab: !Gaji = Val(h)
    .Update
    status = False
    MsgBox "Saving Success"
  End With
  bersih
  nonaktif
End Sub

'15. ketika tombol ubah di klik
Private Sub cubah_Click()
  status = True
  aktif
  tnip.SetFocus
End Sub

'16. ketika grid di klik 2 kali
Private Sub DataGrid1_DblClick()
  tampil
  nonaktif
End Sub

'17. animasi teks ketik
Private Sub Timer1_Timer()
lT = Len(ST)
    Dim Form As String
    lT = Len(ST)
    judul.Caption = Left(ST, n) + "_"
    n = n + 1
    If n > lT Then
        n = 1
    End If
judul2.Caption = judul.Caption
End Sub