home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / dict / dict.edt < prev    next >
Encoding:
Text File  |  1986-02-17  |  4.3 KB  |  139 lines
  1. * DICT.EDT
  2. * Paul Ferrara [70075,252]
  3. * Bill Lonborg [70045,1237]
  4. * Last Change: 02-17-86 00:05
  5. *
  6. SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  7. CLEAR
  8. @  1, 0 SAY "EDIT THE DICTIONARY"
  9. @  1,72 SAY date()
  10. @  2, 0 SAY "═══════════════════════════════════════════════════════"
  11. @  2,55 SAY "═════════════════════════"
  12. @ 22, 0 SAY "═══════════════════════════════════════════════════════"
  13. @ 22,55 SAY "═════════════════════════"
  14. @ 23,14 SAY "1=next file  2=forwards     3=backwards     4=insert"
  15. @ 24,14 SAY "5=delete     6=delete file  0=exit to menu"
  16. SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  17. @  4, 4 SAY "Enter filename"
  18. @  5, 4 SAY "File Description"
  19. @  7, 4 SAY "Field #"
  20. @  8, 4 SAY "Field name"
  21. @  9, 4 SAY "Field type"
  22. @ 10, 4 SAY "Field length"
  23. @ 11, 4 SAY "Decimals places"
  24. @ 12, 4 SAY "Field description"
  25. @ 14,31 SAY "Select option"
  26. IF .NOT. FILE("DICTNARY.DBF")
  27.    SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  28.    @ 20,30 SAY "No dictionary file."
  29.    SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  30.    @ 21,29 SAY "Press any key to quit."
  31.    SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  32.    SET CONSOLE OFF
  33.    WAIT
  34.    SET CONSOLE ON
  35.    CLOSE DATABASES
  36.    CLEAR
  37.    RETURN
  38. ENDIF
  39. SELECT 1
  40. USE dictnary
  41. STORE 2 TO choice
  42. DO WHILE .NOT. choice=0
  43.    STORE SPACE(8) TO mfileinput
  44.    @  4,22 GET mfileinput PICTURE "!!!!!!!!"
  45.    READ
  46.    LOCATE FOR file_name="&mfileinput"
  47.    IF EOF()
  48.       * say file not found
  49.       SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  50.       @ 20,31 SAY "Invalid filename."
  51.       SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  52.       @ 21,19 SAY "Press 'Q' to quit, or any key to continue."
  53.       SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  54.       SET CONSOLE OFF
  55.       WAIT TO option
  56.       SET CONSOLE ON
  57.       IF UPPER(option)="Q"
  58.          CLOSE DATABASES
  59.          CLEAR
  60.          RETURN
  61.       ELSE
  62.          @ 20, 0
  63.          @ 21, 0
  64.          LOOP
  65.       ENDIF
  66.    ELSE
  67.       @  5,22 GET field_desc
  68.       READ
  69.       SKIP
  70.    ENDIF
  71.    * found 1st field in database
  72.    STORE "CLEAR GETS" TO macro
  73.    STORE 1 TO mcounter
  74.    STORE 2 TO choice
  75.    DO WHILE choice<>0 .AND. choice<>1
  76.       SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  77.       @  7,23 SAY mcounter PICTURE "999"
  78.       SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  79.       @  8,22 GET field_name PICTURE "!!!!!!!!!!"
  80.       @  9,22 GET field_type PICTURE "@! A"
  81.       @ 10,22 GET field_len
  82.       @ 11,22 GET field_dec
  83.       @ 12,22 GET field_desc
  84.       ¯o
  85.       @ 14,45 GET choice PICTURE "9" RANGE 0,6
  86.       READ
  87.       * "1=next file  2=forwards     3=backwards     4=insert"
  88.       * "5=delete     6=delete file  0=exit to menu"
  89.       DO CASE
  90.          CASE choice=2
  91.             IF .NOT. EOF()
  92.                SKIP
  93.                STORE mcounter+1 TO mcounter
  94.                IF file_name<>"&mfileinput" .OR. EOF()
  95.                   SKIP -1
  96.                   STORE mcounter-1 TO mcounter
  97.                ENDIF
  98.                STORE "CLEAR GETS" TO macro
  99.          CASE choice=3
  100.             IF .NOT. BOF()
  101.                SKIP-1
  102.                STORE mcounter-1 TO mcounter
  103.                IF file_name<>"&mfileinput" .OR. field_type="X" .OR. BOF()
  104.                   SKIP
  105.                   STORE mcounter+1 TO mcounter
  106.                ENDIF
  107.                STORE "CLEAR GETS" TO macro
  108.          CASE choice=4
  109.             INSERT BEFORE BLANK
  110.             REPLACE file_name WITH "&mfileinput"
  111.             STORE "READ" TO macro
  112.          CASE choice=5
  113.             DELETE
  114.             SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  115.             @ 20,33 SAY "Field omitted."
  116.             SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  117.             @ 14,45 GET choice PICTURE "9" RANGE 0,6
  118.             READ
  119.             STORE "CLEAR GETS" TO macro
  120.             SKIP
  121.             @ 20, 0
  122.          CASE choice=6
  123.             SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  124.             @ 20,33 SAY "File omitted."
  125.             SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  126.             GO TOP
  127.             LOCATE FOR file_name="&mfileinput"
  128.             DELETE WHILE file_name="&mfileinput"
  129.             @ 14,45 GET choice PICTURE "9" RANGE 0,1
  130.             READ
  131.             STORE "CLEAR GETS" TO macro
  132.             @ 20, 0
  133.       ENDCASE
  134.    ENDDO
  135. ENDDO
  136. CLEAR
  137. CLOSE DATABASES
  138. RETURN
  139.