home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / Setparam / servdata.dfm / servdata.txt
Text File  |  1999-08-11  |  845b  |  39 lines
  1. object SetParamDemo: TSetParamDemo
  2.   OldCreateOrder = True
  3.   OnCreate = SetParamDemoCreate
  4.   OnDestroy = SetParamDemoDestroy
  5.   Left = 466
  6.   Top = 290
  7.   Height = 479
  8.   Width = 741
  9.   object Events: TQuery
  10.     AfterOpen = EventsAfterOpen
  11.     DatabaseName = 'DBDEMOS'
  12.     SQL.Strings = (
  13.       'select * from events '
  14.       'where  Event_Date >= :Start_Date and '
  15.       '            Event_Date <= :End_Date'
  16.       'order by Event_Date')
  17.     Left = 18
  18.     Top = 10
  19.     ParamData = <
  20.       item
  21.         DataType = ftDateTime
  22.         Name = 'Start_Date'
  23.         ParamType = ptUnknown
  24.         Value = 29221d
  25.       end
  26.       item
  27.         DataType = ftDateTime
  28.         Name = 'End_Date'
  29.         ParamType = ptUnknown
  30.         Value = 36161d
  31.       end>
  32.   end
  33.   object EventProvider: TDataSetProvider
  34.     DataSet = Events
  35.     Left = 96
  36.     Top = 8
  37.   end
  38. end
  39.