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