viewchartdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object frmMain: TfrmMain
  Left = 293
  Top = 117
  Width = 900
  Height = 670
  Caption = 'ExpressQuantumGrid ViewChart Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 892
    Height = 29
    Align = alTop
    AutoSize = False
    Caption = 
      '  This demo shows both unbound and data aware ChartViews. Click ' +
      #39'About this demo'#39' for more information.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Layout = tlCenter
  end
  object grMain: TcxGrid
    Left = 0
    Top = 29
    Width = 892
    Height = 587
    Align = alClient
    TabOrder = 0
    RootLevelOptions.DetailTabsPosition = dtpTop
    OnActiveTabChanged = grMainActiveTabChanged
    object tvData: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsOrders
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skSum
          Column = tvDataPaymentAmount
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      object tvDataID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
      end
      object tvDataProductName: TcxGridDBColumn
        DataBinding.FieldName = 'ProductName'
        Visible = False
        GroupIndex = 0
      end
      object tvDataCompany: TcxGridDBColumn
        DataBinding.FieldName = 'Customer'
        Width = 143
      end
      object tvDataPurchaseDate: TcxGridDBColumn
        DataBinding.FieldName = 'PurchaseDate'
        Width = 108
      end
      object tvDataPaymentType: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentType'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = PaymentTypeImages
        Properties.Items = <
          item
            Description = 'Cash'
            ImageIndex = 0
            Value = 'Cash'
          end
          item
            Description = 'Visa'
            ImageIndex = 1
            Value = 'Visa'
          end
          item
            Description = 'MasterCard'
            ImageIndex = 2
            Value = 'Master'
          end
          item
            Description = 'AmericanExpress'
            ImageIndex = 3
            Value = 'AmEx'
          end>
        Width = 112
      end
      object tvDataPaymentAmount: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentAmount'
        Width = 111
      end
      object tvDataQuantity: TcxGridDBColumn
        DataBinding.FieldName = 'Quantity'
        Width = 73
      end
    end
    object chvSales: TcxGridDBChartView
      Categories.DataBinding.FieldName = 'Name'
      DataController.DataSource = dsSales
      DiagramBar.Active = True
      DiagramBar.AxisCategory.GridLines = False
      DiagramBar.AxisCategory.CategoriesInReverseOrder = True
      DiagramBar.AxisCategory.ValueAxisAtMaxCategory = True
      DiagramBar.Styles.Axis = cxStyle2
      DiagramBar.Styles.Plot = cxStyle1
      DiagramColumn.AxisCategory.GridLines = False
      DiagramColumn.Styles.Axis = cxStyle2
      DiagramColumn.Styles.Plot = cxStyle1
      Legend.Position = cppNone
      Styles.Background = cxStyle4
      Styles.Legend = cxStyle4
      Styles.Title = cxStyle3
      Title.Text = 'Yearly Product Sales'
      OnActiveDiagramChanged = chvSalesActiveDiagramChanged
      object chvSalesSeries1: TcxGridDBChartSeries
        DataBinding.FieldName = 'Amount'
        SortOrder = soDescending
        ValueCaptionFormat = '$,0'
        OnCustomDrawValue = chvSalesSeries1CustomDrawValue
      end
    end
    object chvSalesByQuarter: TcxGridChartView
      DiagramBar.AxisCategory.CategoriesInReverseOrder = True
      DiagramBar.AxisCategory.ValueAxisAtMaxCategory = True
      DiagramColumn.Active = True
      Legend.Position = cppTop
      Title.Text = 'Product Sales by Quarter'
      OnActiveDiagramChanged = chvSalesActiveDiagramChanged
      OnGetValueHint = chvSalesByQuarterGetValueHint
      object chvSalesByQuarterSeries1: TcxGridChartSeries
        DisplayText = 'Q1'
        ValueCaptionFormat = '$,0'
      end
      object chvSalesByQuarterSeries2: TcxGridChartSeries
        DisplayText = 'Q2'
        ValueCaptionFormat = '$,0'
      end
      object chvSalesByQuarterSeries3: TcxGridChartSeries
        DisplayText = 'Q3'
        ValueCaptionFormat = '$,0'
      end
      object chvSalesByQuarterSeries4: TcxGridChartSeries
        DisplayText = 'Q4'
        ValueCaptionFormat = '$,0'
      end
    end
    object grMainLevel1: TcxGridLevel
      Caption = 'Orders'
      GridView = tvData
    end
    object grMainLevel2: TcxGridLevel
      Caption = 'Yearly Sales (DB ChartView)'
      GridView = chvSales
    end
    object grMainLevel3: TcxGridLevel
      Caption = 'Sales by Quarter (Unbound ChartView)'
      GridView = chvSalesByQuarter
    end
  end
  object dsOrders: TDataSource
    DataSet = tblOrders
    Left = 360
    Top = 172
  end
  object tblOrders: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'Orders.DB'
    Left = 388
    Top = 172
    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 tblOrdersPaymentAmount: TCurrencyField
      FieldName = 'PaymentAmount'
    end
    object tblOrdersDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 10
    end
    object tblOrdersQuantity: TIntegerField
      FieldName = 'Quantity'
    end
    object tblOrdersProductName: TStringField
      FieldKind = fkLookup
      FieldName = 'ProductName'
      LookupDataSet = tblProducts
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ProductID'
      Lookup = True
    end
    object tblOrdersCustomer: TStringField
      FieldKind = fkLookup
      FieldName = 'Customer'
      LookupDataSet = tblCustomers
      LookupKeyFields = 'ID'
      LookupResultField = 'Company'
      KeyFields = 'CustomerID'
      Lookup = True
    end
  end
  object qrSales: TQuery
    Active = True
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      'SELECT'
      '  P.Name, SUM(O.PaymentAmount) AS Amount'
      'FROM'
      '  Products P, Orders O'
      'WHERE'
      '  P.ID = O.ProductID'
      'GROUP BY'
      '  P.Name, O.ProductID')
    Left = 388
    Top = 212