Do It Yourself Pak/Do_ItPak1.iso/aftd/_SETUP.1/FamTree.exe/0/RCDATA/TFAMILYDATA/TFAMILYDATA.txt

Text File | 1999-07-07 | 5KB | 254 lines

object FamilyData: TFamilyData
  OldCreateOrder = False
  Left = 353
  Top = 357
  Height = 386
  Width = 565
  object dsIndiv: TDataSource
    DataSet = tblIndiv
    Left = 24
    Top = 8
  end
  object tblIndiv: TTable
    TableName = 'Indiv.db'
    Left = 80
    Top = 8
    object tblIndivIndivId: TStringField
      FieldName = 'IndivId'
      Size = 8
    end
    object tblIndivName: TStringField
      FieldName = 'Name'
      Size = 64
    end
    object tblIndivGender: TStringField
      FieldName = 'Gender'
      Size = 1
    end
    object tblIndivBirthDate: TStringField
      FieldName = 'BirthDate'
      Size = 24
    end
    object tblIndivBirthPlace: TStringField
      FieldName = 'BirthPlace'
      Size = 64
    end
    object tblIndivDeathDate: TStringField
      FieldName = 'DeathDate'
      Size = 24
    end
    object tblIndivDeathPlace: TStringField
      FieldName = 'DeathPlace'
      Size = 64
    end
    object tblIndivFamilyChild: TStringField
      FieldName = 'FamilyChild'
      Size = 8
    end
    object tblIndivFamilySpouse: TMemoField
      FieldName = 'FamilySpouse'
      BlobType = ftMemo
      Size = 40
    end
    object tblIndivAlbum: TMemoField
      FieldName = 'Album'
      BlobType = ftMemo
      Size = 64
    end
    object tblIndivNotes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 240
    end
    object tblIndivAddress: TMemoField
      FieldName = 'Address'
      BlobType = ftMemo
      Size = 240
    end
    object tblIndivPhone: TStringField
      FieldName = 'Phone'
      Size = 16
    end
  end
  object dsIndiv2: TDataSource
    DataSet = tblIndiv2
    Left = 24
    Top = 64
  end
  object tblIndiv2: TTable
    TableName = 'Indiv.db'
    Left = 80
    Top = 64
    object tblIndiv2IndivId: TStringField
      FieldName = 'IndivId'
      Size = 8
    end
    object tblIndiv2Name: TStringField
      FieldName = 'Name'
      Size = 64
    end
    object tblIndiv2Gender: TStringField
      FieldName = 'Gender'
      Size = 1
    end
    object tblIndiv2BirthDate: TStringField
      FieldName = 'BirthDate'
      Size = 24
    end
    object tblIndiv2DeathDate: TStringField
      FieldName = 'DeathDate'
      Size = 24
    end
    object tblIndiv2FamilySpouse: TMemoField
      FieldName = 'FamilySpouse'
      BlobType = ftMemo
      Size = 40
    end
  end
  object dsIndiv3: TDataSource
    DataSet = tblIndiv3
    Left = 24
    Top = 120
  end
  object tblIndiv3: TTable
    TableName = 'Indiv.db'
    Left = 80
    Top = 120
    object tblIndiv3IndivId: TStringField
      FieldName = 'IndivId'
      Size = 8
    end
    object tblIndiv3Name: TStringField
      FieldName = 'Name'
      Size = 64
    end
    object tblIndiv3Gender: TStringField
      FieldName = 'Gender'
      Size = 1
    end
    object tblIndiv3BirthDate: TStringField
      FieldName = 'BirthDate'
      Size = 24
    end
    object tblIndiv3BirthPlace: TStringField
      FieldName = 'BirthPlace'
      Size = 64
    end
    object tblIndiv3FamilyChild: TStringField
      FieldName = 'FamilyChild'
      Size = 8
    end
  end
  object dsFamily: TDataSource
    DataSet = tblFamily
    Left = 136
    Top = 8
  end
  object tblFamily: TTable
    TableName = 'Family.DB'
    Left = 192
    Top = 8
    object tblFamilyFamId: TStringField
      FieldName = 'FamId'
      Size = 8
    end
    object tblFamilyHusband: TStringField
      FieldName = 'Husband'
      Size = 8
    end
    object tblFamilyWife: TStringField
      FieldName = 'Wife'
      Size = 8
    end
    object tblFamilyMarraigeDate: TStringField
      FieldName = 'MarraigeDate'
      Size = 24
    end
    object tblFamilyMarraigePlace: TStringField
      FieldName = 'MarraigePlace'
      Size = 64
    end
    object tblFamilyChildren: TMemoField
      FieldName = 'Children'
      BlobType = ftMemo
      Size = 64
    end
  end
  object tblTree: TTable
    TableName = 'Tree.DB'
    Left = 192
    Top = 64
    object tblTreeId: TIntegerField
      FieldName = 'Id'
    end
    object tblTreeParent: TIntegerField
      FieldName = 'Parent'
    end
    object tblTreeName: TStringField
      FieldName = 'Name'
      Size = 64
    end
    object tblTreeGender: TStringField
      FieldName = 'Gender'
      Size = 1
    end
    object tblTreeRelation: TStringField
      FieldName = 'Relation'
      Size = 1
    end
    object tblTreeIndivId: TStringField
      FieldName = 'IndivId'
      Size = 8
    end
    object tblTreeBirthDate: TStringField
      FieldName = 'BirthDate'
      Size = 24
    end
    object tblTreeDeathDate: TStringField
      FieldName = 'DeathDate'
      Size = 24
    end
  end
  object dsTree: TDataSource
    DataSet = tblTree
    Left = 136
    Top = 64
  end
  object tblCal: TTable
    TableName = 'Calndr.db'
    Left = 192
    Top = 120
    object tblCalCell: TIntegerField
      FieldName = 'Cell'
    end
    object tblCalDay: TStringField
      FieldName = 'Day'
      Size = 3
    end
    object tblCalEvents: TMemoField
      FieldName = 'Events'
      BlobType = ftMemo
      Size = 64
    end
  end
  object dsCal: TDataSource
    DataSet = tblCal
    Left = 136
    Top = 120
  end
  object tblAlbum: TTable
    TableName = 'media.db'
    Left = 80
    Top = 177
    object tblAlbumName: TStringField
      FieldName = 'Name'
      Size = 64
    end
  end
  object dsAlbum: TDataSource
    DataSet = tblAlbum
    Left = 24
    Top = 177
  end
end