Добрый день, есть форма с 2 ComboBox и кнопкой с процедурой вывода отчета через QuickRep.
Вот код процедуры на кнопку:
Код:
procedure TForm7.BitBtn1Click(Sender: TObject);
var n:integer;
begin
//n:=ComboBox1.ItemIndex+1;
//DataModule2.ADOTable1.filter:='Inostranniy='+IntToStr(n);
//DataModule2.ADOTable1.Filtered :=True;
DataModule2.ADOQuery2.Active := False;
DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add('SELECT * FROM Studenti');
if ComboBox1.ItemIndex <> -1 THEN DataModule2.ADOQuery2.SQL.Add('WHERE Inostranniy = '+IntToStr(ComboBox1.ItemIndex+1));
DataModule2.ADOQuery2.SQL.Add('ORDER BY Familiya');
DataModule2.ADOQuery2.Active := True;
Form6:=TForm6.Create(Self);
Form6.QRLabel6.Caption:= ComboBox1.Items.Strings[ComboBox1.ItemIndex];
//DataModule2.ADOTable3.First;
//While not DataModule2.ADOTable3.EOF do
//begin
//if DataModule2.ADOTable3id.AsInteger=n then
//DataModule2.ADOTable3Yaziki.AsString;
//DataModule2.ADOTable3.Next;
//end;
Form6.QuickRep1.Preview;
Form6.Free
end;
Вопрос как мне переписать процедуру чтоб задействовались два ComboBox. Сейчас только по языкам он выбирает, а надо чтобы выбирался язык и группа, и отчет строился только по выбранному языку и по выбранной группе.