unit1.dfm

选课助手

            Height = 268
            AutoSize = False
            Align = alLeft
            TabOrder = 0
            DrawStyle = suiNormal
            object suiPanel3: TsuiPanel
              Left = 0
              Top = 0
              Width = 169
              Height = 247
              UIStyle = DeepBlue
              BorderColor = clBlack
              Caption = #25163#21160#36873#35838
              ShowButton = True
              CaptionFontColor = clWhite
              Align = alTop
              TabOrder = 0
              Color = clWhite
              object Label3: TLabel
                Left = 8
                Top = 28
                Width = 27
                Height = 13
                Caption = #21160#20316':'
              end
              object Label4: TLabel
                Left = 8
                Top = 56
                Width = 27
                Height = 13
                Caption = #33539#22260':'
              end
              object cmbAction: TsuiComboBox
                Left = 40
                Top = 24
                Width = 97
                Height = 21
                UIStyle = DeepBlue
                BorderColor = clBlack
                ArrowColor = clBlack
                ButtonColor = 15263976
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 0
                Text = #36873#35838
                Items.Strings = (
                  #36873#35838
                  #36864#35838)
              end
              object cmbNlis: TsuiComboBox
                Left = 40
                Top = 48
                Width = 97
                Height = 21
                UIStyle = DeepBlue
                BorderColor = clBlack
                ArrowColor = clBlack
                ButtonColor = 15263976
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 1
                Text = #27491#24120#36873#35838
                Items.Strings = (
                  #27491#24120#36873#35838
                  #37325#20462#20813#21548)
              end
              object edtID: TsuiEdit
                Left = 24
                Top = 80
                Width = 121
                Height = 19
                UIStyle = DeepBlue
                BorderColor = clBlack
                MaxLength = 12
                TabOrder = 2
                OnKeyPress = edtIDKeyPress
              end
              object btnSubmit: TsuiButton
                Left = 48
                Top = 104
                Width = 80
                Height = 27
                Caption = #30830#35748
                AutoSize = False
                UIStyle = BlueGlass
                Enabled = False
                TabOrder = 3
                Transparent = True
                ModalResult = 0
                FocusedRectMargin = 2
                Layout = blGlyphLeft
                Spacing = 4
                MouseContinuouslyDownInterval = 100
                OnClick = btnSubmitClick
                ResHandle = 0
              end
              object mmResult: TsuiMemo
                Left = 8
                Top = 136
                Width = 153
                Height = 105
                UIStyle = DeepBlue
                BorderColor = clBlack
                OEMConvert = True
                ReadOnly = True
                TabOrder = 4
              end
            end
            object suiPanel4: TsuiPanel
              Left = 0
              Top = 247
              Width = 169
              Height = 21
              UIStyle = DeepBlue
              BorderColor = clBlack
              Caption = #33258#21160#36873#35838
              ShowButton = True
              CaptionFontColor = clWhite
              Align = alClient
              TabOrder = 1
              Color = clWhite
              object Label5: TLabel
                Left = 26
                Top = 51
                Width = 33
                Height = 17
                Caption = #27493#38271':'
              end
              object lstList: TsuiListBox
                Left = 8
                Top = 96
                Width = 153
                Height = 146
                UIStyle = DeepBlue
                BorderColor = clBlack
                ItemHeight = 13
                TabOrder = 0
              end
              object chkTimer: TsuiCheckBox
                Left = 32
                Top = 24
                Width = 93
                Height = 19
                UIStyle = DeepBlue
                AutoSize = True
                Checked = False
                Caption = #21551#21160#33258#21160#36873#35838
                TabOrder = 1
                TabStop = True
                State = cbUnchecked
                Transparent = False
                OnClick = chkTimerClick
              end
              object cmbStep: TsuiComboBox
                Left = 64
                Top = 48
                Width = 81
                Height = 21
                UIStyle = DeepBlue
                BorderColor = clBlack
                ArrowColor = clBlack
                ButtonColor = 15263976
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 3
                TabOrder = 2
                Text = '60'#31186
                OnChange = cmbStepChange
                Items.Strings = (
                  '1'#31186
                  '10'#31186
                  '30'#31186
                  '60'#31186
                  '2'#20998#38047
                  '5'#20998#38047
                  '10'#20998#38047
                  '30'#20998#38047
                  '1'#23567#26102
                  '2'#23567#26102)
              end
              object edtCourseID: TEdit
                Left = 8
                Top = 72
                Width = 97
                Height = 21
                MaxLength = 12
                TabOrder = 3
                OnKeyPress = edtCourseIDKeyPress
              end
              object btnAdd: TsuiButton
                Left = 112
                Top = 70
                Width = 48
                Height = 27
                Caption = 'Add'
                AutoSize = False
                UIStyle = BlueGlass
                Enabled = False
                TabOrder = 4
                Transparent = True
                ModalResult = 0
                FocusedRectMargin = 2
                Layout = blGlyphLeft
                Spacing = 4
                MouseContinuouslyDownInterval = 100
                OnClick = btnAddClick
                ResHandle = 0
              end
            end
          end
          object suiImagePanel2: TsuiImagePanel
            Left = 172
            Top = 0
            Width = 540
            Height = 268
            AutoSize = False
            Align = alClient
            TabOrder = 1
            DrawStyle = suiNormal
            object lsvCourses: TsuiListView
              Left = 0
              Top = 0
              Width = 540
              Height = 268
              UIStyle = DeepBlue
              BorderColor = clBlack
              Align = alClient
              BorderStyle = bsNone
              BorderWidth = 2
              Columns = <
                item
                  Caption = #35838#26102
                end
                item
                  Caption = #26143#26399#19968
                end
                item
                  Caption = #26143#26399#20108
                end
                item
                  Caption = #26143#26399#19977
                end
                item
                  Caption = #26143#26399#22235
                end
                item
                  Caption = #26143#26399#20116
                end
                item
                  Caption = #26143#26399#20845
                end
                item
                  Caption = #26143#26399#26085
                end>
              TabOrder = 0
              ViewStyle = vsReport
            end
            object Memo1: TMemo
              Left = 144
              Top = 48
              Width = 185
              Height = 89
              TabOrder = 1
              Visible = False
            end
          end
        end
      end
    end
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 520
    Top = 198
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 268
    Top = 214
  end
end