home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBF2.PRG < prev    next >
Encoding:
Text File  |  1990-05-06  |  2.0 KB  |  159 lines
  1. ******   ╚½╞┴─╗▓Θ╤»│╠╨≥ : DBF2.PRG   ******
  2. ******   DO DBF2 ( FN , EXP)         ******
  3. ******   ╞Σ╓╨: FN:╬─╝■├√.(╚δ┐┌)      ******
  4. ******         EXP:╠⌡╝■▒φ┤∩╩╜.(╚δ┐┌) ******
  5. ******   PARA FN,EXP
  6. SET TALK OFF
  7. S4='|'
  8. IF TYPE('M->FN')='U'
  9. FN=''
  10. DO SELEF
  11. IF LEN(M->FN)=0
  12. RETU
  13. ENDIF
  14. ENDIF
  15. IF TYPE('M->EXP')='U'
  16. EXP=''
  17. DO DBFEXP
  18. ENDIF
  19. IF TYPE('M->LM')='U'.OR.LM='  '
  20. STOR '  ' TO LM,S1,S2,S3,S5
  21. DO DBFS
  22. ENDIF
  23. HS=25
  24. SELE 1
  25. USE FILE INDE FILE
  26. SEEK M->FN
  27. FNO=F_NO
  28. CFN=C_FNAME
  29. NUM=FIELD_NUM
  30. USE IDX INDE IDX
  31. SEEK M->FNO
  32. NDX=IDX_NAME
  33. USE &FN
  34. SET INDE TO &NDX
  35. SET FILTER TO &EXP
  36. COUNT TO MAXREC
  37. GO TOP
  38. IF EOF()
  39. CLEAR
  40. @ 5,10 SAY '&CFN.╬─╝■╓╨├╗╙╨┬·╫π╠⌡╝■╡─╝╟┬╝'
  41. @ 6,10 SAY '╟├╚╬╥Γ╝ⁿ╘≥╖╡╗╪......'
  42. WAIT ''
  43. USE
  44. RETU
  45. ENDIF
  46. ***  ╜¿┴ó┤░┐┌  ***
  47. SELE 2
  48. USE DIS
  49. GO BOTT
  50. N=RECNO()-1
  51. I=1
  52. X=1
  53. Y=HS-3
  54. SET COLO TO GR/0
  55. CLEAR
  56. DO WHILE .T.
  57. @ 0,0 SAY '<< '+TRIM(M->CFN)+' >>'
  58. SELE 2
  59. GO I
  60. L1=START
  61. LOCA FOR START>79+L1
  62. SKIP -1
  63. J=RECNO()-1
  64. L2=START
  65. ***  ╧╘╩╛▒φ═╖  ***
  66. DO CO
  67. @ 2,0 CLEAR
  68. SET COLO TO +2/0
  69. @ 2,0 SAY SUBS(M->S2,M->L1,M->L2-M->L1+1)
  70. ***  ╧╘╩╛╝╟┬╝ ***
  71. IJ='Y'
  72. DO WHILE M->IJ='Y'
  73. K=0
  74. SELE 1
  75. GO TOP
  76. SKIP M->X-1
  77. SET COLO TO 5/0
  78. @ 3,0 CLEAR
  79. @ 2,0 SAY ''
  80. DO WHILE .NOT.EOF().AND.M->K<>M->Y
  81. SELE 2
  82. GO I
  83. DO WHILE RECNO()<=J
  84. ST=ITEM
  85. SELE 1
  86. S4=M->S4+&ST+"|"
  87. SELE 2
  88. SKIP
  89. ENDDO
  90. @ ROW()+1,0 SAY M->S4
  91. S4='|'
  92. SELE 1
  93. SKIP
  94. K=M->K+1
  95. ENDDO
  96. DO CO
  97. ***  ┤░┐┌╥╞╢»  ***
  98. SELE 2
  99. DO WHILE .T.
  100. CK=' '
  101. DO WHILE AT(M->CK,'0123456G')=0
  102. DO CO1
  103. @ 1,0 SAY '0.═╦│÷ 1.╟░╖¡ 2.║≤╖¡ 3.╟░╥╞ 4.║≤╥╞ 5.╫≤╥╞ 6.╙╥╥╞ :: G---╕─▒Σ╧╘╩╛╖╜╩╜' GET CK
  104. DO CO
  105. READ
  106. CK=UPPE(CK)
  107. ENDDO
  108. DO CASE
  109. CASE CK='0'
  110. RETU
  111. CASE CK='1'
  112. IF X=1
  113. LOOP
  114. ENDIF
  115. X=IIF(X<=Y,1,X-Y)
  116. CASE CK='2'
  117. IF X+Y>MAXREC
  118. LOOP
  119. ENDIF
  120. X=X+Y
  121. CASE CK='3'
  122. IF X=1
  123. LOOP
  124. ENDIF
  125. X=X-1
  126. CASE CK='4'
  127. IF X+Y>MAXREC
  128. LOOP
  129. ENDIF
  130. X=X+1
  131. CASE CK='5'
  132. IF J=N
  133. LOOP
  134. ENDIF
  135. I=I+1
  136. IJ='N'
  137. CASE CK='6'
  138. IF I=1
  139. LOOP
  140. ENDIF
  141. I=I-1
  142. IJ='N'
  143. CASE UPPE(CK)='G'
  144. CX=0
  145. SELE 1
  146. DO DBF1
  147. SELE 2
  148. IF CX=0
  149. CLOS DATA
  150. RETU
  151. ENDIF
  152. IJ='N'
  153. ENDCASE
  154. EXIT
  155. ENDDO
  156. ENDDO
  157. ENDDO
  158. ** END OF DBF2.PRG **
  159.