home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a057 / 6.img / YQMIS30B.EXE / OSJTJ.MBK < prev    next >
Encoding:
Text File  |  1993-08-20  |  2.2 KB  |  169 lines
  1. *****************
  2. * ╟≤╝╟┬╝╕÷╩²    *
  3. *****************
  4. proc qjls
  5. para otj,ojgzd
  6. if len(trim(otj))=0
  7. otj='.t.'
  8. endif
  9. priv qjls,ofl
  10. if len(oflbds)=0
  11. sele 1
  12. count to qjls for &otj
  13. sele 2
  14. repl &ojgzd with qjls
  15. else
  16. sele 2
  17. goto top
  18. do while .not.eof()
  19. ofl=&oflbds
  20. sele 1
  21. set filt to ofl=&oflbds
  22. count to qjls for &otj
  23. sele 2
  24. repl &ojgzd with qjls
  25. skip
  26. enddo
  27. endif
  28. return
  29. *****************
  30. * ╟≤║═          *
  31. *****************
  32. proc qh
  33. para otj,ojgzd,otjzd
  34. if len(trim(otj))=0
  35. otj='.t.'
  36. endif
  37. priv q,ofl
  38. if len(oflbds)=0
  39. sele 1
  40. sum &otjzd to q for &otj
  41. sele 2
  42. repl &ojgzd with q
  43. else
  44. sele 2
  45. goto top
  46. do while .not.eof()
  47. ofl=&oflbds
  48. sele 1
  49. set filt to ofl=&oflbds
  50. sum &otjzd to q for &otj
  51. sele 2
  52. repl &ojgzd with q
  53. skip
  54. enddo
  55. endif
  56. return
  57. *****************
  58. * ╟≤╞╜╛∙╓╡      *
  59. *****************
  60. proc qpjz
  61. para otj,ojgzd,otjzd
  62. if len(trim(otj))=0
  63. otj='.t.'
  64. endif
  65. priv q,ofl
  66. if len(oflbds)=0
  67. sele 1
  68. aver &otjzd to q for &otj
  69. sele 2
  70. repl &ojgzd with q
  71. else
  72. sele 2
  73. goto top
  74. do while .not.eof()
  75. ofl=&oflbds
  76. sele 1
  77. set filt to ofl=&oflbds
  78. aver &otjzd to q for &otj
  79. sele 2
  80. repl &ojgzd with q
  81. skip
  82. enddo
  83. endif
  84. return
  85. *****************
  86. * ╟≤╫ε┤≤╓╡      *
  87. *****************
  88. proc qzdz
  89. para otj,ojgzd,otjzd
  90. if len(trim(otj))=0
  91. otj='.t.'
  92. endif
  93. priv q,ofl
  94. if len(oflbds)=0
  95. sele 1
  96. goto top
  97. q=-999999999
  98. do while .not.eof()
  99. if &otj
  100. q=iif(q<&otjzd,&otjzd,q)
  101. endif
  102. skip
  103. enddo
  104. sele 2
  105. repl &ojgzd with q
  106. else
  107. sele 2
  108. goto top
  109. do while .not.eof()
  110. ofl=&oflbds
  111. sele 1
  112. set filt to ofl=&oflbds
  113. goto top
  114. q=-999999999
  115. do while .not.eof()
  116. if &otj
  117. q=iif(q<&otjzd,&otjzd,q)
  118. endif
  119. skip
  120. enddo
  121. sele 2
  122. repl &ojgzd with q
  123. skip
  124. enddo
  125. endif
  126. return
  127. *****************
  128. * ╟≤╫ε╨í╓╡      *
  129. *****************
  130. proc qzxz
  131. para otj,ojgzd,otjzd
  132. if len(trim(otj))=0
  133. otj='.t.'
  134. endif
  135. priv q,ofl
  136. if len(oflbds)=0
  137. sele 1
  138. goto top
  139. q=999999999
  140. do while .not.eof()
  141. if &otj
  142. q=iif(q>&otjzd,&otjzd,q)
  143. endif
  144. skip
  145. enddo
  146. sele 2
  147. repl &ojgzd with q
  148. else
  149. sele 2
  150. goto top
  151. do while .not.eof()
  152. ofl=&oflbds
  153. sele 1
  154. set filt to ofl=&oflbds
  155. goto top
  156. q=999999999
  157. do while .not.eof()
  158. if &otj
  159. q=iif(q>&otjzd,&otjzd,q)
  160. endif
  161. skip
  162. enddo
  163. sele 2
  164. repl &ojgzd with q
  165. skip
  166. enddo
  167. endif
  168. return
  169.