home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBSCREA.PRG < prev    next >
Encoding:
Text File  |  1990-06-29  |  1.9 KB  |  102 lines
  1. ****** ╜¿┴ó╩²╛▌┐Γ╜ß╣╣ DBSCREA.PRG ******
  2. ****** DO DBSCREA                 ******
  3. SET TALK OFF
  4. SELE 3
  5. USE DBD INDE DBD
  6. COPY STRU TO DB
  7. DO WHILE .T.
  8. SELE 3
  9. USE DBD INDE DBD
  10. SELE 1
  11. USE FILE
  12. LOCA FOR RECNO()<>VAL(F_NO)
  13. REC=RECNO()
  14. FNO=SUBS(STR(1000+REC,4),2)
  15. SET INDE TO FILE
  16. SET SCOR ON
  17. FN=SPACE(8)
  18. CFN=SPACE(20)
  19. @ 3,10 SAY '              ╟δ╩Σ╚δ                 '
  20. @ 4,10 SAY '            ----------               '
  21. @ 5,10 SAY '      ╬≈╬─╩²╛▌┐Γ├√:' GET FN PICT '!!!!!!!!'
  22. @ 6,10 SAY '      ╓╨╬─╩²╛▌┐Γ├√:' GET CFN
  23. @ 7,10 SAY '       *** ╙╨╥╗╬¬┐╒╘≥╖╡╗╪ ***        '
  24. READ
  25. IF FN=SPACE(8).OR. CFN=SPACE(20)
  26. SET SCOR OFF
  27. CLOS DATA
  28. ERAS DB.DBF
  29. ERAS FNS.DBF
  30. RETU
  31. ENDIF
  32. CFN=LTRIM(TRIM(CFN))
  33. FN=LTRIM(TRIM(FN))
  34. SET EXACT ON
  35. SEEK FN
  36. SET EXACT OFF
  37. IF .NOT. EOF()
  38. @ 9,10 SAY  '╕├╬─╝■├√ &FN ╥╤╩╣╙├ ╓╨╬─╬─╝■├√╬¬ '+C_FNAME
  39. A=INKEY(5)
  40. LOOP
  41. ENDIF
  42. SELE 2
  43. SET MENU ON
  44. IF FILE('&FN..DBF')
  45. USE &FN
  46. MODI STRU
  47. ELSE
  48. CREA &FN
  49. ENDIF
  50. SET MENU OFF
  51. IF .NOT.FILE('&FN..DBF')
  52. LOOP
  53. ENDIF
  54. COPY STRU EXTE TO FNS
  55. USE DB
  56. ZAP
  57. APPE FROM FNS
  58. REPL ALL CODE WITH '0',LEN WITH 0,F_NO WITH FNO, FIELD_NO WITH SUBS(STR(100+RECNO(),3),2,2)
  59. GO BOTT
  60. NUM=RECNO()
  61. SUM FIELD_LEN TO BYTE
  62. REPL ALL C_NAME WITH FIELD_NAME
  63. GO TOP
  64. CLEAR
  65. DO WHILE .NOT. EOF()
  66. DO DBD.FMT
  67. READ
  68. A=READKEY()
  69. IF .NOT.BOF().AND.(A=4.OR.A=6.OR.A=0.OR.A=260.OR.A=262)
  70. SKIP -1
  71. ELSE
  72. IF CODE='1' .AND.LEN(TRIM(NOTE))=0
  73. ?? '┤·┬δ╔Φ╝╞▓╗╡├╬¬┐╒!!!'+CHR(7)
  74. LOOP
  75. ENDIF
  76. IF .NOT. EOF()
  77. SKIP
  78. ENDIF
  79. ENDIF
  80. ENDDO
  81. SELE 2
  82. USE
  83. SELE 3
  84. APPE FROM DB
  85. SELE 1
  86. USE FILE
  87. GO REC
  88. INSE BEFO BLAN
  89. REPL F_NO WITH FNO,F_NAME WITH FN,C_FNAME WITH CFN
  90. REPL FIELD_NUM WITH NUM,REC_BYTE WITH BYTE,F_DATE WITH DATE(),IDX_NUM WITH 0,F_FMT WITH FN,F_DEC WITH CFN,SYSFILE WITH '3'
  91. SET INDE TO FILE
  92. REIN
  93. SET SCOR OFF
  94. @ 2,29-LEN(CFN)/2-LEN(FN)/2 SAY '╩²╛▌┐Γ &CFN.(&FN..DBF)╜¿┴ó═Ω▒╧!'
  95. A=INKEY(2)
  96. CLOS DATA
  97. DO FMTCRONE
  98. ENDDO
  99. RETU
  100. ** END OF DBSCREA.PRG **
  101.  
  102.