untservermain.dfm

车辆管理系统

inherited frmServerMain: TfrmServerMain
  Left = 391
  Top = 260
  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
  BorderStyle = bsSizeable
  Caption = 'Middle Level Services'
  Menu = ServerMMenu
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object PnlButtom: TPanel
    Left = 0
    Top = 358
    Width = 688
    Height = 68
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 507
      Top = 5
      Width = 99
      Height = 15
      Caption = 'Online User Total:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 47
      Top = 5
      Width = 67
      Height = 15
      Caption = 'User Name:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object LblUsername: TLabel
      Left = 123
      Top = 5
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 14
      Top = 50
      Width = 100
      Height = 15
      Caption = 'Operate Contents:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lbloperatestatus: TLabel
      Left = 123
      Top = 35
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 9
      Top = 20
      Width = 105
      Height = 15
      Caption = 'Table(Form)Name:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lbltablename: TLabel
      Left = 123
      Top = 20
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 29
      Top = 35
      Width = 85
      Height = 15
      Caption = 'Operate Status:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lblopeartecontents: TLabel
      Left = 123
      Top = 50
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Lctotal: TLabel
      Left = 611
      Top = 5
      Width = 7
      Height = 16
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 358
    Align = alClient
    Caption = 'Client Info'
    TabOrder = 1
    object ClientGrid: TDBGrid
      Left = 2
      Top = 18
      Width = 684
      Height = 338
      Align = alClient
      Ctl3D = True
      DataSource = DsStatus
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'iip'
          Title.Caption = 'IP Address'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'iuser'
          Title.Caption = 'UserName'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'iport'
          Title.Caption = 'Port'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'iintime'
          Title.Caption = 'LoginTime'
          Width = 200
          Visible = True
        end>
    end
  end
  object ServerMMenu: TMainMenu
    Left = 112
    Top = 168
    object System1: TMenuItem
      Caption = 'System'
      object acLoginIn1: TMenuItem
        Action = acLoginIn
      end
      object LoginOut1: TMenuItem
        Action = acLoginOut
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object DisSelect1: TMenuItem
        Action = acDisSelect
      end
      object DisAll1: TMenuItem
        Action = acDisAll
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object LinkSetting1: TMenuItem
        Action = acLinkSetting
      end
    end
    object Message1: TMenuItem
      Caption = 'Message'
      object SendMessage1: TMenuItem
        Action = acSendMessage
      end
      object ReceiptMessage1: TMenuItem
        Action = acReceiptMessage
      end
    end
    object Security1: TMenuItem
      Caption = 'Security'
      object ChangePwd1: TMenuItem
        Action = acChangePwd
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object acTableField1: TMenuItem
        Action = acTableField
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = acExit
      end
    end
  end
  object ServerAList: TActionList
    Left = 192
    Top = 168
    object acLoginIn: TAction
      Category = 'System'
      Caption = 'LoginIn'
      OnExecute = acLoginInExecute
    end
    object acLoginOut: TAction
      Category = 'System'
      Caption = 'LoginOut'
      OnExecute = acLoginOutExecute
    end
    object acDisSelect: TAction
      Category = 'System'
      Caption = 'DisSelect'
      OnExecute = acDisSelectExecute
    end
    object acDisAll: TAction
      Category = 'System'
      Caption = 'DisAll'
      OnExecute = acDisAllExecute
    end
    object acExit: TAction
      Category = 'Security'
      Caption = 'Exit'
      OnExecute = acExitExecute
    end
    object acChangePwd: TAction
      Category = 'Security'
      Caption = 'ChangePwd'
      OnExecute = acChangePwdExecute
    end
    object acLinkSetting: TAction
      Category = 'System'
      Caption = 'LinkSetting'
      OnExecute = acLinkSettingExecute
    end
    object acSendMessage: TAction
      Category = 'Message'
      Caption = 'SendMessage'
      OnExecute = acSendMessageExecute
    end
    object acReceiptMessage: TAction
      Category = 'Message'
      Caption = 'ReceiptMessage'
      OnExecute = acReceiptMessageExecute
    end
    object acTableField: TAction
      Category = 'Security'
      Caption = 'TableField'
      OnExecute = acTableFieldExecute
    end
  end
  object SSKServer: TServerSocket
    Active = False
    Port = 1980
    ServerType = stNonBlocking
    OnClientRead = SSKServerClientRead
    OnClientError = SSKServerClientError
    Left = 272
    Top = 168
  end
  object DsStatus: TDataSource
    DataSet = DmServer.Qstatus
    Left = 352
    Top = 168
  end
end