home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP18_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-19  |  1.8 KB  |  67 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP18_4.PRG                                          ⌐ª
  3. *⌐ª     Function: ╤í╘±┤≥╙í▒¿▒φ╡─╖╢└².                                  ⌐ª
  4. *⌐ª   DBF & File: PERSONAL.DBF   PERSTEMP.IDX     PERSTMP1.DBF         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. SET SAFETY OFF
  8. CLEAR
  9.  
  10. * ╢¿╥σ╥╗╕÷┤░┐┌:win
  11. DEFINE WINDOW win FROM 20,2 TO 23,77  SHADOW COLOR SCHEME 7
  12. CLEAR
  13. * ╢¿╥σ╥╗╕÷╔╧╡»╩╜▓╦╡Ñ: mypop
  14. DEFINE POPUP mypop FROM 6,26  MARGIN SCROLL SHADOW;
  15.        COLOR SCHEME 8
  16.  
  17. * ╢¿╥σ╔╧╡»╩╜▓╦╡Ñ mypop ╡─╕≈╫╙╧ε─┌╚▌
  18. DEFINE BAR 1  OF mypop PROMPT "    ┤≥╙í╤í╘±▓╦╡Ñ     " SKIP
  19. DEFINE BAR 2  OF mypop PROMPT "\-"
  20. DEFINE BAR 3  OF mypop PROMPT "\<1. ╤í╘±┤≥╙í╕÷╚╦▒φ    "
  21. DEFINE BAR 4  OF mypop PROMPT "\<2. ╚½▓┐┤≥╙í╕÷╚╦▒φ    "
  22. DEFINE BAR 5  OF mypop PROMPT "\-"
  23. DEFINE BAR 6  OF mypop PROMPT "\<3. ═╦│÷   "
  24.  
  25. * ╔Φ╢¿▓╦╡Ñ╕≈╫╙╧ε▒╗╤í╘±║≤╓┤╨╨╡─│╠╨≥
  26. ON SELECTION BAR 3  OF mypop DO subroute1
  27. ON SELECTION BAR 4  OF mypop DO subroute2
  28. ON SELECTION BAR 6  OF mypop RETURN
  29.  
  30. * ╝ñ╗ε╔╧╡»╩╜▓╦╡Ñ:mypop
  31. ACTIVATE POPUP mypop
  32.  
  33. CLEAR WINDOWS
  34. CLEAR
  35. DEACTIVATE POPUP mypop
  36. RELEASE POPUPS mypop
  37.  
  38.  
  39. PROCEDURE subroute1
  40. * PERSTEMP ╬¬╖√║╧╝∞╦≈╠⌡╝■╡─╔╕╤í╦≈╥²
  41. USE PERSONAL INDEX PERSTEMP
  42. COPY TO PERSTMP2
  43.  
  44. * PERSTMP1.DBF ╡─┐Γ╜ß╣╣╙δ PERSONAL.DBF ╧α═¼, ╓╗╘÷╝╙╥╗╕÷ SELE ╫╓╢╬
  45. * ╙├╙┌╤í╘± ┤≥╙í╝╟┬╝
  46. USE PERSTMP1
  47. ZAP
  48. APPEND FROM PERSTMP2
  49. GO TOP
  50.  
  51. * ╓╗╘╩╨φ╩Σ╚δ SELE ╥╗╧ε, ╩Σ╚δ "Y" ╗≥ "y" ╝┤╓╕╢¿┤≥╙í╕├╠⌡╝╟┬╝
  52. BROWSE FIELD A1,A5,A3,SELE FREEZE SELE
  53. USE PERSTMP1
  54. INDEX ON A1 TO PERS1TMP FOR SELE="Y".OR.SELE="y"
  55. GO TOP
  56.  
  57. *  ╨Φ╨▐╕─ EX18_1.PRG, ╘┌╞Σ╓╨▓╗┤≥┐¬ PERSONAL.DBF
  58. DO EXP18_1
  59. CLOSE DATABASE
  60. RETURN
  61.  
  62. PROCEDURE subroute2
  63. USE PERSONAL INDEX PERSTEMP
  64. DO EXP18_1
  65. CLOSE DATABASE
  66. RETURN
  67.