home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Do It Yourself Pak
/
Do_ItPak1.iso
/
aftd
/
_SETUP.1
/
FamTree.exe
/
0
/
RCDATA
/
TFAMILYDATA
/
TFAMILYDATA.txt
Wrap
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