PENYIMPANAN DATA VERSI BIASA

GAYA CODING SIMPAN "WITH THSFOR."
*===================================================================

if messagebox('yakin ingin simpan !!!!!!!!',32+4,'confirmasi')=6 then
WITH THISFORM
APPEND BLANK
REPLACE kd_pangkat WITH .TEXT1.value
REPLACE nm_pangkat with .TEXT2.value
REPLACE kd_jabatan with .EDIT3.value
REPLACE nm_jabatan with .EDIT3.value
REPLACE keterangan with .EDIT3.value

.grid1.refresh

.TEXT1.value=''
.TEXT2.value=''
.TEXT3.value=''
.TEXT4.value=''
.EDIT1.value=''


.text1.setfocus
ENDWITH
endif