home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTZB.PRG < prev   
Encoding:
Text File  |  1990-04-26  |  1.4 KB  |  112 lines
  1. * INPUT : FNO,ZH *
  2. * OUTPUT: SM,FXY *
  3. USE DBD INDE DBD
  4. IF ZH='║ß'
  5. SET FILT TO F_NO=FNO.AND.FIELD_TYPE='C'
  6. ELSE
  7. SET FILT TO F_NO=FNO.AND.FIELD_TYPE='N'
  8. ENDIF
  9. GO TOP
  10. COUNT TO MAX
  11. GO TOP
  12. HS=24
  13. LS=5
  14. SET DELI OFF
  15. SET DEVI TO SCRE
  16. N=0
  17. @ 1,0
  18. T=.T.
  19. DO WHILE T
  20. @ 2,0 CLEAR
  21. I=2
  22. J=0
  23. N1=N+1
  24. DO WHILE .NOT. EOF()
  25. N=N+1
  26. @ I,J*15 SAY STR(N,2)+'.'+TRIM(C_NAME)
  27. J=J+1
  28. IF J=LS
  29. I=I+1
  30. J=0
  31. ENDIF
  32. IF I=HS
  33. EXIT
  34. ENDIF
  35. SKIP
  36. ENDDO
  37. DO WHILE .T.
  38. @ 1,7 SAY '╓╕╢¿&ZH.╫°▒Ω▓╬╩²╫╓╢╬╡─╨≥║┼  PgUp__╔╧╥│    PgDn__╧┬╥│     '
  39. DO WHILE .T.
  40. @ 1,58 SAY ' '
  41. YN=INKEY(0)
  42. IF YN>48.AND.YN<58.OR.YN=18.OR.YN=3.OR.YN=27
  43. EXIT
  44. ENDIF
  45. ??CHR(7)
  46. ENDDO
  47. @ 1,0 SAY SPACE(7)
  48. @ 1,62 SAY SPACE(16)
  49. DO CASE
  50. CASE YN=27
  51. CLOS DATA
  52. RETU TO MAST
  53. CASE YN=18
  54. IF N1=1
  55. LOOP
  56. ENDIF
  57. IF N1<LS*HS+1
  58. N=0
  59. ELSE
  60. N=N1-LS*HS+1
  61. ENDIF
  62. GO TOP
  63. SKIP N
  64. EXIT
  65. CASE YN=3
  66. IF N=MAX
  67. LOOP
  68. ENDIF
  69. SKIP
  70. EXIT
  71. OTHER
  72. DO WHILE .T.
  73. @ 1,59 SAY CHR(YN)
  74. YN1=INKEY(0)
  75. IF YN1>47.AND.YN1<58.OR.YN1=13.OR.YN1=127.OR.YN1=19.OR.YN1=27
  76. EXIT
  77. ENDIF
  78. ?? CHR(7)
  79. ENDDO
  80. IF YN1=27
  81. CLOS DATA
  82. RETU TO MAST
  83. ENDIF
  84. IF YN1=127.OR.YN1=19
  85. LOOP
  86. ENDIF
  87. IF YN1=13
  88. YN1=''
  89. ELSE
  90. YN1=CHR(YN1)
  91. @ 1,60 SAY YN1
  92. ENDIF
  93. YN=CHR(YN)
  94. IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
  95. @ 1,62 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
  96. @ 1,3 SAY '╓╪╨┬'
  97. LOOP
  98. ENDIF
  99. GO TOP
  100. SKIP &YN.&YN1.-1
  101. SM=DBD->C_NAME
  102. FXY=FIELD_NAME
  103. USE
  104. RETU
  105. ENDCASE
  106. ENDDO
  107. ENDDO
  108. ** END OF ZFTZB.PRG **
  109.  
  110.  
  111.  
  112.