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