foxpfo
form——-aktif
thisform.SetAll(“enabled”,.t.,”textbox”)
thisform.cmdsave.Enabled=.t.
form ———nonaktif
thisform.SetAll(“enabled”,.f.,”info”)
thisform.cmdsave.Enabled=.f.
form ——-bersih
thisform.SetAll(“value”,”",”textbox”)
form——–aktivate
thisform.nonaktif
cmdfirs————-click
GO top
thisform.Refresh
cmdlast—————–click
GO bottom
thisform.Refresh
cmdback—————-click
SKIP -1
IF BOF()
MESSAGEBOX(“sudah di awal record..!!”,16,”info”)
GO top
ENDIF
thisform.Refresh
cmdnext———–click
SKIP 1
IF EOF()
MESSAGEBOX(“sudah di akhir record..!!”,16,”info”)
GO bottom
ENDIF
thisform.Refresh
cmdadd———-click
APPEND BLANK
thisform.aktift
hisform.bersih
thisform.txtnim.SetFocus
cmdsave————click
replace nim WITH thisform.txtnim.Value
replace nama WITH thisform.txtnama.Value
replace jurusan WITH thisform.txtjurusan.Value
replace kelas WITH thisform.txtkelas.Value
replace alamat WITH thisform.txtalamat.Value
replace telpon WITH thisform.txttelpon.Value
thisform.Refresh
thisform.nonaktif
cmdbrowse———-click
browse
cmdedit————click
thisform.txtnim.Enabled= .F.
thisform.txtnama.Enabled= .T.
thisform.txtjurusan.Enabled= .T.
thisform.txtkelas.Enabled= .T.
thisform.txtAlamat.Enabled= .T.
thisform.txttelpon.Enabled= .T.
thisform.txtnama.SetFocus
thisform.cmdsave.Enabled= .T.
thisform.cmdedit.Enabled= .F.
cmddelete———-click
k=MESSAGEBOX(“delete now..?”,32+1,”info”)
IF k=1
DELETE
PACK
ENDIF
thisform.Refresh
cmdexit————–click
thisform.Release
cmdcari————–click
LOCATE FOR nim=ALLTRIM(thisform.txtcari.Value)
IF FOUND()
thisform.txtnim.Value=nim
thisform.txtnama.Value=nama
thisform.txtjurusan.Value=jurusan
thisform.txtkelas.Value=kelas
thisform.txtalamat.Value=alamat
thisform.txttelpon.Value=telpon
ELSE
MESSAGEBOX(“data tidak ada..!!”,48,”info”)
ENDIF
thisform.txtcari.Enabled= .T.
thisform.txtcari.SetFocus
timer————timer
thisform.Label1.caption=DMY(DATE())
thisform.Label2.caption=TIME()
