Access и DBLookupComboBox

[ruldik]

Всем доброго времени суток!!! Принимайте новичка, начинающего познавать язык программирования... Сходу вопрос... Подключился к базе, вывел данные в выпадающий список DBLookupComboBox... Как осуществить некую фильтрацию, т.е выбрал в первом списке значение, а во втором выводилось только значение, которое привязано к выбранному? т.е. например есть база с таблицей пряник - медовый, конфета - шоколадная..., в первом списке выбрал пряник, а во второй попадает значение - медовый... извиняюсь что так коряво изложил, но думаю суть ясна....

[Toxa]

1)а во втором в запросе надо добавить условие по которому будет осуществляться выборка, например

select * from table where column = :pcolumn

и в датасет в переменную pcolumn подставлять "медовый"
и переоткрыть датасет
2) добавить во второй датасет фильтр

dataset.filter := 'column = ''медовый'''
filtered := true

этот код повесить на событие либо dataset.afterscroll, либо событие изменения значения у DBLookupComboBox (не помню точного названия)

[ruldik]

Разобрался.... Решил остановиться на простом combobox, вот только есть несколько вопросов...
1. Правильность данного кода?

procedure TForm1.FormActivate(Sender: TObject);
begin
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT DISTINCT [Название] FROM [Таблица1]');
   ADOQuery1.Active:=True;
   ComboBox1.Items.Clear;
   ComboBox1.Items.Add('<Не определено>');
   ADOQuery1.First;
   while not ADOQuery1.Eof do
      begin
         ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
         ADOQuery1.Next
      end;
   ComboBox1.ItemIndex:=0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   ComboBox2.Items.Clear;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Text:='SELECT DISTINCT [Код] FROM [Таблица1] WHERE [Название]='+QuotedStr(ComboBox1.Text);
   ADOQuery1.Open;
   ComboBox2.Items.Add('<Не определено>');
   while not ADOQuery1.Eof do
      begin
         ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);
         ADOQuery1.Next;
      end;
   ComboBox2.ItemIndex:=0;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
   ComboBox3.Items.Clear;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Text:='SELECT DISTINCT [ТипДвигателя] FROM Таблица1] WHERE [Название]='+QuotedStr(ComboBox1.Text)+' AND [Код]='+QuotedStr(ComboBox2.Text);
   ADOQuery1.Open;
   ComboBox2.Items.Add('<Не определено>');
   while not ADOQuery1.Eof do
      begin
         ComboBox3.Items.Add(ADOQuery1.Fields[0].AsString);
         ADOQuery1.Next;
      end;
   ComboBox3.ItemIndex:=0;
end;

2. "Не определено" появляется только после изменения предидущего combobox'а?
Безымянный.jpg
3. Как в 3-й combobox, вместо числового значения, подставить текст из [Таблицы2], где числовое значение столбца [ТипДвигателя] [Таблицы1] соответствует текстовому значению столбца [Название] [Таблицы2]?