flargedatasetclientmain.dfm

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

object Form2: TForm2
  Left = 355
  Top = 165
  Width = 696
  Height = 248
  Caption = 'Form2'
  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 = 81
    Width = 688
    Height = 25
    DataSource = DataSource1
    Align = alTop
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 81
    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 btnImproved: TButton
      Left = 320
      Top = 8
      Width = 89
      Height = 33
      Caption = 'btnImproved'
      TabOrder = 4
      OnClick = btnImprovedClick
    end
    object btnQuery: TButton
      Left = 224
      Top = 40
      Width = 97
      Height = 33
      Caption = 'Query'
      TabOrder = 5
      OnClick = btnQueryClick
    end
    object btnGeneral: TButton
      Left = 320
      Top = 40
      Width = 89
      Height = 33
      Caption = 'General'
      TabOrder = 6
      OnClick = btnGeneralClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 106
    Width = 688
    Height = 111
    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 = <>
    PacketRecords = 10
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = SocketConnection1
    Left = 48
    Top = 8
  end
  object SocketConnection1: TSocketConnection
    Connected = True
    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 ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGeneral'
    RemoteServer = SocketConnection1
    Left = 384
    Top = 144
  end
  object cdsTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 464
    Top = 144
  end
  object ClientDataSet3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGeneral'
    RemoteServer = SocketConnection1
    Left = 512
    Top = 144
  end
end