home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / DATATYPE.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-08  |  1.5 KB  |  48 lines
  1. TYPE DBaseHeaderRecord
  2.         Ver AS BYTE         ' dBASE version
  3.        Year AS BYTE         ' year
  4.       Month AS BYTE         ' month
  5.         Day AS BYTE         ' day of last update
  6. NumberOfRecords AS DWORD        ' number of records in this database
  7.          offset AS WORD         ' length of header
  8.        Size AS WORD         ' length of record
  9.       Blank AS STRING * 20  ' reserved for future use
  10. END TYPE
  11.  
  12. TYPE DBaseFieldRecord
  13.    FieldName AS STRING * 11  ' name of the field in ASCII
  14.    FieldType AS STRING * 1   ' Type CNLM or D
  15.      FDA AS DWORD        ' field data address - we don't need this
  16.     FLen AS BYTE         ' Length, we'll need this!
  17.     DecC AS BYTE         ' number of decimals in numeric field
  18.       Blank9 AS STRING * 14  ' reserved for future use
  19. END TYPE
  20.  
  21. TYPE DBStructureRecord
  22.     FieldName AS STRING * 11
  23.     FieldType AS STRING * 1
  24.     FieldLength AS BYTE
  25.     FieldOffset AS INTEGER
  26.     FieldDecimals AS BYTE
  27.     END TYPE
  28.  
  29. TYPE DBaseEditFormat
  30.         FieldName AS STRING * 11
  31.         FieldType AS STRING * 1
  32.         FieldLength AS BYTE
  33.         FieldRow AS INTEGER
  34.         FieldCol AS INTEGER
  35.         FieldFG AS INTEGER
  36.         FieldBG AS INTEGER
  37. END TYPE
  38.  
  39.  
  40. DIM DBH AS DBaseHeaderRecord
  41. DIM DBF AS DBaseFieldRecord
  42. DIM DBS(256) AS DBStructureRecord
  43. DIM DBE(256) AS DBaseEditFormat
  44.  
  45. SHARED DBH, DBF, DBS(), dBaseOpen%, RecNum???, NumberOfFields?, RecordBlock$
  46. SHARED DBE(), NumberOfRecords???, Index$, IndexField$, IndexField?
  47. SHARED Bt.Update.Always%, Act.Keys$
  48.