main.dfm

来自「FIR引擎最新源码+注册」· DFM 代码 · 共 354 行

object frmFMain: TfrmFMain
  Left = 229
  Top = 177
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #39134#23572#19990#30028#20195#29702#25480#26435#23458#25143#31471
  ClientHeight = 449
  ClientWidth = 369
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar: TStatusBar
    Left = 0
    Top = 430
    Width = 369
    Height = 19
    Panels = <
      item
        Text = #26410#36830#25509
        Width = 100
      end
      item
        Text = #26410#30331#38470
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end>
  end
  object GroupBoxLogin: TGroupBox
    Left = 8
    Top = 8
    Width = 353
    Height = 113
    Caption = #30331#38470
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 30
      Height = 12
      Caption = #36134#21495':'
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 30
      Height = 12
      Caption = #23494#30721':'
    end
    object EditAccout: TEdit
      Left = 56
      Top = 20
      Width = 289
      Height = 20
      TabOrder = 0
    end
    object EditPassword: TEdit
      Left = 56
      Top = 44
      Width = 289
      Height = 20
      TabOrder = 1
    end
    object ButtonLogin: TButton
      Left = 14
      Top = 72
      Width = 75
      Height = 25
      Caption = #30331#38470
      TabOrder = 2
      OnClick = ButtonLoginClick
    end
    object ButtonCloseSocket: TButton
      Left = 270
      Top = 72
      Width = 75
      Height = 25
      Caption = #36864#20986
      Enabled = False
      TabOrder = 3
      OnClick = ButtonCloseSocketClick
    end
  end
  object GroupBoxUser: TGroupBox
    Left = 8
    Top = 128
    Width = 353
    Height = 297
    Caption = #32534#36753#29992#25143
    Enabled = False
    TabOrder = 2
    object Label3: TLabel
      Left = 16
      Top = 24
      Width = 30
      Height = 12
      Caption = #36134#21495':'
    end
    object Label4: TLabel
      Left = 16
      Top = 48
      Width = 30
      Height = 12
      Caption = #23494#30721':'
    end
    object Label5: TLabel
      Left = 16
      Top = 72
      Width = 42
      Height = 12
      Caption = #29992#25143'QQ:'
    end
    object Label6: TLabel
      Left = 16
      Top = 192
      Width = 54
      Height = 12
      Caption = #27880#20876#26085#26399':'
    end
    object Label7: TLabel
      Left = 16
      Top = 216
      Width = 54
      Height = 12
      Caption = #21040#26399#26102#38388':'
    end
    object Label8: TLabel
      Left = 16
      Top = 168
      Width = 42
      Height = 12
      Caption = 'IP'#25968#37327':'
    end
    object Label9: TLabel
      Left = 16
      Top = 96
      Width = 42
      Height = 12
      Caption = #26426#22120#30721':'
    end
    object Label10: TLabel
      Left = 16
      Top = 120
      Width = 42
      Height = 12
      Caption = 'IP'#22320#22336':'
    end
    object Label11: TLabel
      Left = 16
      Top = 240
      Width = 54
      Height = 12
      Caption = #25480#26435#22825#25968':'
    end
    object Label12: TLabel
      Left = 16
      Top = 144
      Width = 30
      Height = 12
      Caption = #26435#38480':'
    end
    object EditUserAccount: TEdit
      Left = 72
      Top = 20
      Width = 169
      Height = 20
      TabOrder = 0
    end
    object EditUserPassword: TEdit
      Left = 72
      Top = 44
      Width = 169
      Height = 20
      TabOrder = 1
    end
    object EditUserQQ: TEdit
      Left = 72
      Top = 68
      Width = 169
      Height = 20
      TabOrder = 2
    end
    object RadioGroupUserMode: TRadioGroup
      Left = 248
      Top = 16
      Width = 97
      Height = 81
      Caption = #27880#20876#31867#22411
      ItemIndex = 0
      Items.Strings = (
        #26085#26399#38480#21046
        'IP'#25968#37327#38480#21046
        #26080#38480#21046)
      TabOrder = 3
      OnClick = RadioGroupUserModeClick
    end
    object DateTimeEditStartDate: TRzDateTimeEdit
      Left = 72
      Top = 188
      Width = 169
      Height = 20
      EditType = etDate
      Enabled = False
      TabOrder = 4
    end
    object DateTimeEditEndDate: TRzDateTimeEdit
      Left = 72
      Top = 212
      Width = 169
      Height = 20
      EditType = etDate
      Enabled = False
      TabOrder = 5
    end
    object EditSerialNumber: TEdit
      Left = 72
      Top = 92
      Width = 169
      Height = 20
      TabOrder = 6
    end
    object RadioGroupBind: TRadioGroup
      Left = 248
      Top = 104
      Width = 97
      Height = 65
      Caption = #32465#23450#31867#22411
      ItemIndex = 0
      Items.Strings = (
        #32465#23450#26426#22120
        #32465#23450'IP')
      TabOrder = 7
      OnClick = RadioGroupBindClick
    end
    object ButtonAdd: TButton
      Left = 16
      Top = 264
      Width = 75
      Height = 25
      Caption = #22686#21152
      TabOrder = 8
      OnClick = ButtonAddClick
    end
    object ButtonDel: TButton
      Left = 96
      Top = 264
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 9
      OnClick = ButtonDelClick
    end
    object ButtonChg: TButton
      Left = 176
      Top = 264
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 10
      OnClick = ButtonAddClick
    end
    object ButtonSearch: TButton
      Left = 256
      Top = 264
      Width = 75
      Height = 25
      Caption = #25628#32034
      TabOrder = 11
      OnClick = ButtonSearchClick
    end
    object EditIPaddr: TEdit
      Left = 72
      Top = 116
      Width = 169
      Height = 20
      Enabled = False
      TabOrder = 12
    end
    object RadioGroupMainVersion: TRadioGroup
      Left = 248
      Top = 180
      Width = 97
      Height = 77
      Caption = #25480#26435#29256#26412
      ItemIndex = 0
      Items.Strings = (
        #20225#19994#29256
        #33521#38596#29256
        #25152#26377#29256#26412)
      TabOrder = 13
    end
    object SpinEditPermission: TSpinEdit
      Left = 72
      Top = 140
      Width = 169
      Height = 21
      MaxValue = 10
      MinValue = 0
      TabOrder = 14
      Value = 5
    end
    object SpinEditMaxIpCount: TSpinEdit
      Left = 72
      Top = 164
      Width = 169
      Height = 21
      MaxValue = 99999
      MinValue = 0
      TabOrder = 15
      Value = 100
    end
    object SpinEditMaxDay: TSpinEdit
      Left = 72
      Top = 236
      Width = 169
      Height = 21
      MaxValue = 99999
      MinValue = 0
      TabOrder = 16
      Value = 30
      OnChange = SpinEditMaxDayChange
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 80
    Top = 32
  end
  object DecodeTimer: TTimer
    Interval = 1
    OnTimer = DecodeTimerTimer
    Left = 112
    Top = 35
  end
end