home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBFZC.PRG < prev    next >
Encoding:
Text File  |  1990-04-19  |  1.2 KB  |  80 lines
  1. ** BEGIN OF DBFZC.PRG **
  2. DO WHILE .T.
  3. CLEAR
  4. @ 3,12 SAY '╤í╘±▒╗╫░╠φ╩²╛▌┐Γ......'
  5. TIME=INKEY(5)
  6. FN=''
  7. FNO=''
  8. CFN=''
  9. DO SELEF
  10. IF LEN(FN)=0
  11. RETU
  12. ENDIF
  13. SELE 1
  14. USE IDX INDE IDX
  15. SET FILT TO F_NO=FNO
  16. GO TOP
  17. NDX=''
  18. DO WHILE .NOT.EOF()
  19. NDX=NDX+','+TRIM(IDX_NAME)
  20. SKIP
  21. ENDDO
  22. IF LEN(NDX)<>0
  23. NDX=SUBS(NDX,2)
  24. ENDIF
  25. USE &FN
  26. SET INDE TO &NDX
  27. CLEAR
  28. FNA=SPACE(30)
  29. @ 2,10 TO 5,70 DOUB
  30. @ 3,12 SAY '╡▒╟░╩²╛▌╬─╝■╬¬:&FN..DBF &CFN'
  31. @ 4,12 SAY '╟δ╩Σ╚δ╥¬╫¬┤ó╡─╬─╝■:' GET FNA
  32. READ
  33. FNA=LTRIM(RTRIM(FNA))
  34. IF FILE('&FNA..DBF')
  35. SELE 2
  36. SAVE SCRE TO A
  37. CLEAR
  38. USE &FNA
  39. LIST NEXT 5
  40. YN=' '
  41. @ 2,20,4,60 BOX '+-+|+-+|'
  42. @ 3,22 SAY '╩╟╫╖╝╙╒Γ╕÷╩²╛▌┐Γ┬≡?[Y-╩╟/N-▓╗╩╟]:' GET YN PICT '!' VALID YN$'YN'
  43. READ
  44. IF YN='Y'
  45. REST SCRE FROM A
  46. YN='1'
  47. @ 6,12 SAY '╫╖╝╙╡╜&FN ╡─╟░▓┐/║≤▓┐?[0-╟░/1-║≤]:' GET YN VALID YN$'01'
  48. READ
  49. IF YN='1'
  50. USE
  51. SELE 1
  52. APPE FROM &FNA
  53. ELSE
  54. SELE 2
  55. USE
  56. SELE 1
  57. COPY STRU TO APP_APP
  58. USE APP_APP
  59. APPE FROM &FNA
  60. APPE FROM &FN
  61. ERASE &FN..DBF
  62. USE
  63. RENA APP_APP.DBF TO &FN..DBF
  64. IF LEN(NDX)<>0
  65. USE &FN INDE &NDX
  66. REIN
  67. USE
  68. ENDIF
  69. ENDIF
  70. ENDIF
  71. ELSE
  72. @ 6,12 SAY '╬─╝■▓╗┤µ╘┌!!!  ╟δ╓╪╨┬╤í╘±......'
  73. B=INKEY(5)
  74. ENDIF
  75. ENDDO
  76. RETU
  77. ** END OF DBFZC.PRG **
  78.  
  79.  
  80.