Осуществить поиск по БД

[ron1tal]

Привет всем. Есть готовая программа, но нужно прикрутить два поиска по таким параметрам:

1) Определить среднюю цену на заданный вид товара и найти товары, выше ср. цены.
2) Определить самый большой по количеству товар по заданной единице измерения.

Вообщем есть сама база, нужно, чтобы при выборе в MainMenu определенного пункта поиска, открывалось окно с поиском. В этом окне я выбирая определенный товар через ComboBox получал на вывод в Edit среднюю цену этих товаров, а поле Мемо или ЛистБокс наименования товаров, которые по цене выше средней.

Во втором поиске, я выбирая единицу измерения через ComboBox должен получать на вывод в Edit самый большой по кол-ву товар.

Программу приложил, за ранее всем ОГРОМНОЕ СПАСИБО.

Совсем совсем ни у кого нет идей?

[evg_m]

В этом окне я выбирая определенный товар через ComboBox

получай(узнавай) его(товара) ID

получал на вывод в Edit среднюю цену этих товаров,

SQLquery.SQL.text:='select id_tovara, avg(cena*kolvo) from ... where id_tovara=:tvr group by id_tovara';
SQLQuery.Params.ParamByName('tvr').Value:=<ID товара из предыдущего действия>
и показывай данные где угодно (Edit, Label, DBtext, ....)

а поле Мемо или ЛистБокс наименования товаров, которые по цене выше средней.

SQLQery2.SQL.Text:='select id_tovara, .... from ... group by id_tovara 
having avg(cena*kolvo)>:delta';
SQLQery2.Params.ParamByName('delta').value:=<цена вычисленная на предыдущем этапе>
и далее вывод куда душе угодно

ComboBox должен получать на вывод в Edit самый большой по кол-ву товар.

А если их будет несколько?

select id_tovara, typeismer, ...
from (... ) as t
inner join ( select max(kolvo) as mcol, typeismer from ... group by typeisnmer 
           ) as tcolon t.typeismer =tcol.typeismer and t.kolvo =tcol.mcol 
where t.typeismer =:ism

в качестве параметра указывать тип(единицу измерения)
как работать с параметрами смотри предыдущие примеры.

P.S. хотите научиться работать с БД, изучайте SQL.
Хотите начать изучать SQL, читайте Мартин Грубер (иногда пишут Грабер) Понимание SQL.
Все идеи придут и в вашу голову.

Совсем совсем ни у кого нет идей?