home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a042 / 2.ddi / DEMO / ERRTEST.PRG < prev    next >
Encoding:
Text File  |  1991-01-22  |  4.4 KB  |  162 lines
  1. STORE 0 TO mdel
  2. CREATE BUTTON "PgUp" AT 21,8
  3. CREATE BUTTON "PgDn" AT 21,24
  4. CREATE BUTTON "First" AT 21,40
  5. CREATE BUTTON "Last" AT 21,56
  6. CREATE POPUP menu "FILE" "List all;New Record;Delete;Reindex;Browse;Zap;Quit" AT 5,5
  7. CREATE POPUP menu "SEARCH" "Find First;Find Last;Find by Name;Sort by Name;Sort by Record #" AT 5,5
  8. CREATE POPUP menu "OPTIONS" "Get Color;Exit Color;Say Color;Read Color;Deleted on-off" AT 5,5
  9. *Note that "from" menus must be spelled exactly alike, including case.
  10. CREATE PULLDOWN MENU "bigmenu" FROM "FILE","SEARCH","OPTIONS"
  11. SET menu TO "bigmenu"
  12. @ 1,1 TO 21,75 double
  13. @ 2,24 SAY 'Windows/286 Demo'  FONT 12
  14. *@ 3,12 SAY 'Ax' FONT 13
  15. *@ 3,63 SAY 'xA' FONT 13
  16. @ 5,3 SAY 'Name'
  17. @ 5,40 SAY 'SSN'
  18. @ 8,3 SAY 'Address'
  19. @ 11,3 SAY 'City'
  20. @ 11,45 SAY 'State'
  21. @ 11,55 SAY 'Zip'
  22. @ 14,3 SAY 'Phone'
  23. @ 14,45 SAY 'Date'
  24. USE name
  25. STORE 1 TO pass
  26. DO WHILE .T.
  27.   IF DELETED()
  28.     @ 18,3 SAY 'Deleted Rec
  29.   ELSE
  30.     @  18,3 SAY 'Active Rec '
  31.   ENDIF
  32.   IF pass <> 0
  33.     @ 18,20 SAY 'Record # '+str(recno(),4)
  34.     @ 5,8 GET name MESSAGE 'Enter the Customer Name'
  35.     @ 5,44 GET ssn MESSAGE 'Enter the Customer Social Security Number'
  36.     @ 8,11 GET address
  37.     @ 11,8 GET city
  38.     @ 11,51 GET state MESSAGE "Enter only 'WA'" ;
  39.    VALID state = 'WA' ERROR "Please enter only 'WA' for this field"
  40.     @ 11,59 GET zip
  41.     @ 14,9 GET phone PICTURE '(###)###-####'
  42.     @ 14,50 GET date
  43.     READ
  44.   ELSE
  45.     CLEAR GETS
  46.   ENDIF
  47.   STORE pass+1 TO pass
  48.   STORE event() TO dowhat
  49.   DO CASE
  50.      CASE dowhat = 1 | keyboard event
  51.         SKIP
  52.         IF EOF()
  53.            BEEP
  54.            SKIP -1
  55.         ENDIF
  56.      CASE dowhat = 2 | menu event
  57.         menunum = HMENU()  | returns the horizontal menu number 
  58.         menuitem = VMENU()   | returns the vertical menu number
  59.         IF menunum = 1
  60.            DO CASE
  61.               CASE menuitem = 1
  62.                 SET CONSOLE OFF
  63.                 LIST ALL name, address, city, state, zip TO PRINT
  64.                 SET CONSOLE ON
  65.           GO TOP
  66.           EJECT
  67.               CASE menuitem = 2
  68.                 APPEND BLANK
  69.               CASE menuitem = 3
  70.                 DELETE
  71.                 @ 18,30 SAY 'Deleted'
  72.               CASE menuitem = 4
  73.            USE name
  74.                  INDEX ON name TO name
  75.                  USE name INDEX name
  76.            CASE menuitem = 5
  77.            BROWSE
  78.  
  79.            CASE menuitem = 6
  80.            ZAP
  81.            CASE menuitem = 7
  82.              EXIT
  83.           ENDCASE
  84.          ELSE
  85.       IF menunum = 2
  86.             DO CASE
  87.                CASE menuitem = 1
  88.                  GOTO TOP
  89.                CASE menuitem = 2
  90.                  GOTO BOTTOM
  91.                CASE menuitem = 3
  92.            @ 18,3 SAY space(50)
  93.            SET INDEX TO name
  94.                  STORE SPACE(20 TO mname
  95.                  @ 18,3 SAY 'Enter the name to find ' GET mname
  96.                  READ
  97.            @ 18,3 SAY SPACE(50)
  98.            STORE trim(mname) mnamE
  99.                  FIND mname
  100.                  IF EOF()
  101.                    BEEP
  102.                    GOTO BOTTOM
  103.                  ENDIF
  104.              CASE menuitem = 4
  105.                  USE name INDEX name 
  106.           CASE menuitem = 5
  107.            USE name
  108.              ENDCASE
  109.        ELSE
  110.           DO CASE
  111.        CASE menuitem = 1
  112.           SET GET VIDEO TO 7
  113.           CASE menuitem = 2
  114.           SET EXIT VIDEO TO 7
  115.        CASE menuitem = 3
  116.           SET SAY VIDEO TO 112
  117.        CASE menuitem = 4
  118.           SET READ VIDEO TO 7
  119.           CASE menuitem = 5
  120.           IF mdel = 0
  121.              mdel = 1
  122.              SET DELETED ON
  123.           ELSE
  124.              mdel = 0
  125.              SET DELETED OFF
  126.           ENDIF
  127.           ENDCASE
  128.        ENDIF
  129.      ENDIF
  130.       CASE dowhat = 6 | BUTTON event
  131.           STORE BUTTON() TO btext
  132.           DO CASE
  133.              CASE btext = 'PgUp'
  134.                SKIP -1
  135.                IF BOF()
  136.            BEEP
  137.                  SKIP
  138.                ENDIF
  139.              CASE btext = 'PgDn'
  140.                SKIP
  141.                IF EOF()
  142.                BEEP
  143.                SKIP -1
  144.                ENDIF
  145.              CASE btext = 'First'
  146.                GOTO TOP
  147.              CASE btext = 'Last'
  148.                GOTO BOTTOM
  149.              OTHERWISE
  150.                 ?
  151.                 ?
  152.                 ? 'Not certain as to what you have tried to do.'
  153.                 WAIT 'Please press any key to try again....'
  154.           ENDCASE
  155.    ENDCASE
  156. ENDDO
  157. SET MENU TO
  158. CLOSE ALL
  159. RETURN
  160.  
  161.  
  162.