unit21.dfm

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

object Form21: TForm21
  Left = 255
  Top = 258
  BorderStyle = bsDialog
  Caption = #37038#20214#21457#36865#31995#32479
  ClientHeight = 436
  ClientWidth = 398
  Color = clGradientActiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 328
    Top = 384
    Width = 57
    Height = 25
    Caption = #21457'  '#36865
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 393
    Height = 217
    Caption = #37038#20214#21457#36865#35774#32622
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 36
      Height = 12
      Caption = ' '#20027' '#26426
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 36
      Height = 12
      Caption = #21457#20214#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 96
      Width = 36
      Height = 12
      Caption = #25910#20214#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 120
      Width = 36
      Height = 12
      Caption = ' '#20027' '#39064
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 240
      Top = 24
      Width = 36
      Height = 12
      Caption = ' '#29992' '#25143
    end
    object Label6: TLabel
      Left = 8
      Top = 152
      Width = 36
      Height = 12
      Caption = ' '#38468' '#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 56
      Top = 24
      Width = 161
      Height = 20
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 56
      Top = 56
      Width = 329
      Height = 20
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 56
      Top = 88
      Width = 329
      Height = 20
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 56
      Top = 120
      Width = 329
      Height = 20
      TabOrder = 3
    end
    object Edit6: TEdit
      Left = 288
      Top = 24
      Width = 97
      Height = 20
      TabOrder = 4
    end
    object Button2: TButton
      Left = 312
      Top = 152
      Width = 65
      Height = 25
      Caption = #38468' '#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button2Click
      OnKeyDown = listbox1keydown
    end
    object ListBox1: TListBox
      Left = 56
      Top = 152
      Width = 233
      Height = 41
      ItemHeight = 12
      TabOrder = 6
    end
  end
  object BitBtn3: TBitBtn
    Left = 240
    Top = 384
    Width = 75
    Height = 25
    Caption = #26029#24320'/'#36830#25509
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn3Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 224
    Width = 393
    Height = 145
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object RadioGroup1: TRadioGroup
    Left = 0
    Top = 376
    Width = 209
    Height = 41
    Caption = #32534#30721#26041#24335
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object RadioButton1: TRadioButton
    Left = 16
    Top = 392
    Width = 89
    Height = 17
    Caption = 'mime'
    TabOrder = 4
  end
  object RadioButton2: TRadioButton
    Left = 120
    Top = 392
    Width = 73
    Height = 17
    Caption = 'uuencode'
    TabOrder = 5
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 417
    Width = 398
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object NMSMTP1: TNMSMTP
    Port = 25
    ReportLevel = 0
    OnDisconnect = disconnect
    OnConnect = connect
    OnConnectionFailed = connectfailed
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnHeaderIncomplete = incomplete
    OnSendStart = Sendstart
    OnSuccess = Success
    OnFailure = nmsmtpFailed
    OnEncodeStart = encode
    OnEncodeEnd = encodeend
    OnAuthenticationFailed = nmsmtp1authentication
    Left = 88
    Top = 232
  end
  object OpenDialog1: TOpenDialog
    Left = 208
    Top = 232
  end
end