Senin, 06 Februari 2012

Contoh program mudah FOXPRO (Example a FOXPRO Language Program)

FoSET CLOCK OFF
SET TALK OFF
CLOSE DATABASE
SET SAFETY OFF
USE AKU
INDEX ON NO TO INO

CLEAR
N=SPACE(3)
NM=SPACE(15)
ALM=SPACE(40)
JWB1=SPACE(1)
JWB2=SPACE(1)
@10,20 TO 30,60 DOUBLE
@12,22 SAY "MASUKAN NOMOR"
@13,22 SAY "MASUKAN NAMA"
@14,22 SAY "MASUKAN ALAMAT"
@12,38 GET N
READ
IF N=SPACE(3)
EXIT
ENDIF
SEEK N
IF FOUND()
N=NO
NM=NAMA
ALM=ALAMAT
@13,38 SAY NAMA
@14,38 SAY ALAMAT
@16,22 SAY "DATA ADA"
ELSE
@16,22 SAY"DATA TIDAK ADA"
@13,38 GET NM
@14,38 GET ALM
READ
@16,22 SAY "DISIMPPAN KAH:"
@16,38 GET JWB1
READ
IF JWB1="Y" OR JWB1="y" THEN
APPEND BLANK
REPLACE NO WITH N
REPLACE NAMA WITH NM
REPLACE ALAMAT WITH ALM
@17,22 SAY "DATA TERSIMPAN"
ENDIF
ENDIF

Tidak ada komentar: