?? summarymultidemodata.dfm
字號:
object SummaryMultiDemoDataDM: TSummaryMultiDemoDataDM
Left = 274
Top = 170
Height = 409
Width = 466
object dsCars: TDataSource
DataSet = tblCars
Left = 104
Top = 72
end
object dsOrders: TDataSource
DataSet = tblOrders
Left = 104
Top = 128
end
object dsCustomers: TDataSource
DataSet = tblCustomers
Left = 120
Top = 184
end
object Database: TDatabase
Connected = True
DatabaseName = 'DemosDB'
DriverName = 'STANDARD'
Params.Strings = (
'PATH=..\..\Data'
'DEFAULT DRIVER=PARADOX'
'ENABLE BCD=FALSE')
SessionName = 'Default'
Left = 56
Top = 16
end
object tblCars: TTable
Active = True
DatabaseName = 'DemosDB'
OnCalcFields = tblCarsCalcFields
TableName = 'Cars.DB'
Left = 48
Top = 72
object tblCarsID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object tblCarsTrademark: TStringField
FieldName = 'Trademark'
Size = 50
end
object tblCarsModel: TStringField
FieldName = 'Model'
Size = 50
end
object tblCarshp: TSmallintField
FieldName = 'hp'
end
object tblCarsliter: TFloatField
FieldName = 'liter'
end
object tblCarscyl: TSmallIntField
FieldName = 'cyl'
end
object tblCarsTransmissSpeedCount: TSmallIntField
FieldName = 'TransmissSpeedCount'
end
object tblCarsTransmissAutomatic: TStringField
FieldName = 'TransmissAutomatic'
Size = 3
end
object tblCarsMPG_City: TSmallIntField
FieldName = 'MPG_City'
end
object tblCarsMPG_Highway: TSmallIntField
FieldName = 'MPG_Highway'
end
object tblCarsCategory: TStringField
FieldName = 'Category'
Size = 7
end
object tblCarsDescription: TMemoField
FieldName = 'Description'
BlobType = ftMemo
end
object tblCarsHyperlink: TStringField
FieldName = 'Hyperlink'
Size = 50
end
object tblCarsPicture: TBlobField
FieldName = 'Picture'
end
object tblCarsPrice: TFloatField
FieldName = 'Price'
Precision = 19
end
object tblCarsCarName: TStringField
FieldKind = fkCalculated
FieldName = 'CarName'
Calculated = True
end
end
object tblOrders: TTable
Active = True
DatabaseName = 'DemosDB'
OnCalcFields = tblOrdersCalcFields
IndexFieldNames = 'ProductID'
TableName = 'Orders.DB'
Left = 48
Top = 128
object tblOrdersID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object tblOrdersCustomerID: TIntegerField
FieldName = 'CustomerID'
end
object tblOrdersProductID: TIntegerField
FieldName = 'ProductID'
end
object tblOrdersPurchaseDate: TDateTimeField
FieldName = 'PurchaseDate'
end
object tblOrdersTime: TDateTimeField
FieldName = 'Time'
end
object tblOrdersPaymentType: TStringField
FieldName = 'PaymentType'
Size = 7
end
object tblOrdersDescription: TMemoField
FieldName = 'Description'
BlobType = ftMemo
end
object tblOrdersQuantity: TIntegerField
FieldName = 'Quantity'
end
object tblOrdersPaymentAmount: TCurrencyField
FieldName = 'PaymentAmount'
end
object tblOrdersPurchaseMonth: TStringField
FieldKind = fkCalculated
FieldName = 'PurchaseMonth'
Size = 12
Calculated = True
end
end
object tblCustomers: TTable
Active = True
DatabaseName = 'DemosDB'
IndexFieldNames = 'ID'
TableName = 'Customers.DB'
Left = 48
Top = 184
object tblCustomersID: TIntegerField
FieldName = 'ID'
end
object tblCustomersFirstName: TStringField
FieldName = 'FirstName'
Size = 25
end
object tblCustomersLastName: TStringField
FieldName = 'LastName'
Size = 25
end
object tblCustomersCompany: TStringField
FieldName = 'Company'
Size = 50
end
end
object StyleRepository: TcxStyleRepository
Left = 40
Top = 272
object stBlueDark: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 12937777
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clWhite
end
object stGold: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 4707838
TextColor = clBlack
end
object stBlueLight: TcxStyle
AssignedValues = [svColor]
Color = 16247513
end
object stBlueBright: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 16749885
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
TextColor = clBlack
end
object stYellowLight: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 14811135
TextColor = clBlack
end
object stGreyLight: TcxStyle
AssignedValues = [svColor]
Color = 14872561
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -