unit4.dfm

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

object Form4: TForm4
  Left = 304
  Top = 167
  Width = 432
  Height = 362
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 424
    Height = 254
    Align = alClient
    TabOrder = 0
    object DecisionGraph1: TDecisionGraph
      Left = 1
      Top = 1
      Width = 422
      Height = 252
      DecisionSource = DecisionSource1
      Title.Text.Strings = (
        'TDecisionGraph')
      BottomAxis.Title.Caption = '房间类型'
      LeftAxis.Title.Caption = '总房间数'
      RightAxis.Title.Caption = '总房间数'
      TopAxis.Title.Caption = '房间类型'
      Align = alClient
      TabOrder = 0
      object Series1: TBarSeries
        Active = False
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        Title = 'Template: 房间类型'
        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: 房间类型'
        Style = 61
      end
      object Series2: TBarSeries
        Active = False
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        Title = 'Template: 房间状态'
        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: 房间状态'
        Style = 61
      end
      object Series3: TBarSeries
        Active = False
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        Title = 'Template: 可住人数'
        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: 可住人数'
        Style = 61
      end
      object Series4: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        Title = '未住人'
        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 = '未住人'
        Style = 40
      end
      object Series5: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clGreen
        Title = '已住人'
        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 = '已住人'
        Style = 40
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 254
    Width = 424
    Height = 81
    Align = alBottom
    TabOrder = 1
    object DecisionPivot1: TDecisionPivot
      Left = 32
      Top = 16
      Width = 329
      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
    object Button1: TButton
      Left = 360
      Top = 16
      Width = 41
      Height = 41
      Caption = '刷新'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'Lx'
        BaseName = '"资源表一.DB".Lx'
        Name = '房间类型'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'Zt'
        BaseName = '"资源表一.DB".Zt'
        Name = '房间状态'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 2
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftSmallint
        Fieldname = 'Rs'
        BaseName = '"资源表一.DB".Rs'
        Name = '可住人数'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF Lx'
        BaseName = '"资源表一.DB".Lx'
        Name = '总房间数'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 297
    Top = 9
  end
  object DecisionQuery1: TDecisionQuery
    Active = True
    DatabaseName = '.\data'
    SQL.Strings = (
      'SELECT Lx, Zt, Rs, COUNT( Lx )'
      'FROM "资源表一.DB"'
      'GROUP BY Lx, Zt, Rs')
    Left = 329
    Top = 9
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 361
    Top = 9
    DimensionCount = 3
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      -1
      1
      0
      1
      0
      -1
      1
      -1
      2
      1
      -1)
  end
end