unit23.~dfm

用Delphi写的学生信息管理系统的源代码

object cjtj: Tcjtj
  Left = 235
  Top = 99
  Width = 580
  Height = 416
  Caption = #25104#32489#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 304
    Width = 60
    Height = 13
    Caption = #29677#32423#26174#31034#65306
  end
  object Label2: TLabel
    Left = 200
    Top = 304
    Width = 60
    Height = 13
    Caption = #35838#31243#26174#31034#65306
  end
  object Label3: TLabel
    Left = 392
    Top = 296
    Width = 36
    Height = 13
    Caption = #23398#26399#65306
  end
  object QRChart2: TQRChart
    Left = 2
    Top = 0
    Width = 567
    Height = 249
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Size.Values = (
      658.8125
      5.29166666666667
      0
      1500.1875)
    object QRDBChart2: TQRDBChart
      Left = -1
      Top = -1
      Width = 1
      Height = 1
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        'TQRChart')
      object Series1: TFastLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        SeriesColor = clRed
        LinePen.Color = clRed
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series2: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = True
        SeriesColor = clGreen
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
    end
  end
  object Button1: TButton
    Left = 104
    Top = 344
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 80
    Top = 296
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    KeyField = #29677#32423#21495
    ListField = #25152#22312#24180#32423
    ListSource = dsname
    TabOrder = 2
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 264
    Top = 296
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    KeyField = 'courseID'
    ListField = 'courseName'
    ListSource = dsscore
    TabOrder = 3
  end
  object Button2: TButton
    Left = 304
    Top = 344
    Width = 73
    Height = 25
    Caption = #21462#28040
    TabOrder = 4
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 432
    Top = 296
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 13
    TabOrder = 5
    Items.Strings = (
      #31532#19968#23398#26399
      #31532#20108#23398#26399
      #31532#19977#23398#26399
      #31532#22235#23398#26399
      #31532#20116#23398#26399
      #31532#20845#23398#26399
      #31532#19971#23398#26399
      #31532#20843#23398#26399)
  end
  object queryname: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 96
    Top = 296
  end
  object dsname: TDataSource
    DataSet = queryname
    Left = 136
    Top = 296
  end
  object queryscore: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 288
    Top = 288
  end
  object dsscore: TDataSource
    DataSet = queryscore
    Left = 320
    Top = 288
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 280
    Top = 192
  end
end