home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / auto32d3.exe / rar / AUTO32D3 / DEMOS / DELPHI3.0 / ASQLFILT / DM.DFM / DM.txt
Text File  |  1997-04-20  |  1KB  |  59 lines
  1. object DM1: TDM1
  2.   Left = 216
  3.   Top = 102
  4.   Height = 223
  5.   Width = 451
  6.   object CustomerSource: TDataSource
  7.     DataSet = QueryCust
  8.     Left = 111
  9.     Top = 9
  10.   end
  11.   object OrdersSource: TDataSource
  12.     DataSet = QueryOrder
  13.     Left = 112
  14.     Top = 112
  15.   end
  16.   object SQLCountry: TQuery
  17.     Active = True
  18.     DatabaseName = 'DBDEMOS'
  19.     SQL.Strings = (
  20.       'Select distinct country'
  21.       'From CUSTOMER Order by 1')
  22.     Left = 8
  23.     Top = 56
  24.   end
  25.   object CountrySource: TDataSource
  26.     DataSet = SQLCountry
  27.     Left = 112
  28.     Top = 61
  29.   end
  30.   object QueryCust: TQuery
  31.     Active = True
  32.     DatabaseName = 'DBDEMOS'
  33.     Params.Data = {
  34.       0100030007636F756E747279000102003000000007636F756E74727900010200
  35.       3000000007636F756E7472790001020030000000}
  36.     SQL.Strings = (
  37.       'Select * From CUSTOMER'
  38.       'Where (country = :country'
  39.       'Or :country = '#39'ALL'#39')'
  40.       'Or (:country = '#39'NUS'#39' And country <> '#39'US'#39')')
  41.     Left = 15
  42.     Top = 8
  43.   end
  44.   object QueryOrder: TQuery
  45.     Active = True
  46.     DatabaseName = 'DBDEMOS'
  47.     DataSource = CustomerSource
  48.     Params.Data = {
  49.       0100030006437573744E6F000608000000000000000000010005646174656200
  50.       0904002E200B000001056461746565000904002E200B000001}
  51.     SQL.Strings = (
  52.       'Select * From ORDERS'
  53.       'Where custno =:custno'
  54.       'And shipdate Between :dateb and :datee')
  55.     Left = 16
  56.     Top = 112
  57.   end
  58. end
  59.