reg.dfm

局域网考试系统 局域网考试系统

object RegForm: TRegForm
  Left = 293
  Top = 158
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  ClientHeight = 224
  ClientWidth = 327
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -20
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 20
  object GB1: TGroupBox
    Left = 10
    Top = 7
    Width = 305
    Height = 137
    Caption = #27880#20876#20449#24687':'
    TabOrder = 0
    object L1: TLabel
      Left = 24
      Top = 48
      Width = 50
      Height = 20
      Caption = #22995#21517':'
    end
    object TLabel
      Left = 24
      Top = 96
      Width = 50
      Height = 20
      Caption = #23398#21495':'
    end
    object NameEdit: TEdit
      Left = 80
      Top = 40
      Width = 209
      Height = 28
      MaxLength = 18
      TabOrder = 0
      Text = #36213#20840#22855
    end
    object NumEdit: TEdit
      Left = 80
      Top = 88
      Width = 209
      Height = 28
      TabOrder = 1
      Text = '99091039'
    end
  end
  object RegButton: TButton
    Left = 11
    Top = 160
    Width = 100
    Height = 31
    Caption = #27880#20876'(&R)'
    TabOrder = 1
    OnClick = RegButtonClick
  end
  object CancelButton: TButton
    Left = 216
    Top = 160
    Width = 100
    Height = 31
    Caption = #21462#28040'(&C)'
    TabOrder = 2
    OnClick = CancelButtonClick
  end
  object PaperStep: TProgressBar
    Left = 0
    Top = 200
    Width = 327
    Height = 24
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 3
  end
  object RegStu: TNMUDP
    RemotePort = 7000
    LocalPort = 7777
    ReportLevel = 1
    OnDataReceived = RegStuDataReceived
    Left = 136
    Top = 8
  end
  object QuesSock: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 6000
    OnRead = QuesSockRead
    Left = 176
    Top = 8
  end
end