demoserver3impl.dfm

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

object DemoServer3: TDemoServer3
  OldCreateOrder = False
  Left = 395
  Top = 140
  Height = 304
  Width = 474
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 16
    Top = 16
  end
  object QueryCustomer: TQuery
    Active = True
    DatabaseName = 'BCDEMOS'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from customer'
      '')
    Left = 88
    Top = 16
  end
  object DataSetProviderCustomer: TDataSetProvider
    DataSet = QueryCustomer
    Constraints = True
    Left = 88
    Top = 80
  end
  object QueryOrders: TQuery
    DatabaseName = 'BCDEMOS'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from orders where CustNo=:CustNo')
    Left = 160
    Top = 16
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CustNo'
        ParamType = ptInput
      end>
  end
  object DataSetProviderOrders: TDataSetProvider
    DataSet = QueryOrders
    Constraints = True
    Left = 88
    Top = 144
  end
end