david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
356 lines
9.8 KiB
Plaintext
356 lines
9.8 KiB
Plaintext
object CustomDrawDemoDataDM: TCustomDrawDemoDataDM
|
|
OnCreate = CustomDrawDemoDataDMCreate
|
|
Left = 365
|
|
Top = 165
|
|
Height = 229
|
|
Width = 325
|
|
object StyleRepository: TcxStyleRepository
|
|
Left = 120
|
|
Top = 8
|
|
object stCustomer: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15253902
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = 14916958
|
|
end
|
|
object stNoCustomer: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14671839
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 10658466
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = 10658466
|
|
end
|
|
object cxStyle1: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 14590588
|
|
end
|
|
object cxStyle2: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 13795663
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = 12157
|
|
end
|
|
object cxStyle3: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 16247513
|
|
TextColor = clNavy
|
|
end
|
|
object cxStyle4: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 14590588
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle5: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15185807
|
|
end
|
|
object cxStyle6: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle7: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 15120279
|
|
TextColor = clBlack
|
|
end
|
|
object cxVerticalGridStyleSheetDevExpress: TcxVerticalGridStyleSheet
|
|
Caption = 'DevExpress'
|
|
Styles.Background = cxStyle1
|
|
Styles.Content = cxStyle3
|
|
Styles.Inactive = cxStyle5
|
|
Styles.Selection = cxStyle7
|
|
Styles.Category = cxStyle2
|
|
Styles.Header = cxStyle4
|
|
Styles.IncSearch = cxStyle6
|
|
BuiltIn = True
|
|
end
|
|
end
|
|
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 queOrders: TQuery
|
|
Active = True
|
|
CachedUpdates = True
|
|
AfterPost = queOrdersAfterPost
|
|
AfterCancel = queOrdersAfterCancel
|
|
OnUpdateRecord = queOrdersUpdateRecord
|
|
DatabaseName = 'DemosDB'
|
|
RequestLive = True
|
|
SQL.Strings = (
|
|
'SELECT '
|
|
' Cars.Trademark, Cars.Model, Cars.HP, Cars.Liter, Cars.Cyl, '
|
|
|
|
' Cars.TransmissSpeedCount, Cars.TransmissAutomatic, Cars.MPG_Ci' +
|
|
'ty, '
|
|
' Cars.MPG_Highway, Cars.Category, Cars.Hyperlink, '
|
|
' Cars.Description Cars_Description, Cars.Picture, Cars.Price, '
|
|
|
|
' Customers.FirstName, Customers.ID Customers_ID, Customers.Last' +
|
|
'Name, '
|
|
|
|
' Customers.Company, Customers.Prefix, Customers.Title, Customer' +
|
|
's.Address, '
|
|
|
|
' Customers.City, Customers.State, Customers.ZipCode, Customers.' +
|
|
'Source, '
|
|
' Customers.Customer, Customers.HomePhone, Customers.FaxPhone, '
|
|
' Customers.Spouse, Customers.Occupation, Customers.Email, '
|
|
' Customers.Description Customers_Description, '
|
|
' Orders.CustomerID, Orders.ID Orders_ID, Orders.ProductID, '
|
|
|
|
' Orders.PurchaseDate, Orders."Time" Orders_Time, Orders.Payment' +
|
|
'Type, '
|
|
' Orders.PaymentAmount, Orders.Quantity, '
|
|
' Orders.Description Orders_Description, '
|
|
' Cars.ID Cars_ID'
|
|
'FROM "CARS.DB" Cars'
|
|
' LEFT OUTER JOIN "ORDERS.DB" Orders'
|
|
' ON (Orders.ProductID = Cars.ID) '
|
|
' LEFT OUTER JOIN "CUSTOMERS.DB" Customers'
|
|
' ON (Orders.CustomerID = Customers.ID) ')
|
|
Left = 40
|
|
Top = 64
|
|
object queOrdersPurchaseDate: TDateTimeField
|
|
FieldName = 'PurchaseDate'
|
|
end
|
|
object queOrdersPaymentType: TStringField
|
|
FieldName = 'PaymentType'
|
|
Size = 7
|
|
end
|
|
object queOrdersPaymentAmount: TFloatField
|
|
FieldName = 'PaymentAmount'
|
|
end
|
|
object queOrdersQuantity: TIntegerField
|
|
FieldName = 'Quantity'
|
|
end
|
|
object queOrdersFirstName: TStringField
|
|
FieldName = 'FirstName'
|
|
Size = 25
|
|
end
|
|
object queOrdersLastName: TStringField
|
|
FieldName = 'LastName'
|
|
Size = 25
|
|
end
|
|
object queOrdersCompany: TStringField
|
|
FieldName = 'Company'
|
|
Size = 50
|
|
end
|
|
object queOrdersPrefix: TStringField
|
|
FieldName = 'Prefix'
|
|
Size = 15
|
|
end
|
|
object queOrdersTitle: TStringField
|
|
FieldName = 'Title'
|
|
Size = 15
|
|
end
|
|
object queOrdersAddress: TStringField
|
|
FieldName = 'Address'
|
|
Size = 50
|
|
end
|
|
object queOrdersCity: TStringField
|
|
FieldName = 'City'
|
|
end
|
|
object queOrdersState: TStringField
|
|
FieldName = 'State'
|
|
Size = 2
|
|
end
|
|
object queOrdersZipCode: TStringField
|
|
FieldName = 'ZipCode'
|
|
Size = 10
|
|
end
|
|
object queOrdersSource: TStringField
|
|
FieldName = 'Source'
|
|
Size = 10
|
|
end
|
|
object queOrdersCustomer: TStringField
|
|
FieldName = 'Customer'
|
|
Size = 1
|
|
end
|
|
object queOrdersHomePhone: TStringField
|
|
FieldName = 'HomePhone'
|
|
Size = 15
|
|
end
|
|
object queOrdersFaxPhone: TStringField
|
|
FieldName = 'FaxPhone'
|
|
Size = 15
|
|
end
|
|
object queOrdersSpouse: TStringField
|
|
FieldName = 'Spouse'
|
|
Size = 50
|
|
end
|
|
object queOrdersOccupation: TStringField
|
|
FieldName = 'Occupation'
|
|
Size = 25
|
|
end
|
|
object queOrdersEmail: TStringField
|
|
FieldName = 'Email'
|
|
Size = 255
|
|
end
|
|
object queOrdersTrademark: TStringField
|
|
FieldName = 'Trademark'
|
|
Size = 50
|
|
end
|
|
object queOrdersModel: TStringField
|
|
FieldName = 'Model'
|
|
Size = 50
|
|
end
|
|
object queOrdersHP: TSmallintField
|
|
FieldName = 'HP'
|
|
DisplayFormat = '#.# hp'
|
|
EditFormat = '#.#'
|
|
end
|
|
object queOrdersLiter: TFloatField
|
|
FieldName = 'Liter'
|
|
DisplayFormat = '#.## liter'
|
|
EditFormat = '#.##'
|
|
end
|
|
object queOrdersCyl: TSmallintField
|
|
FieldName = 'Cyl'
|
|
DisplayFormat = '# cyl'
|
|
EditFormat = '#'
|
|
end
|
|
object queOrdersTransmissSpeedCount: TSmallintField
|
|
FieldName = 'TransmissSpeedCount'
|
|
DisplayFormat = '# speed'
|
|
EditFormat = '#'
|
|
end
|
|
object queOrdersTransmissAutomatic: TStringField
|
|
FieldName = 'TransmissAutomatic'
|
|
Size = 3
|
|
end
|
|
object queOrdersMPG_City: TSmallintField
|
|
FieldName = 'MPG_City'
|
|
end
|
|
object queOrdersMPG_Highway: TSmallintField
|
|
FieldName = 'MPG_Highway'
|
|
end
|
|
object queOrdersCategory: TStringField
|
|
FieldName = 'Category'
|
|
Size = 7
|
|
end
|
|
object queOrdersCars_Description: TMemoField
|
|
FieldName = 'Cars_Description'
|
|
BlobType = ftMemo
|
|
Size = 10
|
|
end
|
|
object queOrdersHyperlink: TStringField
|
|
FieldName = 'Hyperlink'
|
|
Size = 50
|
|
end
|
|
object queOrdersPicture: TBlobField
|
|
FieldName = 'Picture'
|
|
BlobType = ftBlob
|
|
Size = 10
|
|
end
|
|
object queOrdersPrice: TFloatField
|
|
FieldName = 'Price'
|
|
end
|
|
object queOrdersCustomers_ID: TIntegerField
|
|
FieldName = 'Customers_ID'
|
|
end
|
|
object queOrdersCustomerID: TIntegerField
|
|
FieldName = 'CustomerID'
|
|
end
|
|
object queOrdersOrders_ID: TIntegerField
|
|
FieldName = 'Orders_ID'
|
|
end
|
|
object queOrdersProductID: TIntegerField
|
|
FieldName = 'ProductID'
|
|
end
|
|
object queOrdersCars_ID: TIntegerField
|
|
FieldName = 'Cars_ID'
|
|
end
|
|
object queOrdersOrders_Time: TDateTimeField
|
|
DisplayLabel = 'Time'
|
|
FieldName = 'Orders_Time'
|
|
end
|
|
end
|
|
object dsOrders: TDataSource
|
|
DataSet = queOrders
|
|
Left = 120
|
|
Top = 64
|
|
end
|
|
object updOrders: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update "Orders.DB" Orders'
|
|
'set'
|
|
' PurchaseDate = :PurchaseDate,'
|
|
' Orders."Time" = :Orders_Time,'
|
|
' PaymentType = :PaymentType,'
|
|
' PaymentAmount = :PaymentAmount,'
|
|
' Quantity = :Quantity'
|
|
'where'
|
|
' ID = :Orders_ID')
|
|
Left = 40
|
|
Top = 120
|
|
end
|
|
object updCustomers: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update "Customers.DB"'
|
|
'set'
|
|
' FirstName = :FirstName,'
|
|
' LastName = :LastName,'
|
|
' Company = :Company,'
|
|
' Prefix = :Prefix,'
|
|
' Title = :Title,'
|
|
' Address = :Address,'
|
|
' City = :City,'
|
|
' State = :State,'
|
|
' ZipCode = :ZipCode,'
|
|
' Source = :Source,'
|
|
' Customer = :Customer,'
|
|
' HomePhone = :HomePhone,'
|
|
' FaxPhone = :FaxPhone,'
|
|
' Spouse = :Spouse,'
|
|
' Occupation = :Occupation,'
|
|
' Email = :Email'
|
|
'where'
|
|
' ID = :Customers_ID')
|
|
Left = 112
|
|
Top = 120
|
|
end
|
|
object updCars: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update "CARS.DB"'
|
|
'set'
|
|
' Trademark = :Trademark,'
|
|
' Model = :Model,'
|
|
' HP = :HP,'
|
|
' Liter = :Liter,'
|
|
' Cyl = :Cyl,'
|
|
' TransmissSpeedCount = :TransmissSpeedCount,'
|
|
' TransmissAutomatic = :TransmissAutomatic,'
|
|
' MPG_City = :MPG_City,'
|
|
' MPG_Highway = :MPG_Highway,'
|
|
' Category = :Category,'
|
|
' Hyperlink = :Hyperlink,'
|
|
' Picture = :Picture,'
|
|
' Price = :Price'
|
|
'where'
|
|
' ID = :Cars_ID')
|
|
Left = 184
|
|
Top = 120
|
|
end
|
|
end
|