unit22.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

object Form22: TForm22
  Left = 412
  Top = 228
  Width = 415
  Height = 382
  Caption = '销售管理图示'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DecisionGraph1: TDecisionGraph
    Left = 0
    Top = 0
    Width = 407
    Height = 296
    DecisionSource = DecisionSource1
    Title.Text.Strings = (
      'TDecisionGraph')
    Align = alClient
    TabOrder = 0
    object Series1: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: Lb'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Identifier = 'Template: Lb'
      Style = 61
    end
    object Series2: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: Rq'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Identifier = 'Template: Rq'
      Style = 61
    end
    object Series3: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = '2002'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Identifier = '2002'
      Style = 40
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 296
    Width = 407
    Height = 59
    Align = alBottom
    TabOrder = 1
    object DecisionPivot1: TDecisionPivot
      Left = 72
      Top = 8
      Width = 265
      Height = 41
      ButtonAutoSize = True
      DecisionSource = DecisionSource1
      GroupLayout = xtHorizontal
      Groups = [xtRows, xtColumns, xtSummaries]
      ButtonSpacing = 0
      ButtonWidth = 64
      ButtonHeight = 24
      GroupSpacing = 10
      BorderWidth = 0
      BorderStyle = bsNone
      TabOrder = 0
    end
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 80
    Top = 72
    DimensionCount = 2
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      -1
      1
      0
      1
      0
      -1)
  end
  object DecisionQuery1: TDecisionQuery
    DatabaseName = '.\data'
    SQL.Strings = (
      'SELECT Lb, Rq, SUM( Sr )'
      'FROM "销售表.db"'
      'GROUP BY Lb, Rq')
    Left = 200
    Top = 80
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'Lb'
        BaseName = '"销售表.db".Lb'
        Name = '销售类别'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 6
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftDate
        Fieldname = 'Rq'
        BaseName = '"销售表.db".Rq'
        Name = '日期'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binYear
        ValueCount = 1
        Active = True
        StartValue = 37257
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftCurrency
        Fieldname = 'SUM OF Sr'
        BaseName = '"销售表.db".Sr'
        Name = '收入'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 144
    Top = 88
  end
end