x11.dfm

Delphi6分布式开发例程12 )

object Midas03Srv: TMidas03Srv
  OldCreateOrder = False
  Left = 339
  Top = 204
  Height = 150
  Width = 215
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from country where area>:low_val and area<:upper_val')
    Left = 24
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'low_val'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'upper_val'
        ParamType = ptUnknown
      end>
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Left = 96
    Top = 16
  end
end