Sabtu, 21 November 2009

belajar pemrograman visual foxpro tingkat paling dasar


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
silahkan download filenya

Reaksi: