⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sp_sverset.dfm

📁 SPServer.rar一个基于TCP/IP监听发送代码
💻 DFM
字号:
object frm_Set: Tfrm_Set
  Left = 203
  Top = 99
  ActiveControl = sReSend
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = #31995#32479#21442#25968#35774#32622
  ClientHeight = 345
  ClientWidth = 534
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 3
    Top = 3
    Width = 318
    Height = 182
    Caption = #32593#32476#35774#32622
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 52
      Width = 84
      Height = 12
      Caption = #25509#25910#21709#24212#26102#38388#65306
    end
    object Label2: TLabel
      Left = 41
      Top = 120
      Width = 60
      Height = 12
      Caption = #20449#24687#24310#26102#65306
    end
    object Label3: TLabel
      Left = 168
      Top = 22
      Width = 84
      Height = 12
      Caption = #20449#24687#25104#27963#26102#38388#65306
    end
    object Label4: TLabel
      Left = 168
      Top = 52
      Width = 84
      Height = 12
      Caption = #20449#24687#25509#25910#25968#37327#65306
    end
    object Label5: TLabel
      Left = 17
      Top = 87
      Width = 84
      Height = 12
      Caption = #21457#36865#21709#24212#26102#38388#65306
    end
    object Label8: TLabel
      Left = 168
      Top = 87
      Width = 84
      Height = 12
      Caption = #20449#24687#21457#36865#25968#37327#65306
    end
    object Label6: TLabel
      Left = 168
      Top = 120
      Width = 84
      Height = 12
      Caption = #20449#24687#37325#21457#27425#25968#65306
    end
    object Label9: TLabel
      Left = 17
      Top = 153
      Width = 84
      Height = 12
      Caption = #25968#25454#36816#34892#21608#26399#65306
    end
    object lHostPort: TLabeledEdit
      Left = 101
      Top = 18
      Width = 48
      Height = 20
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.Caption = #20027#26426#31471#21475#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 0
    end
    object sAnswerTime: TSpinEdit
      Left = 101
      Top = 48
      Width = 48
      Height = 21
      Increment = 500
      MaxValue = 10000
      MinValue = 500
      TabOrder = 1
      Value = 1000
    end
    object sInterval: TSpinEdit
      Left = 101
      Top = 116
      Width = 48
      Height = 21
      MaxValue = 20
      MinValue = 0
      TabOrder = 2
      Value = 0
    end
    object sExpireTime: TSpinEdit
      Left = 252
      Top = 18
      Width = 48
      Height = 21
      MaxValue = 0
      MinValue = 0
      TabOrder = 3
      Value = 1440
    end
    object sREC_UPT: TSpinEdit
      Left = 252
      Top = 48
      Width = 48
      Height = 21
      MaxValue = 50
      MinValue = 1
      TabOrder = 4
      Value = 10
    end
    object sSenAnswTime: TSpinEdit
      Left = 101
      Top = 82
      Width = 48
      Height = 21
      Increment = 500
      MaxValue = 10000
      MinValue = 500
      TabOrder = 5
      Value = 1000
    end
    object sSND_UPT: TSpinEdit
      Left = 252
      Top = 82
      Width = 48
      Height = 21
      MaxValue = 21
      MinValue = 1
      TabOrder = 6
      Value = 10
    end
    object sReSend: TSpinEdit
      Left = 252
      Top = 116
      Width = 48
      Height = 21
      MaxValue = 10
      MinValue = 0
      TabOrder = 7
      Value = 0
    end
    object spTimeCycle: TSpinEdit
      Left = 101
      Top = 149
      Width = 48
      Height = 21
      Increment = 500
      MaxValue = 10000
      MinValue = 1000
      TabOrder = 8
      Value = 3000
    end
  end
  object GroupBox2: TGroupBox
    Left = 326
    Top = 3
    Width = 206
    Height = 295
    Caption = #31649#29702#21592#35774#32622
    TabOrder = 1
    object cSecurity: TCheckBox
      Left = 8
      Top = 20
      Width = 97
      Height = 17
      Caption = #21551#29992#23433#20840#26426#21046
      TabOrder = 0
    end
    object eMangPhone: TLabeledEdit
      Left = 89
      Top = 139
      Width = 89
      Height = 20
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.Caption = #31649#29702#21592#25163#26426#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 1
    end
    object cWarning: TCheckBox
      Left = 8
      Top = 46
      Width = 97
      Height = 17
      Caption = #21551#29992#36935#35686#36890#30693
      TabOrder = 2
    end
    object GroupBox4: TGroupBox
      Left = 8
      Top = 196
      Width = 191
      Height = 91
      Enabled = False
      TabOrder = 3
      object lNPassWord: TLabeledEdit
        Left = 85
        Top = 23
        Width = 89
        Height = 20
        Color = clBtnFace
        EditLabel.Width = 72
        EditLabel.Height = 12
        EditLabel.Caption = #26032#30340#35748#35777#30721#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        LabelSpacing = 3
        MaxLength = 15
        PasswordChar = '*'
        TabOrder = 0
      end
      object lCPassWord: TLabeledEdit
        Left = 85
        Top = 55
        Width = 89
        Height = 20
        Color = clBtnFace
        EditLabel.Width = 72
        EditLabel.Height = 12
        EditLabel.Caption = #30830#23450#35748#35777#30721#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        LabelSpacing = 3
        MaxLength = 15
        PasswordChar = '*'
        TabOrder = 1
      end
    end
    object CheckBox1: TCheckBox
      Left = 13
      Top = 192
      Width = 105
      Height = 17
      Caption = #20462#25913#30331#38470#35748#35777#30721
      TabOrder = 4
      OnClick = CheckBox1Click
    end
    object lPassWord: TLabeledEdit
      Left = 89
      Top = 167
      Width = 89
      Height = 20
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.Caption = #26032#30340#35748#35777#30721#65306
      EditLabel.Color = clBtnFace
      EditLabel.ParentColor = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      MaxLength = 15
      PasswordChar = '*'
      TabOrder = 5
    end
    object cFailLog: TCheckBox
      Left = 104
      Top = 20
      Width = 97
      Height = 17
      Caption = #22833#36133#20449#24687#26085#24535
      TabOrder = 6
    end
    object cReSend: TCheckBox
      Left = 104
      Top = 46
      Width = 97
      Height = 17
      Caption = #21551#29992#37325#21457#26426#21046
      TabOrder = 7
    end
    object Panel2: TPanel
      Left = 8
      Top = 81
      Width = 192
      Height = 49
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 8
      object Label10: TLabel
        Left = 6
        Top = 21
        Width = 36
        Height = 12
        Caption = #26085#26399#65306
      end
      object Label11: TLabel
        Left = 97
        Top = 21
        Width = 36
        Height = 12
        Caption = #26102#38388#65306
      end
      object pkTime: TDateTimePicker
        Left = 131
        Top = 17
        Width = 53
        Height = 20
        CalAlignment = dtaLeft
        Date = 37847.9583333333
        Format = 'H:mm'
        Time = 37847.9583333333
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkTime
        ParseInput = False
        TabOrder = 0
      end
      object spDate: TSpinEdit
        Left = 40
        Top = 17
        Width = 46
        Height = 21
        Enabled = False
        MaxValue = 31
        MinValue = 1
        TabOrder = 1
        Value = 28
      end
    end
    object Chk2: TCheckBox
      Left = 8
      Top = 73
      Width = 128
      Height = 17
      Caption = #35774#23450#21253#26376#20449#24687#25910#36153#26399
      TabOrder = 9
      OnClick = Chk2Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 346
    Top = 307
    Width = 75
    Height = 25
    Caption = #24212#29992'[&A]'
    Default = True
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 434
    Top = 307
    Width = 75
    Height = 25
    Caption = #21462#28040'[&C]'
    TabOrder = 3
    Kind = bkCancel
  end
  object Panel1: TPanel
    Left = 3
    Top = 190
    Width = 318
    Height = 108
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object Label7: TLabel
      Left = 183
      Top = 19
      Width = 72
      Height = 12
      Caption = 'SP'#26381#21153#20195#30721#65306
    end
    object GroupBox5: TGroupBox
      Left = 7
      Top = 6
      Width = 164
      Height = 46
      Caption = #35302#21457#22120#21551#21160#26102#38388
      TabOrder = 0
      object Label12: TLabel
        Left = 68
        Top = 22
        Width = 36
        Height = 12
        Caption = #26102#38388#65306
      end
      object eSvcType: TComboBox
        Left = 8
        Top = 18
        Width = 57
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 12
        TabOrder = 0
        Text = 'FREE'
        Items.Strings = (
          'FREE'
          'TQDZ')
      end
      object pkTranTime: TDateTimePicker
        Left = 104
        Top = 18
        Width = 54
        Height = 20
        CalAlignment = dtaLeft
        Date = 37847.9583333333
        Format = 'H:mm'
        Time = 37847.9583333333
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkTime
        ParseInput = False
        TabOrder = 1
      end
    end
    object rChargeNO: TRadioGroup
      Left = 7
      Top = 57
      Width = 164
      Height = 44
      BiDiMode = bdLeftToRight
      Caption = #20449#24687#22238#22797#20184#36153#26041#24335
      Columns = 2
      Ctl3D = True
      ItemIndex = 0
      Items.Strings = (
        'SP'#20184#36153
        #34987#21483#20184#36153'  ')
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 1
    end
    object eSPSvcType: TEdit
      Left = 255
      Top = 15
      Width = 51
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 2
      Text = 'FREE'
    end
    object eSPNumber: TLabeledEdit
      Left = 255
      Top = 48
      Width = 51
      Height = 20
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = 'SP'#23376#21495#30721#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 3
      Text = '777'
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -