Advertisement
LeoLDB

VFP9 S02 E03 - MENIURI ORIZONTALE

Apr 12th, 2018
363
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. Meniuri orizontale
  2.  
  3. 1. Definirea meniului
  4.  
  5. DEFINE MENU nume_meniu [MESSAGE mesaj]
  6.  
  7. DEFINE MENU meniu_oriz MESSAGE problema1
  8.  
  9. 2. Definirea actiunilor din cadrul meniului
  10.  
  11. DEFINE PAD nume_opt OF nume_meniu PROMPT optiune [AT l,c][MESSAGE mesaj]
  12.  
  13. nume_opt - un sir de caractere care identifica optiunea
  14. optiune - un sir de caractere care va fi afisat in cadrul meniului
  15. l,c - linia si coloana de la care apare optiunea
  16. mesaj - reprezinta un mesaj care va fi afisat pe ultima linie a ecranului in momentul selectarii optiunii
  17.  
  18.  
  19.  
  20. DEFINE MENU MO
  21. DEFINE PAD O1 OF MO PROMPT "REZOLVARE PCTA"
  22. DEFINE PAD O2 OF MO PROMPT "REZOLVARE PCTB"
  23. DEFINE PAD O3 OF MO PROMPT "REZOLVARE PCTC"
  24. DEFINE PAD O4 OF MO PROMPT "IESIRE"
  25.  
  26.  
  27. 3. Stabilirea actiunilor de executare
  28.  
  29. ON SELECTION PAD nume_opt OF nume_meniu comanda
  30.  
  31. ON SELECTION PAD O1 OF MO DO PCTA
  32. ON SELECTION PAD O2 OF MO DO PCTB
  33. ON SELECTION PAD O3 OF MO DO PCTC
  34. ON SELECTION PAD O4 OF MO DO EXIT
  35.  
  36. 4. Activarea meniului
  37.  
  38. ACTIVATE MENU nume_meniu
  39.  
  40. ACTIVATE MENU MO
  41.  
  42. 5. Dezactivarea meniului
  43.  
  44. DEACTIVATE MENU nume_meniu
  45.  
  46. PROCEDURE EXIT
  47. CLOSE ALL
  48. DEACTIVATE MENU MO
  49. EXIT
  50. RETURN
  51. ENDPROC
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement