У вас запрос проще некуда.
Вот текст запроса:
Код:
SQL := 'SELECT format(Data,"dd.mm.yyyy") as Data, Puti, Nasvanie_uchastka, Nom_km_n, Nom_pk_n, Nom_km_k, Nom_pk_k, Nasvanie_pribora, Nomer_pribora, F_I_O from GRAFIK';
По вашей постановке возможны 3 варианта.
1. Выдать все. Запрос неменяется.
2. Выдать за конкретную дату. Просто добавим к запросу строчку c ограничением по дате и организуем ввод параметра:
Код:
SQL := SQL + ' where Data=:Date';
DataModule3.AdoQuery2.SQL.Text := SQL;
Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime
3. Выдать за период. Почти также как с п.2 добавим к запросу строчку c ограничением по периоду и организуем ввод параметров:
Код:
SQL := SQL + ' where Data between :D1 and :D2;
DataModule3.AdoQuery2.SQL.Text := SQL;
Parameters.ParamByName('D1').Value := DateTimePicker2.DateTime;
Parameters.ParamByName('D2').Value := DateTimePicker3.DateTime;