server.dfm

网吧管理软件

object Form1: TForm1
  Left = 358
  Top = 289
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsNone
  Caption = #36229#21069#30005#33041'-'#35745#36153#22120#23458#25143#31471
  ClientHeight = 288
  ClientWidth = 496
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnMouseMove = FormMouseMove
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object le1: TLabel
    Left = 136
    Top = 8
    Width = 240
    Height = 40
    Caption = #30005#33041#24050#34987#38145#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -40
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object p1: TPanel
    Left = 104
    Top = 54
    Width = 265
    Height = 169
    BevelInner = bvLowered
    BevelOuter = bvSpace
    BiDiMode = bdLeftToRight
    Color = clMoneyGreen
    ParentBiDiMode = False
    TabOrder = 0
    object p2: TPanel
      Left = 2
      Top = 41
      Width = 261
      Height = 87
      Align = alClient
      BevelInner = bvLowered
      Color = clActiveBorder
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 69
        Width = 81
        Height = 13
        AutoSize = False
        Caption = #31163#20851#26426#36824#21097#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 113
        Top = 67
        Width = 65
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 192
        Top = 69
        Width = 33
        Height = 13
        AutoSize = False
        Caption = #31186#38047
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 72
        Top = 5
        Width = 145
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 72
        Top = 39
        Width = 145
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 1
        OnKeyPress = Edit2KeyPress
      end
      object Panel1: TPanel
        Left = 22
        Top = 5
        Width = 41
        Height = 25
        BevelOuter = bvNone
        Caption = #21345'   '#21495
        Color = clActiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object Panel2: TPanel
        Left = 24
        Top = 38
        Width = 41
        Height = 25
        BevelOuter = bvNone
        Caption = #23494'   '#30721
        Color = clActiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
    end
    object P3: TPanel
      Left = 2
      Top = 128
      Width = 261
      Height = 39
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 1
      object Button4: TButton
        Left = 29
        Top = 8
        Width = 52
        Height = 25
        Caption = #30331#24405
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = Button4Click
        OnEnter = Button4Click
      end
      object Button5: TButton
        Left = 180
        Top = 8
        Width = 57
        Height = 25
        Caption = #20851#26426
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGradientActiveCaption
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 104
        Top = 8
        Width = 53
        Height = 25
        Caption = #31649#29702
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button6Click
      end
    end
    object p4: TPanel
      Left = 2
      Top = 2
      Width = 261
      Height = 39
      Align = alTop
      BevelInner = bvLowered
      Caption = #22914#26080#21345#21495#35831#25214#32593#31649#36141#20080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object LBox1: TListBox
    Left = 8
    Top = 264
    Width = 113
    Height = 17
    ItemHeight = 13
    Items.Strings = (
      #21482#29992#20110#25176#31649#36716#25968#25454)
    TabOrder = 1
    Visible = False
  end
  object SUDP: TNMUDP
    RemotePort = 2222
    LocalPort = 1111
    ReportLevel = 1
    OnDataReceived = SUDPDataReceived
  end
  object NMDayTime1: TNMDayTime
    Port = 13
    TimeOut = 500
    ReportLevel = 0
    Left = 32
  end
  object tccd: TPopupMenu
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    TrackButton = tbLeftButton
    Left = 64
    object N1: TMenuItem
      Caption = #25105#24050#29992#26102
      OnClick = N1Click
    end
    object N9: TMenuItem
      Caption = #21457' '#32473#32593#31649
      OnClick = N9Click
    end
    object N4: TMenuItem
      Caption = '-'
      object TMenuItem
      end
    end
    object N2: TMenuItem
      Caption = #20250#21592#19979#26426
      OnClick = N2Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = #20851'    '#26426
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Caption = #35774'    '#32622
      OnClick = N6Click
    end
    object N3: TMenuItem
      Caption = #36864'    '#20986
      OnClick = N3Click
    end
  end
  object kz: TServerSocket
    Active = True
    Port = 7603
    ServerType = stNonBlocking
    OnClientRead = kzClientRead
    Left = 8
    Top = 40
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 48
    Top = 40
  end
  object Timer2: TTimer
    Interval = 500
    OnTimer = Timer2Timer
    Left = 8
    Top = 80
  end
end