columnssimpledemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ColumnsSimpleDemoDataDM: TColumnsSimpleDemoDataDM
  Left = 384
  Top = 219
  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
    IndexFieldNames = 'ID'
    TableName = 'Cars.DB'
    Left = 48
    Top = 72
    object tblCarsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblCarsTrademark: TStringField
      DisplayWidth = 15
      FieldName = 'Trademark'
      Size = 50
    end
    object tblCarsModel: TStringField
      DisplayWidth = 40
      FieldName = 'Model'
      Size = 50
    end
    object tblCarsHP: TSmallintField
      FieldName = 'HP'
      DisplayFormat = '#.# hp'
      EditFormat = '#.# '
    end
    object tblCarsLiter: TFloatField
      FieldName = 'Liter'
      DisplayFormat = '#.## liter'
      EditFormat = '#.##'
    end
    object tblCarsCyl: TSmallIntField
      FieldName = 'Cyl'
      DisplayFormat = '# cyl'
      EditFormat = '#'
    end
    object tblCarsTransmissSpeedCount: TSmallIntField
      FieldName = 'TransmissSpeedCount'
      DisplayFormat = '# speed'
      EditFormat = '#'
    end
    object tblCarsTransmissAutomatic: TStringField
      FieldName = 'TransmissAutomatic'
      Size = 3
    end
    object tblCarsMPG_City: TSmallIntField
      FieldName = 'MPG_City'
      DisplayFormat = '#.## mpg(City)'
      EditFormat = '#.##'
    end
    object tblCarsMPG_Highway: TSmallIntField
      FieldName = 'MPG_Highway'
      DisplayFormat = '#.## mpg(Highway)'
      EditFormat = '#.##'
    end
    object tblCarsCategory: TStringField
      DisplayWidth = 15
      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'
      BlobType = ftBlob
    end
    object tblCarsPrice: TFloatField
      FieldName = 'Price'
      Precision = 19
    end
    object tblCarsCar: TStringField
      FieldKind = fkCalculated
      FieldName = 'Car'
      Size = 100
      Calculated = True
    end
  end
  object tblOrders: TTable
    Active = True
    DatabaseName = 'DemosDB'

    IndexFieldNames = 'CustomerID'
    TableName = 'Orders.DB'
    Left = 48
    Top = 128
    object tblOrdersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblOrdersCustomerID: TIntegerField
      FieldName = 'CustomerID'
    end
    object tblOrdersProductID: TIntegerField
      DisplayWidth = 25
      FieldName = 'ProductID'
    end
    object tblOrdersPurchaseDate: TDateTimeField
      DisplayWidth = 23
      FieldName = 'PurchaseDate'
    end
    object tblOrdersTime: TDateTimeField
      DisplayWidth = 23
      FieldName = 'Time'
    end
    object tblOrdersPaymentType: TStringField
      DisplayWidth = 23
      FieldName = 'PaymentType'
      Size = 7
    end
    object tblOrdersDescription: TMemoField
      DisplayWidth = 14
      FieldName = 'Description'
      BlobType = ftMemo
    end
    object tblOrdersQuantity: TIntegerField
      DisplayWidth = 17
      FieldName = 'Quantity'
    end
    object tblOrdersPaymentAmount: TCurrencyField
      DisplayWidth = 21
      FieldName = 'PaymentAmount'
    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
      DisplayWidth = 16
      FieldName = 'FirstName'
      Size = 25
    end
    object tblCustomersLastName: TStringField
      DisplayWidth = 16
      FieldName = 'LastName'
      Size = 25
    end
    object tblCustomersCompany: TStringField
      DisplayWidth = 21
      FieldName = 'Company'
      Size = 50
    end
    object tblCustomersPrefix: TStringField
      DisplayWidth = 17
      FieldName = 'Prefix'
      Size = 15
    end
    object tblCustomersTitle: TStringField
      FieldName = 'Title'
      Size = 15
    end
    object tblCustomersAddress: TStringField
      DisplayWidth = 21
      FieldName = 'Address'
      Size = 50
    end
    object tblCustomersCity: TStringField
      DisplayWidth = 17
      FieldName = 'City'
    end
    object tblCustomersState: TStringField
      DisplayWidth = 16
      FieldName = 'State'
      Size = 2
    end
    object tblCustomersZipCode: TStringField
      DisplayWidth = 17
      FieldName = 'ZipCode'
      Size = 10
    end
    object tblCustomersSource: TStringField
      FieldName = 'Source'
      Size = 10
    end
    object tblCustomersCustomer: TStringField
      DisplayWidth = 17
      FieldName = 'Customer'
      Size = 1
    end
    object tblCustomersHomePhone: TStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object tblCustomersFaxPhone: TStringField
      DisplayWidth = 17
      FieldName = 'FaxPhone'
      Size = 15
    end
    object tblCustomersSpouse: TStringField
      DisplayWidth = 10
      FieldName = 'Spouse'
      Size = 50
    end
    object tblCustomersOccupation: TStringField
      FieldName = 'Occupation'
      Size = 25
    end
    object tblCustomersDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
    end
  end
  object StyleRepository: TcxStyleRepository
    Left = 40
    Top = 272
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 14811135
      TextColor = clBlack
    end
    object cxStyle6: 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 = clNavy
    end
    object cxStyle7: TcxStyle
      AssignedValues = [svColor]
      Color = 14872561
    end
    object cxStyle8: TcxStyle