datadisp.dfm

这是一个正式的项目工程

object frmDataDisp: TfrmDataDisp
  Left = 93
  Top = 99
  Width = 654
  Height = 375
  Caption = '数据多维分析'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clHighlight
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 3
    Height = 348
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 348
    Align = alLeft
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 272
      Width = 183
      Height = 75
      Align = alBottom
      TabOrder = 0
      object Label1: TLabel
        Left = 12
        Top = 8
        Width = 70
        Height = 14
        Caption = '请选择日期'
      end
      object DateTimePicker1: TDateTimePicker
        Left = 9
        Top = 29
        Width = 166
        Height = 22
        CalAlignment = dtaLeft
        Date = 36537.7843505787
        Time = 36537.7843505787
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
        OnCloseUp = DateTimePicker1CloseUp
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 271
      Align = alClient
      Caption = 'Panel5'
      TabOrder = 1
      object TreeViewSelect: TTreeView
        Left = 1
        Top = 1
        Width = 181
        Height = 269
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        HideSelection = False
        HotTrack = True
        Indent = 19
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        OnChange = TreeViewSelectChange
        OnChanging = TreeViewSelectChanging
      end
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 458
    Height = 348
    Align = alClient
    TabOrder = 1
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 456
      Height = 40
      Align = alTop
      TabOrder = 0
      object DecisionPivot1: TDecisionPivot
        Left = 1
        Top = 1
        Width = 376
        Height = 38
        ButtonAutoSize = True
        DecisionSource = DecisionSource1
        GroupLayout = xtHorizontal
        Groups = [xtRows, xtColumns, xtSummaries]
        ButtonSpacing = 0
        ButtonWidth = 64
        ButtonHeight = 24
        GroupSpacing = 10
        BorderWidth = 0
        BorderStyle = bsNone
        Align = alLeft
        TabOrder = 0
      end
    end
    object DecisionGrid1: TDecisionGrid
      Left = 1
      Top = 41
      Width = 456
      Height = 306
      DefaultColWidth = 100
      DefaultRowHeight = 20
      CaptionColor = clActiveCaption
      CaptionFont.Charset = DEFAULT_CHARSET
      CaptionFont.Color = clCaptionText
      CaptionFont.Height = -11
      CaptionFont.Name = 'MS Sans Serif'
      CaptionFont.Style = []
      DataColor = clInfoBk
      DataSumColor = clNone
      DataFont.Charset = DEFAULT_CHARSET
      DataFont.Color = clWindowText
      DataFont.Height = -11
      DataFont.Name = 'MS Sans Serif'
      DataFont.Style = []
      LabelFont.Charset = DEFAULT_CHARSET
      LabelFont.Color = clWindowText
      LabelFont.Height = -11
      LabelFont.Name = 'MS Sans Serif'
      LabelFont.Style = []
      LabelColor = clBtnFace
      LabelSumColor = clInactiveCaption
      DecisionSource = DecisionSource1
      Dimensions = <
        item
          FieldName = 'ExtensionID'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'DDate'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'Height'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'HorizonDiff'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'State'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'SUM OF StandardG'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'SUM OF AverageG'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'COUNT OF AverageG'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end
        item
          FieldName = 'Average of Extension.AverageG'
          Color = clNone
          Alignment = taCenter
          Subtotals = True
        end>
      Totals = True
      ShowCubeEditor = False
      Align = alClient
      Color = clBtnFace
      GridLineWidth = 1
      GridLineColor = clWindowText
      TabOrder = 1
    end
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'ExtensionID'
        BaseName = 'Extension.ExtensionID'
        Name = 'ExtensionID'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 20
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftDateTime
        Fieldname = 'DDate'
        BaseName = 'Extension.DDate'
        Name = 'DDate'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binYear
        ValueCount = 1
        Active = True
        StartValue = 36526
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'StandardG'
        BaseName = 'Extension.StandardG'
        Name = 'StandardG'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = -1
        Active = False
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'Gravity'
        BaseName = 'Extension.Gravity'
        Name = 'Gravity'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = -1
        Active = False
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'Height'
        BaseName = 'Extension.Height'
        Name = 'Height'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 5
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'HorizonDiff'
        BaseName = 'Extension.HorizonDiff'
        Name = 'HorizonDiff'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'State'
        BaseName = 'Extension.State'
        Name = 'State'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'SUM OF StandardG'
        BaseName = 'Extension.StandardG'
        Name = 'SUM OF StandardG'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftFloat
        Fieldname = 'SUM OF AverageG'
        BaseName = 'Extension.AverageG'
        Name = 'SUM OF AverageG'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF AverageG'
        BaseName = 'Extension.AverageG'
        Name = 'COUNT OF AverageG'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftUnknown
        Fieldname = 'Average of Extension.AverageG'
        BaseName = 'Extension.AverageG'
        Name = 'Average of Extension.AverageG'
        DerivedFrom = 8
        DimensionType = dimAverage
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 204
    Top = 304
  end
  object DecisionQuery1: TDecisionQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      
        'SELECT ExtensionID, DDate, StandardG, Gravity, Height, HorizonDi' +
        'ff, State, SUM( StandardG ), SUM( AverageG ), COUNT( AverageG )'
      'FROM Extension'
      
        'GROUP BY ExtensionID, DDate, StandardG, Gravity, Height, Horizon' +
        'Diff, State')
    Left = 176
    Top = 304
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 236
    Top = 304
    DimensionCount = 5
    SummaryCount = 4
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      0
      1
      0
      1
      0
      0
      1
      -1
      2
      1
      -1
      1
      -1
      2
      2
      -1
      1
      -1
      2
      3
      -1)
  end
  object dsViewProjectID: TDataSource
    DataSet = ViewProjectID
    Left = 32
    Top = 216
  end
  object ViewProjectID: TTable
    DatabaseName = 'MainDB'
    Filter = 'Class='#39'P'#39
    Filtered = True
    ReadOnly = True
    TableName = 'CodeDetail.DB'
    Left = 48
    Top = 232
    object ViewProjectIDClass: TStringField
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object ViewProjectIDACode: TStringField
      FieldName = 'ACode'
      Required = True
      Size = 15
    end
    object ViewProjectIDCodeMeaning: TStringField
      FieldName = 'CodeMeaning'
      Required = True
    end
  end
  object ViewPH: TTable
    DatabaseName = 'MainDB'
    IndexFieldNames = 'ProjectID'
    MasterFields = 'ACode'
    MasterSource = dsViewProjectID
    ReadOnly = True
    TableName = 'PH.db'
    Left = 136
    Top = 232
    object ViewPHProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewPHHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewPHHourseIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'HourseIDLookup'
      LookupDataSet = dmMainDB.ViewHourseID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'HourseID'
      Lookup = True
    end
  end
  object dsViewPH: TDataSource
    DataSet = ViewPH
    Left = 120
    Top = 216
  end
end