home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dop.zip / DOP2.PRG < prev    next >
Text File  |  1985-09-16  |  9KB  |  297 lines
  1. ************   DOP2.PRG    VER 2.3  DBASE II VERSION    ***********
  2. ** BY GARY C. AREY  1030 HOLLAND DR. GARLAND, TX  75040  7/26/84 **
  3. SET TALK OFF
  4. SET FORMAT TO SCREEN
  5. CLEAR
  6. ERASE
  7. ?  'The following .DBF files are on the default drive:'
  8.   LIST FILES LIKE *.DBF
  9. ?
  10.   ACCEPT 'WHAT DATABASE DO YOU WISH TO USE ' TO BB
  11. DO WHILE T
  12. ERASE
  13.    @ 01,27 SAY 'DBASE II OPERATIONS MENU'
  14.    @ 02,27 SAY '========================'
  15.    @ 04,17 SAY 'The Current .DBF File Now In Use is :'
  16.    @ 04,56 SAY !('&BB') PICTURE "!!!!!!!!!!!!"
  17.    @ 08,11 SAY ' 1> List'
  18.    @ 09,11 SAY ' 2> Browse                         <S> Save Current Data File'
  19.    @ 10,11 SAY ' 3> Edit Record                    <I> Initialize Data File'
  20.    @ 11,11 SAY ' 4> Search Character Field         <E> Erase Data File'
  21.    @ 12,11 SAY ' 5> Search Numeric Field           <C> Create .DBF'
  22.    @ 13,11 SAY ' 6> Append (Add Records)           <N> Change Database'
  23.    @ 14,11 SAY ' 7> Mark to Delete                 <D> Delete (Pack)'
  24.    @ 15,11 SAY ' 8> Report to Screen               <P> Report Print '
  25.    @ 16,11 SAY ' 9> View Structure                 <F> View Files   '
  26.    @ 17,11 SAY ' X> Exit To DBASE . Prompt         <Q> Quit to DOS  '
  27. SET CONSOLE OFF
  28. WAIT TO Action
  29. SET CONSOLE ON
  30.        IF !(Action)= '1'
  31.          ERASE
  32.          USE &BB
  33.          INPUT 'BEGINNING RECORD NO. ' TO Q
  34.          ?
  35.    ACCEPT 'Do you want to PRINT the result?  (Y)es (N)o ' to PR
  36.    IF !(PR) = 'Y'
  37.    SET PRINT ON
  38.    ENDIF
  39.    RELEASE PR
  40.          ERASE
  41.          GOTO Q
  42.          LIST FOR # >= Q
  43.    SET PRINT OFF
  44.           WAIT
  45.           USE
  46.            ELSE
  47.              IF !(Action)= '2'
  48.                ERASE
  49.                USE &BB
  50.           ? 'While BROWSING you may Return to enter and move through record.'
  51.           ? 'Control B  moves screen right one field.      '
  52.           ? 'Control Z  moves screen left one field.       '
  53.           ? 'Control X  moves cursor right one field.             '
  54.           ? 'Control E  moves cursor left one field.              '
  55.           ? 'PgUp and PgDn  moves edit line up and down one record.'
  56.           ? 'Control Q  quits without saving changes.      '
  57.           ? 'Control W  saves changes and quits.           '
  58.           ?
  59.                 INPUT 'BEGINNING RECORD NO. ' TO Q
  60.                 GOTO Q
  61.                BROWSE
  62.                USE
  63.            ELSE
  64.              IF !(Action)= '3'
  65.              ERASE
  66.              USE &BB
  67.            ? 'While EDITING you may Return to enter record and complete Edit.'
  68.            ? 'Control Q  quits without saving changes.'
  69.            ? 'Control W  saves changes and quits.'
  70.            ?
  71.              EDIT
  72.              USE
  73.            ELSE
  74.              IF !(Action)= '4'
  75.              ERASE
  76. ACCEPT ' Do you wish to SEARCH on (1) or (2) fields? ' to QR
  77.   IF !(QR)= '1'
  78.              ERASE
  79.              USE &BB
  80.              LIST STRUCTURE
  81.                ?
  82.                ACCEPT 'SEARCH FIELD ' TO SF
  83.                ACCEPT 'SEARCH FOR   ' TO CN
  84.     ?
  85.     ACCEPT 'Do you want to PRINT the result?  (Y)es (N)o ' to PR
  86.     IF !(PR)='Y'
  87.     SET PRINT ON
  88.     ENDIF
  89.     RELEASE PR
  90.              ERASE
  91.              LIST FOR !('&CN')$&SF
  92.     SET PRINT OFF
  93.              USE
  94.              WAIT
  95.              ENDIF
  96.   IF !(QR)= '2'
  97.              ERASE
  98.              USE &BB
  99.              LIST STRUCTURE
  100.              ?
  101.              ACCEPT 'Enter Search Field 1 ' to SF
  102.              ACCEPT 'Search for           ' to CN
  103.              ACCEPT 'Enter Search Field 2 ' to SF2
  104.              ACCEPT 'Search for           ' to CN2
  105.      ?
  106.      ACCEPT 'Do you want to PRINT the result?  (Y)es (N)o ' to PR
  107.      IF !(PR)='Y'
  108.      SET PRINT ON
  109.      ENDIF
  110.      RELEASE PR
  111.              ERASE
  112.              LIST FOR !('&CN')$&SF .AND. !('&CN2')$&SF2
  113.      SET PRINT OFF
  114.              USE
  115.              WAIT
  116.              ENDIF
  117.            ELSE
  118.              IF !(Action)= '5'
  119.              ERASE
  120.              USE &BB
  121.              LIST STRUCTURE
  122.                ?
  123.                ACCEPT 'NUMERIC SEARCH FIELD ' TO NF
  124.                INPUT  'NUMERIC AMOUNT       ' TO NN
  125.                ACCEPT '<  =  > ' TO E
  126.                ?
  127.     ACCEPT 'Do you want to PRINT the result?  (Y)es (N)o ' to PR
  128.     IF !(PR)='Y'
  129.     SET PRINT ON
  130.     ENDIF
  131.     RELEASE PR
  132.              ERASE
  133.              LIST FOR &NF &E NN
  134.     SET PRINT OFF
  135.              WAIT
  136.              USE
  137.            ELSE
  138.              IF !(Action)= '6'
  139.              ERASE
  140.              USE &BB
  141.     ? 'In APPEND mode  Control W  quits and saves new records to disk.'
  142.     ? '                Control Q  quits without saving new records.'
  143.     ? '   RETURN to begin entering records.'
  144.     WAIT
  145.              APPEND
  146.              USE
  147.            ELSE
  148.              IF !(Action)= '7'
  149.              ERASE
  150.              USE &BB
  151.              ACCEPT 'RECORD NO. TO BE MARKED FOR DELETION ' TO RD
  152.              DELETE RECORD &RD
  153.            ?   'SELECTED RECORD WAS MARKED FOR DELETION !'
  154.              WAIT
  155.              ERASE
  156.              USE
  157.            ELSE
  158.              IF !(Action)= 'N'
  159.              ERASE
  160.              RELEASE ALL
  161.           ? 'The following .DBF files are on the default drive :'
  162.              LIST FILES LIKE *.DBF
  163.              ?
  164.              ACCEPT 'ENTER NAME OF NEW DATABASE YOU WISH TO USE ' TO BB
  165.            ELSE
  166.              IF !(Action)='C'
  167.              ERASE
  168.           ? 'The following .DBF files already exist on the default drive : '
  169.              LIST FILES LIKE *.DBF
  170.              ? '     RETURN to begin CREATING .DBF File.'
  171.              WAIT
  172.              CREATE
  173.              ERASE
  174.            ELSE
  175.              IF !(Action)= 'D'
  176.              ERASE
  177.              USE &BB
  178.              PACK
  179.            ?   'PACK AND DELETION COMPLETED ! '
  180.              USE
  181.            ELSE
  182.              IF !(Action)= '8'
  183.              ERASE
  184.              USE &BB
  185.      ? 'The following .FRM  Report Forms are on the default drive :'
  186.         LIST FILES LIKE *.FRM
  187.      ?
  188.              REPORT
  189.              WAIT
  190.              USE
  191.            ELSE
  192.              IF !(Action)= 'P'
  193.              ERASE
  194.              USE &BB
  195.            INPUT 'ENTER NUMBER OF COPIES TO PRINT  ' TO MNO
  196.            ?
  197.       ? 'The following .FRM Report Forms are on the default drive :'
  198.          LIST FILES LIKE *.FRM
  199.       ?
  200.              ACCEPT 'NAME OF REPORT YOU WISH TO PRINT ' TO RF
  201.            DO WHILE .NOT. EOF
  202.            DO WHILE MNO > 0
  203.            STORE MNO-1 TO MNO
  204.              ERASE
  205.              REPORT FORM &RF TO PRINT
  206.            ENDDO
  207.            ENDDO
  208.              WAIT
  209.              USE
  210.            ELSE
  211.              IF !(Action)= '9'
  212.              ERASE
  213.              USE &BB
  214.              LIST STRUCTURE
  215.              WAIT
  216.              USE
  217.            ELSE
  218.              IF !(Action)= 'F'
  219.              ERASE
  220.           ? 'ENTER FILE SPEC to VIEW FILES on Default Drive ;'
  221.           ?
  222.           ? '      DBF  for Database Files'
  223.           ? '      FRM  for Report Form Files'
  224.           ? '      PRG  for Command Program Files'
  225.           ? '      FMT  for Format Files'
  226.           ? '      NDX  for Index Files'
  227.           ? '      MEM  for Memory Files'
  228.           ?
  229.              ACCEPT 'ENTER FILE SPEC ' TO FS
  230.              LIST FILES LIKE *.&FS
  231.              WAIT
  232.            ELSE
  233.              IF !(Action)= 'I'
  234.              ERASE
  235.              USE &BB
  236. @ 08,05 SAY "CAUTION!: (Y)es  ERASES ALL DATA in the Current Database."
  237. @ 09,05 SAY "          (N)o   Returns to Main Menu without Erasing Records in File."
  238. @ 11,05 SAY "If you have answered  (Y)es  you are in  Modify Structure Mode  and a   "
  239. @ 12,05 SAY "   Control W  will return you to the Main Menu and re-write the blank file."
  240.              MODIFY STRUCTURE
  241.              USE
  242.            ELSE
  243.              IF !(Action)= 'S'
  244.              ERASE
  245.              USE &BB
  246.              @ 10,0
  247.              ACCEPT 'Enter Filename for the Save file ' to FLN
  248.              @ 12,0
  249. @ 12,25 SAY 'Copying to Named Data File ! '
  250.              COPY TO &FLN
  251.              USE
  252.            ELSE
  253.              IF !(Action)='E'
  254.              ERASE
  255.                   ? 'RETURN if you do NOT wish to Erase a File.'
  256.                   ?
  257.              ACCEPT 'Enter Complete File Name you wish to ERASE ! ' to ERS
  258.              DELETE FILE &ERS
  259.              RELEASE ERS
  260.            ELSE
  261.              IF !(Action)= 'Q'
  262.              RELEASE ALL
  263.              ERASE
  264.              CLEAR
  265.              QUIT
  266.            ELSE
  267.              IF !(Action)= 'X'
  268.                CLEAR
  269.              RETURN
  270.            ENDIF
  271.           ENDIF
  272.           ENDIF
  273.           ENDIF
  274.           ENDIF
  275.           ENDIF
  276.           ENDIF
  277.           ENDIF
  278.           ENDIF
  279.           ENDIF
  280.           ENDIF
  281.           ENDIF
  282.           ENDIF
  283.           ENDIF
  284.           ENDIF
  285.           ENDIF
  286.          ENDIF
  287.         ENDIF
  288.        ENDIF
  289.       ENDDO
  290. RELEASE T, ACTION
  291.          ENDIF
  292.           ENDIF
  293.           ENDIF
  294.          ENDIF
  295.         ENDIF
  296.        ENDIF
  297.