chartunit.dfm

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

object chartForm: TchartForm
  Left = 186
  Top = 97
  ActiveControl = DBChart1
  BorderStyle = bsNone
  Caption = #35814#32454#20998#24067#22270
  ClientHeight = 445
  ClientWidth = 582
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBChart1: TDBChart
    Left = 0
    Top = 0
    Width = 582
    Height = 413
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = clWhite
    BackWall.Size = 4
    BottomWall.Size = 4
    Foot.Font.Charset = DEFAULT_CHARSET
    Foot.Font.Color = clBlack
    Foot.Font.Height = -11
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Text.Strings = (
      '                        '
      '                                        ')
    Gradient.Direction = gdFromCenter
    Gradient.EndColor = clAqua
    Gradient.Visible = True
    LeftWall.Brush.Color = clWhite
    LeftWall.Size = 4
    PrintProportional = False
    Title.Brush.Color = clWhite
    Title.Brush.Style = bsClear
    Title.Color = clWhite
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #23398#29983#25104#32489#20998#24067#24773#20917#22270
      ''
      '')
    BackColor = clWhite
    Chart3DPercent = 20
    DepthAxis.ExactDateTime = False
    DepthAxis.Visible = True
    Legend.DividingLines.Style = psDot
    Legend.DividingLines.Visible = True
    Legend.LegendStyle = lsValues
    Legend.TextStyle = ltsRightValue
    RightAxis.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    PopupMenu = PopupMenu1
    TabOrder = 0
    AutoSize = True
    object Series1: TBarSeries
      ColorEachPoint = True
      Marks.Arrow.Width = 2
      Marks.ArrowLength = 20
      Marks.BackColor = clYellow
      Marks.Style = smsPercentTotal
      Marks.Visible = True
      DataSource = DataModule1.tabletemp
      SeriesColor = clRed
      VertAxis = aBothVertAxis
      XLabelsSource = 'area'
      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 = 'count'
    end
  end
  object DBChart2: TDBChart
    Left = 0
    Top = 0
    Width = 582
    Height = 413
    AllowPanning = pmNone
    AllowZoom = False
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = clWhite
    BackWall.Pen.Visible = False
    BackWall.Size = 4
    BottomWall.Size = 4
    Foot.Font.Charset = DEFAULT_CHARSET
    Foot.Font.Color = clBlack
    Foot.Font.Height = -11
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Text.Strings = (
      ' '
      '                        ')
    Gradient.Direction = gdFromCenter
    Gradient.EndColor = clAqua
    Gradient.Visible = True
    LeftWall.Brush.Color = clWhite
    LeftWall.Size = 4
    PrintProportional = False
    Title.Brush.Color = clWhite
    Title.Brush.Style = bsClear
    Title.Color = clWhite
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #23398#29983#25104#32489#20998#24067#24773#20917#22270
      ''
      '')
    AxisVisible = False
    BackColor = clWhite
    Chart3DPercent = 20
    ClipPoints = False
    DepthAxis.ExactDateTime = False
    DepthAxis.Visible = True
    Frame.Visible = False
    Legend.DividingLines.Style = psDot
    Legend.DividingLines.Visible = True
    Legend.LegendStyle = lsValues
    Legend.TextStyle = ltsRightValue
    RightAxis.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    View3DWalls = False
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    PopupMenu = PopupMenu1
    TabOrder = 1
    Visible = False
    AutoSize = True
    object BarSeries1: TPieSeries
      Marks.Arrow.Width = 2
      Marks.ArrowLength = 20
      Marks.BackColor = clYellow
      Marks.Style = smsPercentTotal
      Marks.Visible = True
      DataSource = DataModule1.tabletemp
      SeriesColor = clRed
      VertAxis = aBothVertAxis
      XLabelsSource = 'area'
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
      PieValues.ValueSource = 'count'
    end
  end
  object DBChart3: TDBChart
    Left = 0
    Top = 0
    Width = 582
    Height = 413
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = clWhite
    BackWall.Size = 4
    BottomWall.Size = 4
    Foot.Font.Charset = DEFAULT_CHARSET
    Foot.Font.Color = clBlack
    Foot.Font.Height = -11
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Text.Strings = (
      ''
      '             ')
    Gradient.Direction = gdFromCenter
    Gradient.EndColor = clAqua
    Gradient.Visible = True
    LeftWall.Brush.Color = clWhite
    LeftWall.Size = 4
    PrintProportional = False
    Title.Brush.Color = clWhite
    Title.Brush.Style = bsClear
    Title.Color = clWhite
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #23398#29983#25104#32489#20998#24067#24773#20917#22270
      ''
      '')
    BackColor = clWhite
    Chart3DPercent = 20
    DepthAxis.ExactDateTime = False
    DepthAxis.Visible = True
    Legend.DividingLines.Style = psDot
    Legend.DividingLines.Visible = True
    Legend.LegendStyle = lsValues
    Legend.TextStyle = ltsRightValue
    RightAxis.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    PopupMenu = PopupMenu1
    TabOrder = 2
    Visible = False
    AutoSize = True
    object BarSeries2: THorizBarSeries
      ColorEachPoint = True
      Marks.Arrow.Width = 2
      Marks.ArrowLength = 20
      Marks.BackColor = clYellow
      Marks.Style = smsPercentTotal
      Marks.Visible = True
      DataSource = DataModule1.tabletemp
      SeriesColor = clRed
      VertAxis = aBothVertAxis
      XLabelsSource = 'area'
      XValues.DateTime = False
      XValues.Name = 'Bar'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loNone
      XValues.ValueSource = 'count'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loAscending
    end
  end
  object DBChart4: TDBChart
    Left = 0
    Top = 0
    Width = 582
    Height = 413
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = clWhite
    BackWall.Size = 4
    BottomWall.Size = 4
    Foot.Font.Charset = DEFAULT_CHARSET
    Foot.Font.Color = clBlack
    Foot.Font.Height = -11
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Text.Strings = (
      ' '
      '                                       ')
    Gradient.Direction = gdFromCenter
    Gradient.EndColor = clAqua
    Gradient.Visible = True
    LeftWall.Brush.Color = clWhite
    LeftWall.Size = 4
    PrintProportional = False
    Title.Brush.Color = clWhite
    Title.Brush.Style = bsClear
    Title.Color = clWhite