Componentes.Terceros.DevExp.../official/x.26/ExpressQuantumGrid 6/Demos/Delphi/ViewBandedFixedDemo/ViewBandedFixedMainData.dfm

166 lines
3.9 KiB
Plaintext
Raw Normal View History

object ViewBandedFixedDemoDMMain: TViewBandedFixedDemoDMMain
Left = 429
Top = 128
Height = 367
Width = 305
object tblSCHEDULER: TTable
Active = True
OnCalcFields = tblSCHEDULERCalcFields
DatabaseName = 'DemosDB'
TableName = 'SCHEDULER.DB'
Left = 160
Top = 64
object tblSCHEDULERID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object PROJECTID: TIntegerField
FieldName = 'PROJECTID'
end
object USERID: TIntegerField
FieldName = 'USERID'
end
object SUNDAY: TSmallintField
FieldName = 'SUNDAY'
end
object MONDAY: TSmallintField
FieldName = 'MONDAY'
end
object TUESDAY: TSmallintField
FieldName = 'TUESDAY'
end
object WEDNESDAY: TSmallintField
FieldName = 'WEDNESDAY'
end
object THURSDAY: TSmallintField
FieldName = 'THURSDAY'
end
object FRIDAY: TSmallintField
FieldName = 'FRIDAY'
end
object SATURDAY: TSmallintField
FieldName = 'SATURDAY'
end
object RowAvg: TFloatField
FieldKind = fkCalculated
FieldName = 'RowAvg'
Calculated = True
end
object RowSum: TFloatField
FieldKind = fkCalculated
FieldName = 'RowSum'
Calculated = True
end
object UserName: TStringField
FieldKind = fkCalculated
FieldName = 'UserName'
Calculated = True
end
object FirstName: TStringField
FieldKind = fkLookup
FieldName = 'FirstName'
LookupDataSet = tblUSERS
LookupKeyFields = 'ID'
LookupResultField = 'FNAME'
KeyFields = 'USERID'
Lookup = True
end
object MiddleName: TStringField
FieldKind = fkLookup
FieldName = 'MiddleName'
LookupDataSet = tblUSERS
LookupKeyFields = 'ID'
LookupResultField = 'MNAME'
KeyFields = 'USERID'
Lookup = True
end
object LastName: TStringField
FieldKind = fkLookup
FieldName = 'LastName'
LookupDataSet = tblUSERS
LookupKeyFields = 'ID'
LookupResultField = 'LNAME'
KeyFields = 'USERID'
Lookup = True
end
end
object dsSCHEDULER: TDataSource
DataSet = tblSCHEDULER
Left = 32
Top = 64
end
object dsUSERS: TDataSource
DataSet = tblUSERS
Left = 32
Top = 112
end
object tblUSERS: TTable
Active = True
DatabaseName = 'DemosDB'
TableName = 'USERS.DB'
Left = 160
Top = 112
object tblUSERSID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object tblUSERSFNAME: TStringField
FieldName = 'FNAME'
Size = 25
end
object tblUSERSMNAME: TStringField
FieldName = 'MNAME'
end
object tblUSERSLNAME: TStringField
FieldName = 'LNAME'
Size = 25
end
object tblUSERSEMAIL: TStringField
FieldName = 'EMAIL'
Size = 50
end
object tblUSERSPHONE: TStringField
FieldName = 'PHONE'
Size = 24
end
object tblUSERSDEPARTMENTID: TIntegerField
FieldName = 'DEPARTMENTID'
end
end
object tblPROJECTS: TTable
Active = True
DatabaseName = 'DemosDB'
TableName = 'PROJECTS.DB'
Left = 160
Top = 168
object tblPROJECTSID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object tblPROJECTSNAME: TStringField
FieldName = 'NAME'
Size = 100
end
object tblPROJECTSMANAGERID: TIntegerField
FieldName = 'MANAGERID'
end
end
object dsPROJECTS: TDataSource
DataSet = tblPROJECTS
Left = 32
Top = 168
end
object Database: TDatabase
Connected = True
DatabaseName = 'DemosDB'
DriverName = 'STANDARD'
Params.Strings = (
'PATH=..\..\Data'
'DEFAULT DRIVER=PARADOX'
'ENABLE BCD=FALSE')
SessionName = 'Default'
Left = 32
Top = 16
end
end