home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / IDXCRNEW.PRG < prev    next >
Encoding:
Text File  |  1990-05-08  |  2.2 KB  |  146 lines
  1. ****** ╜¿┴ó╨┬╦≈╥² IDXCRNEW.PRG ******
  2. ****** DO IDXCRNEW             ******
  3. CLOS DATA
  4. SET TALK OFF
  5. SET SAFE OFF
  6. H='Y'
  7. DO WHILE UPPER(H)='Y'
  8. FN=''
  9. FNO=''
  10. CFN=''
  11. DO SELEF
  12. IF LEN(FN)=0
  13. CLOS DATA
  14. RETU
  15. ENDIF
  16. SELE 3
  17. USE FILE INDE FILE
  18. SEEK FN
  19. FNO=F_NO
  20. CFN=C_FNAME
  21. SELE 2
  22. USE IDX INDE IDX
  23. DO WHILE .T.
  24. SELE 2
  25. @ 1,0 CLEAR
  26. SET FILT TO F_NO=FNO
  27. GO TOP
  28. @ 1, 20 SAY CFN+FN+'.DBF ╙╨╧┬┴╨╦≈╥²'
  29. I=2
  30. DO WHILE .NOT. EOF()
  31. @ I,5 SAY '['+STR(I-1,2)+'].....'+IDX_NAME+IDX_DES+TRIM(IDX_EXP)
  32. SKIP
  33. I=I+1
  34. ENDDO
  35. IF I=9
  36. @ 9,10 SAY '├┐╕÷╩²╛▌┐Γ╬─╝■╫ε╢α╘╩╨φ 7 ╕÷╦≈╥²╬─╝■!!!▓╗╘╩╨φ╘┘╜¿┴ó!'
  37. A=INKEY(0)
  38. CLOS DATA
  39. RETU
  40. ENDIF
  41. DO WHILE .T.
  42. IN=SPACE(8)
  43. ID=SPACE(20)
  44. @ 9,0 SAY '╟δ╩Σ╚δ╦≈╥²╬─╝■├√(╬¬┐╒╘≥╖╡╗╪):' GET IN PICT '!!!!!!!!'
  45. @ 9,COL()+1 SAY '╦≈╥²├Φ╩÷:' GET ID
  46. READ
  47. IF IN=SPACE(8)
  48. CLOS DATA
  49. RETU
  50. ENDIF
  51. SELE 2
  52. SET FILT TO
  53. GO  TOP
  54. SET EXACT ON
  55. LOCA ALL FOR IDX_NAME=IN
  56. SET EXACT OFF
  57. IF .NOT. EOF()
  58. @ 1,0 SAY '╦≈╥²╬─╝■├√╥╤▒╗╩╣╙├ ! ╟δ╓╪╨┬╩Σ╚δ......'
  59. LOOP
  60. ENDIF
  61. EXIT
  62. ENDDO
  63. @ 1,0 CLEAR
  64. SELE 1
  65. USE DBD INDE DBD
  66. SET FILT TO F_NO=FNO.AND..NOT.FIELD_TYPE$'LM'
  67. GO TOP
  68. I=3
  69. J=1
  70. DO WHILE .NOT. EOF()
  71. N=0
  72. DO WHILE .NOT. EOF() .AND. N<5
  73. @ I,N*15 SAY STR(J,2)+'.'+C_NAME
  74. N=N+1
  75. SKIP
  76. J=J+1
  77. ENDDO
  78. I=I+1
  79. ENDDO
  80. ML=J-1
  81. ROW=9
  82. DO WHILE .T.
  83. LM=SPACE(30)
  84. @ ROW,0 SAY ":╟δ╤í╘±╦≈╥²╣╪╝ⁿ╫╓,╕≈╣╪╝ⁿ╫╓╨≥║┼╙├╢║║┼(,)╕⌠┐¬:" GET LM
  85. READ
  86. IF LM=SPACE(30)
  87. LOOP
  88. ENDIF
  89. ERR=0
  90. IE=''
  91. DO WHILE .T.
  92. N=VAL(LM)
  93. IF N>=1 .AND. N<=ML
  94. SELE 1
  95. GO TOP
  96. SKIP N-1
  97. T=FIELD_TYPE
  98. NAME1=TRIM(FIELD_NAME)
  99. DO CASE
  100. CASE T="N"
  101. IE=IE+'+'+"STR(&NAME1,"+STR(FIELD_LEN,3)+','+STR(FIELD_DEC,3)+")"
  102. CASE T='C'
  103. IE=IE+'+'+NAME1
  104. CASE T='D'
  105. IE=IE+'+'+'DTOC(&NAME1.)'
  106. ENDCASE
  107. IF AT(",",LM)=0 .OR. AT(",",LM)=LEN(LM)
  108. EXIT
  109. ENDIF
  110. LM=SUBSTR(LM,AT(",",LM)+1,LEN(LM)-AT(",",LM))
  111. ELSE
  112. ? LM
  113. ? '^---------╤í╘±└╕├√╨≥║┼┤φ'
  114. ?   '╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  115. WAIT ' '
  116. ERR=1
  117. EXIT
  118. ENDIF
  119. ENDDO
  120. IF ERR=1
  121. EXIT
  122. ENDIF
  123. IF FN$'DBDFILEIDX'
  124. N=STR(AT(SUBS(FN,1,1),'DIF'))
  125. SELE &N
  126. ELSE
  127. SELE 4
  128. USE &FN
  129. ENDIF
  130. IE=SUBS(IE,2)
  131. INDE ON &IE TO &IN
  132. SELE 4
  133. USE
  134. SELE 2
  135. APPE BLAN
  136. REPL F_NO WITH FNO,IDX_NAME WITH IN,IDX_EXP WITH IE,IDX_DES WITH ID
  137. SELE 3
  138. REPL IDX_NUM WITH IDX_NUM+1
  139. EXIT
  140. ENDDO
  141. ENDDO
  142. ENDDO
  143. RETURN
  144. ** END OF IDXCRNEW.PRG **
  145.  
  146.