Visual foxpro tingkat belajar

Form – load
set talk off.
set dele on
use mhs
SET ORDER TO TAG XNIM

SImpan – click
append blank
replace nim with thisform.text1.value
replace nama with thisform.text2.value
replace alamat with thisform.text3.value
thisform.refresh
thisform.text1.value=””
thisform.text2.value=””
thisform.text3.value=””
thisform.text1.setfocus

Batal – click
thisform.text1.value=””
thisform.text2.value=””
thisform.text3.value=””
thisform.text1.setfocus

Hapus – click
x=messagebox(“Benar Data Akan Dihapus”,4+16,”information”)
if x=6 then
delete
thisform.refresh
endif

Keluar – click
x=messagebox(“Yakin Pengen Keluar..!!”,4+16,”information”)
if x=6 then
thisform.Release
endif

Ganti – click
x=messagebox(“Yakin Pengen DIGANTI..!!”,4+16,”information”)
if x=6 then
replace nim with thisform.text1.value
replace nama with thisform.text2.value
replace alamat with thisform.text3.value
thisform.refresh
thisform.text1.value=””
thisform.text2.value=””
thisform.text3.value=””
thisform.text1.setfocus
ENDIF

Cari data – click
SEEK TRIM(THISFORM.TEXT4.VALUE)
IF FOUND()THEN
THISFORM.TEXT1.VALUE=NIM
THISFORM.TEXT2.VALUE=NAMA
THISFORM.TEXT3.VALUE=ALAMAT
ELSE
MESSAGEBOX (“DATA TIDAK DITEMUKAN”)
ENDIF

Grid – AfterRowColChange
LPARAMETERS nColIndex
THISFORM.TEXT1.VALUE=NIM
THISFORM.TEXT2.VALUE=NAMA
THISFORM.TEXT3.VALUE=ALAMAT

Satu Tanggapan to “Visual foxpro tingkat belajar”

  1. STMIK Duta Bangsa Says:

    siiip

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s


%d blogger menyukai ini: