Java & Netbeans

'1. Membersihkan Teks
Sub bersih()
 Text1 = "": DataCombo1 = "": Text2 = "": Text3 = "": Text4 = ""
End Sub

'2. Menonaktifkan teks
Sub nonaktif()
  Text1.Enabled = False: DataCombo1.Enabled = False: Text2.Enabled = False
  Text3.Enabled = False: Text4.Enabled = False: csimpan.Enabled = False
End Sub

'3. Mengaktifkan Teks
Sub aktif()
  DataCombo1.Enabled = True: Text1.Enabled = True: Text3.Enabled = True
End Sub



'4. Kondisi pada saat form dijalankan
Private Sub Form_Activate()
  bersih
  nonaktif
  cbaru.SetFocus
End Sub

'5. Mengaktifkan Teks (Kondisi Awal pengisian)
Private Sub cbaru_Click()
  bersih
  aktif
  Text1.SetFocus
  csimpan.Enabled = True
End Sub

'6. Mencari harga berdasarkan ukuran foto
Private Sub DataCombo1_Click(Area As Integer)
  Adoharga.Recordset.Find "ukuran='" + DataCombo1 + "'", , adSearchForward, 1
  If Not Adoharga.Recordset.EOF Then Text2.Text = Adoharga.Recordset!harga: Text3.SetFocus
End Sub

'7. Mencari ( Total Bayar = Jml * Harga )

Private Sub Text3_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then Text4.Text = Val(Text3) * Val(Text2): csimpan.SetFocus
End Sub


'8. Menyimpan data
Private Sub csimpan_Click()
  With AdoFoto.Recordset
    .AddNew: !nocetak = Text1: !ukuran = DataCombo1
    !harga = Text2: !jml = Text3: !bayar = Text4: .Update
  End With
    MsgBox "data Tersimpan": nonaktif: bersih: csimpan.Enabled = False
End Sub