
10.06.2014, 16:07
|
 |
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;
|