home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / AGE_FND.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.6 KB  |  47 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: AGE_FND.PRG                                          ⌐ª
  3. *⌐ª     Function: ─Ω┴Σ╣╠╢¿╝∞╦≈╫╙│╠╨≥                                   ⌐ª
  4. *⌐ª         Call: DISPLAY.PRG                                          ⌐ª
  5. *⌐ª   DBF & File: PERSONAL.DBF                                         ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. DEFINE POPUP agefnd FROM 10,52 MARGIN  COLOR SCHEME 7
  8.  
  9. DEFINE BAR  1 OF agefnd PROMPT " \< ─Ω┴Σ╣╠╢¿╝∞╦≈▓╦╡Ñ "  SKIP
  10. DEFINE BAR  2 OF agefnd PROMPT "\-"
  11. DEFINE BAR  3 OF agefnd PROMPT "\<1. ─Ω┴ε 30 ╥╘╧┬"
  12. DEFINE BAR  4 OF agefnd PROMPT "\<2. ─Ω┴ε 30 - 40 "
  13. DEFINE BAR  5 OF agefnd PROMPT "\<3. ─Ω┴ε 40 - 50 "
  14. DEFINE BAR  6 OF agefnd PROMPT "\<4. ─Ω┴ε 50 - 60 "
  15. DEFINE BAR  7 OF agefnd PROMPT "\<5. ─Ω┴ε 60 ╥╘╔╧ "
  16. DEFINE BAR  8 OF agefnd PROMPT "\<6. ╖╡╗╪ "
  17.  
  18. ON SELECT  POPUP agefnd DO AGEFND
  19. ACTIVATE POPUP agefnd
  20. DEACTIVATE POPU agefnd
  21. CLEAR
  22. RETURN
  23.  
  24. PROCEDURE AGEFND
  25. USE PERSONAL
  26. DO CASE
  27.    CASE BAR()=3
  28.         VA = "(YEAR(DATE())-YEAR(A9))<30"
  29.    CASE BAR()=4
  30.         VA = "(YEAR(DATE())-YEAR(A9))>=30.AND.(YEAR(DATE())-YEAR(A9))<40"
  31.    CASE BAR()=5
  32.         VA = "(YEAR(DATE())-YEAR(A9))>=40.AND.(YEAR(DATE())-YEAR(A9))<50"
  33.    CASE BAR()=6
  34.         VA = "(YEAR(DATE())-YEAR(A9))>=50.AND.(YEAR(DATE())-YEAR(A9))<60"
  35.    CASE BAR()=7
  36.         VA = "(YEAR(DATE())-YEAR(A9))>=60"
  37.    CASE BAR()=8
  38.         CLEAR
  39.         DEACTIVATE POPU agefnd
  40.         USE
  41.         RETURN
  42. ENDCASE
  43. INDEX ON A1 TO PERSTEMP FOR &VA
  44. BROWSE
  45. *DO DISPLAY
  46. RETURN
  47.