flargedatasetclient2main.dfm

就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》

object Form3: TForm3
  Left = 192
  Top = 201
  Width = 701
  Height = 247
  Caption = 'Form3'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 49
    Width = 693
    Height = 25
    DataSource = DataSource1
    Align = alTop
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 693
    Height = 49
    Align = alTop
    BevelInner = bvRaised
    TabOrder = 1
    object edtSearchField: TEdit
      Left = 16
      Top = 8
      Width = 201
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object edtRecNo: TEdit
      Left = 432
      Top = 8
      Width = 121
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object edtTime: TEdit
      Left = 560
      Top = 8
      Width = 121
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object btnLocate: TButton
      Left = 224
      Top = 8
      Width = 97
      Height = 33
      Caption = 'btnLocate'
      TabOrder = 3
      OnClick = btnLocateClick
    end
    object btnMore: TButton
      Left = 320
      Top = 8
      Width = 97
      Height = 33
      Caption = 'More...'
      TabOrder = 4
      OnClick = btnMoreClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 74
    Width = 693
    Height = 135
    Align = alTop
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 10
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = SocketConnection1
    BeforeGetRecords = ClientDataSet1BeforeGetRecords
    AfterGetRecords = ClientDataSet1AfterGetRecords
    Left = 48
    Top = 8
  end
  object SocketConnection1: TSocketConnection
    ServerGUID = '{A2D8CE29-5386-11D3-8FB7-0080C88AAA0D}'
    ServerName = 'PLargeDataSetDemoServer.ldsDemoServer'
    Host = 'Acer'
    Left = 8
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 88
    Top = 8
  end
  object cdsGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGeneral'
    RemoteServer = SocketConnection1
    Left = 440
    Top = 144
  end
  object cdsTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 535
    Top = 144
  end
end