serverdbt.dfm

SPServer.rar一个基于TCP/IP监听发送代码

        ModalResult = 2
        TabOrder = 3
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
      end
      object sgr1: TStringGrid
        Left = 5
        Top = 14
        Width = 212
        Height = 97
        ColCount = 2
        Ctl3D = True
        DefaultColWidth = 75
        DefaultRowHeight = 16
        FixedColor = 13353116
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
        ParentCtl3D = False
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 4
        OnKeyDown = sgr1KeyDown
        ColWidths = (
          75
          129)
        RowHeights = (
          16
          16
          16
          16
          16)
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 300
    Width = 713
    Height = 193
    Align = alBottom
    BorderWidth = 2
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 3
      Top = 3
      Width = 379
      Height = 187
      Align = alLeft
      Caption = #26381#21153#20869#23481#23450#20041
      TabOrder = 0
      object Panel4: TPanel
        Left = 2
        Top = 41
        Width = 375
        Height = 144
        Align = alBottom
        BevelOuter = bvNone
        BorderWidth = 2
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 2
          Top = 2
          Width = 180
          Height = 140
          Align = alLeft
          Ctl3D = True
          DataSource = frmServerDB.dsr2
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'SvcTypeID'
              Title.Caption = #31867#22411#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SvcType'
              Title.Caption = #26381#21153#31867#22411
              Visible = True
            end>
        end
        object DBMemo1: TDBMemo
          Left = 185
          Top = 2
          Width = 188
          Height = 140
          Align = alRight
          Ctl3D = True
          DataField = 'SvcContent'
          DataSource = frmServerDB.dsr2
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          ScrollBars = ssVertical
          TabOrder = 1
        end
      end
      object DBNavigator2: TDBNavigator
        Left = 3
        Top = 14
        Width = 370
        Height = 25
        DataSource = frmServerDB.dsr2
        Hints.Strings = (
          #35760#24405#22836
          #19978#19968#26465#35760#24405
          #19979#19968#26465#35760#24405
          #35760#24405#26411
          #25554#20837#35760#24405
          #21024#38500#35760#24405
          #32534#36753#35760#24405
          #25552#20132#35760#24405
          #21462#28040#32534#36753
          #21047#26032#25968#25454)
        ParentShowHint = False
        ConfirmDelete = False
        ShowHint = True
        TabOrder = 1
        BeforeAction = DBNavigator2BeforeAction
      end
    end
    object GroupBox3: TGroupBox
      Left = 383
      Top = 3
      Width = 327
      Height = 187
      Align = alRight
      Caption = #32479#35745#20449#24687
      TabOrder = 1
      object SimplePie1: TSimplePie
        Left = 174
        Top = 64
        Width = 145
        Height = 105
        Position = 0
        Basecolor = clBlue
        Usedcolor = clFuchsia
      end
      object Shape1: TShape
        Left = 228
        Top = 16
        Width = 22
        Height = 11
        Brush.Color = clFuchsia
      end
      object Shape2: TShape
        Left = 228
        Top = 32
        Width = 22
        Height = 11
        Brush.Color = clBlue
      end
      object Label1: TLabel
        Left = 257
        Top = 16
        Width = 48
        Height = 12
        Caption = #27880#20876#29992#25143
      end
      object Label2: TLabel
        Left = 257
        Top = 32
        Width = 48
        Height = 12
        Caption = #26597#35810#29992#25143
      end
      object Label3: TLabel
        Left = 21
        Top = 25
        Width = 84
        Height = 12
        Caption = #29992#25143#27880#20876#24635#37327#65306
      end
      object Label4: TLabel
        Left = 21
        Top = 49
        Width = 84
        Height = 12
        Caption = #29992#25143#26597#35810#24635#37327#65306
      end
      object Label5: TLabel
        Left = 9
        Top = 73
        Width = 96
        Height = 12
        Caption = 'SP'#21457#36865#20449#24687#24635#37327#65306
      end
      object Label7: TLabel
        Left = 9
        Top = 122
        Width = 96
        Height = 12
        Caption = #29992#25143#26597#35810#24212#25910#39069#65306
      end
      object Label8: TLabel
        Left = 9
        Top = 98
        Width = 96
        Height = 12
        Caption = #29992#25143#27880#20876#24212#25910#39069#65306
      end
      object lRegCount: TLabel
        Left = 104
        Top = 23
        Width = 7
        Height = 15
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lCustCxCount: TLabel
        Left = 104
        Top = 47
        Width = 7
        Height = 15
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lSNDRecord: TLabel
        Left = 104
        Top = 71
        Width = 7
        Height = 15
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 104
        Top = 119
        Width = 7
        Height = 15
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 104
        Top = 95
        Width = 7
        Height = 15
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
  end
end