Chip Hitware 6 A/CHIP_HITWARE6_A.iso/edukacja/AstroMart/_SETUP.1/Astro5.exe/0/RCDATA/TDATA1/TDATA1.txt

Text File | 1998-05-13 | 14.2 KB | 605 lines

object Data1: TData1
  OnCreate = Data1Create
  Left = 264
  Height = 480
  Width = 358
  object CityTable: TTable
    IndexName = 'Cities'
    TableName = 'dbfiles\city.db'
    TableType = ttParadox
    Left = 65512
    Top = 65496
    object CityTableCITY: TStringField
      FieldName = 'CITY'
      Size = 30
    end
    object CityTableCOUNTRY: TSmallintField
      FieldName = 'COUNTRY'
    end
    object CityTableSTATE: TSmallintField
      FieldName = 'STATE'
    end
    object CityTableLATITUDE: TFloatField
      FieldName = 'LATITUDE'
    end
    object CityTableLONGITUDE: TFloatField
      FieldName = 'LONGITUDE'
    end
    object CityTablePOPULATION: TIntegerField
      FieldName = 'POPULATION'
    end
    object CityTableINDEX: TAutoIncField
      FieldName = 'INDEX'
    end
  end
  object CountryTable: TTable
    IndexName = 'Countries'
    TableName = 'dbFiles\Country'
    TableType = ttParadox
    Left = 24
    Top = 56
    object CountryTableCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 30
    end
    object CountryTableCODE: TSmallintField
      FieldName = 'CODE'
    end
    object CountryTableLANGUAGE: TSmallintField
      FieldName = 'LANGUAGE'
    end
    object CountryTableIndex: TAutoIncField
      FieldName = 'Index'
    end
  end
  object Time1Table: TTable
    TableName = 'dbFiles\Time1'
    TableType = ttParadox
    Left = 184
    Top = 8
    object Time1TableCOUNTRY: TSmallintField
      FieldName = 'COUNTRY'
    end
    object Time1TableSTATE: TSmallintField
      FieldName = 'STATE'
    end
    object Time1TableDATE: TDateField
      FieldName = 'DATE'
      DisplayFormat = 'dd/mm/yyyyy'
    end
    object Time1TableADJUST: TFloatField
      FieldName = 'ADJUST'
    end
    object Time1TableTABLE: TSmallintField
      FieldName = 'TABLE'
    end
  end
  object CitySource: TDataSource
    DataSet = CityTable
    Left = 96
    Top = 8
  end
  object CountrySource: TDataSource
    DataSet = CountryTable
    Left = 96
    Top = 56
  end
  object Time1Source: TDataSource
    DataSet = Time1Table
    Left = 256
    Top = 8
  end
  object StateTable: TTable
    IndexName = 'codes'
    TableName = 'dbFiles\State'
    TableType = ttParadox
    Left = 24
    Top = 104
    object StateTableIndex: TAutoIncField
      FieldName = 'Index'
    end
    object StateTableCODE: TSmallintField
      FieldName = 'CODE'
    end
    object StateTableCOUNTRY: TSmallintField
      FieldName = 'COUNTRY'
    end
    object StateTableSTATE: TStringField
      FieldName = 'STATE'
      Size = 30
    end
  end
  object StateSource: TDataSource
    DataSet = StateTable
    Left = 96
    Top = 104
  end
  object Time2Table: TTable
    TableName = 'DBFiles\Time2'
    TableType = ttParadox
    Left = 184
    Top = 56
    object Time2TableTABLE: TSmallintField
      FieldName = 'TABLE'
    end
    object Time2TableDATE: TDateField
      FieldName = 'DATE'
      DisplayFormat = 'dd/mm/yyyyy'
    end
    object Time2TableHOUR: TSmallintField
      FieldName = 'HOUR'
    end
    object Time2TableADJUST: TFloatField
      FieldName = 'ADJUST'
    end
    object Time2TableASK: TBooleanField
      FieldName = 'ASK'
    end
  end
  object Time2Source: TDataSource
    DataSet = Time2Table
    Left = 256
    Top = 56
  end
  object ChartSource: TDataSource
    DataSet = ChartTable
    Left = 256
    Top = 104
  end
  object ChartTable: TTable
    FilterOptions = [foCaseInsensitive]
    IndexName = 'Names'
    TableName = 'chart'
    TableType = ttParadox
    Left = 184
    Top = 104
    object ChartTableIndex: TAutoIncField
      FieldName = 'Index'
    end
    object ChartTableNAME: TStringField
      FieldName = 'NAME'
      Size = 30
    end
    object ChartTableFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Size = 30
    end
    object ChartTableCOMMENT: TStringField
      FieldName = 'COMMENT'
      Size = 30
    end
    object ChartTableREFERENCE: TStringField
      FieldName = 'REFERENCE'
      Size = 10
    end
    object ChartTableAYANAMSA: TFloatField
      FieldName = 'AYANAMSA'
    end
    object ChartTableZODIAC: TSmallintField
      FieldName = 'ZODIAC'
    end
    object ChartTableBIRTHPLACE: TStringField
      FieldName = 'BIRTHPLACE'
      Size = 30
    end
    object ChartTableCHARTTYPE: TSmallintField
      FieldName = 'CHARTTYPE'
    end
    object ChartTableHOUSETYPE: TSmallintField
      FieldName = 'HOUSETYPE'
    end
    object ChartTableSEX: TStringField
      FieldName = 'SEX'
      Size = 1
    end
    object ChartTableJULIANDAY: TFloatField
      FieldName = 'JULIANDAY'
      DisplayFormat = '###0.00'
    end
    object ChartTableCOUNTRY: TSmallintField
      FieldName = 'COUNTRY'
    end
    object ChartTableSTATE: TSmallintField
      FieldName = 'STATE'
    end
    object ChartTableDATE: TDateField
      FieldName = 'DATE'
      DisplayFormat = 'dd/mm/yyyyy'
    end
    object ChartTableTime: TTimeField
      FieldName = 'Time'
      DisplayFormat = 't'
    end
    object ChartTableADJUST: TFloatField
      FieldName = 'ADJUST'
      DisplayFormat = '###0.00'
    end
    object ChartTableLONGITUDE: TFloatField
      FieldName = 'LONGITUDE'
      DisplayFormat = '###0.00'
    end
    object ChartTableLATITUDE: TFloatField
      FieldName = 'LATITUDE'
      DisplayFormat = '###0.00'
    end
    object ChartTableSIDERAL_T: TFloatField
      FieldName = 'SIDERAL_T'
      DisplayFormat = '###0.00'
    end
    object ChartTableTEXT: TBlobField
      FieldName = 'TEXT'
      BlobType = ftFmtMemo
      Size = 1
    end
    object ChartTableP1: TFloatField
      FieldName = 'P1'
      DisplayFormat = '##0.000'
    end
    object ChartTableR1: TBooleanField
      FieldName = 'R1'
    end
    object ChartTableP2: TFloatField
      FieldName = 'P2'
      DisplayFormat = '##0.000'
    end
    object ChartTableR2: TBooleanField
      FieldName = 'R2'
    end
    object ChartTableP3: TFloatField
      FieldName = 'P3'
      DisplayFormat = '##0.000'
    end
    object ChartTableR3: TBooleanField
      FieldName = 'R3'
    end
    object ChartTableP4: TFloatField
      FieldName = 'P4'
      DisplayFormat = '##0.000'
    end
    object ChartTableR4: TBooleanField
      FieldName = 'R4'
    end
    object ChartTableP5: TFloatField
      FieldName = 'P5'
      DisplayFormat = '##0.000'
    end
    object ChartTableR5: TBooleanField
      FieldName = 'R5'
    end
    object ChartTableP6: TFloatField
      FieldName = 'P6'
      DisplayFormat = '##0.000'
    end
    object ChartTableR6: TBooleanField
      FieldName = 'R6'
    end
    object ChartTableP7: TFloatField
      FieldName = 'P7'
      DisplayFormat = '##0.000'
    end
    object ChartTableR7: TBooleanField
      FieldName = 'R7'
    end
    object ChartTableP8: TFloatField
      FieldName = 'P8'
      DisplayFormat = '##0.000'
    end
    object ChartTableR8: TBooleanField
      FieldName = 'R8'
    end
    object ChartTableP9: TFloatField
      FieldName = 'P9'
      DisplayFormat = '##0.000'
    end
    object ChartTableR9: TBooleanField
      FieldName = 'R9'
    end
    object ChartTableP10: TFloatField
      FieldName = 'P10'
      DisplayFormat = '##0.000'
    end
    object ChartTableR10: TBooleanField
      FieldName = 'R10'
    end
    object ChartTableP11: TFloatField
      FieldName = 'P11'
      DisplayFormat = '##0.000'
    end
    object ChartTableR11: TBooleanField
      FieldName = 'R11'
    end
    object ChartTableP12: TFloatField
      FieldName = 'P12'
      DisplayFormat = '##0.000'
    end
    object ChartTableR12: TBooleanField
      FieldName = 'R12'
    end
    object ChartTableP13: TFloatField
      FieldName = 'P13'
      DisplayFormat = '##0.000'
    end
    object ChartTableP14: TFloatField
      FieldName = 'P14'
      DisplayFormat = '##0.000'
    end
    object ChartTableP15: TFloatField
      FieldName = 'P15'
      DisplayFormat = '##0.000'
    end
    object ChartTableP16: TFloatField
      FieldName = 'P16'
      DisplayFormat = '##0.000'
    end
    object ChartTableP17: TFloatField
      FieldName = 'P17'
      DisplayFormat = '##0.000'
    end
    object ChartTableP18: TFloatField
      FieldName = 'P18'
      DisplayFormat = '##0.000'
    end
    object ChartTableP19: TFloatField
      FieldName = 'P19'
      DisplayFormat = '##0.000'
    end
    object ChartTableP20: TFloatField
      FieldName = 'P20'
      DisplayFormat = '##0.000'
    end
    object ChartTableP21: TFloatField
      FieldName = 'P21'
      DisplayFormat = '##0.000'
    end
    object ChartTableP22: TFloatField
      FieldName = 'P22'
      DisplayFormat = '##0.000'
    end
    object ChartTableP23: TFloatField
      FieldName = 'P23'
      DisplayFormat = '##0.000'
    end
    object ChartTableP24: TFloatField
      FieldName = 'P24'
      DisplayFormat = '##0.000'
    end
  end
  object StarTable: TTable
    IndexFieldNames = 'Name'
    TableName = 'dbfiles\stars'
    TableType = ttParadox
    Left = 24
    Top = 160
    object StarTableName: TStringField
      DisplayWidth = 36
      FieldName = 'Name'
      Size = 30
    end
    object StarTableNum: TSmallintField
      DisplayWidth = 12
      FieldName = 'Num'
    end
    object StarTableType: TSmallintField
      DisplayWidth = 12
      FieldName = 'Type'
    end
    object StarTablePlus1: TSmallintField
      DisplayWidth = 12
      FieldName = 'Plus1'
    end
    object StarTablePlus2: TSmallintField
      DisplayWidth = 12
      FieldName = 'Plus2'
    end
    object StarTableMinus1: TSmallintField
      DisplayWidth = 12
      FieldName = 'Minus1'
    end
    object StarTableDivider: TSmallintField
      FieldName = 'Divider'
    end
    object StarTableValue: TFloatField
      DisplayWidth = 12
      FieldName = 'Value'
    end
    object StarTableOffset: TSmallintField
      DisplayWidth = 12
      FieldName = 'Offset'
    end
    object StarTableLongitude: TFloatField
      DisplayWidth = 12
      FieldName = 'Longitude'
    end
    object StarTableLatitude: TFloatField
      DisplayWidth = 12
      FieldName = 'Latitude'
    end
    object StarTableMagnitude: TFloatField
      DisplayWidth = 12
      FieldName = 'Magnitude'
    end
    object StarTableIcon: TGraphicField
      DisplayWidth = 12
      FieldName = 'Icon'
      BlobType = ftGraphic
    end
  end
  object StarSource: TDataSource
    DataSet = StarTable
    Left = 96
    Top = 160
  end
  object PlanetSource: TDataSource
    DataSet = PlanetTable
    Left = 256
    Top = 160
  end
  object PlanetTable: TTable
    IndexFieldNames = 'Num'
    TableName = 'dbfiles\planets'
    TableType = ttParadox
    Left = 184
    Top = 160
    object PlanetTableNum: TSmallintField
      DisplayWidth = 6
      FieldName = 'Num'
    end
    object PlanetTableName: TStringField
      DisplayWidth = 28
      FieldName = 'Name'
      Size = 30
    end
    object PlanetTableShortName: TStringField
      DisplayWidth = 7
      FieldName = 'ShortName'
      Size = 4
    end
    object PlanetTableVisible: TBooleanField
      DisplayWidth = 6
      FieldName = 'Visible'
    end
    object PlanetTableAspects: TBooleanField
      DisplayWidth = 8
      FieldName = 'Aspects'
    end
    object PlanetTableType: TSmallintField
      DisplayWidth = 12
      FieldName = 'Type'
    end
    object PlanetTablePlus1: TSmallintField
      DisplayWidth = 12
      FieldName = 'Plus1'
    end
    object PlanetTablePlus2: TSmallintField
      DisplayWidth = 12
      FieldName = 'Plus2'
    end
    object PlanetTableMinus1: TSmallintField
      DisplayWidth = 12
      FieldName = 'Minus1'
    end
    object PlanetTableDivider: TSmallintField
      FieldName = 'Divider'
    end
    object PlanetTableValue: TFloatField
      DisplayWidth = 12
      FieldName = 'Value'
    end
    object PlanetTableOffset: TSmallintField
      DisplayWidth = 12
      FieldName = 'Offset'
    end
    object PlanetTableLongitude: TFloatField
      DisplayWidth = 12
      FieldName = 'Longitude'
    end
    object PlanetTableLatitude: TFloatField
      DisplayWidth = 12
      FieldName = 'Latitude'
    end
    object PlanetTableIcon: TGraphicField
      DisplayWidth = 12
      FieldName = 'Icon'
      BlobType = ftGraphic
    end
  end
  object BatchMove: TBatchMove
    AbortOnKeyViol = False
    AbortOnProblem = False
    Destination = TargetTable
    Mode = batCopy
    Source = ChartTable
    Left = 96
    Top = 216
  end
  object TargetTable: TTable
    FilterOptions = [foCaseInsensitive]
    TableName = 'chart'
    TableType = ttParadox
    Left = 24
    Top = 216
  end
  object AnaTable: TTable
    TableName = 'dbfiles\analysis.db'
    Left = 24
    Top = 272
    object AnaTableLanguage: TSmallintField
      FieldName = 'Language'
    end
    object AnaTableSection: TSmallintField
      FieldName = 'Section'
    end
    object AnaTableType: TSmallintField
      FieldName = 'Type'
    end
    object AnaTablePlanet1: TSmallintField
      FieldName = 'Planet1'
    end
    object AnaTablePlanet2: TSmallintField
      FieldName = 'Planet2'
    end
    object AnaTableAspect: TSmallintField
      FieldName = 'Aspect'
    end
    object AnaTableText: TBlobField
      FieldName = 'Text'
      BlobType = ftFmtMemo
    end
  end
  object AnaSource: TDataSource
    DataSet = AnaTable
    Left = 88
    Top = 272
  end
  object ValueTable: TTable
    TableName = 'dbfiles\Values.db'
    TableType = ttParadox
    Left = 184
    Top = 216
    object ValueTableSection: TSmallintField
      FieldName = 'Section'
    end
    object ValueTableType: TSmallintField
      FieldName = 'Type'
    end
    object ValueTablePlanet1: TSmallintField
      FieldName = 'Planet1'
    end
    object ValueTablePlanet2: TSmallintField
      FieldName = 'Planet2'
    end
    object ValueTableAspect: TSmallintField
      FieldName = 'Aspect'
    end
    object ValueTableIntellect: TSmallintField
      FieldName = 'Intellect'
    end
    object ValueTableAction: TSmallintField
      FieldName = 'Action'
    end
    object ValueTableSensibility: TSmallintField
      FieldName = 'Sensibility'
    end
    object ValueTableLove: TSmallintField
      FieldName = 'Love'
    end
    object ValueTableHealth: TSmallintField
      FieldName = 'Health'
    end
    object ValueTableSocial: TSmallintField
      FieldName = 'Social'
    end
    object ValueTableWork: TSmallintField
      FieldName = 'Work'
    end
    object ValueTableMoney: TSmallintField
      FieldName = 'Money'
    end
  end
  object ValueSource: TDataSource
    DataSet = ValueTable
    Left = 256
    Top = 216
  end
end