home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / UDFFND.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.7 KB  |  66 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: UDFFND.PRG                                           ⌐ª
  3. *⌐ª     Function: ╫╘╢¿╥σ╝∞╦≈╠⌡╝■╡─╝∞╦≈│╠╨≥                             ⌐ª
  4. *⌐ª   DBF & File: UDFCONDI.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. SET SAFETY OFF
  8.  
  9. DEFINE POPUP udf_menu FROM 4,24 MARGIN MARK CHR(251) COLOR SCHEME 5
  10.  
  11. DEFINE BAR  1 OF udf_menu PROMPT " \< ╫╘╢¿╥σ╝∞╦≈▓╦╡Ñ  "  SKIP
  12. DEFINE BAR  2 OF udf_menu PROMPT "\-"
  13. DEFINE BAR  3 OF udf_menu PROMPT "\<1. ╫╘╢¿╥σ╠⌡╝■╝∞╦≈"
  14. DEFINE BAR  4 OF udf_menu PROMPT "\<2. ╝∞╦≈╠⌡╝■┐Γ╬¼╗ñ"
  15. DEFINE BAR  5 OF udf_menu PROMPT "\-"
  16. DEFINE BAR  6 OF udf_menu PROMPT "\<3.     ╖╡╗╪╓≈▓╦╡Ñ"
  17.  
  18. ON SELECT  BAR  3 OF udf_menu DO UDF_FND
  19. ON SELECT  BAR  4 OF udf_menu DO UPDATE_DB
  20. ON SELECT  BAR  6 OF udf_menu DEACTIVATE POPUP udf_menu
  21. ACTIVATE POPUP udf_menu
  22. DEACTIVATE POPU udf_menu
  23. CLEAR
  24. RETURN
  25.  
  26. PROCEDURE UDF_FND
  27. STORE 1 TO SEL
  28. DIMENSION option(60), condit(60)
  29. USE UDFCONDI
  30. I=1
  31. DO WHILE .NOT. EOF()
  32.    option(I)= DESCRIPT
  33.    option(I)=TRIM(option(I))
  34.    condit(I)= CONDITION
  35.    condit(I)=TRIM(condit(I))
  36.    I=I+1
  37.    SKIP
  38. ENDDO
  39. USE
  40. N1=I-1
  41.  
  42. *SET COLOR TO +W/RB
  43. @ 2,60 MENU option,N1,12 TITLE "  ╤í╘±╠⌡╝■  " SHADOW
  44. READ MENU TO SEL
  45.  
  46. IF SEL=0
  47.    CLOSE DATABASES
  48.    CLEAR WINDOWS
  49.    RETURN
  50. ENDIF
  51. MYCONDI=condit(SEL)
  52. USE PERSONAL
  53. INDEX ON A1 TO PERSTEMP FOR &MYCONDI
  54. BROW
  55. *DO DISPLAY
  56. RETURN
  57.  
  58.  
  59. PROCEDURE UPDATE_DB
  60. USE UDFCONDI
  61. BROWSE FIELDS CONDITION :H="╝∞╦≈╠⌡╝■:", DESCRIPT :H="    ╦╡├≈:";
  62.        TITLE "╫╘╢¿╥σ╝∞╦≈╠⌡╝■" ;
  63.        REDIT
  64. PACK
  65. RETURN
  66.