Delphi_7.0数据库开发源代码。有内容十一章节

				object Form1: TForm1
				  Left = 397
				  Top = 182
				  Width = 212
				  Height = 288
				  Caption = 'Client'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  OnCreate = FormCreate
				  DesignSize = (
				    204
				    261)
				  PixelsPerInch = 96
				  TextHeight = 13
				  object DBGrid1: TDBGrid
				    Left = 8
				    Top = 64
				    Width = 190
				    Height = 188
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    DataSource = DataSource1
				    TabOrder = 0
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -11
				    TitleFont.Name = 'MS Sans Serif'
				    TitleFont.Style = []
				  end
				  object Button1: TButton
				    Left = 104
				    Top = 32
				    Width = 81
				    Height = 25
				    Action = Action2
				    TabOrder = 1
				  end
				  object CheckBox1: TCheckBox
				    Left = 8
				    Top = 40
				    Width = 81
				    Height = 17
				    Action = Action1
				    TabOrder = 2
				  end
				  object DCOMConnection1: TDCOMConnection
				    Connected = True
				    ServerGUID = '{A1695C1C-F724-11D1-AABE-00C04FA35CFA}'
				    ServerName = 'Server.BriefCaseDemo'
				  end
				  object ClientDataSet1: TClientDataSet
				    Aggregates = 
				    FileName = 'N:\'#20889#20070'\delphi7\'#25968#25454#24211'\sample\sample17-2\country.cds'
				    Params = 
				    ProviderName = 'DataSetProvider1'
				    RemoteServer = DCOMConnection1
				    OnReconcileError = ClientDataSet1ReconcileError
				    Left = 32
				  end
				  object DataSource1: TDataSource
				    DataSet = ClientDataSet1
				    Left = 64
				  end
				  object ActionList1: TActionList
				    Left = 96
				    object Action1: TAction
				      Caption = 'Connected'
				      OnExecute = Action1Execute
				      OnUpdate = Action1Update
				    end
				    object Action2: TAction
				      Caption = '&Apply Updates'
				      OnExecute = Action2Execute
				      OnUpdate = Action2Update
				    end
				  end
				end