unit14.~dfm

本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能

object selfen1: Tselfen1
  Left = 124
  Top = 82
  Width = 800
  Height = 591
  Caption = 'selfen1'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 753
    Height = 370
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ImeName = #26234#33021'ABC'#36755#20837#27861
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -20
    TitleFont.Name = #38582#20070
    TitleFont.Style = [fsBold]
  end
  object Panel1: TPanel
    Left = 0
    Top = 384
    Width = 761
    Height = 177
    BevelInner = bvRaised
    BevelWidth = 2
    Color = clSkyBlue
    TabOrder = 1
    object Label1: TLabel
      Left = 600
      Top = 64
      Width = 139
      Height = 20
      Caption = '('#27491#30830#29575#36798'60%)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Button1: TButton
      Left = 504
      Top = 96
      Width = 105
      Height = 33
      Caption = #20851#38381
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 176
      Top = 96
      Width = 113
      Height = 33
      Caption = #25171#21360
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object no: TRadioButton
      Left = 40
      Top = 32
      Width = 201
      Height = 25
      Caption = #25353#23398#21495#21319#24207#26597#30475
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = noClick
    end
    object zongfen: TRadioButton
      Left = 272
      Top = 32
      Width = 201
      Height = 25
      Caption = #25353#24635#20998#38477#24207#26597#30475
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = zongfenClick
    end
    object jige: TRadioButton
      Left = 504
      Top = 32
      Width = 241
      Height = 25
      Caption = #26597#35810#21450#26684#23398#29983
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = jigeClick
    end
  end
  object DataSource1: TDataSource
    DataSet = selfen
    Left = 16
    Top = 264
  end
  object selfen: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'select '#23398#29983#23398#21495','#23398#29983#22995#21517','#36873#25321#39064#20998#25968','#22635#31354#39064#20998#25968','#32771#29983#24635#20998','#25152#36873#35797#21367#21495
      'from  '#32771#29983#25104#32489#34920
      'where  '#25152#36873#35797#21367#21495'=:no'
      'order by '#32771#29983#24635#20998' desc')
    Left = 8
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end>
  end
  object selzongfen: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      '')
    Left = 16
    Top = 224
  end
end