summarygroupdemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object SummaryGroupDemoDataDM: TSummaryGroupDemoDataDM
  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