ipchgfrm.dfm

为了工作安全,大部分单位的计算机都进行了多部门多网段的方式进行划分处理,而有些人员需要在多网段间自由切换,为次本人编制该程序,方便公司人员的多网段转换的需要.

      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BtSaveIp: TSpeedButton
      Left = 250
      Top = 134
      Width = 89
      Height = 27
      Caption = 'IP '#20445#23384
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777000000000000077700007770
        4407447770440777000077704407447770440777000077704407447770440777
        0000777044477777744407770000777044444444444407770000777044000000
        004407770000777040FFFFFFFF0407770000777040FFFFFFFF04077700007770
        40F888888F0407770000777040FFFFFFFF0407770000777070F888888F000777
        0000777040FFFFFFFF0407770000777000000000000007770000777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
      ParentFont = False
      OnClick = BtSaveIpClick
    end
    object BtChgIP: TSpeedButton
      Left = 250
      Top = 166
      Width = 89
      Height = 27
      Caption = 'IP '#21464#26356
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000C40E0000C40E00001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDD888888DDDDD0000DDDDDD0000000888DDDD0000DDDD
        D0BBBBB030888DDD0000DDDDD0BBBBB030888DDD0000DDDD0BBBBB0333088DDD
        0000DDDD0BBBBB0333088DDD0000DDDD0000000333088DDD0000DDDDDDDD8033
        33088DDD0000DDDDDDD0003333088DDD0000DDDDDD0BB03333088DDD0000DDDD
        D0BBBB0333088DDD0000DDDD0BBBBBB033088DDD0000DDD0BBBBBBBB03088DDD
        0000DDD000BBBB0003088DDD0000DDDDD0BBBB033308DDDD0000DDDDDD0BBBB0
        308DDDDD0000DDDDDD0BBBB030DDDDDD0000DDDDDDD000000DDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentFont = False
      OnClick = BtChgIPClick
    end
    object BtExit: TSpeedButton
      Left = 250
      Top = 198
      Width = 89
      Height = 27
      Caption = ' '#36864' '#20986
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        0400000000007800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
        FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
        0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
        4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
        F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
      ParentFont = False
      OnClick = BtExitClick
    end
    object IPEdit5: TIPEdit
      Left = 90
      Top = 196
      Width = 125
      Height = 21
      Cursor = crIBeam
      IPString = '0.0.0.0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnChange = IPEdit1Change
    end
    object IPEdit4: TIPEdit
      Left = 90
      Top = 162
      Width = 125
      Height = 21
      Cursor = crIBeam
      IPString = '0.0.0.0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnChange = IPEdit1Change
    end
    object IPEdit3: TIPEdit
      Left = 90
      Top = 128
      Width = 125
      Height = 21
      Cursor = crIBeam
      IPString = '0.0.0.0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnChange = IPEdit1Change
    end
    object IPEdit2: TIPEdit
      Left = 90
      Top = 94
      Width = 125
      Height = 21
      Cursor = crIBeam
      IPString = '0.0.0.0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnChange = IPEdit1Change
    end
    object IPEdit1: TIPEdit
      Left = 90
      Top = 60
      Width = 125
      Height = 21
      Cursor = crIBeam
      IPString = '0.0.0.0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnChange = IPEdit1Change
    end
    object Edit1: TEdit
      Left = 90
      Top = 26
      Width = 125
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = #26412#22320#36830#25509
    end
    object RadioGroup1: TRadioGroup
      Left = 231
      Top = 20
      Width = 125
      Height = 96
      Caption = #22320#22336#21517#31216
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        'KF_Pc'
        'ZB_Pc')
      ParentFont = False
      TabOrder = 6
      OnClick = RadioGroup1Click
    end
    object Panel1: TPanel
      Left = 50
      Top = 58
      Width = 273
      Height = 169
      TabOrder = 7
      Visible = False
      object Bevel1: TBevel
        Left = 8
        Top = 8
        Width = 257
        Height = 153
      end
      object SpeedButton1: TSpeedButton
        Left = 200
        Top = 24
        Width = 57
        Height = 49
        Caption = #35774#23450#30830#23450
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          777777776D7077777777777777777777500077777777887777777777A6007777
          777CC887777777777470777777C22C8877777777504177777A2222C887777777
          A6007777A222222C88777777A6007777A222A222C887777765347777A22C8A22
          2C877777342E7777A22C87A22C88777700F077777A2C777A22C887771D777777
          77AA7777A22C88776D707777777777777A22C887500077777777777777A22C87
          9700777777777777777A2C8774767777777777777777AC774945777777777777
          7777777700F0777777777777777777772C7777777777777777777777626D7777
          7777777777777777424D}
        Layout = blGlyphTop
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 200
        Top = 96
        Width = 57
        Height = 48
        Caption = #35774#23450#21462#28040
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000