fdeldemoclientmain.dfm

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

object Form2: TForm2
  Left = 255
  Top = 26
  Width = 658
  Height = 582
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 650
    Height = 33
    DataSource = DataSource1
    Align = alTop
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 650
    Height = 180
    Align = alTop
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CNO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CNAME'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BANKNO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PHONE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BDATE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADDRESS'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ACCOUNTNO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CLASS'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 213
    Width = 650
    Height = 9
    Align = alTop
    TabOrder = 2
  end
  object DBNavigator2: TDBNavigator
    Left = 0
    Top = 222
    Width = 650
    Height = 25
    DataSource = DataSource2
    Align = alTop
    TabOrder = 3
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 247
    Width = 650
    Height = 142
    Align = alTop
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 8
    Top = 400
    Width = 137
    Height = 41
    Caption = 'ApplyUpdates'
    TabOrder = 5
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 217
    Top = 393
    Width = 217
    Height = 153
    ItemHeight = 16
    TabOrder = 6
  end
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{69D2B483-6464-11D3-A2BA-0080C8518D0A}'
    ServerName = 'PDeltaDemoServer.DeltaDemoServer'
    Left = 24
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'pdCustomers'
    RemoteServer = DCOMConnection1
    AfterPost = ClientDataSet1AfterPost
    Left = 72
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 112
    Top = 8
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 248
    Top = 280
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 296
    Top = 280
  end
  object ClientDataSet3: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 400
  end
end