1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| With dmGesco2010 do
begin
qryLesNotes.SQL.Clear;
qryLesNotes.SQL.Add ('SELECT N.ScoNum, N.EtuNum ');
qryLesNotes.SQL.Add ('FROM tblNotes N');
qryLesNotes.SQL.Add ('WHERE (N.EtuNum = : ParamEtuNum)');
qryLesNotes.SQL.Add ('AND (N.NotDate Between : ParamDateDebut And : ParamDateFin)');
qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
qryLesNotes.Parameters.ParamByName('ParamDateDebut').Value := dtpDateDebut.Date;
qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := dtpDateFin.Date;
qryLesNotes.Open;
end; |
