mainunit.dfm

EasyClass是针对某大学Web选课子系统一个自动的课程检索程序。EasyClass允许用户对希望关注的课程自动检测空位

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 798
  Height = 531
  Caption = 'EasyClass (For Shenzhen University)'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    790
    485)
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel2: TBevel
    Left = 0
    Top = 0
    Width = 790
    Height = 466
    Align = alClient
  end
  object TIPS: TLabel
    Left = 192
    Top = 440
    Width = 420
    Height = 12
    Anchors = [akLeft, akBottom]
    Caption = #20351#29992#33258#21160#36873#35838#21151#33021#26102#65292#35831#20445#35777#27809#26377#20854#20182#27983#35272#22120#22312#36873#35838#31995#32479#20013#20351#29992#20320#30340#36873#35838#24080#21495#12290
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object CppWebBrowser: TCppWebBrowser
    Left = 232
    Top = 152
    Width = 300
    Height = 150
    TabOrder = 7
    ControlData = {
      4C000000021F0000810F00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object ClassView: TListView
    Left = 192
    Top = 11
    Width = 589
    Height = 419
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Caption = #35838#31243#21495
        Width = 80
      end
      item
        Caption = #35838#31243#21517
        Width = 150
      end
      item
        Caption = #38480#36873
        Width = 45
      end
      item
        Caption = #24050#36873
        Width = 45
      end
      item
        Caption = #29366#24577
        Width = 60
      end
      item
        Caption = #31867#22411
      end
      item
        Caption = #22791#27880
        Width = 130
      end>
    GridLines = True
    ReadOnly = True
    PopupMenu = ClassNoMenu
    TabOrder = 0
    ViewStyle = vsReport
    OnSelectItem = ClassViewSelectItem
  end
  object BeginScan: TButton
    Left = 616
    Top = 436
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #24320#22987#26816#32034
    TabOrder = 1
    OnClick = BeginScanClick
  end
  object EndScan: TButton
    Left = 704
    Top = 436
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #20572#27490#26816#32034
    Enabled = False
    TabOrder = 2
    OnClick = EndScanClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 351
    Width = 177
    Height = 46
    Anchors = [akLeft, akBottom]
    Caption = #26816#32034#39057#29575
    TabOrder = 3
    object Label2: TLabel
      Left = 128
      Top = 24
      Width = 30
      Height = 12
      Caption = #31186'/'#27425
    end
    object HZ: TCSpinEdit
      Left = 24
      Top = 16
      Width = 97
      Height = 21
      MaxValue = 65535
      MinValue = 60
      TabOrder = 0
      Value = 60
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 8
    Width = 177
    Height = 337
    Anchors = [akLeft, akTop, akBottom]
    Caption = #34987#20851#27880#35838#31243#21495
    TabOrder = 4
    DesignSize = (
      177
      337)
    object Label3: TLabel
      Left = 8
      Top = 248
      Width = 36
      Height = 12
      Anchors = [akLeft, akBottom]
      Caption = #35838#31243#21495
    end
    object Bevel1: TBevel
      Left = 8
      Top = 218
      Width = 161
      Height = 7
      Anchors = [akLeft, akBottom]
      Shape = bsTopLine
    end
    object Label1: TLabel
      Left = 16
      Top = 297
      Width = 24
      Height = 12
      Anchors = [akLeft, akBottom]
      Caption = #22791#27880
    end
    object Label4: TLabel
      Left = 8
      Top = 225
      Width = 78
      Height = 12
      Anchors = [akLeft, akBottom]
      Caption = #28155#21152'/'#20462#25913#35838#31243
    end
    object Label5: TLabel
      Left = 16
      Top = 273
      Width = 24
      Height = 12
      Anchors = [akLeft, akBottom]
      Caption = #31867#22411
    end
    object ClassAdd: TButton
      Left = 120
      Top = 313
      Width = 49
      Height = 18
      Anchors = [akLeft, akBottom]
      Caption = #28155#21152
      TabOrder = 0
      OnClick = ClassAddClick
    end
    object ClassDelete: TButton
      Left = 64
      Top = 195
      Width = 49
      Height = 18
      Anchors = [akLeft, akBottom]
      Caption = #21024#38500
      TabOrder = 1
      OnClick = ClassDeleteClick
    end
    object ClassClear: TButton
      Left = 120
      Top = 195
      Width = 49
      Height = 18
      Anchors = [akLeft, akBottom]
      Caption = #28165#31354
      TabOrder = 2
      OnClick = ClassClearClick
    end
    object ADDCLASS: TEdit
      Left = 48
      Top = 240
      Width = 113
      Height = 20
      Anchors = [akLeft, akBottom]
      TabOrder = 3
      OnChange = ADDCLASSChange
    end
    object STRING: TEdit
      Left = 48
      Top = 289
      Width = 113
      Height = 20
      Anchors = [akLeft, akBottom]
      TabOrder = 4
    end
    object NUMBERS: TListView
      Left = 8
      Top = 19
      Width = 161
      Height = 174
      Anchors = [akLeft, akTop, akBottom]
      Columns = <
        item
          Caption = #35838#31243#21495
          Width = 80
        end
        item
          Caption = #31867#22411
        end
        item
          Caption = #22791#27880
          Width = 150
        end>
      ReadOnly = True
      PopupMenu = ClassNoMenu
      TabOrder = 5
      ViewStyle = vsReport
      OnSelectItem = NUMBERSSelectItem
    end
    object ClassModi: TButton
      Left = 64
      Top = 313
      Width = 49
      Height = 18
      Anchors = [akLeft, akBottom]
      Caption = #20462#25913
      Enabled = False
      TabOrder = 6
      OnClick = ClassModiClick
    end
    object TYPE: TComboBox
      Left = 48
      Top = 264
      Width = 57
      Height = 20
      Style = csDropDownList
      Anchors = [akLeft, akBottom]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 7
      Text = #24517#20462
      Items.Strings = (
        #24517#20462
        #36873#20462)
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 466
    Width = 790
    Height = 19
    Panels = <
      item
        Text = #23601#32490
        Width = 70
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 400
    Width = 177
    Height = 61
    Anchors = [akLeft, akBottom]
    Caption = #33258#21160#36873#35838
    TabOrder = 5
    object UseAutoChoose: TCheckBox
      Left = 16
      Top = 16
      Width = 113
      Height = 17
      Caption = #20351#29992#33258#21160#36873#35838#21151#33021
      TabOrder = 0
      OnClick = UseAutoChooseClick
    end
    object EnterUser: TButton
      Left = 48
      Top = 34
      Width = 57
      Height = 18
      Caption = #36755#20837#23398#21495
      Enabled = False
      TabOrder = 1
      OnClick = EnterUserClick
    end
    object EnterPass: TButton
      Left = 112
      Top = 34
      Width = 58
      Height = 18
      Caption = #36755#20837#23494#30721
      Enabled = False
      TabOrder = 2
      OnClick = EnterPassClick
    end
  end
  object HTTP: TNMHTTP
    Port = 0
    ReportLevel = 0
    Body = 'Default.htm'
    Header = 'Head.txt'
    InputFileMode = False
    OutputFileMode = False
    ProxyPort = 0
    Left = 536
    Top = 256
  end
  object APP: TApplicationEvents
    OnMessage = APPMessage
    Left = 504
    Top = 256
  end
  object MainMenu: TMainMenu
    Left = 536
    Top = 224
    object P1: TMenuItem
      Caption = #31243#24207'(&P)'
      object N2: TMenuItem
        Caption = #36864#20986#31243#24207'(&Q)'
        OnClick = N2Click
      end