Program Dbase :Edit data dengan Validasi

bagi yang sedang mencari source code program dbase dengan validasi, source code dibawah ini semoga dapat membantu..

SET TALK OFF
SET SCOR OFF
SET STAT OFF
SET DATE ITAL
USE DOKTER INDEX XKD_DOK
DO WHILE .T.
   CLEAR
   SET COLOR TO B/G
   MKD_DOK=SPACE(4)
   MNAMA=SPACE(12)
   MSPECIAL=SPACE(12)
   MSTATUSS=SPACE(1)
   MALAMAT=SPACE(12)
   @3,10 CLEAR TO 20,65
   @3,10 TO 20,65
   @5,17 SAY 'PROGRAM EDIT DATA'
   @6,14 SAY '============================='
   @8,22 SAY 'KODE DOKTER = 'GET MKD_DOK PICT '@!'
   READ
   SEEK MKD_DOK
   IF .NOT. FOUND()
SET COLOR TO R/GR
@23,20 SAY 'KODE DOKTER TIDAK ADA,GANTI YANG LAIN.....!!!!!'
WAIT''
LOOP
   ELSE
IF STATUSS
   MSTATUSS='T'
ELSE
   MSTATUSS='J'
ENDIF
@9,22 SAY 'NAMA DOKTER ='+NAMA
@10,22 SAY 'STATUSS ='+MSTATUSS
@11,22 SAY 'SPECIAL ='+SPECIAL
@12,22 SAY 'ALAMAT ='+ALAMAT
   ENDIF
   MJAWAB=SPACE(1)
   @14,15 SAY 'ANDA YAKIN MENGEDIT INI (Y/T)? 'GET MJAWAB PICT '@!'
   READ
   IF MJAWAB= 'Y'
@14,15 CLEAR TO 14,40
@9,22 SAY 'NAMA DOKTER = 'GET MNAMA PICT '@!'
@10,22 SAY 'STATUSS = 'GET MSTATUSS PICT '@!'
@11,22 SAY 'SPECIAL = 'GET MSPECIAL
@12,22 SAY 'ALAMAT = 'GET MALAMAT
READ
   ENDIF
   REPL KD_DOK WITH MKD_DOK
   REPL NAMA WITH MNAMA
   IF MSTATUSS= 'J'
REPL STATUSS WITH .F.
   ELSE
REPL STATUSS WITH .T.
   ENDIF
   REPL ALAMAT WITH MALAMAT
   REPL SPECIAL WITH MSPECIAL
   MTANYA=SPACE(1)
   @14,15 SAY 'APAKAH ANDA INGIN EDIT DATA LAGI...(Y/T)? 'GET MTANYA PICT '@!'
   READ
   IF MTANYA= 'Y'
LOOP
   ELSE
EXIT
   ENDIF
ENDDO