object DM1: TDM1
  Left = 216
  Top = 102
  Height = 223
  Width = 451
  object CustomerSource: TDataSource
    DataSet = QueryCust
    Left = 111
    Top = 9
  end
  object OrdersSource: TDataSource
    DataSet = QueryOrder
    Left = 112
    Top = 112
  end
  object SQLCountry: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'Select distinct country'
      'From CUSTOMER Order by 1')
    Left = 8
    Top = 56
  end
  object CountrySource: TDataSource
    DataSet = SQLCountry
    Left = 112
    Top = 61
  end
  object QueryCust: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    Params.Data = {
      0100030007636F756E747279000102003000000007636F756E74727900010200
      3000000007636F756E7472790001020030000000}
    SQL.Strings = (
      'Select * From CUSTOMER'
      'Where (country = :country'
      'Or :country = '#39'ALL'#39')'
      'Or (:country = '#39'NUS'#39' And country <> '#39'US'#39')')
    Left = 15
    Top = 8
  end
  object QueryOrder: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    DataSource = CustomerSource
    Params.Data = {
      0100030006437573744E6F000608000000000000000000010005646174656200
      0904002E200B000001056461746565000904002E200B000001}
    SQL.Strings = (
      'Select * From ORDERS'
      'Where custno =:custno'
      'And shipdate Between :dateb and :datee')
    Left = 16
    Top = 112
  end
end