Сравнение через DBGrid

[Kurd57]

Все привет. Столкнулся с проблемой, понимаю что моих знаний не хватает, поэтому пишу сюда. Суть: делаю сравнение оружия по различным характеристикам. Использую MySql в myphpadmin и Дельфу 7-ую. АДОКоннекшен-АДОКуэри-ДатаСоурс-ДБГрид. На форме два комбо бокса(один выбирает вид вооружения, второй выводит все что есть по выбранному ранее), кнопка которая добавляет выделенный элемент к сравнению и ДБГрид.



Я выбираю пистолеты, вот код процедуры которая загружает названия.

procedure TForm2.ComboBox2Change(Sender: TObject);
var i: integer;
begin
  if ComboBox2.Items[ComboBox2.ItemIndex]='Пистолеты' then
  begin
   for i:=1 to 20 do
   begin
    try
      with DataModule1.ADOquery1 do
        begin
          SQL.Clear;
          SQL.Add('SELECT * FROM Pistols where id='+IntToStr(i));
          Active:=True;
        end;
    except
     on e:Exception do
    end;
    ComboBox1.Items.Add(DataModule1.ADOQuery1.Fields[1].Text);
   end;
  end;
end;

Дальше я кликаю по интересующей меня модели и по кнопке, например, по СПС.



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



ДБГрид перерисовывается... Пытаюсь сохранять то, что выбрал, включал эдитмод у датасета, но это не помогло. Вот код процедуры.

procedure TForm2.Button1Click(Sender: TObject);
begin
s:=combobox1.Items[combobox1.ItemIndex];
   try
      with DataModule1.ADOquery1 do
        begin
          SQL.Clear;
          SQL.Add('SELECT * FROM Pistols WHERE title LIKE ''%'+s+'%''');
          Active:=true;
        end;
    except
     on e:Exception do
    end;
end;

За пол дня с SQL и этой процедурой сломал голову, не могу понять как это сделать и все... Понимаю что как-то можно...Помогите написать запрос.

[Serge_Bliznykov]

сколько позиций может быть добавлено для сравнения: две? больше двух?

решений может быть несколько.
если сравниваться должны строго ДВА - то почему бы не сделать ДВА комбобокса?
если же количество сравниваемых моделей больше двух,
тогда я бы формировал запрос на лету - к имеющемуся запросу в конце добавлял
SQL.Add(' OR title like ''%'+s+'%''')
вот так, например:

  s:=combobox1.Items[combobox1.ItemIndex];
  with DataModule1.ADOquery1 do
        begin
          ADOquery1.Close;
          if Pos('WHERE', SQL.Text) = 0 then 
             SQL.Text := 'SELECT * FROM Pistols WHERE title LIKE ''%'+s+'%'''
          else 
             SQL.Add(' OR title like ''%'+s+'%''');
          ADOquery1.Open;
        end;

p.s. а вот то, что вы через try .. except подавляете вывод возникающих ошибок - это не комильфо! Это обязательно сыграет с вами злую шутку - возникнет какая-та банальная ошибка, которую Вы не будете видеть и долго недоумевать, почему нажатие на кнопку ничего не делает...

[Kurd57]

Спасибо большое! Даже не знаю как отблагодарить!
Жму Весы!