fmddemoclientmain.dfm

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

object Form2: TForm2
  Left = 112
  Top = 89
  Width = 648
  Height = 464
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 120
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 0
    Top = 43
    Width = 640
    Height = 156
    Align = alTop
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 235
    Width = 640
    Height = 194
    Align = alTop
    DataSource = DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'title'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'type'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'advance'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'royalty'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ytd_sales'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'notes'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pubdate'
        Visible = True
      end>
  end
  object DBNavigator2: TDBNavigator
    Left = 0
    Top = 199
    Width = 640
    Height = 36
    DataSource = DataSource2
    Align = alTop
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 640
    Height = 43
    Align = alTop
    BevelInner = bvRaised
    TabOrder = 3
    object DBNavigator1: TDBNavigator
      Left = 3
      Top = 4
      Width = 440
      Height = 34
      DataSource = DataSource1
      TabOrder = 0
    end
    object btnApplyUpdates: TButton
      Left = 444
      Top = 4
      Width = 190
      Height = 34
      Caption = 'ApplyUpdates'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnApplyUpdatesClick
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 72
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    PacketRecords = 5
    Params = <>
    ProviderName = 'dspMD'
    RemoteServer = SocketConnection1
    Left = 40
    object ClientDataSet1pub_name: TStringField
      DisplayWidth = 41
      FieldName = 'pub_name'
      Size = 40
    end
    object ClientDataSet1city: TStringField
      DisplayWidth = 24
      FieldName = 'city'
    end
    object ClientDataSet1state: TStringField
      DisplayWidth = 5
      FieldName = 'state'
      FixedChar = True
      Size = 2
    end
    object ClientDataSet1country: TStringField
      DisplayWidth = 36
      FieldName = 'country'
      Size = 30
    end
    object ClientDataSet1adsDetail: TDataSetField
      DisplayWidth = 12
      FieldName = 'adsDetail'
      Visible = False
      IncludeObjectField = False
    end
  end
  object SocketConnection1: TSocketConnection
    Connected = True
    ServerGUID = '{A2D8CE24-5386-11D3-8FB7-0080C88AAA0D}'
    ServerName = 'PMDDemo.mdRemoteServer'
    Host = 'Lwdomain'
    Left = 8
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 280
    Top = 288
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    DataSetField = ClientDataSet1adsDetail
    Params = <>
    Left = 248
    Top = 288
    object ClientDataSet2title: TStringField
      FieldName = 'title'
      Size = 80
    end
    object ClientDataSet2type: TStringField
      FieldName = 'type'
      FixedChar = True
      Size = 12
    end
    object ClientDataSet2price: TBCDField
      FieldName = 'price'
      Precision = 19
    end
    object ClientDataSet2advance: TBCDField
      FieldName = 'advance'
      Precision = 19
    end
    object ClientDataSet2royalty: TIntegerField
      FieldName = 'royalty'
    end
    object ClientDataSet2ytd_sales: TIntegerField
      FieldName = 'ytd_sales'
    end
    object ClientDataSet2notes: TStringField
      FieldName = 'notes'
      Size = 200
    end
    object ClientDataSet2pubdate: TDateTimeField
      FieldName = 'pubdate'
    end
  end
  object cdsGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGeneral'
    RemoteServer = SocketConnection1
    Left = 408
    Top = 328
  end
end