PROGRAM DATA KERETA
DATA KERETA
LISTING
cmdsave———-click
APPEND BLANK
thisform.aktif
thisform.bersih
thisform.txtkdkereta.setfocus
cmdsave———click
replace kdkereta WITH thisform.txtKdkereta.Value
replace nmkereta WITH thisform.txtnmkereta.Value
replace nobangku WITH thisform.txtnobangku.Value
thisform.Refresh
cmdtop————click
SKIP -1
IF BOF()
MESSAGEBOX(“sudah di awak 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
cmdlihat————click
browse
cmdturup————-click
thisform.Release
txtfind—————-keypress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode=13
LOCATE FOR kdkereta=ALLTRIM(thisform.txtfind.Value)
IF FOUND()
thisform.txtkdkereta.Value=kdkereta
thisform.txtnmkereta.Value=nmkereta
thisform.txtnobangku.Value=nobangku
ELSE
MESSAGEBOX(“data tidak di temukan..!!”,48,”info”)
ENDIF
ENDIF
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
Langganan:
Postingan (Atom)