SQL-запрос

[Dissonance]

Добрый день. Необходимо сделать следующий запрос. У меня имеется combobox(он подключен к таблице Компьютеры(тоесть сам считывает всё что есть в поле "№ ПК")) мне нужно сделать так чтобы при выборе интересующего меня ПК(в combobox) запрос переходил на вторую таблицу(В ней есть поля № ПК и № установленной программы) Там сравнивал № ПК который я выбрал и все программы которые я к нему присвоил. После чего переходил к третей таблице(Список программ) и выбирал из неё те программы которые запомнил из второй таблицы(Есть поля № программы, Название, Системные требования). Конечным результатом должен быть вывод этой информации в dbgrid. Помогите всю голову сломал с этим запросом.

[hoza_syl]

Запрос такой:

SELECT *
FROM СписокПрограм, ВтораяТаблица
WHERE (ВтораяТаблица.Номер_компа = :PcNum) and
(СписокПрограм.НомерПроги = ВтораяТаблица.НомерПроги)

В обработчике события TDBComboBox-а OnChange пишы следующие:

...
begin
  Query1.ParamByName('pcnum').asInteger:=Table1.FieldByName('Номер_компа');
end;

Не знаю работает ли не проверял.
Разбирайся.

[Dissonance]

блин может ещё кто нибуть знает

[Dissonance]

Очень срочно надо диплом горит помогите плиз

[Dissonance]

Вот я код примерный получил
После выбора в comboBox1 заполнить ComboBox2 значениями поля "№ установленной программы" из второй таблицы.
В событии ComboBox2 OnEnter прописать
Код:

With Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT Numbprogr');
SQL.Add('FROM CatalogProgram');
SQL.Add('WHERE NumbComp = ' + quotedstr(ComboBox1.Text);
SQL.Add('ORDER BY Numbprogr');
Open;
First;
ComboBox2.Items.Clear;
for i:=0 to RecordCount-1 do
begin
If Fields[0].AsString <> '' then
ComboBox2.Items.Add(Fields[0].AsString);
Next;
end;
end;

Теперь выбираем из списка ComboBox2 нужный номер и нажимаем на button, где прописываем.
Код:

With Query2 do begin
Close;
SQL.Clear;
SQL.Add('SELECT SpisokProgram.Numbprogr, name, SystTreb');
SQL.Add('FROM CatalogProgram, SpisokProgram');
SQL.Add('WHERE SpisokProgram.Numbprogr = CatalogProgram.Numbprogr');
SQL.Add('AND NumbComp = ' + quotedstr(ComboBox1.Text);
SQL.Add('AND Numbprogr = ' + quotedstr(ComboBox2.Text);
Open;

end;

Query2 должен быть подключен к DBGrid.

[edgy]

Можно и одним запросом:

SELECT Компьютеры.*, Список_программ.*
FROM Список_программ INNER JOIN (Компьютеры INNER JOIN Каталог_установленных_программ ON Компьютеры.№ПК = Каталог_установленных_программ.№ПК) ON Список_программ.№Программы = Каталог_установленных_программ.[№ Установленой программы]
WHERE Компьютеры.№ПК='здесь подставляете значение из комбобокса';