home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBFL.PRG < prev    next >
Encoding:
Text File  |  1990-09-04  |  1.6 KB  |  92 lines
  1. *************<<╤í╘±╗π╫▄╫╓╢╬ DBFL.PRG >>***********
  2. *       ╚δ┐┌▓╬╩²---FN : ╬─╝■├√                    *
  3. *       │÷┐┌▓╬╩²---FL :╗π╫▄╫╓╢╬╬≈╬─├√▒φ           *
  4. *                  CFL:╗π╫▄╫╓╢╬╓╨╬─├√▒φ          *
  5. *                  FLN:╗π╫▄╫╓╢╬╕÷╩²              *
  6. *                  LM0:╗π╫▄╫╓╢╬╨≥║┼▒φ            *
  7. **************************************************
  8. PARA FN,FL,CFL,FLN,LM0
  9. CLEAR
  10. SELE 1
  11. USE FILE INDE FILE
  12. FIND &FN
  13. FNO=F_NO
  14. USE DBD INDE DBD
  15. SET FILT TO F_NO=FNO .AND. FIELD_TYPE='N'
  16. GO TOP
  17. IF EOF()
  18. USE
  19. WAIT '  ╬▐╩²╓╡└α╨═╫╓╢╬! ░┤╚╬╥Γ╝ⁿ╖╡╗╪......'
  20. RETU
  21. ENDIF
  22. I=1
  23. N=0
  24. J=1
  25. DO WHILE .NOT. EOF()
  26. @ I,N*15 SAY STR(J,2)+'.'+TRIM(C_NAME)
  27. N=N+1
  28. IF N=5
  29. N=0
  30. I=I+1
  31. ENDIF
  32. SKIP
  33. J=J+1
  34. ENDDO
  35. ML=J-1
  36. ROW=ROW()+1
  37. FLN=0
  38. FL=''
  39. CFL=''
  40. ? '╟δ╤í╘±╥¬╟≤║═,╗≥╫▄╝╞,╗≥╞╜╛∙╡─╧ε─┐╨≥║┼'
  41. ? '╦∙╤í╘±╡─└╕▒╪╨δ╩╟╩²╓╡└α╨═'
  42. ? '╕≈╧ε─┐╨≥║┼╙├╢║║┼(,)╕⌠┐¬'
  43. ROW=ROW()+1
  44. DO WHILE .T.
  45. FLN=0
  46. FL=''
  47. CFL=''
  48. LM0=''
  49. LM=SPACE(40)
  50. @ ROW,0 CLEAR
  51. @ ROW,0 SAY "╓╗╩Σ╚δ '0' ▒φ╩╛╤í╘±╦∙╙╨╩²╓╡└α╨═╧ε─┐:" GET LM
  52. READ
  53. LM=TRIM(LM)
  54. IF LM='0'
  55. GO TOP
  56. DO WHILE .NOT.EOF()
  57. FL=FL+TRIM(FIELD_NAME)+','
  58. CFL=CFL+C_NAME+','
  59. FLN=FLN+1
  60. LM0=LM0+FIELD_NO+','
  61. SKIP
  62. ENDDO
  63. FL=SUBS(FL,1,LEN(FL)-1)
  64. SET FILTER TO
  65. RETU
  66. ENDIF
  67. LM1=LM
  68. DO WHILE .T.
  69. N=VAL(LM)
  70. IF N<1.OR.N>ML
  71. @ ROW+1,0 SAY LM1
  72. ? SPACE(LEN(LM1)-LEN(LM))+'^-------------╧ε─┐╨≥║┼│¼╖╢╬º┤φ!'
  73. WAIT'╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  74. @ 0,0 SAY '╟δ╓╪╨┬╩Σ╚δ...'
  75. EXIT
  76. ENDIF
  77. GO TOP
  78. SKIP N-1
  79. FL=FL+TRIM(FIELD_NAME)+','
  80. CFL=CFL+C_NAME+','
  81. FLN=FLN+1
  82. LM0=LM0+FIELD_NO+','
  83. DH=AT(',',LM)
  84. IF DH=0.OR.DH=LEN(LM)
  85. FL=SUBS(FL,1,LEN(FL)-1)
  86. RETU
  87. ENDIF
  88. LM=SUBSTR(LM,DH+1,LEN(LM)-DH)
  89. ENDDO
  90. ENDDO
  91. ****** END OF DBFLPRG ******
  92.