myappservimpl.dfm

C++Builder高级应用开发指南随书源码

object MyAppServ: TMyAppServ
  OldCreateOrder = False
  OnCreate = CRemoteDataModuleCreate
  OnDestroy = CRemoteDataModuleDestroy
  Left = 243
  Top = 411
  Height = 241
  Width = 558
  object tbAnimal: TTable
    Active = True
    BeforeOpen = tbAnimalBeforeOpen
    DatabaseName = 'BCDEMOS'
    TableName = 'animals.dbf'
    Left = 24
    Top = 32
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = tbAnimal
    Constraints = True
    OnDataRequest = DataSetProvider1DataRequest
    Left = 56
    Top = 32
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = qrCustomer
    Constraints = True
    Left = 56
    Top = 80
  end
  object qrCustomer: TQuery
    DatabaseName = 'BCDEMOS'
    SQL.Strings = (
      'select * from customer'
      'where'
      'Country=:Country')
    Left = 24
    Top = 80
    ParamData = <
      item
        DataType = ftString
        Name = 'Country'
        ParamType = ptUnknown
        Value = 'US'
      end>
  end
  object tbItems: TTable
    DatabaseName = 'BCDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = dsOrder
    TableName = 'items.db'
    Left = 176
    Top = 88
  end
  object tbOrders: TTable
    DatabaseName = 'BCDEMOS'
    TableName = 'orders.db'
    Left = 176
    Top = 32
  end
  object dsOrder: TDataSource
    DataSet = tbOrders
    Left = 216
    Top = 32
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = tbOrders
    Constraints = True
    Left = 256
    Top = 32
  end
end