unit6.dfm

这是一个关于delphi数据库方面的源程序

object FormChart: TFormChart
  Left = 192
  Top = 107
  Width = 427
  Height = 291
  Caption = 'FormChart'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DecisionGraph1: TDecisionGraph
    Left = 8
    Top = 8
    Width = 400
    Height = 250
    DecisionSource = DecisionSource1
    Title.Text.Strings = (
      'TDecisionGraph')
    TabOrder = 0
    object Series1: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: '#35838#31243#21517#31216
      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: '#35838#31243#21517#31216
      Style = 61
    end
    object Series2: TBarSeries
      Active = False
      ColorEachPoint = True
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = '1D Template: '#35838#31243#21517#31216
      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 = '1D Template: '#35838#31243#21517#31216
      Style = 40
    end
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = #35838#31243#21517#31216
        BaseName = #35838#31243'.'#35838#31243#21517#31216
        Name = #35838#31243#21517#31216
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 4
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF '#23398#21495
        BaseName = #23398#21495#35838#31243'.'#23398#21495
        Name = #36873#35838#20154#25968
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 64
    Top = 112
  end
  object DecisionQuery1: TDecisionQuery
    DatabaseName = 'Course'
    SQL.Strings = (
      'SELECT '#35838#31243'.'#35838#31243#21517#31216', COUNT( '#23398#21495#35838#31243'.'#23398#21495' )'
      'FROM "'#23398#21495#35838#31243'.db" '#23398#21495#35838#31243
      '   INNER JOIN "'#35838#31243'.DB" '#35838#31243
      '   ON  ('#23398#21495#35838#31243'.'#35838#31243#32534#21495' = '#35838#31243'.'#35838#31243#32534#21495')  '
      'GROUP BY '#35838#31243'.'#35838#31243#21517#31216)
    Left = 96
    Top = 112
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 120
    Top = 112
    DimensionCount = 1
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      -1)
  end
end