unit1.~dfm

Delphi_7.0数据库开发源代码。有内容十一章节

      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '4312'
      Style = 40
    end
    object Series41: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGray
      Title = '4531'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '4531'
      Style = 40
    end
    object Series42: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clFuchsia
      Title = '4652'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '4652'
      Style = 40
    end
    object Series43: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clTeal
      Title = '4684'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '4684'
      Style = 40
    end
    object Series44: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clNavy
      Title = '5132'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5132'
      Style = 40
    end
    object Series45: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clMaroon
      Title = '5151'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5151'
      Style = 40
    end
    object Series46: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clLime
      Title = '5163'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5163'
      Style = 40
    end
    object Series47: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clOlive
      Title = '5165'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5165'
      Style = 40
    end
    object Series48: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clPurple
      Title = '5384'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5384'
      Style = 40
    end
    object Series49: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clSilver
      Title = '5412'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5412'
      Style = 40
    end
    object Series50: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clAqua
      Title = '5432'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5432'
      Style = 40
    end
    object Series51: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clBlack
      Title = '5515'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '5515'
      Style = 40
    end
    object Series52: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = '6215'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '6215'
      Style = 40
    end
    object Series53: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGreen
      Title = '6312'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '6312'
      Style = 40
    end
    object Series54: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clYellow
      Title = '6516'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '6516'
      Style = 40
    end
    object Series55: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clBlue
      Title = '6582'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '6582'
      Style = 40
    end
    object Series56: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clWhite
      Title = '6812'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '6812'
      Style = 40
    end
    object Series57: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGray
      Title = '9841'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '9841'
      Style = 40
    end
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'PaymentMethod'
        BaseName = '"orders.db".PaymentMethod'
        Name = 'PaymentMethod'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 7
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'CustNo'
        BaseName = '"orders.db".CustNo'
        Name = 'CustNo'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 54
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftCurrency
        Fieldname = 'SUM OF AmountPaid'
        BaseName = '"orders.db".AmountPaid'
        Name = 'SUM OF AmountPaid'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 48
    Top = 16
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 80
    Top = 16
    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
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT PaymentMethod, CustNo, SUM( AmountPaid )'
      'FROM "orders.db"'
      'GROUP BY PaymentMethod, CustNo')
    Left = 8
    Top = 16
  end
end