unit2.dfm

基于delphi的编程实例

object ParamServ: TParamServ
  OldCreateOrder = False
  Left = 296
  Top = 190
  Height = 150
  Width = 215
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from country where area>:low_val and area<:upper_val')
    Left = 56
    Top = 48
    ParamData = <
      item
        DataType = ftFloat
        Name = 'low_val'
        ParamType = ptUnknown
      end
      item
        DataType = ftFloat
        Name = 'upper_val'
        ParamType = ptUnknown
      end>
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Left = 120
    Top = 40
  end
end