home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / IDXDELE.PRG < prev    next >
Encoding:
Text File  |  1990-05-28  |  830 b   |  57 lines
  1. ****** ╔╛│²─│╦≈╥² IDXDELE.PRG ******
  2. ****** DO IDXDELE             ******
  3. DO WHILE .T.
  4. CLEAR
  5. FN=''
  6. DO SELEF
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. SELE 1
  11. USE FILE INDE FILE
  12. SEEK FN
  13. FNO=F_NO
  14. CFN=TRIM(C_FNAME)
  15. SELE 2
  16. USE IDX INDE IDX
  17. DO WHILE .T.
  18. CLEAR
  19. SET FILT TO F_NO=FNO .AND. .NOT.DELE()
  20. GO TOP
  21. @ 1, 20 SAY CFN+FN+'.DBF ╙╨╧┬┴╨╦≈╥²'
  22. I=2
  23. DO WHILE .NOT. EOF()
  24. @ I,5 SAY '['+STR(I-1,2)+'].....'+IDX_DES+IDX_NAME+IDX_EXP
  25. SKIP
  26. I=I+1
  27. ENDDO
  28. YN=0
  29. @ 9,20 SAY '╟δ╤í╘±╥¬╔╛│²╡─╦≈╥²╬─╝■┤·║┼:' GET YN PICT '99' RANG 0,I-2
  30. READ
  31. IF YN=0
  32. EXIT
  33. ENDIF
  34. GO TOP
  35. SKIP YN-1
  36. IDXN=TRIM(IDX_NAME)
  37. DELE
  38. ERAS &IDXN..IDX
  39. SELE 1
  40. REPL IDX_NUM WITH IDX_NUM-1
  41. SELE 2
  42. ENDDO
  43. YN='N'
  44. ACCEPT "╗╣╔╛│²┬≡?(Y/N):" TO YN
  45. IF UPPE(YN)='Y'
  46. LOOP
  47. ELSE
  48. EXIT
  49. ENDIF
  50. ENDDO
  51. CLOS DATA
  52. USE IDX INDE IDX
  53. PACK
  54. USE
  55. RETURN
  56. ** END OF IDXDELE.PRG **
  57.