Выборка данных для запроса

[albina73]

Тема Успеваемость студентов факультета. Нужно сформировать отчет по неуспевающим студентам:
-студенты не сдавшие зачеты;
-студенты не сдавшие экзамены;
с возможностью выбора специальности, курса и группы...
На форме ставлю 3 Combobox: первый по специальности, 2 по курсу, 3 по группе...

По специальности пишу запрос

//парамметрированный запрос
Select Distinct students.FIO, uspevaem.gruppa, predmet.name, uspevaem.data_Sdachi
from uspevaem, students, predmet, otchetnost, ocenka, specialnost
Where data_sdachi between :DateNach -1 and :DateKon and students.nomer_zach=uspevaem.IdStudent and predmet.kod_predmeta=uspevaem.IdPredmet and uspevaem.IdOcenka=ocenka.Idocenka and ocenka.ocenka=:ocen and uspevaem.idspecial=specialnost.kod and specialnost.name=:special
 
 //кнопка сформировать
procedure TParametryForm.Button1Click(Sender: TObject);
begin
with AdoQuery2 do
begin
Close;
AdoQuery2.active:=false;
AdoQuery2.Parameters.ParamByName('DateNach').Value:=OtchetyForm.DateTimePicker1.Date;
AdoQuery2.Parameters.ParamByName('DateKon').Value:=OtchetyForm.DateTimePicker2.Date;
AdoQuery2.Parameters.ParamByName('Special').Value:=Combobox1.Text;
AdoQuery2.Parameters.ParamByName('ocen').Value:='не зачет';
Open;
AdoQuery2.active:=true;
//if AdoQuery2.RecordCount = 0 then ShowMessage('Записей за данный период нет!!!');
 
end;

Но это только по одному условию, а что делать если пользователь хочет вывести по всем специальностям и не будем выбирать содержимое combobox или захочет посмотреть список должников по конкретному курсу или группе... как далее писать выборку, все перепробывала писала условие if (Combobox1.Text<>'') and (Combobox2.Text='') and (Combobox3.Text='') then ... далее запрос
не воспринимает

[{Shadowevil}]

Сообщение от albina73

...по всем специальностям и не будем выбирать содержимое combobox...

вместо строчки

AdoQuery2.Parameters.ParamByName('Special').Value:=Combobox1.Text;

попробуй вставить это:

if ComboBox1.Text='' then
  AdoQuery2.Parameters.ParamByName('Special').Value:='Like ''%'''
 else
  AdoQuery2.Parameters.ParamByName('Special').Value:=Combobox1.Text;

возможно немного с апострофами напутать мог

Остальное, в принципе, можно сделать по подобию

[albina73]

Спасибо))) Попробую))))