SCRIPT BERSIH SIMPAN HAPUS EDIT FORMTAMPIL FORMLOAD GRID KELUAR
BERSIH
WITH thisform
.text1.value=""
.text2.value=""
.combo1.value=""
.optiongroup1.value=0
.check1.value=0
.text3.Value=0
.text1.setfocus
Endwith
SIMPAN
WITH thisform
IF EMPTY(.text1.value)
MESSAGEBOX("nim kosong")
.text1.setfocus
RETURN
ENDIF
IF EMPTY(.text2.value)
MESSAGEBOX("nama kosong")
.text2.setfocus
RETURN
endif
APPEND BLANK
replace nim WITH .text1.value
replace nama WITH .text2.value
replace agama WITH .combo1.value
IF .optiongroup1.value=1
replace jenis_kelamin WITH "Laki-laki"
ELSE
replace jenis_kelamin WITH "Perempuan"
ENDIF
IF .check1.value=1 .and. .check2.value=1 .and. .check3.value=1
replace kelengkapan_berkas WITH "Lengkap"
ELSE
replace kelengkapan_berkas WITH "Belum Lengkap"
ENDIF
replace umur WITH .text3.value
WITH thisform
.text1.value=""
.text2.value=""
.combo1.value=""
.optiongroup1.value=0
.check1.value=0
.text3.Value=0
.text1.setfocus
endwith
.refresh
ENDWITH
HAPUS
tanya=MESSAGEBOX("ANDA YAKIN HAPUS RECORD INI ?",4+32,"KONFIRMASI")
IF TANYA=6
DELETE
ELSE
RETURN
endif
thisform.Refresh
FORM1ACTIVE
WITH thisform
.text1.value=""
.text2.value=""
.combo1.value=""
.optiongroup1.value=0
.check1.value=0
.text3.Value=0
.text1.setfocus
Endwith
GRID
LPARAMETERS nColIndex
thisform.tampil
thisform.Refresh
FORMTAMPIL
WITH thisform
.text1.value=nim
.text2.value=nama
.combo1.value=agama
.optiongroup1.value=jenis_kelamin
.check1.value=0
.text3.Value=umur
.text1.setfocus
Endwith
FORMLOAD
SET DELETED on
USE t_daftar
KELUAR
pack
thisform.Release
SEMOGA BERMANFAAT
DATA KULIAH/MANAJEMEN INFORMATIKA/PEMROGRAMAN FOXPRO
0 Komentar