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