CheckBox отсеивание

[Alex Jordan]

Здраствуйте!!нужна помощь!!!хочу реализовать такую идею!у меня есть Бд в которой 9 категорий товаров,в каждой категории есть подкатегории(пример - категория Оборудование для Dj имеет 7 подкатегорий(Dj микшеры,Dj комплекты и т.д).Есть форма и DBGrid в котором выводиться весь товар одной категории!!и есть 7 CheckBox - я к примеру нажимаю на первый - мне выводит инфу про товары данной подкатегории!!!но если уже нажимаю на следующий CheckBox - то выводит инфу уже только про эту категорию!!!а мне нужно,чтобы я нажал на один CheckBox - вывелась инфа,нажал на еще один - к этой инфе добавилась еще и эта!!!!
В CheckBox пишу такой код:

procedure TForm2.sCheckBox1Click(Sender: TObject);
begin
if sCheckBox1.Checked=true then
begin
DataModule11.ADOQuery1.Active:=false;
DataModule11.ADOQuery1.SQL.Clear;
DataModule11.ADOQuery1.SQL.Add('Select * from [Товары] where [id_Подкатегории]=1 ');
DataModule11.ADOQuery1.Active:=true;
end
else
begin
DataModule11.ADOQuery1.Active:=false;
DataModule11.ADOQuery1.SQL.Clear;
DataModule11.ADOQuery1.SQL.Add('Select * from [Товары] ');
DataModule11.ADOQuery1.Active:=true;
end;
end;

[Gulik]

http://programmersforum.ru/showthread.php?t=151606
Второй пост

[Alex Jordan]

это вообще не то что мне нужно!!!при чем здесь расширенный поиск!

[Gulik]

А ты для начала вчитайся... А потом говори что и причем... Если советуют значит смотри... Там запросы есть которые тебе пригодятся в написании. Или тебе прогу готовую надо...

[Stilet]

procedure TForm2.sCheckBox1Click(Sender: TObject);
var s:string;
begin
s:='';
if sCheckBox1.Checked then s:=s+'1';
if sCheckBox2.Checked then s:=s+',2';
if sCheckBox2.Checked then s:=s+',3';
...
if s='' then exit;
With DataModule11.ADOQuery1 do begin
 Active:=false;
 SQL.TExt:= 'Select * from [Товары] where [id_Подкатегории] in ('+s+')';
 Active:=true;
end;
...

Подойдет идея?

P.S. Нечего флудить. Это не поощряется.

[Alex Jordan]

Теперь работает!!но появилась другая ошибка!!!теперь чтобы начало отсеивать всегда надо нажимать на 1 CheckBox - если на какой-нибудь другой то выдает ошибку!!пишет вот что - Ошибка синтаксиса(пропущен оператор) в выражении запроса '[id_Подкатегории] in (,2)".Тоесть чтобы мне увидеть какую нибудь категорию - мне нужно вначала нажать на первую - а потом уже на другую!!!

[Аватар]

Код

s:='';
if sCheckBox1.Checked then s:=s+'1';
if sCheckBox2.Checked then s:=s+',2';
if sCheckBox2.Checked then s:=s+',3';

чуть подправить

s:='';
if sCheckBox1.Checked then s:=s+'1,';
if sCheckBox2.Checked then s:=s+'2,';
if sCheckBox2.Checked then s:=s+'3,';
if s<>'' then s:=Copy(s,1,Length(s)-1);

[Alex Jordan]

ООО теперь все работает - и еще маленький вопрос!!!а вот нажимаю на один чекбокс - отсеивает!!а как зделать чтобы когда я его выключаю мне всю таблицу выводило?

[art-programs]

if (not sCheckBox1.Checked) and (not sCheckBox2.Checked)
and (not sCheckBox1.Checked) then
SQL.TExt:= 'Select * from [Товары]';

и ещё 50 возможных вариантов можно придумать как сделать

куда подставить надеюсь не нужно объяснять?

[Alex Jordan]

Давай обьясни!!!!