home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / PART_FND.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.4 KB  |  41 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: PART_FND.PRG                                         ⌐ª
  3. *⌐ª     Function: ╨╨╒■╓░╬±╝∞╦≈╫╙│╠╨≥                                   ⌐ª
  4. *⌐ª         Call: DISPLAY.PRG                                          ⌐ª
  5. *⌐ª   DBF & File: PERSONAL.DBF                                         ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. DEFINE POPUP partfnd FROM 10,52 MARGIN  COLOR SCHEME 7
  8.  
  9. DEFINE BAR  1 OF partfnd PROMPT " \< ╓░╬±╝∞╝∞╦≈▓╦╡Ñ "  SKIP
  10. DEFINE BAR  2 OF partfnd PROMPT "\-"
  11. DEFINE BAR  3 OF partfnd PROMPT "\<1. ┤ª╝╢╥╘╔╧ "
  12. DEFINE BAR  4 OF partfnd PROMPT "\<2. ┐╞    ╝╢ "
  13. DEFINE BAR  5 OF partfnd PROMPT "\<3. ╞Σ    ╦ⁿ "
  14. DEFINE BAR  6 OF partfnd PROMPT "\<4. ╖╡    ╗╪ "
  15.  
  16. ON SELECT  POPUP partfnd DO PARTFND
  17. ACTIVATE POPUP partfnd
  18. DEACTIVATE POPU partfnd
  19. CLEAR
  20. RETURN
  21.  
  22. PROCEDURE PARTFND
  23. USE PERSONAL
  24. DO CASE
  25.    CASE BAR()=3
  26.         VA = "A13='╕▒┤ª│ñ'.OR.A13='┤ª│ñ'.OR.A13='╕▒┤ª╝╢'.OR.A13='┤ª╝╢'.OR.A13='╕▒╛╓│ñ'.OR.A13='╛╓│ñ'.OR.A13='╕▒╛╓╝╢'.OR.A13='╛╓╝╢'"
  27.    CASE BAR()=4
  28.         VA = "A13='╕▒┐╞│ñ'.OR.A13='┐╞│ñ'.OR.A13='╕▒┐╞╝╢'.OR.A13='┐╞╝╢'"
  29.    CASE BAR()=5
  30.         VA = "A13<>'╕▒┤ª'.AND.A13<>'┤ª'.AND.A13<>'╕▒╛╓'.AND.A13<>'╛╓'.AND.A13<>'╕▒┐╞'.AND.A13<>'┐╞'"
  31.    CASE BAR()=6
  32.         CLEAR
  33.         DEACTIVATE POPU partfnd
  34.         USE
  35.         RETURN
  36. ENDCASE
  37. INDEX ON A1 TO PERSTEMP FOR &VA
  38. DO DISPLAY
  39. CLEAR
  40. RETURN
  41.