object NeedApptsQuery: TQuery
DatabaseName = 'UTF' <=== this can be ignored
SQL.Strings = (
'Select * From GroupLink, GroupAppt'
' Where (SchedName = :SchedName)'
' And (GroupLink.ApptID = GroupAppt.ApptID)'
' And ((StartDate >= :D1) and (EndDate <= :D2))')
Left = 392
Top = 560
ParamData = <
item
DataType = ftString
Name = 'SchedName'
ParamType = ptUnknown
end
item
DataType = ftDate
Name = 'D1'
ParamType = ptUnknown
end
item
DataType = ftDate
Name = 'D2'
ParamType = ptUnknown
end>
end
|