69 lines
1.6 KiB
Plaintext
69 lines
1.6 KiB
Plaintext
|
object ConvertTreeList3DemoDataDM: TConvertTreeList3DemoDataDM
|
||
|
|
Left = 310
|
||
|
|
Top = 163
|
||
|
|
Height = 229
|
||
|
|
Width = 325
|
||
|
|
object Database: TDatabase
|
||
|
|
Connected = True
|
||
|
|
DatabaseName = 'DemosDB'
|
||
|
|
DriverName = 'STANDARD'
|
||
|
|
Params.Strings = (
|
||
|
|
'PATH=..\..\Data'
|
||
|
|
'DEFAULT DRIVER=PARADOX'
|
||
|
|
'ENABLE BCD=FALSE')
|
||
|
|
SessionName = 'Default'
|
||
|
|
Left = 40
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
object tblDepartments: TTable
|
||
|
|
Active = True
|
||
|
|
DatabaseName = 'DemosDB'
|
||
|
|
IndexName = 'xParentID'
|
||
|
|
TableName = 'DEPARTMENTS.DB'
|
||
|
|
Left = 40
|
||
|
|
Top = 64
|
||
|
|
object tblDepartmentsID: TAutoIncField
|
||
|
|
FieldName = 'ID'
|
||
|
|
ReadOnly = True
|
||
|
|
end
|
||
|
|
object tblDepartmentsPARENTID: TIntegerField
|
||
|
|
FieldName = 'PARENTID'
|
||
|
|
end
|
||
|
|
object tblDepartmentsMANAGERID: TIntegerField
|
||
|
|
FieldName = 'MANAGERID'
|
||
|
|
end
|
||
|
|
object tblDepartmentsNAME: TStringField
|
||
|
|
FieldName = 'NAME'
|
||
|
|
Size = 50
|
||
|
|
end
|
||
|
|
object tblDepartmentsBUDGET: TFloatField
|
||
|
|
FieldName = 'BUDGET'
|
||
|
|
currency = True
|
||
|
|
end
|
||
|
|
object tblDepartmentsLOCATION: TStringField
|
||
|
|
FieldName = 'LOCATION'
|
||
|
|
Size = 50
|
||
|
|
end
|
||
|
|
object tblDepartmentsPHONE: TStringField
|
||
|
|
FieldName = 'PHONE'
|
||
|
|
Size = 50
|
||
|
|
end
|
||
|
|
object tblDepartmentsFAX: TStringField
|
||
|
|
FieldName = 'FAX'
|
||
|
|
Size = 50
|
||
|
|
end
|
||
|
|
object tblDepartmentsEMAIL: TStringField
|
||
|
|
FieldName = 'EMAIL'
|
||
|
|
Size = 255
|
||
|
|
end
|
||
|
|
object tblDepartmentsVACANCY: TBooleanField
|
||
|
|
FieldName = 'VACANCY'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object dsDepartments: TDataSource
|
||
|
|
DataSet = tblDepartments
|
||
|
|
Left = 40
|
||
|
|
Top = 112
|
||
|
|
end
|
||
|
|
end
|