LISTING PROGRAM
LISTING INPUT

WITH thisform
IF EMPTY(.Kode_kamar.Value)
SEEK ALLTRIM(thisform.KOde_kamar.Value)
MESSAGEBOX("maaf, no. daftaftar dulu ",16,"pesan salah")
ELSE
pesan=MESSAGEBOX("data akan di simpan",48+1,"pesan simpan")
IF pesan=1
APPEND BLANK
replace kode_kamar WITH thisform.Kode_kamar.Value
replace nama WITH thisform.nama.Value
replace alamat WITH thisform.alamat.Value
replace No_KTP WITH thisform.NO_KTP.Value
replace tgl_masuk WITH thisform.Tgl_masuk.Value
replace kota_asl WITH thisform.kota_asl.value
replace tgl_keluar WITH thisform.tgl_keluar.value

thisform.Kode_kamar.Value=""
thisform.nama.Value=""
thisform.alamat.Value=""
thisform.NO_KTP.Value=""
thisform.kota_asl.Value=""
thisform.Tgl_masuk.Value=CTOD("--")
thisform.tgl_keluar.value=CTOD("--")
thisform.kode_kamar.SetFocus
ENDIF
endif
endwith
LISTING EDIT
WITH thisform
IF !EMPTY(.kode_kamar.Value)
SEEK ALLTRIM(thisform.kode_kamar.Value)
MESSAGEBOX("maaf, no. daftaftar dulu ",16,"pesan salah")
ELSE
pesan=MESSAGEBOX("data akan di simpan",48+1,"pesan simpan")
IF pesan=1

replace kode_kamar WITH thisform.Kode_kamar.Value
replace nama WITH thisform.nama.Value
replace alamat WITH thisform.alamat.Value
replace No_KTP WITH thisform.NO_KTP.Value
replace tgl_masuk WITH thisform.Tgl_masuk.Value
replace kota_asl WITH thisform.kota_asal.value
replace tgl_keluar WITH thisform.tgl_keluar.value

thisform.Kode_kamar.Value=""
thisform.nama.Value=""
thisform.alamat.Value=""
thisform.NO_KTP.Value=""
thisform.kota_asl.Value=""
thisform.Tgl_masuk.Value=CTOD("--")
thisform.Tgl_keluar.Value=CTOD("--")
thisform.kode_kamar.SetFocus
ENDIF
endif
endwith
LISTING HAPUS
IF EMPTY(thisform.Kode_kamar.Value)
SEEK ALLTRIM(thisform.Kode_kamar.Value)
MESSAGEBOX("maaf, no. daftar inap dulu ",16,"pesan salah")
ELSE
IF MESSAGEBOX("data akan di hapus",4+64,"pesan hapus")=6
DELETE
PACK
ENDIF
Endif

thisform.Kode_kamar.Value=""
thisform.nama.Value=""
thisform.alamat.Value=""
thisform.NO_KTP.Value=""
thisform.kota_asl.Value=""
thisform.Tgl_masuk.Value=CTOD("--")
thisform.Tgl_keluar.value=CTOD("--")
thisform.kode_kamar.SetFocus






I N P U T
GRAFIK DAN BAGAN ALIR