home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgLangD.iso
/
DbaseIII
/
EDIT.PRG
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
63 lines
* ===============================================================
* BANKING RECORD EDITTING PROGRAM
* PREPAIRED BY KHALID RAFIQ
* ===============================================================
USE KMASTER INDEX KMASTER
MACNO=(0)
CHOICE=' '
DO WHILE .T.
CLEA
@ 2,2 TO 24,77 DOUB
@ 22,3 TO 22,76 DOUB
@ 4,25 SAY 'EDITTING SCREEN OF ACCOUNT '
@ 3,23 TO 5,52
@ 3,5 SAY 'TIME IS : '+(TIME())
STORE 0 TO MACNO
@ 6,4 SAY 'ACC.NO FOR EDIT ..OR..(0 for exit) =>'GET MACNO PICT '99999'
READ
IF MACNO = 0
CLOSE ALL
CLEA
DO MM
ENDI
* ..............searching for input a/c no .......................
SEEK MACNO
IF .NOT. FOUND()
@ 21,25 SAY ' WANTED ACC.NO IS NOT EXIST '
DO KHALID
LOOP
ELSE
* .............display the contant of records ...................
* @ 7,4 SAY 'DATE OF OPENING => ' + DTOC(DATE_OPEN)
@ 9,4 SAY 'NAME (or blank to exit) => ' + ACTI
@ 11,4 SAY 'PHONE NO (RES) => ' + STR(PHON)
@ 13,4 SAY 'ADDRESS => ' + ADDR
@ 15,4 SAY 'OPENING BALANCE => ' + STR(OPBA)
@ 17,4 SAY 'CURRENT BALANCE => ' + STR(CUBA)
* @ 19,4 SAY 'NATURE OF ACCOUNT => ' + C_S
ENDIF
* .......... input edited records in field variables ...........
DO KHALID
@ 9,32 CLEA TO 11,70
@ 14,4 CLEA TO 19,70
@ 23,1 CLEA TO 23,70
@ 9,32 GET ACTI PICT '@!'
READ
@ 11,32 GET PHON PICT '9999999'
READ
@ 13,32 GET ADDR
READ
ENDDO
@ 22,30 SAY 'DO YOU WANT TO CONT ' GET CHOICE PICT '@!'
READ
IF CHOICE ='Y'
LOOP
ELSE
CLOSE ALL
CLEA ALL
DO MM