udbchart.dfm

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

object Form_DBChart: TForm_DBChart
  Left = 212
  Top = 172
  Width = 667
  Height = 489
  BorderIcons = [biSystemMenu]
  Caption = #22270#24418#32479#35745
  Color = 15856627
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 104
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #36873#25321#39033#30446#26597#30475
  end
  object CountListBox: TListBox
    Left = 1
    Top = 120
    Width = 184
    Height = 342
    Align = alCustom
    Anchors = [akLeft, akTop, akBottom]
    Color = clCaptionText
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 14
    Items.Strings = (
      #37096#38376
      #24615#21035
      #27665#26063
      #25919#27835#38754#35980
      #23130#23035#29366#20917
      #25945#32946#31243#24230
      #32844#24037#31867#22411
      #32844#31216
      #32844#21153
      #24037#36164#31867#21035
      #27605#19994#38498#26657
      #24180#24230#26032#22686#21592#24037
      #26376#24230#26032#22686#21592#24037
      #32844#24037#24180#40836)
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    OnClick = CountListBoxClick
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 89
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object modifetitle: TSpeedButton
      Left = 8
      Top = 40
      Width = 85
      Height = 28
      Caption = #20462#25913#26631#39064
      OnClick = modifetitleClick
    end
    object SavePicture: TSpeedButton
      Left = 96
      Top = 40
      Width = 85
      Height = 28
      Caption = #20445#23384#22270#29255
      OnClick = SavePictureClick
    end
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #22270#24418#22788#29702
    end
  end
  object PageControl1: TPageControl
    Left = 192
    Top = 0
    Width = 465
    Height = 457
    ActivePage = TabSheet1
    Align = alCustom
    Anchors = [akLeft, akTop, akRight, akBottom]
    Style = tsFlatButtons
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #39292#29366#22270
      object DBChart1: TDBChart
        Left = 0
        Top = 0
        Width = 457
        Height = 426
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.AdjustFrame = False
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -19
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Title.Text.Strings = (
          #37096#38376#20154#21592#23545#27604#34920)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        LeftAxis.LabelStyle = talText
        Legend.ColorWidth = 10
        Legend.DividingLines.Style = psDot
        Legend.LegendStyle = lsValues
        Legend.ShadowSize = 1
        Legend.TextStyle = ltsRightPercent
        Legend.TopPos = 1
        RightAxis.Inverted = True
        RightAxis.LabelsMultiLine = True
        RightAxis.LabelStyle = talValue
        RightAxis.Logarithmic = True
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DOptions.VertOffset = 36
        View3DOptions.Zoom = 102
        View3DWalls = False
        OnGetLegendText = DBChart1GetLegendText
        Align = alClient
        Color = clWhite
        TabOrder = 0
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsValue
          Marks.Visible = False
          DataSource = ADOQChart
          PercentFormat = '   ##0.## %'
          SeriesColor = clRed
          ValueFormat = '   ##0.##'
          XLabelsSource = 'Expr1001'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1.000000000000000000
          PieValues.Order = loNone
          PieValues.ValueSource = 'Expr1001'
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26609#29366#22270
      ImageIndex = 1
      object DBChart2: TDBChart
        Left = 0
        Top = 0
        Width = 457
        Height = 426
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Color = 15856627
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -19
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Title.Text.Strings = (
          #37096#38376#20154#21592#23545#27604#34920)
        Legend.ColorWidth = 7
        Legend.TextStyle = ltsRightPercent
        Legend.TopPos = 0
        OnGetLegendText = DBChart2GetLegendText
        Align = alClient
        Color = 15856627
        TabOrder = 0
        object Series2: TBarSeries
          Marks.ArrowLength = 20
          Marks.Transparent = True
          Marks.Visible = True
          DataSource = ADOQChart
          PercentFormat = '  ##0.## %'
          SeriesColor = clRed
          XLabelsSource = 'Expr1001'
          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
          YValues.ValueSource = 'Expr1001'
        end
      end
    end
  end
  object ADOQChart: TADOQuery
    Active = True
    Connection = Form_Main.ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select Employee_FirstDept,count(Employee_FirstDept)  From Employ' +
        'ee group by Employee_FirstDept')
    Left = 208
    Top = 32
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = '*.bmp'
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 128
    Top = 56
  end
end