mdcltdm.dfm

多层数据库

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 408
  Top = 109
  Height = 150
  Width = 215
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{3351310E-004C-438F-8DA8-374160D1601C}'
    ServerName = 'Mdserv.midasserv'
    ComputerName = 'localhost'
    Left = 16
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    BeforeGetRecords = ClientDataSet1BeforeGetRecords
    Left = 80
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 136
    Top = 8
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    RemoteServer = DCOMConnection1
    Left = 80
    Top = 64
    object ClientDataSet2Name: TStringField
      FieldName = 'Name'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnGetText = ClientDataSet2NameGetText
      Size = 24
    end
    object ClientDataSet2Capital: TStringField
      FieldName = 'Capital'
      Size = 24
    end
    object ClientDataSet2Continent: TStringField
      FieldName = 'Continent'
      Size = 24
    end
    object ClientDataSet2Area: TFloatField
      FieldName = 'Area'
    end
    object ClientDataSet2Population: TFloatField
      FieldName = 'Population'
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 136
    Top = 64
  end
end