clientfrm.dfm

《delphi深度编程及其项目开发》

object frmClient: TfrmClient
  Left = 192
  Top = 107
  Width = 446
  Height = 355
  Caption = #20855#26377#23481#38169#33021#21147#30340#23458#25143#31471#24212#29992#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 258
    Width = 438
    Height = 70
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 2
      Top = 11
      Width = 84
      Height = 12
      Caption = #24212#29992#26381#21153#22120#21517#65306
    end
    object Label2: TLabel
      Left = 2
      Top = 43
      Width = 96
      Height = 12
      Caption = #24212#29992#26381#21153#22120#26102#38388#65306
    end
    object edtAppServerName: TEdit
      Left = 95
      Top = 8
      Width = 199
      Height = 20
      TabOrder = 0
    end
    object edtAppServerTime: TEdit
      Left = 95
      Top = 39
      Width = 199
      Height = 20
      TabOrder = 1
    end
    object btnGetServerInfo: TBitBtn
      Left = 297
      Top = 6
      Width = 134
      Height = 25
      Caption = #24471#21040#24212#29992#26381#21153#22120#20449#24687
      TabOrder = 2
      OnClick = btnGetServerInfoClick
    end
    object btnClear: TBitBtn
      Left = 297
      Top = 36
      Width = 134
      Height = 25
      Caption = #28165#31354
      TabOrder = 3
      OnClick = btnClearClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 438
    Height = 258
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 26
      Width = 436
      Height = 231
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 436
      Height = 25
      DataSource = DataSource1
      Align = alTop
      TabOrder = 1
    end
  end
  object SocketConnection1: TSocketConnection
    Connected = True
    ServerGUID = '{3E1FA103-9C10-4C10-A0DB-1D725802BAE2}'
    ServerName = 'Server.CorrectServer'
    ObjectBroker = SimpleObjectBroker1
    Left = 24
    Top = 56
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = SocketConnection1
    Left = 88
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 152
    Top = 56
  end
  object SimpleObjectBroker1: TSimpleObjectBroker
    Servers = <
      item
        ComputerName = 'wbcp'
      end
      item
        ComputerName = 'Computer1'
      end
      item
        ComputerName = 'Computer2'
      end>
    LoadBalanced = True
    Left = 208
    Top = 56
  end
end