object NeedApptsQuery: TQuery
DatabaseName = "UTF" <=== to móc ignorować
SQL.Strings = (
"Wybiórka * Od GroupLink, GroupAppt"
"Dokąd (SchedName =: SchedName)"
"I (GroupLink.ApptID = GroupAppt.ApptID)"
"I ((StartDate >=: D1) i (EndDate <=: D2))")
Lewica = 392
Wierzchołek = 560
ParamData = <
rzecz
DataType = ftString
Imię = "SchedName"
ParamType = ptUnknown
końcówka
rzecz
DataType = ftDate
Imię = "D1"
ParamType = ptUnknown
końcówka
rzecz
DataType = ftDate
Imię = "D2"
ParamType = ptUnknown
end>
końcówka
|