mainform.dfm

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

object DCDemoForm: TDCDemoForm
  Left = 190
  Top = 205
  Width = 470
  Height = 309
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #23548#20986#21830#19994#20915#31574#20998#26512#31243#24207
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 462
    Height = 49
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object DecisionPivot1: TDecisionPivot
      Left = -1
      Top = 2
      Width = 466
      Height = 47
      ButtonAutoSize = True
      DecisionSource = DecisionSource1
      GroupLayout = xtHorizontal
      Groups = [xtRows, xtColumns, xtSummaries]
      ButtonSpacing = 3
      ButtonWidth = 64
      ButtonHeight = 24
      GroupSpacing = 10
      BorderWidth = 3
      BorderStyle = bsNone
      TabOrder = 0
    end
  end
  object DecisionGrid1: TDecisionGrid
    Left = 0
    Top = 49
    Width = 462
    Height = 233
    DefaultColWidth = 90
    DefaultRowHeight = 20
    CaptionColor = clActiveCaption
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clCaptionText
    CaptionFont.Height = -11
    CaptionFont.Name = 'Default'
    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 = 'Default'
    LabelFont.Style = []
    LabelColor = clBtnFace
    LabelSumColor = clTeal
    DecisionSource = DecisionSource1
    Dimensions = <
      item
        FieldName = 'Payment'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'ShipVIA'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'Terms'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'ShipDate'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'COUNT OF AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'SUM OF AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'COUNT OF ItemsTotal'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'Average of ORDERS.AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end>
    Totals = True
    ShowCubeEditor = False
    Align = alClient
    Color = clBtnFace
    GridLineWidth = 1
    GridLineColor = clBlack
    TabOrder = 1
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'PaymentMethod'
        BaseName = 'ORDERS.PaymentMethod'
        Name = 'Payment'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 7
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'ShipVIA'
        BaseName = 'ORDERS.ShipVIA'
        Name = 'ShipVIA'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 5
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'Terms'
        BaseName = 'ORDERS.Terms'
        Name = 'Terms'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftDateTime
        Fieldname = 'ShipDate'
        BaseName = 'ORDERS.ShipDate'
        Name = 'ShipDate'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binYear
        ValueCount = 7
        Active = True
        StartValue = 35431
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'COUNT OF AmountPaid'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftCurrency
        Fieldname = 'SUM OF AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'SUM OF AmountPaid'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF ItemsTotal'
        BaseName = 'ORDERS.ItemsTotal'
        Name = 'COUNT OF ItemsTotal'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diActive
        FieldType = ftUnknown
        Fieldname = 'Average of ORDERS.AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'Average of ORDERS.AmountPaid'
        DerivedFrom = 5
        DimensionType = dimAverage
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 5
    MaxCells = 1000000
    Left = 507
    Top = 8
  end
  object DecisionQuery1: TDecisionQuery
    Active = True
    DatabaseName = 'BCDEMOS'
    SQL.Strings = (
      
        'SELECT ORDERS.PaymentMethod, "ORDERS.DB".ShipVIA, "ORDERS.DB".Te' +
        'rms, "ORDERS.DB".ShipDate, COUNT( "ORDERS.DB".AmountPaid ), SUM(' +
        ' "ORDERS.DB".AmountPaid ), COUNT( "ORDERS.DB".ItemsTotal )'
      'FROM "ORDERS.DB" ORDERS'
      
        'GROUP BY ORDERS.PaymentMethod, "ORDERS.DB".ShipVIA, "ORDERS.DB".' +
        'Terms, "ORDERS.DB".ShipDate')
    Left = 478
    Top = 8
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 535
    Top = 8
    DimensionCount = 4
    SummaryCount = 4
    CurrentSummary = 1
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      1
      0
      1
      0
      0
      2
      0
      1
      0
      0
      1
      -1
      2
      1
      0
      2
      -1
      3
      1
      6)
  end
end