david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
344 lines
9.9 KiB
Plaintext
344 lines
9.9 KiB
Plaintext
object StylesSimpleDemoDataDM: TStylesSimpleDemoDataDM
|
|
OnCreate = StylesSimpleDemoDataDMCreate
|
|
Left = 215
|
|
Top = 266
|
|
Height = 221
|
|
Width = 286
|
|
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.Descri' +
|
|
'ption Cars_Description, Cars.Picture, Cars.Price, Customers.Firs' +
|
|
'tName, Customers.ID Customers_ID, Customers.LastName, Customers.' +
|
|
'Company, Customers.Prefix, Customers.Title, Customers.Address, C' +
|
|
'ustomers.City, Customers.State, Customers.ZipCode, Customers.Sou' +
|
|
'rce, Customers.Customer, Customers.HomePhone, Customers.FaxPhone' +
|
|
', Customers.Spouse, Customers.Occupation, Customers.Email, Custo' +
|
|
'mers.Description Customers_Description, Orders.CustomerID, Order' +
|
|
's.ID Orders_ID, Orders.ProductID, Orders.PurchaseDate, Orders."T' +
|
|
'ime", Orders.PaymentType, 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 queOrdersTime: TDateTimeField
|
|
FieldName = 'Time'
|
|
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'
|
|
end
|
|
object queOrdersLiter: TFloatField
|
|
FieldName = 'Liter'
|
|
end
|
|
object queOrdersCyl: TSmallintField
|
|
FieldName = 'Cyl'
|
|
end
|
|
object queOrdersTransmissSpeedCount: TSmallintField
|
|
FieldName = 'TransmissSpeedCount'
|
|
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
|
|
end
|
|
object dsOrders: TDataSource
|
|
DataSet = queOrders
|
|
Left = 120
|
|
Top = 64
|
|
end
|
|
object StyleRepository: TcxStyleRepository
|
|
Left = 120
|
|
Top = 8
|
|
object Sunny: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 14811135
|
|
TextColor = clNavy
|
|
end
|
|
object Dark: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14920832
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clWhite
|
|
end
|
|
object Golden: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object Summer: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 16379615
|
|
TextColor = clBlack
|
|
end
|
|
object Autumn: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15252642
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = 11032875
|
|
end
|
|
object Bright: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 16749885
|
|
end
|
|
object Cold: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 14872561
|
|
end
|
|
object Spring: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15519398
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = 12742441
|
|
end
|
|
object Light: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14811135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clBlack
|
|
end
|
|
object Winter: TcxStyle
|
|
AssignedValues = [svColor, svFont]
|
|
Color = clWhite
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
end
|
|
object Depth: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clWhite
|
|
end
|
|
object UserStyleSheet: TcxVerticalGridStyleSheet
|
|
Styles.Background = Autumn
|
|
Styles.Content = Summer
|
|
Styles.Inactive = Bright
|
|
Styles.Selection = Dark
|
|
Styles.Category = Dark
|
|
Styles.Header = Spring
|
|
Styles.IncSearch = Golden
|
|
BuiltIn = True
|
|
end
|
|
end
|
|
object updOrders: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update "Orders.DB"'
|
|
'set'
|
|
' "Orders.DB"."PurchaseDate" = :"PurchaseDate",'
|
|
' "Orders.DB"."Time" = :"Time",'
|
|
' "Orders.DB"."PaymentType" = :"PaymentType",'
|
|
' "Orders.DB"."PaymentAmount" = :"PaymentAmount",'
|
|
' "Orders.DB"."Quantity" = :"Quantity"'
|
|
'where'
|
|
' "Orders.DB"."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'
|
|
' "CARS.DB"."Trademark" = :"Trademark",'
|
|
' "CARS.DB"."Model" = :"Model",'
|
|
' "CARS.DB"."HP" = :"HP",'
|
|
' "CARS.DB"."Liter" = :"Liter",'
|
|
' "CARS.DB"."Cyl" = :"Cyl",'
|
|
' "CARS.DB"."TransmissSpeedCount" = :"TransmissSpeedCount",'
|
|
' "CARS.DB"."TransmissAutomatic" = :"TransmissAutomatic",'
|
|
' "CARS.DB"."MPG_City" = :"MPG_City",'
|
|
' "CARS.DB"."MPG_Highway" = :"MPG_Highway",'
|
|
' "CARS.DB"."Category" = :"Category",'
|
|
' "CARS.DB"."Hyperlink" = :"Hyperlink",'
|
|
' "CARS.DB"."Picture" = :"Picture",'
|
|
' "CARS.DB"."Price" = :"Price"'
|
|
'where'
|
|
' "CARS.DB"."ID" = :"Cars_ID"')
|
|
Left = 184
|
|
Top = 120
|
|
end
|
|
end
|