home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YL5.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  4.5 KB  |  172 lines
  1. clear
  2. set talk off
  3. close database
  4. set device to screen
  5. sele 1
  6. use yl
  7. sele 2
  8. use yan
  9. sele 3
  10. use dw index dw1
  11. a='  '
  12. a2=.t.
  13. do while a1
  14. clear
  15. b='        '
  16. @ 4,10 say "╟δ╩Σ╚δ╡Ñ╬╗▒α║┼" get a
  17. read
  18. if a='h'
  19. do hel1
  20. loop
  21. endif
  22. exit
  23. enddo 
  24. @ 5,10 say "╜±╠∞╡─╚╒╞┌" get b pict 'xx.xx.xx'
  25. read
  26. seek a
  27. c=dw2
  28. sele 1
  29. loca for yl4=a
  30. if eof()
  31. retu
  32. endif
  33. set device to print
  34. set print on
  35. set cons off
  36. ? chr(27)+"IJ"
  37. set print off
  38. set cons on
  39. p=1
  40. do while .not. eof()
  41. clear
  42. @ 1,30 say "╤╣┴ª╚▌╞≈╡╟╝╟┐¿╞¼"
  43. @ 2,1 say "          "
  44. @ 3,1 say "╩╣╙├╡Ñ╬╗:"+c
  45. @ 3,60 say "╠ε▒φ╚╒╞┌:"+b
  46. @ 4,1 say ì
  47. "=================================================================ì
  48. ==============="
  49. @ 5,1 say "|╚▌╞≈▒α║┼|"+yl1
  50. @ 5,27 say "|╚▌╞≈├√│╞|"+yl2
  51. @ 5,54 say "|╚▌╞≈└α▒≡|"+yl3+"            |" 
  52. @ 6,1 say ì
  53. "|--------|----------------|--------|-----------------|--------|---ì
  54. -------------|"
  55. @ 7,1 say "|╓╞╘∞╡Ñ╬╗|"+yl6
  56. d=dtoc(yl7)
  57. j1=substr(d,7,2)
  58. j2=substr(d,1,2)
  59. j3=substr(d,4,2)
  60. d=j1+'.'+j2+'.'+j3
  61. @ 7,27 say "|╓╞╘∞╚╒╞┌|"+d  
  62. @ 7,54 say "|│÷│º▒α║┼|"+yl8+"       |"
  63. @ 8,1 say ì
  64. "|--------|----------------|--------|-----------------|--------|---ì
  65. -------------|"
  66. @ 9,1 say "|╫▄╓╪(Kg)|"+str(yl15,6)
  67. @ 9,27 say "|╫╩┴╧║┼  |"+yl5
  68. d=dtoc(yl9)
  69. j1=substr(d,7,2)
  70. j2=substr(d,1,2)
  71. j3=substr(d,4,2)
  72. d=j1+'.'+j2+'.'+j3
  73. @ 9,54 say "|╩╣╙├╚╒╞┌|"+d+"        |"
  74. @ 10,1 say ì
  75. "|--------|----------------|--------|-----------------|--------|---ì
  76. -------------|"
  77. @ prow()+1,1 say "|╚▌|─┌╛╢(mm)  |"+str(yl11,4)
  78. @ prow(),45 say "|▓┘|╤╣┴ª(Mpa)|"+str(yl21,3)+"                  |"
  79. @ prow()+1,1 say ì
  80. "|  |----------|-----------------------------|  |---------|-----ì
  81. ----------------|"
  82. @ prow()+1,1 say "|╞≈|▒┌║±(mm)  |"+str(yl12,3)
  83. @ prow(),45 say "|╫≈|╬┬╢╚ C   |"+str(yl22,3)+"                  |"
  84. @ prow()+1,1 say ì
  85. "|  |----------|-----------------------------|  |---------|-----ì
  86. ----------------|"
  87. @ prow()+1,1 say "|╣µ|│ñ(╕▀)(mm)|"+str(yl13,5)
  88. @ prow(),45 say "|╠⌡|╜Θ╓╩     |"+yl23+"         |"
  89. @ prow()+1,1 say ì
  90. "|  |----------|-----------------------------|  |---------|-----ì
  91. ----------------|"
  92. @ prow()+1,1 say "|╕±|╚▌╗²(mXm) |"+str(yl14,4)
  93. @ prow(),45 say "|╝■|▒┌╬┬ C   |"+str(yl24,3)+"                  |"
  94. @ prow()+1,1 say ì
  95. "|--|----------|-----------------------------|--|---------|-----ì
  96. ----------------|"
  97. @ prow()+1,1 say "|▓─|═▓╠σ      |"+yl16
  98. m=yl26/365
  99. @ prow(),45 say "|╝∞|═Γ▓┐╝∞╤Θ |"+str(m,4,1)+"                 |"
  100. @ prow()+1,1 say ì
  101. "|  |----------|-----------------------------|╤Θ|---------|-----ì
  102. ----------------|"
  103. @ prow()+1,1 say "|  |╖Γ═╖      |"+yl17
  104. m=yl27/365
  105. @ prow(),45 say "|╓▄|─┌▓┐╝∞╤Θ |"+str(m,4,1)+"                 |"
  106. @ prow()+1,1 say ì
  107. "|  |----------|-----------------------------|╞┌|---------|-----ì
  108. ----------------|"
  109. @ prow()+1,1 say "|┴╧|╓≈┬▌╦¿    |"+yl18
  110. m=yl28/365
  111. @ prow(),45 say "|  |╚½├µ╝∞╤Θ |"+str(m,4,1)+"                 |"
  112. @ prow()+1,1 say ì
  113. "|--|----------|-----------------------------|--|---------|-----ì
  114. ----------------|"
  115. @ prow()+1,1 say "|─┌▒┌╖└╕»┤δ╩⌐ |"+yl19
  116. @ prow(),45 say "|╔Φ╝╞╩╣╙├─Ω╧▐|"+str(yl10,2)+"                   ì
  117. |"
  118. @ prow()+1,1 say ì
  119. "|-------------|-----------------------------|------------|-------ì
  120. --------------|"
  121. @ prow()+1,1 say "|═Γ▒┌╖└╕»┤δ╩⌐ |"+yl20
  122. @ prow(),45 say "|╩╘╤Θ╤╣┴ª Mpa|"+str(yl30,3)+"                  ì
  123. |"
  124. @ prow()+1,1 say ì
  125. "-----------------------------------------------------------------ì
  126. --------------|"            
  127. @ prow()+1,1 say "|╥╘╧┬╬¬░▓╚½╫░╓├├√╧╕                               ì
  128.                              |"
  129. @ prow()+1,1 say ì
  130. "|----------------------------------------------------------------ì
  131. --------------|"      
  132. @ prow()+1,1 say "|░▓╚½╫░╓├├√│╞           |╣µ╕±            |╨═║┼      ì
  133.       |╩²┴┐                |"
  134. @ prow()+1,1 say ì
  135. "|-----------------------|----------------|----------------|------ì
  136. --------------|"
  137. g=yl1
  138. f=recno()
  139. sele 2 
  140. loca for yan1=g
  141. do while .not. eof()
  142. @ prow()+1,1 say "|"+yan2
  143. @ prow(),25 say "|"+yan3
  144. @ prow(),42 say "|"+yan5
  145. @ prow(),59 say "|"+str(yan4,2)+"                  |"
  146. cont
  147. if .not. eof()
  148. @ prow()+1,1 say ì
  149. "|-----------------------|----------------|----------------|------ì
  150. --------------|"
  151. else
  152. @ prow()+1,1 say ì
  153. "=================================================================ì
  154. ==============="
  155. @ prow()+1,68 say "╡┌"+str(p,2)+"╥│"
  156. endif
  157. enddo 
  158. ejec
  159. sele 1
  160. p=p+1
  161. cont
  162. enddo 
  163. set print on
  164. ? chr(13)
  165. set print off
  166. set device to screen
  167. a1=.t.
  168. clos data
  169. retu 
  170.  
  171.  
  172.