Показать сообщение отдельно
  #6  
Старый 10.06.2014, 16:07
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Пока тема не закрыта
Цитата:
Сообщение от Scorpuha
...в DBLookupComboBox1 выбираем категорию товаров к примеру Инструменты, а в DBLookupComboBox2 были доступные именно инструменты (дрель, отвертка и т.д.), а не мебельная утварь...
Код:
procedure DBLookupComboBox1Click(Sender: TObject);
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select * from invent_card where Id_kategor_product=' + (Sender as TDBLookupComboBox).Text);
AdoQuery1.Open;
end;
Ответить с цитированием