decision.dfm

关于DEPHI7.0的人力资源信息管理系统源代码

object FormDecision: TFormDecision
  Left = 198
  Top = 155
  Width = 562
  Height = 336
  Caption = #20154#21147#36164#28304#31649#29702#20449#24687#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DecisionGraph1: TDecisionGraph
    Left = 0
    Top = 0
    Width = 554
    Height = 264
    Hint = #20154#21147#36164#28304#31649#29702#20449#24687#31995#32479
    DecisionSource = DecisionSource1
    AnimatedZoom = True
    BottomWall.Brush.Color = clWhite
    Gradient.Direction = gdFromCenter
    Gradient.Visible = True
    LeftWall.Brush.Color = clWhite
    Title.Brush.Color = clYellow
    Title.Color = clWhite
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clYellow
    Title.Font.Height = -16
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Frame.Color = clYellow
    Title.Frame.Style = psDashDotDot
    Title.Frame.SmallDots = True
    Title.Frame.Visible = True
    Title.Text.Strings = (
      #20154#21147#36164#28304#31649#29702#20449#24687#31995#32479#8212#8212#25968#25454#20998#26512)
    BackColor = clYellow
    BottomAxis.Title.Caption = 'DEGREE'
    BottomAxis.Title.Font.Charset = DEFAULT_CHARSET
    BottomAxis.Title.Font.Color = clFuchsia
    BottomAxis.Title.Font.Height = -12
    BottomAxis.Title.Font.Name = 'Arial'
    BottomAxis.Title.Font.Style = []
    LeftAxis.Axis.Color = 16744703
    LeftAxis.Axis.Visible = False
    LeftAxis.ExactDateTime = False
    LeftAxis.Grid.Color = clRed
    LeftAxis.Ticks.Color = 8421631
    LeftAxis.TicksInner.Color = clYellow
    LeftAxis.Title.Caption = 'COUNT OF EMPID'
    LeftAxis.Title.Font.Charset = GB2312_CHARSET
    LeftAxis.Title.Font.Color = clFuchsia
    LeftAxis.Title.Font.Height = -12
    LeftAxis.Title.Font.Name = 'Arial'
    LeftAxis.Title.Font.Style = []
    RightAxis.Title.Caption = 'COUNT OF EMPID'
    TopAxis.Title.Caption = 'DEGREE'
    Align = alClient
    BevelOuter = bvNone
    Color = clNavy
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ShowHint = True
    TabOrder = 0
    object Series7: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: DEGREE'
      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 = 'Template: DEGREE'
      Style = 61
    end
    object Series8: TBarSeries
      ColorEachPoint = True
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Bar'#22270
      BarStyle = bsCilinder
      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 = '1D Template: DEGREE'
      Style = 40
    end
    object Series1: TPieSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = True
      DataSource = Series8
      SeriesColor = clGreen
      Title = 'Pie'#22270
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
      Identifier = '::'
      Style = 16
    end
    object Series2: THorizBarSeries
      Active = False
      ColorEachPoint = True
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = Series8
      SeriesColor = clYellow
      Title = 'Horz.Bar'#22270
      BarStyle = bsCilinder
      XValues.DateTime = False
      XValues.Name = 'Bar'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loNone
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '::'
      Style = 16
    end
    object Series3: TAreaSeries
      Active = False
      ColorEachPoint = True
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series8
      SeriesColor = clBlue
      Title = 'Area'#22270
      AreaBrush = bsDiagCross
      DrawArea = True
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      Stairs = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '::'
      Style = 16
    end
    object Series4: TPointSeries
      Active = False
      Marks.ArrowLength = 0
      Marks.Visible = False
      DataSource = Series8
      SeriesColor = clGray
      Title = 'Point'#22270
      Pointer.Brush.Color = clGray
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Identifier = '::'
      Style = 16
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 264
    Width = 554
    Height = 42
    Align = alBottom
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 33
        Width = 550
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 537
      Height = 33
      Caption = 'ToolBar1'
      TabOrder = 0
      object BTNPrint: TBitBtn
        Left = 0
        Top = 2
        Width = 60
        Height = 22
        Hint = #25171#21360#22270#20687
        Caption = #25171#21360'(&P)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = BTNPrintClick
      end
      object BTNSave: TBitBtn
        Left = 60
        Top = 2
        Width = 60
        Height = 22
        Hint = #20445#23384#22270#20687
        Caption = #20445#23384'(&S)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = BTNSaveClick
      end
      object BTNClose: TBitBtn
        Left = 120
        Top = 2
        Width = 60
        Height = 22
        Hint = #20851#38381#31383#21475
        Caption = #20851#38381'(&X)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = BTNCloseClick
      end
      object BTNPie: TBitBtn
        Left = 180
        Top = 2
        Width = 40
        Height = 22
        Caption = 'Pie'#22270
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BTNPieClick
      end
      object BTNBar: TBitBtn
        Left = 220
        Top = 2
        Width = 40
        Height = 22
        Caption = 'Bar'#22270
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BTNBarClick
      end
      object BTNHorzbar: TBitBtn
        Left = 260
        Top = 2
        Width = 75
        Height = 22
        Caption = 'Horz.Bar'#22270
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BTNHorzbarClick
      end
      object BTNPoint: TBitBtn
        Left = 335
        Top = 2
        Width = 55
        Height = 22
        Caption = 'Point'#22270
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BTNPointClick
      end
      object BTNArea: TBitBtn
        Left = 390
        Top = 2
        Width = 55
        Height = 22
        Caption = 'Area'#22270
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BTNAreaClick
      end
      object ColorBox1: TColorBox
        Left = 445
        Top = 2
        Width = 92
        Height = 22
        Hint = #25913#21464#22270#24418#32972#26223#39068#33394
        ItemHeight = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnChange = ColorBox1Change
      end
    end
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'DEGREE'
        BaseName = '"Person.DB".DEGREE'
        Name = 'DEGREE'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF EMPID'
        BaseName = '"Person.DB".EMPID'
        Name = 'COUNT OF EMPID'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 16
    Top = 232
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 56
    Top = 232
    DimensionCount = 1
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      -1)
  end
  object DecisionQuery1: TDecisionQuery
    Active = True
    DatabaseName = 'd:\Delphi7\DevBook\Ch05_human\db'
    DataSource = DataModule1.DataSource1
    SQL.Strings = (
      'SELECT DEGREE, COUNT( EMPID )'
      'FROM "Person.DB"'
      'GROUP BY DEGREE')
    Left = 88
    Top = 232
  end
  object SaveDialog1: TSaveDialog
    Left = 128
    Top = 232
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 232
    object PopMenuAbout: TMenuItem
      Caption = #20851#20110'(&A)'
    end
    object PopMenuCopy: TMenuItem
      Caption = #22797#21046#22270#24418'(&C)'
      OnClick = PopMenuCopyClick
    end
    object PopMenuSavePic: TMenuItem
      Caption = #20445#23384#22270#20687'(&S)'
      OnClick = PopMenuSavePicClick
    end
    object PopMenuClose: TMenuItem
      Caption = #20851#38381'(&X)'
      OnClick = PopMenuCloseClick
    end
  end
end