home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / GROCERY / GROCERY.APP (.txt) next >
Encoding:
MS Visual FoxPro App  |  1993-02-01  |  1.9 KB  |  41 lines
  1. _The GROCERY.PRG program illustrates how to use the VALID clause to skip over GET objects. The GetItem() function returns a number to the VALID clause which skips to the proper "units" (items, weight, volume) depending on the grocery item (Bread, Apples, or Milk) selected. Then, when the approprate quantity is entered, the VALID clause skips over the other "unit" fields to the name field. For example, the VALID 2 clause skips over two fields (or get objects).
  2. grocery
  3. Grocery Orders
  4. Bread
  5. Apples
  6. DO DestroyPopup
  7. Enter Food Item: 
  8. Weight: 
  9. Items:
  10. Pounds
  11. Volume:
  12. Gallons
  13. Name:   
  14. Address:
  15. City:   
  16. GROCERY
  17. ..FOODITEM
  18. nNAME
  19. t labADDRESS
  20. PCITY
  21. ntly WEIGHT
  22. ecoITEMS
  23. ked VOLUME
  24. tioGETITEM
  25. Bread
  26. Apples
  27. DestroyPopup - Deactivates Popup Grocery
  28. GROCERY
  29. ..OPTIONS
  30. nFOODITEM
  31. bDESTROYPOP
  32. FOODITEM
  33. .GROCERY
  34. nGETITEM
  35. DESTROYPOP
  36. f:\jebwin\vol2num0\grocery\
  37. GROCERY.ART
  38. f:\jebwin\vol2num0\grocery\grocery.prg
  39. h:\foxprow\
  40. GROCERY.FXP
  41.