prod_waste_table с полями prod_id , waste_id , prod_val , waste_per
waste_table с полями waste_id , waste_name , toxity_id связана с prod_waste_table по waste_id
prod_table с полями prod_id , prod_name связана с prod_waste_table по prod_id
надо определить prod_name, у которого sum(prod_val*waste_per) максимальна для toxity_id
всего toxity_id может быть 5(1,2,3,4,5), отходов - много-много-много...
то есть нужна таблица(курсор) maxtotal: toxity_id, prod_name, max_total_waste (для сравнения с sql)
куда надо выбрать prod_name, которое выдает максимальное sum(prod_val*waste_per) as max_total_waste
для сего надо написать sql-запрос и запрос без использования sql
sql я написала ))
без sql пока выглядит так(с помощью одного замечателнього человека с другого форума):

Select 0
Use prod_table Order Tag prod_id
Select 0
Use waste_table Order Tag waste_id
Select 0
Use prod_waste_table Order Tag prod_id
* Открываем еще раз prod_waste_table с другим тэгом так как связать
* waste_table и prod_table мы можем только через prod_waste_table можно это
* конечно делать переключая тэги у дной таблицы и запоминая найденый
* значения нужных полей но так проще
Select 0
Use prod_waste_table Order Tag waste_id ALIAS waste_id AGAIN

Create Cursor Maxtotal (toxity_id i, prod_name c(250), total_waste i)
INDEX ON total_waste TAG total_waste

Select waste_table
Scan All
* стали на нужную запись в prod_waste_table по тагу waste_id
IF Seek(waste_table.waste_id, 'waste_id')

* по prod_id из prod_waste_table нашли нужную запись в prod_table
IF Seek(waste_id.prod_id, 'prod_table')

* по prod_id из prod_table нашли нужную запись в prod_waste_table для суммирования
IF Seek(prod_table.prod_id, 'prod_waste_table')

* ВЫбрали prod_waste_table в качестве текущей
Select prod_waste_table
Sum prod_waste_table.prod_val*prod_waste_table.waste_per To m.total_waste ;
WHILE prod_waste_table.prod_id = prod_table.prod_id Rest

m.toxity_id=waste_table.toxity_id
m.prod_name=prod_table.prod_name
Insert Into Maxtotal From Memvar
ENDIF
ENDIF
ENDIF
Endscan

Select Maxtotal
Go bott
Brows

итоговая должна выглядеть так, например:
1 prod1 45454
2 prod3 44477
3 prod1 121
4 - 0
5 prod6 68

можно без четвертой..

но по вышеприведенному коду считает он неправильно, учитывая все отходы данного производства. а нужно выбирать максимальный отход данной токсичности.

w3dХорошо курсовые решать с интернетом :)
это не курсовааааяя, это задачка для студенток-второкурсниц экологического факультета... для меня, то есть....
добрые вы....
лучше б помогли...
я над ней две недели уже страдаю. сделала почти все, кроме этого вот.

Sergey Ch w3dХорошо курсовые решать с интернетом :)
А потом все удивляются, почему программисты FoxPro мягко говоря "неадекватные"
я не программист. я эколог. будущий. если сдам вот эту вот задачу...

Dima Tзамени
на


заменила...
то же самое, получилось...
все равно, спасибо.

проблема в том, как же, елки-палки, это посчитать.
то есть надо в prod_waste_table посчитать для всех строк prod_val*waste_per , заменить waste_id на соответствующий toxity_id из waste_table , сложить те строки, у которых prod_id и toxity_id одинаковый, для пяти toxity_id выбрать максимальные показания и заменить prod_id на prod_nam e из prod_table
ясно, что нужен цикл.
какой?

Dima TSQL-запрос покажи. а то плохо понятно что надо.

*q1*
CLOSE DATABASES
OPEN DATABASE iw_data
USE prod_table
USE waste_table
USE prod_waste_table

SELECT Prod_waste_table.prod_id, Prod_table.prod_name,;
Waste_table.toxity_id,;
SUM(Prod_waste_table.prod_val*Prod_waste_table.waste_per) as total_waste;
FROM ;
iw_data!prod_table ;
INNER JOIN iw_data!prod_waste_table ;
ON Prod_table.prod_id = Prod_waste_table.prod_id ;
INNER JOIN iw_data!waste_table ;
ON Waste_table.waste_id = Prod_waste_table.waste_id;
GROUP BY Prod_waste_table.prod_id, Prod_table.prod_name,;
Waste_table.toxity_id;
INTO CURSOR q11

*q2*

Select (Max(total_waste)) As max_total_waste, toxity_id ;
From q11 ;
Group By toxity_id;
INTO CURSOR q22

Select t1.toxity_id, t1.prod_name, t1.total_waste;
FROM q11 As t1, q22 As m;
WHERE t1.toxity_id = m.toxity_id And t1.total_waste = m.max_total_waste


таблички лежат тут:

http://coraclaire.narod.ru/vfp/waste_table.dbf
http://coraclaire.narod.ru/vfp/prod_waste_table.dbf
http://coraclaire.narod.ru/vfp/prod_table.dbf

Супер!!!
чуток изменила только в конце

Go Top
SET FILTER TO !DELETED()
Brows

и все стало в шоколаде!

Большое Спасибо!!! :) будешь в Казани, буду отпаивать чаем с печенюжками! или пивом :)

Dima T Zverka...
SET FILTER TO !DELETED()
...


обычно SET DELETED ON
по умолчанию ставят чтобы помеченные на удаление не видеть.

ну у меня там меню редактирования есть, где все помеченные на удаление и удаляются, если это разрешено условиями...

как-то не подумала, что где-то еще будут видны помеченные записи....