home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP10_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-13  |  15.5 KB  |  353 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP10_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ─┐┬╝╨═╘┌╧▀░∩╓·╖╢└²╢■                                 ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. CLEAR
  6. SET SYSMENU AUTOMATIC
  7.  
  8. * ╢¿╥σ╧╡═│▓╦╡Ñ╡─╥╗╕÷╓≈╤í╧ε
  9. DEFINE PAD HELPMENU OF _MSYSMENU PROMPT "\<H░∩╓·╣ª─▄─┐┬╝" COLOR SCHEME 3 ;
  10.            KEY ALT+H, "ALT+H"
  11. ON PAD HELPMENU OF _MSYSMENU ACTIVATE POPUP helptree
  12.  
  13. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree
  14. DEFINE POPUP helptree MARGIN RELATIVE SHADOW COLOR SCHEME 4
  15. DEFINE BAR 1 OF helptree PROMPT "\<1.╚½▓┐▒Ω╠Γ"
  16. DEFINE BAR 2 OF helptree PROMPT "\<2.╜╙┐┌▒Ω╠Γ"
  17. DEFINE BAR 3 OF helptree PROMPT "\<3.╥╗░π▒Ω╠Γ"
  18. DEFINE BAR 4 OF helptree PROMPT "\<4.├ⁿ┴ε║═║»╩²▒Ω╠Γ"
  19. DEFINE BAR 5 OF helptree PROMPT "\<5.├ⁿ┴ε▒Ω╠Γ"
  20. DEFINE BAR 6 OF helptree PROMPT "\<6.║»╩²▒Ω╠Γ"
  21. DEFINE BAR 7 OF helptree PROMPT "\<7.╧╡═│─┌┤µ▒Σ┴┐▒Ω╠Γ"
  22. DEFINE BAR 8 OF helptree PROMPT "\<8.▓Θ╒╥..."
  23. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫▀╧≥
  24. ON SELECTION BAR 1 OF helptree Do hfilter in EXP10_2.PRG
  25. ON BAR 2 OF helptree ACTIVATE POPUP interface
  26. ON BAR 3 OF helptree ACTIVATE POPUP general
  27. ON BAR 4 OF helptree ACTIVATE POPUP commandsfu
  28. ON BAR 5 OF helptree ACTIVATE POPUP commands
  29. ON BAR 6 OF helptree ACTIVATE POPUP functions
  30. ON BAR 7 OF helptree ACTIVATE POPUP systemmemo
  31. ON SELECTION BAR 8 OF helptree DO hfilter WITH 'Search'  in EXP10_2.PRG
  32.  
  33. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ interface
  34. DEFINE POPUP interface MARGIN RELATIVE SHADOW COLOR SCHEME 4
  35. DEFINE BAR 1 OF interface PROMPT "\<1.╚½▓┐╜╙┐┌▒Ω╠Γ"
  36. DEFINE BAR 2 OF interface PROMPT "\<2.╢╘╗░"
  37. DEFINE BAR 3 OF interface PROMPT "\<3.╥╗░π"
  38. DEFINE BAR 4 OF interface PROMPT "\<4.▓╦╡Ñ"
  39. DEFINE BAR 5 OF interface PROMPT "\<5.╧╡═│┤░┐┌"
  40. * ╢¿╥σ╫╙▓╦╡Ñ interface  ╡─╫▀╧≥
  41. ON SELECTION BAR 1 OF interface DO hfilter WITH 'Interface' in EXP10_2.PRG
  42. ON SELECTION BAR 2 OF interface DO hfilter WITH 'Interface',' di ' in EXP10_2.PRG
  43. ON SELECTION BAR 3 OF interface DO hfilter WITH 'Interface',' ge ' in EXP10_2.PRG
  44. ON SELECTION BAR 4 OF interface DO hfilter WITH 'Interface',' me ' in EXP10_2.PRG
  45. ON SELECTION BAR 5 OF interface DO hfilter WITH 'Interface',' wi ' in EXP10_2.PRG
  46.  
  47. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ general
  48. DEFINE POPUP general MARGIN RELATIVE SHADOW COLOR SCHEME 4  MARK "C"
  49. DEFINE BAR 1 OF general PROMPT "\<1.╚½▓┐╥╗░π▒Ω╠Γ"
  50. DEFINE BAR 2 OF general PROMPT "\<2.╨┬╡──┌╚▌╩╟╩▓├┤"
  51. DEFINE BAR 3 OF general PROMPT "\<3.╝µ╚▌╨╘"
  52. DEFINE BAR 4 OF general PROMPT "\<4.┼Σ╓├"
  53. DEFINE BAR 5 OF general PROMPT "\<5.┤φ╬≤╨┼╧ó"
  54. * ╢¿╥σ╫╙▓╦╡Ñ general ╡─╫▀╧≥
  55. ON SELECTION BAR 1 OF general DO hfilter WITH 'General' in EXP10_2.PRG
  56. ON SELECTION BAR 2 OF general DO hfilter WITH 'General',' wn ' in EXP10_2.PRG
  57. ON SELECTION BAR 3 OF general DO hfilter WITH 'General',' cm ' in EXP10_2.PRG
  58. ON SELECTION BAR 4 OF general DO hfilter WITH 'General',' cf ' in EXP10_2.PRG
  59. ON SELECTION BAR 5 OF general DO hfilter WITH 'General',' em ' in EXP10_2.PRG
  60.  
  61. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ commandsfu
  62. DEFINE POPUP commandsfu MARGIN RELATIVE SHADOW COLOR SCHEME 4
  63. DEFINE BAR  1 OF commandsfu PROMPT "\<1.╨┬╡─├ⁿ┴ε║═║»╩²"
  64. DEFINE BAR  2 OF commandsfu PROMPT "\<2.╝╙╟┐╡─├ⁿ┴ε║═║»╩²"
  65. DEFINE BAR  3 OF commandsfu PROMPT "\<3.╚½▓┐├ⁿ┴ε║═║»"
  66. DEFINE BAR  4 OF commandsfu PROMPT "\<4.╩²╛▌┐Γ"
  67. DEFINE BAR  5 OF commandsfu PROMPT "\<5.╗╖╛│▓╬╩²"
  68. DEFINE BAR  6 OF commandsfu PROMPT "\<6.┤φ╬≤║═│²┤φ"
  69. DEFINE BAR  7 OF commandsfu PROMPT "\<7.╩┬╝■┤ª└φ"
  70. DEFINE BAR  8 OF commandsfu PROMPT "\<8.╬─╝■╣▄└φ"
  71. DEFINE BAR  9 OF commandsfu PROMPT "\<9.╦≈╥²"
  72. DEFINE BAR 10 OF commandsfu PROMPT "\<A.╜╙┐┌"
  73. DEFINE BAR 11 OF commandsfu PROMPT "\<B.╝ⁿ┼╠║═╩≤▒Ω"
  74. DEFINE BAR 12 OF commandsfu PROMPT "\<C.─┌┤µ▒Σ┴┐║═╩²╫Θ"
  75. DEFINE BAR 13 OF commandsfu PROMPT "\<D.▓╦╡Ñ║═ Popups"
  76. DEFINE BAR 14 OF commandsfu PROMPT "\<E.╢α╙├╗º"
  77. DEFINE BAR 15 OF commandsfu PROMPT "\<F.┤≥╙í"
  78. DEFINE BAR 16 OF commandsfu PROMPT "\<G.│╠╨≥╓┤╨╨"
  79. DEFINE BAR 17 OF commandsfu PROMPT "\<H.SQL"
  80. DEFINE BAR 18 OF commandsfu PROMPT "\<I.╜ß╣╣╗»▒α│╠"
  81. DEFINE BAR 19 OF commandsfu PROMPT "\<J.╬─▒╛║╧▓ó Merge"
  82. DEFINE BAR 20 OF commandsfu PROMPT "\<K.┤░┐┌ "
  83. * ╢¿╥σ╫╙▓╦╡Ñ commandsfu ╡─╫▀╧≥
  84. ON SELECTION BAR  1 OF commandsfu DO hfilter WITH ' nx ' in EXP10_2.PRG
  85. ON SELECTION BAR  2 OF commandsfu DO hfilter WITH ' ex ' in EXP10_2.PRG
  86. ON SELECTION BAR  3 OF commandsfu DO hfilter WITH 'Command','Function',.T. in EXP10_2.PRG
  87. ON SELECTION BAR  4 OF commandsfu DO hfilter WITH ' db ' in EXP10_2.PRG
  88. ON SELECTION BAR  5 OF commandsfu DO hfilter WITH ' en ' in EXP10_2.PRG
  89. ON SELECTION BAR  6 OF commandsfu DO hfilter WITH ' er ' in EXP10_2.PRG
  90. ON SELECTION BAR  7 OF commandsfu DO hfilter WITH ' eh ' in EXP10_2.PRG
  91. ON SELECTION BAR  8 OF commandsfu DO hfilter WITH ' fm ' in EXP10_2.PRG
  92. ON SELECTION BAR  9 OF commandsfu DO hfilter WITH ' ix ' in EXP10_2.PRG
  93. ON SELECTION BAR 10 OF commandsfu DO hfilter WITH ' in ' in EXP10_2.PRG
  94. ON SELECTION BAR 11 OF commandsfu DO hfilter WITH ' km ' in EXP10_2.PRG
  95. ON SELECTION BAR 12 OF commandsfu DO hfilter WITH ' mv ' in EXP10_2.PRG
  96. ON SELECTION BAR 13 OF commandsfu DO hfilter WITH ' mp ' in EXP10_2.PRG
  97. ON SELECTION BAR 14 OF commandsfu DO hfilter WITH ' mu ' in EXP10_2.PRG
  98. ON SELECTION BAR 15 OF commandsfu DO hfilter WITH ' pr ' in EXP10_2.PRG
  99. ON SELECTION BAR 16 OF commandsfu DO hfilter WITH ' pe ' in EXP10_2.PRG
  100. ON SELECTION BAR 17 OF commandsfu DO hfilter WITH ' sq ' in EXP10_2.PRG
  101. ON SELECTION BAR 18 OF commandsfu DO hfilter WITH ' sp ' in EXP10_2.PRG
  102. ON SELECTION BAR 19 OF commandsfu DO hfilter WITH ' tm ' in EXP10_2.PRG
  103. ON SELECTION BAR 20 OF commandsfu DO hfilter WITH ' wi ' in EXP10_2.PRG
  104.  
  105. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ commands
  106. DEFINE POPUP commands MARGIN RELATIVE SHADOW COLOR SCHEME 4
  107. DEFINE BAR  1 OF commands PROMPT "\<1.╚½▓┐├ⁿ┴ε"
  108. DEFINE BAR  2 OF commands PROMPT "\<2.╩²╛▌┐Γ"
  109. DEFINE BAR  3 OF commands PROMPT "\<3.╗╖╛│"
  110. DEFINE BAR  4 OF commands PROMPT "\<4.┤φ╬≤║═│²┤φ"
  111. DEFINE BAR  5 OF commands PROMPT "\<5.╩┬╝■┤ª└φ"
  112. DEFINE BAR  6 OF commands PROMPT "\<6.╬─╝■╣▄└φ"
  113. DEFINE BAR  7 OF commands PROMPT "\<7.╦≈╥²"
  114. DEFINE BAR  8 OF commands PROMPT "\<8.╜╙┐┌"
  115. DEFINE BAR  9 OF commands PROMPT "\<9.╝ⁿ┼╠║═╩≤▒Ω"
  116. DEFINE BAR 10 OF commands PROMPT "\<A.─┌┤µ▒Σ┴┐║═╩²╫Θ"
  117. DEFINE BAR 11 OF commands PROMPT "\<B.▓╦╡Ñ║═ Popups"
  118. DEFINE BAR 12 OF commands PROMPT "\<C.╢α╙├╗º"
  119. DEFINE BAR 13 OF commands PROMPT "\<D.┤≥╙í"
  120. DEFINE BAR 14 OF commands PROMPT "\<E.│╠╨≥╓┤╨╨"
  121. DEFINE BAR 15 OF commands PROMPT "\<F.SQL"
  122. DEFINE BAR 16 OF commands PROMPT "\<G.╜ß╣╣╗»▒α│╠"
  123. DEFINE BAR 17 OF commands PROMPT "\<H.╬─▒╛║╧▓ó Merge"
  124. DEFINE BAR 18 OF commands PROMPT "\<I.┤░┐┌"
  125. * ╢¿╥σ╫╙▓╦╡Ñ commands ╡─╫▀╧≥
  126. ON SELECTION BAR  1 OF commands DO hfilter WITH 'Command' in EXP10_2.PRG
  127. ON SELECTION BAR  2 OF commands DO hfilter WITH 'Command',' db ' in EXP10_2.PRG
  128. ON SELECTION BAR  3 OF commands DO hfilter WITH 'Command',' en ' in EXP10_2.PRG
  129. ON SELECTION BAR  4 OF commands DO hfilter WITH 'Command',' er ' in EXP10_2.PRG
  130. ON SELECTION BAR  5 OF commands DO hfilter WITH 'Command',' eh ' in EXP10_2.PRG
  131. ON SELECTION BAR  6 OF commands DO hfilter WITH 'Command',' fm ' in EXP10_2.PRG
  132. ON SELECTION BAR  7 OF commands DO hfilter WITH 'Command',' ix ' in EXP10_2.PRG
  133. ON SELECTION BAR  8 OF commands DO hfilter WITH 'Command',' in ' in EXP10_2.PRG
  134. ON SELECTION BAR  9 OF commands DO hfilter WITH 'Command',' km ' in EXP10_2.PRG
  135. ON SELECTION BAR 10 OF commands DO hfilter WITH 'Command',' mv ' in EXP10_2.PRG
  136. ON SELECTION BAR 11 OF commands DO hfilter WITH 'Command',' mp ' in EXP10_2.PRG
  137. ON SELECTION BAR 12 OF commands DO hfilter WITH 'Command',' mu ' in EXP10_2.PRG
  138. ON SELECTION BAR 13 OF commands DO hfilter WITH 'Command',' pr ' in EXP10_2.PRG
  139. ON SELECTION BAR 14 OF commands DO hfilter WITH 'Command',' pe ' in EXP10_2.PRG
  140. ON SELECTION BAR 15 OF commands DO hfilter WITH 'Command',' sq ' in EXP10_2.PRG
  141. ON SELECTION BAR 16 OF commands DO hfilter WITH 'Command',' sp ' in EXP10_2.PRG
  142. ON SELECTION BAR 17 OF commands DO hfilter WITH 'Command',' tm ' in EXP10_2.PRG
  143. ON SELECTION BAR 18 OF commands DO hfilter WITH 'Command',' wi ' in EXP10_2.PRG
  144.  
  145. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ functions
  146. DEFINE POPUP functions MARGIN RELATIVE SHADOW COLOR SCHEME 4
  147. DEFINE BAR  1 OF functions PROMPT "\<1.╚½▓┐║»╩²"
  148. DEFINE BAR  2 OF functions PROMPT "\<2.╫╓╖√"
  149. DEFINE BAR  3 OF functions PROMPT "\<3.╩²╛▌╫¬╗╗"
  150. DEFINE BAR  4 OF functions PROMPT "\<4.╩²╛▌┐Γ"
  151. DEFINE BAR  5 OF functions PROMPT "\<5.╚╒╞┌║═╩▒╝Σ"
  152. DEFINE BAR  6 OF functions PROMPT "\<6.╗╖╛│"
  153. DEFINE BAR  7 OF functions PROMPT "\<7.╬─╝■╣▄└φ"
  154. DEFINE BAR  8 OF functions PROMPT "\<8.─┐┬╝"
  155. DEFINE BAR  9 OF functions PROMPT "\<9.╜╙┐┌"
  156. DEFINE BAR 10 OF functions PROMPT "\<A.╝ⁿ┼╠║═╩≤▒Ω"
  157. DEFINE BAR 11 OF functions PROMPT "\<B.┬▀╝¡"
  158. DEFINE BAR 12 OF functions PROMPT "\<C.╡═╜╫╬─╝■ I/O"
  159. DEFINE BAR 13 OF functions PROMPT "\<D.─┌┤µ▒Σ┴┐║═╩²╫Θ"
  160. DEFINE BAR 14 OF functions PROMPT "\<E.▓╦╡Ñ║═ Popups"
  161. DEFINE BAR 15 OF functions PROMPT "\<F.╢α╙├╗º"
  162. DEFINE BAR 16 OF functions PROMPT "\<G.╩²╫╓"
  163. DEFINE BAR 17 OF functions PROMPT "\<H.┤░┐┌"
  164. * ╢¿╥σ╫╙▓╦╡Ñ functions ╡─╫▀╧≥
  165. ON SELECTION BAR  1 OF functions DO hfilter WITH 'Function' in EXP10_2.PRG
  166. ON SELECTION BAR  2 OF functions DO hfilter WITH 'Function',' ch ' in EXP10_2.PRG
  167. ON SELECTION BAR  3 OF functions DO hfilter WITH 'Function',' dc ' in EXP10_2.PRG
  168. ON SELECTION BAR  4 OF functions DO hfilter WITH 'Function',' db ' in EXP10_2.PRG
  169. ON SELECTION BAR  5 OF functions DO hfilter WITH 'Function',' dt ' in EXP10_2.PRG
  170. ON SELECTION BAR  6 OF functions DO hfilter WITH 'Function',' en ' in EXP10_2.PRG
  171. ON SELECTION BAR  7 OF functions DO hfilter WITH 'Function',' fm ' in EXP10_2.PRG
  172. ON SELECTION BAR  8 OF functions DO hfilter WITH 'Function',' ix ' in EXP10_2.PRG
  173. ON SELECTION BAR  9 OF functions DO hfilter WITH 'Function',' in ' in EXP10_2.PRG
  174. ON SELECTION BAR 10 OF functions DO hfilter WITH 'Function',' km ' in EXP10_2.PRG
  175. ON SELECTION BAR 11 OF functions DO hfilter WITH 'Function',' lo ' in EXP10_2.PRG
  176. ON SELECTION BAR 12 OF functions DO hfilter WITH 'Function',' ll ' in EXP10_2.PRG
  177. ON SELECTION BAR 13 OF functions DO hfilter WITH 'Function',' mv ' in EXP10_2.PRG
  178. ON SELECTION BAR 14 OF functions DO hfilter WITH 'Function',' mp ' in EXP10_2.PRG
  179. ON SELECTION BAR 15 OF functions DO hfilter WITH 'Function',' mu ' in EXP10_2.PRG
  180. ON SELECTION BAR 16 OF functions DO hfilter WITH 'Function',' nu ' in EXP10_2.PRG
  181. ON SELECTION BAR 17 OF functions DO hfilter WITH 'Function',' wi ' in EXP10_2.PRG
  182.  
  183. * ╢¿╥σ░∩╓·▓╦╡Ñ helptree ╡─╫╙▓╦╡Ñ systemmemo
  184. DEFINE POPUP systemmemo MARGIN RELATIVE SHADOW COLOR SCHEME 4
  185. DEFINE BAR 1 OF systemmemo PROMPT "\<1.╚½▓┐╧╡═│─┌┤µ▒Σ┴┐"
  186. DEFINE BAR 2 OF systemmemo PROMPT "\<2.╫└├µ╕¿╓·╣ñ╛▀"
  187. DEFINE BAR 3 OF systemmemo PROMPT "\<3.┤≥╙í"
  188. DEFINE BAR 4 OF systemmemo PROMPT "\<4.╬─▒╛║╧▓ó"
  189. DEFINE BAR 5 OF systemmemo PROMPT "\<5.▓╦╡Ñ├√"
  190. * ╢¿╥σ╫╙▓╦╡Ñ systemmemo ╡─╫▀╧≥
  191. ON SELECTION BAR 1 OF systemmemo DO hfilter WITH 'Sysmemvar' in EXP10_2.PRG
  192. ON SELECTION BAR 2 OF systemmemo DO hfilter WITH 'Sysmemvar',' da ' in EXP10_2.PRG
  193. ON SELECTION BAR 3 OF systemmemo DO hfilter WITH 'Sysmemvar',' pr ' in EXP10_2.PRG
  194. ON SELECTION BAR 4 OF systemmemo DO hfilter WITH 'Sysmemvar',' tm ' in EXP10_2.PRG
  195. ON SELECTION BAR 5 OF systemmemo DO hfilter WITH 'Sysmemvar',' sn ' in EXP10_2.PRG
  196.  
  197. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  198. *⌐ª    Procedure: HFILTER
  199. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  200. PROCEDURE hfilter
  201. PARAMETERS class1,class2,either
  202. PUBLIC filter1,filter2
  203. IF SET('TALK') = 'ON'
  204.    SET TALK OFF
  205.    STORE 'ON' TO talkset
  206. ELSE
  207.    STORE 'OFF' TO talkset
  208. ENDIF (SET('TALK') = 'ON')
  209. STORE class1 TO filter1
  210. STORE class2 TO filter2
  211. DO CASE
  212. CASE PARAMETERS() = 1 and filter1 = 'Search'
  213.    DO searchhelp
  214.    IF okcancel = 2
  215.       RETURN TO MASTER
  216.    ENDIF (okcancel = 2)
  217. CASE either
  218.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
  219.       or UPPER(filter2)$UPPER(class)
  220. CASE PARAMETERS() = 2
  221.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
  222.       and UPPER(filter2)$UPPER(class)
  223. CASE PARAMETERS() = 1
  224.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class)
  225. CASE PARAMETERS() = 0
  226.    SET HELPFILTER TO
  227. ENDCASE
  228. SET TALK &talkset
  229. HELP NOWAIT
  230.  
  231. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  232. *⌐ª    Procedure: SEARCHHELP
  233. *⌐ª    Called by: HFILTER
  234. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  235. PROCEDURE searchhelp
  236. PUBLIC search1,search2,search3,okcancel
  237. STORE SPACE(50) TO search1,search2,search3
  238. STORE 1 TO okcancel,anyall,topordet
  239. STORE .F. TO matchwords
  240. STORE .T. TO ignorecase
  241.  
  242. * ╢¿╥σ╥╗╕÷╩Σ╚δ▓Θ╤»╫╓╖√┤«╡─┤░┐┌ searchdlog
  243. DEFINE WINDOW searchdlog;
  244.        FROM 3,15 TO 21,64;
  245.        FLOAT;
  246.        NOGROW;
  247.        NOCLOSE;
  248.        NOZOOM;
  249.        SHADOW;
  250.        DOUBLE;
  251.        COLOR SCHEME 5
  252. ACTIVATE WINDOW searchdlog
  253.  
  254. * ╩Σ╚δ▓Θ╤»╡─╠⌡╝■
  255. @ 1,2 SAY "╦≈╥²▒Ω╩╢╜½╓╗╩╟░ⁿ║¼ TOPIC ╡─"
  256. @ 1,30 GET anyall;
  257.    PICTURE "@*RVN ╚╬╥╗╕÷;╚½▓┐";
  258.    SIZE 1,7,0
  259. @ 4,2 SAY "         ╧┬├µ╡─╫╓╖√┤«╘┌╫╓╢╬"
  260. @ 4,30 GET topordet;
  261.    PICTURE "@*RVN ▒Ω╠Γ╓╨;╧Ω╧╕╓╨";
  262.    SIZE 1,11,0
  263.  
  264. * ╩Σ╚δ▓Θ╤»╡─╚²╕÷╫╓╖√┤«
  265. @ 7,5 GET search1;
  266.    SIZE 1,37;
  267.    PICTURE '@K'
  268. @ 9,5 GET search2;
  269.    SIZE 1,37;
  270.    PICTURE '@K'
  271. @ 11,5 GET search3;
  272.    SIZE 1,37;
  273.    PICTURE '@K'
  274.  
  275. * ╤í╘± ╓┤╨╨, ╚í╧√, ║÷┬╘
  276. @ 14,5 GET ignorecase;
  277.    PICTURE "@*C ║÷┬╘";
  278.    SIZE 1,15
  279. @ 13,31 GET okcancel;
  280.    PICTURE "@*V \!╓┤╨╨; \?╚í╧√";
  281.    SIZE 1,10,1
  282. READ CYCLE DEACTIVate noway()
  283. RELEASE WINDOW searchdlog
  284. STORE SET('EXACT') TO exactoffon
  285.  
  286. * ╢╘╚²╕÷╩Σ╚δ╫╓╖√┤«╜°╨╨┼╨╢╧
  287. DO CASE
  288. CASE EMPTY(search1) and EMPTY(search2) and EMPTY(search3)
  289.    STORE 2 TO okcancel
  290.    RETURN
  291. CASE EMPTY(search1) and EMPTY(search2)
  292.    STORE search3 TO search1,search2
  293. CASE EMPTY(search2) and EMPTY(search3)
  294.    STORE search1 TO search2,search3
  295. CASE EMPTY(search1) and EMPTY(search3)
  296.    STORE search2 TO search1,search3
  297. CASE EMPTY(search1)
  298.    STORE search2 TO search1
  299. CASE EMPTY(search2)
  300.    STORE search1 TO search2
  301. CASE EMPTY(search3)
  302.    STORE search1 TO search3
  303. ENDCASE
  304.  
  305. * ╕∙╛▌ topodet,ignorecase,anyall ╛÷╢¿│╠╨≥╡─╫▀╧≥
  306. DO CASE
  307. CASE topordet = 2 and ignorecase and anyall = 1
  308.    SET HELPFILTER AUTOMATIC TO;
  309.       ALLTRIM(UPPER(search1))$UPPER(details) or;
  310.       ALLTRIM(UPPER(search2))$UPPER(details) or;
  311.       ALLTRIM(UPPER(search3))$UPPER(details)
  312. CASE topordet = 2 and ignorecase and anyall = 2
  313.    SET HELPFILTER AUTOMATIC TO;
  314.       ALLTRIM(UPPER(search1))$UPPER(details) and;
  315.       ALLTRIM(UPPER(search2))$UPPER(details) and;
  316.       ALLTRIM(UPPER(search3))$UPPER(details)
  317. CASE topordet = 2 and !ignorecase and anyall = 1
  318.    SET HELPFILTER AUTOMATIC TO;
  319.       ALLTRIM(search1)$details or;
  320.       ALLTRIM(search2)$details or;
  321.       ALLTRIM(search3)$details
  322. CASE topordet = 2 and !ignorecase and anyall = 2
  323.    SET HELPFILTER AUTOMATIC TO;
  324.       ALLTRIM(search1)$details and;
  325.       ALLTRIM(search2)$details and;
  326.       ALLTRIM(search3)$details
  327. CASE topordet = 1 and ignorecase and anyall = 1
  328.    SET HELPFILTER AUTOMATIC TO;
  329.       ALLTRIM(UPPER(search1))$UPPER(TOPIC) or;
  330.       ALLTRIM(UPPER(search2))$UPPER(TOPIC) or;
  331.       ALLTRIM(UPPER(search3))$UPPER(TOPIC)
  332. CASE topordet = 1 and ignorecase and anyall = 2
  333.    SET HELPFILTER AUTOMATIC TO;
  334.       ALLTRIM(UPPER(search1))$UPPER(TOPIC) and;
  335.       ALLTRIM(UPPER(search2))$UPPER(TOPIC) and;
  336.       ALLTRIM(UPPER(search3))$UPPER(TOPIC)
  337. CASE topordet = 1 and !ignorecase and anyall = 1
  338.    SET HELPFILTER AUTOMATIC TO;
  339.       ALLTRIM(search1)$TOPIC or;
  340.       ALLTRIM(search2)$TOPIC or;
  341.       ALLTRIM(search3)$TOPIC
  342. CASE topordet = 1 and !ignorecase and anyall = 2
  343.    SET HELPFILTER AUTOMATIC TO;
  344.       ALLTRIM(search1)$TOPIC and;
  345.       ALLTRIM(search2)$TOPIC and;
  346.       ALLTRIM(search3)$TOPIC
  347. ENDCASE
  348.  
  349. PROCEDURE noway
  350. ? CHR(7)
  351.   * ╧╘╩╛╫╓╖√ "X"
  352. RETURN .F.
  353.