Page 15 - 2581
P. 15
Query1.Open;
Цо означає:
- закрити запит;
- очистити SQL;
- вибрати усі поля з таблиці студенти, у яких курс - перший;
- відкрити запит.
4. Після цього запустіть проект і перевірте роботу запиту.
5. Змініть запит на такий:
Query1.SQL.Add('select fio1 from "Student.dbf" where kurs = 1
group by fio1');
(вибрати тільки прізвища першокурсників, сортування за
прізвищами).
6. Перевірте проект.
7. Додайте ще одну кнопку «Курс »?, в її процедурі
натиснення написати таке:
var
s: string; stOk: Boolean;
begin
s:='';
stOk:= InputQuery('Пошук студентів курсу','Введите курс', s);
if (stOk) and (s<>'') then with Query1 do
begin Close;
SQL.Clear;
SQL.Add(Format('select fio1 from "Student.dbf" where kurs = %s
group by fio1[s]));
Open
end
end;
8. Перевірте роботу додатка.
14
