home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dedit.zip / CREATOR.PRG < prev    next >
Text File  |  1986-06-22  |  2KB  |  93 lines
  1. clear
  2. store space(10) to datafile
  3. do while datafile = space(10)
  4. clear
  5.  @ 6,10 say "Name of DBF file to Create?  ";
  6.             get datafile picture "!!!!!!!!"
  7. read
  8. clear
  9. store datafile+".DBF" to d1
  10. enddo
  11. Create temp
  12. Text
  13.   The system has just created a DBF which will contain the structure
  14.   of the actual DBF that you are creating.  Please enter the file
  15.   structure information.  
  16.          Field_name  - Can be up to 10 characters in length.
  17.                        Must start with a letter, and can contain
  18.                        letters, numbers, and underscores.  Blank
  19.                        spaces are not allowed in field names.
  20.          Field_type  - C  Character Data up to 256 characters
  21.                        D  Date Data in form MM/DD/YY
  22.                        N  Numeric Data
  23.                        L  Logical Data (Y,N or T,F)
  24.                        M  Memo Field for Text Storage
  25.          Field_lenght - Number of spaces for data in record
  26.          Decimals -    Valid only for numeric fields
  27. endtext
  28.  store 1 to rn
  29. do while rn > 0
  30.  store -1 to rn
  31.  @ 16,10 say "Record number to edit          " get rn picture "99999"
  32.  @ 17,10 say "( 0 to exit / <negative> # to append)"
  33.  read
  34.  clear gets
  35. if rn = 0
  36.  loop
  37. endif
  38. use temp
  39. store "EDITING " to wrd
  40. * appending
  41. if rn < 0
  42.  append blank
  43.  go bottom
  44.  store RECNO() to rn
  45.  store "ADDING TO " to wrd
  46. endif
  47. go top
  48. if EOF()
  49.  @ 12,10 say "File is empty and cannot be edited."
  50.  return
  51. endif
  52. go bottom
  53. if rn > recno()
  54. @ 12,10 say "Record number exceeds records in file. "+;
  55.              "Editing Last Record"
  56. store recno() to rn
  57. endif
  58. goto rn
  59. clear
  60. store 2 to row
  61. @ 1,0 say wrd+"file "+"TEMP "+".DBF  Rec # "+str(rn,5)
  62. for I = 1 to 1024
  63. if row > 22 .or. "" = fieldname(I)
  64. store 2 to row
  65. read
  66. clear gets
  67. @ 2,0 clear
  68. endif
  69. if "" = fieldname(I)
  70. store 1025 to i
  71. loop
  72. endif
  73. @ row,1 say fieldname(I)
  74. store fieldname(I) to fld
  75. @ row, 13 get &fld
  76. do case
  77. case type(fieldname(I)) = "C"
  78. if len(&fld) > 66
  79. store row + int(len(&fld)/66) +1 to row
  80. else 
  81. store row+1 to row
  82. endif
  83. otherwise
  84. store row+1 to row
  85. endcase
  86. next i
  87. @ 2,0 clear
  88. enddo recordno
  89. Create &datafile from Temp.dbf
  90. Use &datafile
  91. list structure
  92. wait
  93.