readerpercent.dfm

图书管理系统

object Form10: TForm10
  Left = 195
  Top = 118
  Width = 579
  Height = 423
  Caption = #35835#32773#27604#20363#22270
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 13
    Width = 527
    Height = 332
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21508#31867#35835#32773#25152#21344#30334#20998#27604
      object DBChart1: TDBChart
        Left = 13
        Top = 7
        Width = 458
        Height = 251
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          #21508#31867#35835#32773#25152#21344#27604#20363)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        TabOrder = 0
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsPercentTotal
          Marks.Visible = True
          DataSource = ADOTable1
          SeriesColor = clRed
          XLabelsSource = 'duzhezhonglei'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1.000000000000000000
          PieValues.Order = loNone
          PieValues.ValueSource = 'shuliang'
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21508#31867#35835#32773#25968#37327
      ImageIndex = 1
      object DBChart2: TDBChart
        Left = 14
        Top = 7
        Width = 455
        Height = 251
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          #21508#31867#35835#32773#25968#37327#25152#21344#27604#20363)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        TabOrder = 0
        object Series2: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsLabelValue
          Marks.Visible = True
          DataSource = ADOTable1
          SeriesColor = clRed
          XLabelsSource = 'duzhezhonglei'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1.000000000000000000
          PieValues.Order = loNone
          PieValues.ValueSource = 'shuliang'
        end
      end
    end
  end
  object Button1: TButton
    Left = 173
    Top = 356
    Width = 92
    Height = 27
    Caption = #25171'  '#21360
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 298
    Top = 356
    Width = 92
    Height = 27
    Caption = #36864'   '#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=library;Data Source=.'
    CursorType = ctStatic
    TableName = 'TypeStat'
    Left = 92
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 92
    Top = 104
  end
  object ADOTable2: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=sa;Initial Catalog=library;Data Source=.'
    CursorType = ctStatic
    TableName = 'Readers'
    Left = 500
    Top = 8
  end
  object ADOTable3: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=library;Data Source=.'
    CursorType = ctStatic
    TableName = 'Readertype'
    Left = 548
    Top = 8
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=library;Data Source=.'
    Parameters = <>
    Left = 92
    Top = 192
  end
end