demoserver2impl.dfm

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

object DemoServer2: TDemoServer2
  OldCreateOrder = False
  Left = 272
  Top = 220
  Height = 322
  Width = 533
  object QueryCustomer: TQuery
    Active = True
    DatabaseName = 'BCDEMOS'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from customer')
    Left = 56
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = QueryCustomer
    Constraints = True
    Left = 56
    Top = 88
  end
  object QueryOrders: TQuery
    Active = True
    DatabaseName = 'BCDEMOS'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from orders where CustNo=:CustNo')
    Left = 136
    Top = 16
    ParamData = <
      item
        DataType = ftFloat
        Name = 'CustNo'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = QueryCustomer
    Left = 136
    Top = 88
  end
end