unit12.dfm

高校图书管理系统采用Delphi结合数据库

object frm_cjtj: Tfrm_cjtj
  Left = 147
  Top = 311
  Width = 753
  Height = 440
  Caption = #20179#24211#31649#29702#37096#38376'-->'#20179#24211#20135#21697#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 257
    Height = 361
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBChart1: TDBChart
    Left = 272
    Top = 8
    Width = 467
    Height = 369
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -14
    Title.Font.Name = #23435#20307
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #22823#23398#33521#35821#25104#32489#32479#35745#22270)
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.Maximum = 100
    BorderStyle = bsSingle
    TabOrder = 1
    object RadioButton1: TRadioButton
      Left = 344
      Top = 144
      Width = 97
      Height = 41
      Caption = #39640#31561#25968#23398
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 344
      Top = 184
      Width = 97
      Height = 41
      Caption = #31163#25955#25968#23398
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 344
      Top = 232
      Width = 97
      Height = 33
      Caption = #25968#23398#24314#27169
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 344
      Top = 112
      Width = 97
      Height = 33
      Caption = #22823#23398#33521#35821
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      TabStop = True
      OnClick = RadioButton4Click
    end
    object RadioButton5: TRadioButton
      Left = 344
      Top = 272
      Width = 113
      Height = 33
      Caption = #35745#31639#26426#25991#21270#22522#30784
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = RadioButton5Click
    end
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      DataSource = Table1
      SeriesColor = clRed
      XLabelsSource = #23398#21495
      BarWidthPercent = 10
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = #22823#23398#33521#35821
    end
  end
  object Button1: TButton
    Left = 312
    Top = 384
    Width = 89
    Height = 25
    Caption = #36820#22238
    TabOrder = 2
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Table1
    Left = 32
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'student'
    TableName = 'xscjb.DB'
    Left = 160
    Top = 8
  end
end