home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / DBASE-3.PLS / EDIT.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  63 lines
  1.  * ===============================================================
  2. *        BANKING  RECORD  EDITTING   PROGRAM   
  3. *             PREPAIRED BY  KHALID RAFIQ 
  4. * ===============================================================   
  5. USE KMASTER INDEX KMASTER
  6. MACNO=(0)
  7. CHOICE=' '
  8.  
  9. DO WHILE .T.
  10.  
  11.         CLEA
  12.        @ 2,2  TO 24,77 DOUB
  13.        @ 22,3 TO 22,76 DOUB    
  14.        @ 4,25 SAY 'EDITTING SCREEN OF ACCOUNT '
  15.        @ 3,23 TO 5,52
  16.        @ 3,5 SAY 'TIME IS : '+(TIME())
  17. STORE 0 TO MACNO
  18.  @ 6,4 SAY 'ACC.NO FOR EDIT ..OR..(0 for exit) =>'GET MACNO PICT '99999' 
  19.  READ
  20.    IF MACNO = 0
  21.      CLOSE ALL
  22.      CLEA
  23.      DO MM
  24.    ENDI
  25. * ..............searching for input a/c no .......................
  26.  
  27.  SEEK MACNO
  28.     IF .NOT. FOUND()
  29.     @ 21,25 SAY '   WANTED ACC.NO IS NOT EXIST '
  30.     DO KHALID
  31.     LOOP
  32.     ELSE
  33. * .............display the contant of records ...................
  34.  
  35. *  @ 7,4 SAY  'DATE OF OPENING          =>  ' + DTOC(DATE_OPEN)
  36.   @ 9,4  SAY  'NAME (or blank to exit)  => ' + ACTI
  37.   @ 11,4 SAY 'PHONE NO     (RES)       => ' + STR(PHON)
  38.   @ 13,4 SAY 'ADDRESS                  => ' + ADDR  
  39.   @ 15,4 SAY 'OPENING BALANCE          => ' + STR(OPBA)
  40.   @ 17,4 SAY 'CURRENT BALANCE          => ' + STR(CUBA)
  41. *  @ 19,4 SAY 'NATURE OF ACCOUNT        => ' + C_S
  42. ENDIF
  43. * .......... input edited records in field variables ...........
  44. DO KHALID
  45. @ 9,32 CLEA TO 11,70
  46. @ 14,4 CLEA TO 19,70
  47. @ 23,1 CLEA TO 23,70
  48.   @ 9,32 GET ACTI PICT '@!'
  49.   READ
  50.   @ 11,32 GET PHON PICT '9999999'
  51.   READ
  52.   @ 13,32 GET ADDR   
  53.   READ
  54. ENDDO
  55. @ 22,30 SAY 'DO YOU WANT TO CONT ' GET CHOICE PICT '@!'
  56. READ
  57. IF CHOICE ='Y'
  58. LOOP
  59. ELSE
  60. CLOSE ALL
  61. CLEA ALL
  62. DO MM
  63.