home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTSC11.PRG < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.6 KB  |  121 lines
  1. ** ╤í╘±╓▒╖╜═╝╡─║ß╫°▒Ω▓╬╩²╫╓╢╬  ZFTSC11.PRG **
  2. ** INPUT : FNO ╬─╝■▒α║┼
  3. ** OUTPUT: ZFTZJK.DBF ║ß╫°▒Ω▓╬╩²╫╓╢╬┐Γ
  4. @ 1,0 CLEAR
  5. SET DELI OFF
  6. HS=25
  7. LS=5
  8. HHJ=''
  9. SELE 4
  10. USE ZFTZJK
  11. ZAP
  12. SELE 3
  13. USE DBD INDE DBD
  14. SET FILT TO F_NO=FNO.AND.FIELD_TYPE='N'
  15. COUNT TO MAX
  16. GO TOP
  17. N=0
  18. SET DEVI TO SCRE
  19. @ 1,0
  20. T=.T.
  21. DO WHILE T
  22. @ 2,0 CLEAR
  23. I=2
  24. J=0
  25. N1=N+1
  26. DO WHILE .NOT. EOF()
  27. N=N+1
  28. @ I,J*15 SAY STR(N,2)+'.'+TRIM(C_NAME)
  29. J=J+1
  30. IF J=LS
  31. I=I+1
  32. J=0
  33. ENDIF
  34. IF I=HS-6
  35. EXIT
  36. ENDIF
  37. SKIP
  38. ENDDO
  39. DO WHILE .T.
  40. @ HS-5,1 SAY '╡▒╟░║ß╫°▒Ω▓╬╩²╧ε╬¬: '+HHJ
  41. @ 1,7 SAY '╟δ╤í╘±║ß╫°▒Ω▓╬╩²╧ε╨≥║┼:Enter_═╦│÷ PgUp_╟░▓Θ PgDn_║≤▓Θ:  '
  42. DO WHILE .T.
  43. @ 1,60 SAY ':'
  44. YN=INKEY(0)
  45. IF YN>48.AND.YN<58.OR.YN=13.OR.YN=3.OR.YN=18.OR.YN=27
  46. EXIT
  47. ENDIF
  48. ?? CHR(7)
  49. ENDDO
  50. @ 1,0 SAY SPACE(7)
  51. @ 1,63 SAY SPACE(16)
  52. DO CASE
  53. CASE YN=27
  54. CLOS DATA
  55. RETU TO MAST
  56. CASE YN=18
  57. IF N1=1
  58. LOOP
  59. ENDIF
  60. IF N1<LS*HS+1
  61. N=0
  62. ELSE
  63. N=N1-LS*HS+1
  64. ENDIF
  65. GO TOP
  66. SKIP N
  67. EXIT
  68. CASE YN=3
  69. IF N=MAX
  70. LOOP
  71. ENDIF
  72. SKIP
  73. EXIT
  74. CASE YN=13
  75. IF LEN(HHJ)=0
  76. LOOP
  77. ENDIF
  78. RETU
  79. OTHER
  80. DO WHILE .T.
  81. @ 1,61 SAY CHR(YN)
  82. YN1=INKEY(0)
  83. IF YN1>47.AND.YN<58.OR.YN1=13.OR.YN1=127.OR.YN1=19.OR.YN1=27
  84. EXIT
  85. ENDIF
  86. ??CHR(7)
  87. ENDDO
  88. IF YN1=27
  89. CLOS DATA
  90. RETU TO MAST
  91. ENDIF
  92. IF YN1=127.OR.YN1=19
  93. LOOP
  94. ENDIF
  95. IF YN1=13
  96. YN1=' '
  97. ELSE
  98. YN1=CHR(YN1)
  99. @ 1,62 SAY YN1
  100. ENDIF
  101. YN=CHR(YN)
  102. IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
  103. @ 1,63 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
  104. @ 1,3 SAY '╓╪╨┬'
  105. LOOP
  106. ENDIF
  107. GO TOP
  108. SKIP &YN.&YN1.-1
  109. SELE ZFTZJK
  110. APPE BLAN
  111. REPL XPARA WITH DBD->C_NAME, FIELD_NAME WITH DBD->FIELD_NAME
  112. SELE DBD
  113. HHJ=HHJ+'; '+TRIM(C_NAME)
  114. IF HHJ=';'
  115. HHJ=SUBS(HHJ,2)
  116. ENDIF
  117. ENDCASE
  118. ENDDO
  119. ENDDO
  120. ** END OF ZFTSC11.PRG **
  121.