home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbdict.zip / DICT.ADD < prev    next >
Text File  |  1986-02-17  |  4KB  |  132 lines

  1. * DICT.ADD
  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 "ADD FILES TO THE DICTIONARY"
  9. @  1,72 SAY date()
  10. @  2, 0 SAY "═══════════════════════════════════════════════════════"
  11. @  2,55 SAY "═════════════════════════"
  12. SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  13. @  4, 4 SAY "Enter filename"
  14. @  5, 4 SAY "File Description"
  15. @  7, 4 SAY "Field #"
  16. @  8, 4 SAY "Field name"
  17. @  9, 4 SAY "Field type"
  18. @ 10, 4 SAY "Field length"
  19. @ 11, 4 SAY "Decimals places"
  20. @ 12, 4 SAY "Field description"
  21. @ 14,31 SAY "Select option"
  22. @ 15, 0
  23. SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  24. DIR *.DBF
  25. @ row()-1, 0
  26. @ row()-1, 0
  27. @ 23, 0 SAY "═══════════════════════════════════════════════════════"
  28. @ 23,55 SAY "═════════════════════════"
  29. @ 24,16 SAY "1=next file  2=delete this file  0=exit to menu"
  30. SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  31. SELECT 1
  32. USE dbstru
  33. IF .NOT. FILE("DICTNARY.DBF")
  34.    COPY STRUCTURE TO dictnary
  35. ENDIF
  36. SELECT 2
  37. USE dictnary
  38. STORE 1 TO choice
  39. DO WHILE .NOT. choice=0
  40.    STORE SPACE(8) TO mfileinput
  41.    @  4,22 GET mfileinput PICTURE "!!!!!!!!"
  42.    READ
  43.    * test filename
  44.    STORE TRIM(mfileinput)+".DBF" TO mfilename
  45.    IF .NOT. FILE(mfilename)
  46.       * say file not found
  47.       SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  48.       @ 21,31 SAY "Invalid filename."
  49.       SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  50.       @ 22,19 SAY "Press 'Q' to quit, or any key to continue."
  51.       SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  52.       SET CONSOLE OFF
  53.       WAIT TO option
  54.       SET CONSOLE ON
  55.       IF UPPER(option)="Q"
  56.          EXIT
  57.       ELSE
  58.          @ 21, 0
  59.          @ 22, 0
  60.          LOOP
  61.       ENDIF
  62.    ELSE
  63.       * say please wait
  64.       SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  65.       @ 21,34 SAY "Please wait."
  66.       SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  67.       SELECT 10
  68.       USE &mfileinput
  69.       COPY STRUCTURE EXTENDED TO temp.str
  70.       SELECT dbstru
  71.       COPY STRUCTURE TO temp
  72.       SELECT 9
  73.       USE temp
  74.       APPEND BLANK
  75.       REPLACE field_type WITH "X"
  76.       APPEND FROM temp.str
  77.       ERASE temp.str
  78.       REPLACE ALL file_name WITH mfileinput
  79.       @ 21, 0
  80.       GO TOP
  81.       @  5,22 GET field_desc
  82.       READ
  83.       SKIP
  84.       STORE 0 TO mcounter
  85.       DO WHILE .NOT. EOF()
  86.          STORE mcounter+1 TO mcounter
  87.          SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  88.          @  7,22 SAY mcounter PICTURE "999"
  89.          @  8,22 SAY field_name
  90.          @  9,24 SAY field_type
  91.          @ 10,22 SAY field_len
  92.          @ 11,22 SAY field_dec
  93.          SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  94.          @ 12,22 GET field_desc
  95.          READ
  96.          SKIP
  97.       ENDDO
  98.       @ 14,45 GET choice PICTURE "9" RANGE 0,2
  99.       READ
  100.       IF choice=2
  101.          *
  102.          SELECT temp
  103.          USE
  104.          SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  105.          @ 21,33 SAY "File omitted."
  106.          SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  107.          @ 14,45 GET choice PICTURE "9" RANGE 0,1
  108.          READ
  109.       ELSE
  110.          * append to dictnary.dbf
  111.          SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  112.          @ 21,34 SAY "Please wait."
  113.          SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  114.          SELECT temp
  115.          USE
  116.          SELECT dictnary
  117.          LOCATE FOR file_name=mfileinput
  118.          IF .NOT. EOF()
  119.             DELETE WHILE file_name=mfileinput
  120.          ENDIF
  121.          APPEND FROM temp
  122.          @ 21, 0
  123.       ENDIF
  124.    ENDIF
  125. ENDDO
  126. CLOSE DATABASES
  127. IF FILE("TEMP.DBF")
  128.    ERASE temp.dbf
  129. ENDIF
  130. CLEAR
  131. RETURN
  132.