viewchartdemomain.dfm

胜天进销存源码,国产优秀的进销存

object frmMain: TfrmMain
  Left = 300
  Top = 120
  Caption = 'ExpressQuantumGrid ViewChart Demo'
  ClientHeight = 646
  ClientWidth = 842
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 842
    Height = 29
    Align = alTop
    AutoSize = False
    Caption = 
      '  This demo shows both unbound and data aware ChartViews. It als' +
      'o allows you to customize their different aspects.'
    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 = 842
    Height = 617
    Align = alClient
    TabOrder = 0
    RootLevelOptions.DetailTabsPosition = dtpTop
    OnActiveTabChanged = grMainActiveTabChanged
    object tvData: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsOrders
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '$0,'
          Kind = skSum
          Column = tvDataPaymentAmount
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupSummaryLayout = gslAlignWithColumns
      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
      DiagramArea.Styles.Values = cxStyle6
      DiagramArea.Styles.Axis = cxStyle2
      DiagramArea.Styles.Plot = cxStyle1
      DiagramArea.OnCustomDrawValueArea = chvSalesDiagramAreaCustomDrawValueArea
      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
      DiagramLine.Styles.Values = cxStyle5
      DiagramLine.Styles.Axis = cxStyle2
      DiagramLine.Styles.Plot = cxStyle1
      DiagramLine.Values.LineWidth = 2
      DiagramLine.Values.MarkerStyle = cmsCircle
      DiagramPie.SeriesCaptions = False
      DiagramPie.Styles.Legend = cxStyle2
      DiagramPie.Values.CaptionPosition = pdvcpInsideEnd
      DiagramPie.Values.CaptionItems = [pdvciCategory, pdvciPercentage]
      Legend.Position = cppNone
      OptionsBehavior.ValueHotTrack = vhAlways
      OptionsCustomize.DataGroupMoving = False
      Styles.Background = cxStyle4
      Styles.Legend = cxStyle4
      Styles.Title = cxStyle3
      Styles.ToolBox = cxStyle7
      Title.Text = 'Yearly Product Sales'
      ToolBox.CustomizeButton = True
      ToolBox.DiagramSelector = True
      OnActiveDiagramChanged = chvSalesActiveDiagramChanged
      OnValueClick = chvSalesValueClick
      object chvSalesSeries1: TcxGridDBChartSeries
        DataBinding.FieldName = 'Amount'
        SortOrder = soDescending
        ValueCaptionFormat = '$,0'
        OnCustomDrawValue = chvSalesSeries1CustomDrawValue
      end
    end
    object chvSalesByQuarter: TcxGridChartView
      DiagramArea.Values.Stacking = vsNormal
      DiagramBar.AxisCategory.CategoriesInReverseOrder = True
      DiagramBar.AxisCategory.ValueAxisAtMaxCategory = True
      DiagramLine.Values.MarkerStyle = cmsDiamond
      DiagramPie.Active = True
      DiagramPie.Legend.Position = cppRight
      DiagramPie.SeriesColumnCount = 2
      DiagramPie.Values.CaptionPosition = pdvcpInsideEnd
      DiagramPie.Values.CaptionItems = [pdvciPercentage]
      Legend.Position = cppTop
      OptionsCustomize.DataGroupMoving = False
      Title.Text = 'Product Sales by Quarter'
      ToolBox.CustomizeButton = True
      ToolBox.DiagramSelector = True
      ToolBox.Position = tpBottom
      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.ID, P.Name, SUM(O.PaymentAmount) AS Amount'
      'FROM'
      '  Products P, Orders O'
      'WHERE'
      '  P.ID = O.ProductID'
      'GROUP BY'
      '  P.ID, P.Name, O.ProductID')
    Left = 388
    Top = 212
  end
  object dsSales: TDataSource
    DataSet = qrSales
    Left = 360
    Top = 212
  end
  object tblProducts: TTable