home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBPRINT.PRG < prev    next >
Encoding:
Text File  |  1990-09-04  |  2.7 KB  |  173 lines
  1. PARA FN,EXP,BZ,BT0,LM,RN,FS
  2. CLEAR
  3. CLOS DATA
  4. LINE='⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
  5. LINE=LINE+LINE+LINE
  6. SET SAFE OFF
  7. SELE 1
  8. USE FILE INDE FILE
  9. FIND &FN
  10. IF EOF()
  11. ? '╬─╝■┐Γ╓╨╬▐ &FN ╬─╝■'
  12. WAIT
  13. RETU
  14. ENDIF
  15. FIELDNUM=FIELD_NUM
  16. FNO=F_NO
  17. USE IDX INDE IDX
  18. SEEK FNO
  19. FN1=IDX_NAME
  20. USE DBD INDE DBD
  21. SET FILT TO F_NO=FNO
  22. GO TOP
  23. IF BZ=0
  24. I=1
  25. N=1
  26. DO WHILE .NOT. EOF()
  27. @ I,(N-1-(I-1)*5)*15 SAY STR(N,2)+'.'+TRIM(C_NAME)
  28. IF N/5=INT(N/5)
  29. I=I+1
  30. ENDIF
  31. N=N+1
  32. SKIP
  33. ENDDO
  34. FIELDNUM=N-1
  35. ROW=ROW()+1
  36. @ ROW,0 SAY ":╟δ╤í╘±╥¬┤≥╙í╗≥╧╘╩╛╡─└╕├√,╕≈└╕├√╨≥║┼╙├╢║║┼(,)╕⌠┐¬:"
  37. ACCE ":╓╗╩Σ╚δ 0 ╘≥▒φ╩╛╤í╘±╦∙╙╨└╕─┐:" TO LM
  38. ? '╧╡═│╒²╘┌╘╦╨╨,╟δ─·╔╘║≥╞¼┐╠...'
  39. ENDIF
  40. IF LM='0'
  41. LM='1'
  42. I=2
  43. DO WHILE I<=FIELDNUM
  44. IF I<10
  45. LM=LM+','+STR(I,1)
  46. ELSE
  47. LM=LM+','+STR(I,2)
  48. ENDIF
  49. I=I+1
  50. ENDDO
  51. ENDIF
  52. *ENDIF
  53. L=0
  54. DEEP=3
  55. ERR=0
  56. STOR '' TO C1,C2,C3,C4
  57. DO DBP1
  58. CLOS DATA
  59. IF ERR=1
  60. RETU
  61. ENDIF
  62. IF BZ=0
  63. ACCE "╩Σ╚δ▒φ╕±▒Ω╠Γ " TO BT0
  64. ENDIF
  65. BT0=SPACE((IIF(L<LEN(BT0)*2,0,L-LEN(BT0)*2))/4)+BT0
  66. BT1=SPACE(IIF(L<19,0,L-19))+STR(YEAR(DATE()),4)+' ─Ω '+STR(MONTH(DATE()),2)+' ╘┬ '+STR(DAY(DATE()),2)+' ╚╒'
  67. IF BZ=0
  68. FS=1
  69. SELE 1
  70. USE &FN
  71. COUNT FOR &EXP TO RN
  72. SELE 10
  73. @ ROW()+1,0 SAY '╟δ╩Σ╚δ├┐╥│╘╩╨φ┤≥╙í╡─╝╟┬╝╩²,┬·╫π╠⌡╝■╡─╝╟┬╝╩²╬¬:'+STR(RN,4)+':' GET RN PICT '9999' RANG 1,RN
  74. @ ROW()+1,0 SAY '╟δ╩Σ╚δ┤≥╙í╖▌╩²,╩í┬╘╬¬ 1 :' GET FS PICT '99'
  75. READ
  76. ENDIF
  77. CLEAR
  78. IF SYS(13)<>'READY'
  79. @ 5,20 SAY '╟δ╫╝▒╕║├┤≥╙í╗·!'
  80. ?? CHR(7)+CHR(7)
  81. ENDIF
  82. DO WHILE SYS(13)<>'READY'
  83. ENDDO
  84. @ 5,20 SAY '┐¬  ╩╝  ┤≥  ╙í . . .'
  85. SET PRINT ON
  86. M=0
  87. DO WHILE M<FS
  88. *SET MARG TO (L-LEN(C1))/4
  89. ? CHR(27)+'I'+'D'+BT0
  90. *? CHR(27)+'E22'+BT0+CHR(27)+'3'+CHR(20)
  91. *?? CHR(27)+'W0'+CHR(27)+'W0'
  92. ?? CHR(27)+'I'+'A'
  93. *SET MARG TO (L-LEN(C1))/2
  94. ? BT1
  95. K=1
  96. DO WHILE K<DEEP
  97. I=STR(K,1)
  98. ? C&I
  99. K=K+1
  100. ENDDO
  101. I=STR(K,1)
  102. S1=C&I
  103. I=STR(K+1,1)
  104. S5=C&I
  105. SELE 1
  106. USE &FN
  107. SET INDE TO &FN1
  108. SET FILTER TO &EXP
  109. GO TOP
  110. SELE 2
  111. USE PRT
  112. N=0
  113. ?? CHR(27)+'3'+CHR(22)
  114. SELE 1
  115. DO WHILE .NOT. EOF()
  116. SELE 2
  117. ? S1
  118. GO TOP
  119. N=N+1
  120. S4="⌐ª"+STR(N,4)+'⌐ª'
  121. DO WHILE .NOT. EOF()
  122. S3=STA
  123. SELE 1
  124. S4=M->S4+&S3+"⌐ª"
  125. SELE 2
  126. SKIP
  127. ENDDO
  128. ? S4
  129. SELE 1
  130. SKIP
  131. IF INT(M->N/M->RN)=M->N/M->RN .AND..NOT.EOF()
  132. SELE 0
  133. ? S5
  134. ? SPACE(IIF(L<10,0,L-10))+"╡┌  "+STR(INT(N/RN),2)+"  ╥│"
  135. ? CHR(2)
  136. *SET MARG TO (179-LEN(C1))/4
  137. ? CHR(27)+'ID'+BT0
  138. *? CHR(27)+'E22'+BT0+CHR(27)+'3'+CHR(20)
  139. *? CHR(27)+'W0'+CHR(27)+'W0'
  140. ? CHR(27)+"IA"
  141. *SET MARG TO (179-LEN(C1))/2
  142. ? BT1
  143. K=1
  144. DO WHILE K<DEEP
  145. I=STR(K,1)
  146. ? C&I
  147. K=K+1
  148. ENDDO
  149. ?? CHR(27)+'3'+CHR(22)
  150. ENDIF
  151. SELE 1
  152. ENDDO
  153. SELE 2
  154. ? S5
  155. I=1
  156. IF INT(N/RN)=N/RN
  157. I=0
  158. ENDIF
  159. ? "╣▓ "+STR(N,3)+" ╧ε"+SPACE(IIF(L<11,0,L-11))+"╡┌ "+STR(INT(N/RN)+I,2)+" ╥│"
  160. ? CHR(2)
  161. CLOS DATA
  162. M=M+1
  163. ENDDO
  164. ?
  165. SET MARG TO 0
  166. SET PRINT OFF
  167. IF BZ=0
  168. WAIT '                ┤≥╙í═Ω▒╧! ╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  169. ENDIF
  170. CLOS DATA
  171. RETURN
  172. ** END DBPRINT.PRG **
  173.