Фильтрация

[WarPig]

Здравствуйте. В общем, имеется БД MS Access, в которой 4 таблицы: delivery(id, stock_num, asset_name, id_sort, amount, id_units, sum, del_date, id_pic), units(id, unit_name), sort(id, sort_name, sort_number) и pic(id, pic_name, pic_post). Таблицы units, sort и pic являются справочниками для таблицы delivery (думаю, понятно, по каким полям они связаны). В Delphi создал форму для добавления/удаления данных, в которой находится DBGrid, кнопки и компоненты для работы с БД. В ADOTable таблицы delivery для отображения в DBGrid скрыл поля id, id_sort, id_units, id_pic; но добавил LookUp поля sort, units, pic, в которых данные из одноименных таблиц нужных мне полей. Занес данные в таблицу. Далее, на другой форме имеется DBGrid, DBLookupComboBox, ADOQuery и два DataSource. DBLookupComboBox принимает данные из таблицы sort. Мне нужно сделать так, чтобы при выборе в DBLookupComboBox в DBGrid отображались записи, в которых есть выбранное название.
Написал такой код:

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
ADOQuery1.SQL.text:='select * from delivery where sort='+char(39)+''+DBLookupComboBox1.text+''+char(39) +'';
ADOQuery1.Open;
end;

Думал, прокатит, но в delivery нет поля sort, я его создал только для отображения в DBGrid.
Я в БД нуб и, в основном, все делал по примерам.

[Прик]

Для простоты переделаем ADOQuery на ADOTable для DBLookupComboBox (хотя, и квери здесь ни в чем не провинился).
В инспекторе объектов (называют "время разработки" или "design-time") делаем следующие манипуляции:
- ADOTable1.TableName = sort (не забыв указать в свойстве Connection что требуется)
- Datasource1.DataSet = ADOTable1
- DBLookupComboBox.ListSource = Datasource1;
- DBLookupComboBox.KeyField = id
- DBLookupComboBox.ListField = sort_name

При создании формы не забываем активировать ADOTable1.
Теперь не понадобится создавать лишнее поле sort в таблице delivery:

ADOQuery1.SQL.text:='select * from delivery where id_sort='+IntToStr(DBLookupComboBox1.KeyValue);

[WarPig]

Сообщение от Прик

Для простоты переделаем ADOQuery на ADOTable для DBLookupComboBox (хотя, и квери здесь ни в чем не провинился).
В инспекторе объектов (называют "время разработки" или "design-time") делаем следующие манипуляции:
- ADOTable1.TableName = sort (не забыв указать в свойстве Connection что требуется)
- Datasource1.DataSet = ADOTable1
- DBLookupComboBox.ListSource = Datasource1;
- DBLookupComboBox.KeyField = id
- DBLookupComboBox.ListField = sort_name

При создании формы не забываем активировать ADOTable1.
Теперь не понадобится создавать лишнее поле sort в таблице delivery:

ADOQuery1.SQL.text:='select * from delivery where id_sort='+IntToStr(DBLookupComboBox1.KeyValue);

Спасибо большое
Еще такой вопрос: а если этих комбобоксов будет два, чтобы фильтровали по двум полям, то есть один фильтрует результат фильтрации второго и наоборот. Как это можно организовать?

[Serge_Bliznykov]

... where id_sort='+IntToStr(DBLookupComboBox1.KeyValue) + 
  ' and  id_sort2 ='+IntToStr(DBLookupComboBox2.KeyValue);

идея понятна?

[WarPig]

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

... where id_sort='+IntToStr(DBLookupComboBox1.KeyValue) + 
  ' and  id_sort2 ='+IntToStr(DBLookupComboBox2.KeyValue);

идея понятна?

Делал так же, но вылетала ошибка, теперь понял, в чем была была проблема.
Всем спасибо!