Chip Hitware 6 B/CHIP_HITWARE6_B.iso/bonus/EverythingIOwn/EIOWN_17.EXE/EIO.EXE/0/RCDATA/TDATAMODULE1/TDATAMODULE1.txt

Text File | 1998-02-24 | 3.7 KB | 169 lines

object DataModule1: TDataModule1
  Left = 194
  Top = 208
  Height = 307
  Width = 480
  object OwnSource: TDataSource
    DataSet = OwnTable
    Left = 19
    Top = 12
  end
  object LocationTable: TTable
    BeforeClose = LocationTableBeforeClose
    TableName = 'Location.db'
    Left = 91
    Top = 68
    object LocationTableLocation: TStringField
      FieldName = 'Location'
      Size = 25
    end
  end
  object LocationSource: TDataSource
    DataSet = LocationTable
    Left = 91
    Top = 12
  end
  object TypeTable: TTable
    TableName = 'type.db'
    Left = 171
    Top = 68
    object TypeTableType: TStringField
      FieldName = 'Type'
      Size = 25
    end
  end
  object TypeSource: TDataSource
    DataSet = TypeTable
    Left = 171
    Top = 12
  end
  object SystemTable: TTable
    TableName = 'System.db'
    Left = 243
    Top = 68
    object SystemTableDateTest: TDateField
      Alignment = taRightJustify
      FieldName = 'DateTest'
    end
  end
  object SystemSource: TDataSource
    DataSet = SystemTable
    Left = 243
    Top = 12
  end
  object OwnTable: TTable
    OnCalcFields = OwnTableCalcFields
    IndexName = 'ItemName'
    TableName = 'EIOwn.db'
    Left = 18
    Top = 68
    object OwnTableITEM_ID: TAutoIncField
      FieldName = 'ITEM_ID'
    end
    object OwnTableNAME: TStringField
      FieldName = 'NAME'
      Size = 25
    end
    object OwnTableDESCRIPT: TStringField
      FieldName = 'DESCRIPT'
      Size = 25
    end
    object OwnTableDATEPUR: TDateField
      FieldName = 'DATEPUR'
    end
    object OwnTableBRANDNAME: TStringField
      FieldName = 'BRANDNAME'
      Size = 40
    end
    object OwnTableMODELNUM: TStringField
      FieldName = 'MODELNUM'
      Size = 25
    end
    object OwnTableSERNUM: TStringField
      FieldName = 'SERNUM'
      Size = 25
    end
    object OwnTableWAR_TYPE: TStringField
      FieldName = 'WAR_TYPE'
      Size = 25
    end
    object OwnTableTYPE: TStringField
      FieldName = 'TYPE'
      LookupDataSet = TypeTable
      LookupKeyFields = 'Type'
      LookupResultField = 'Type'
      KeyFields = 'TYPE'
      Size = 25
    end
    object OwnTableLOCATION: TStringField
      FieldName = 'LOCATION'
      LookupDataSet = LocationTable
      LookupKeyFields = 'Location'
      KeyFields = 'LOCATION'
      Size = 25
    end
    object OwnTableQUANTITY: TFloatField
      FieldName = 'QUANTITY'
    end
    object OwnTableTOTAL: TCurrencyField
      Alignment = taLeftJustify
      Calculated = True
      FieldName = 'TOTAL'
    end
    object OwnTableWAR_DATE: TDateField
      FieldName = 'WAR_DATE'
    end
    object OwnTablePURFROM: TStringField
      FieldName = 'PURFROM'
      LookupDataSet = BusinessTable
      LookupKeyFields = 'PURFROM'
      KeyFields = 'PURFROM'
      Size = 50
    end
    object OwnTableCOST: TCurrencyField
      Alignment = taLeftJustify
      FieldName = 'COST'
    end
    object OwnTableCONDITION: TStringField
      FieldName = 'CONDITION'
      Size = 25
    end
    object OwnTableCOMMENTS: TMemoField
      FieldName = 'COMMENTS'
      BlobType = ftMemo
      Size = 25
    end
    object OwnTableVALUE: TCurrencyField
      FieldName = 'VALUE'
    end
  end
  object BusinessSource: TDataSource
    DataSet = BusinessTable
    Left = 322
    Top = 12
  end
  object BusinessTable: TTable
    TableName = 'Business.db'
    Left = 322
    Top = 68
    object BusinessTablePURFROM: TStringField
      FieldName = 'PURFROM'
      Size = 50
    end
  end
  object ManufactTable: TTable
    TableName = 'Manufact.db'
    Left = 410
    Top = 68
    object ManufactTableManufact: TStringField
      FieldName = 'Manufact'
      Size = 40
    end
  end
  object ManufactSource: TDataSource
    DataSet = ManufactTable
    Left = 410
    Top = 12
  end
end