вычисляемые столбцы/хранимая процедура

[kate158]

Привет. Мне нужен Ваш совет. В общем задача такова.

Есть таблица:
Date_____|Name___|Sum
01.05.2009|Отдел 1|100
01.05.2009|Отдел 2|200

в ктр нужно добавить поля 'Х-1' и 'Х-7', содержащие значения Sum с таким же Полем Name, только дата минус 1 день назад и минус 7 дней назад от представленной (01.05.2009). Для каждой даты в таблице существует только однo значение поля sum.

Т.Е. таблица примет вид:
Date_____|Name___|Sum_|X-1_|X-7
01.05.2009|Отдел 1|100__|50__|5
01.05.2009|Отдел 2|200__|50__|5

Текущая дата может быть изменена пользователем. Вот, думаю, что без ХП не обойтись. На входе будут Name и Data, на выходе 'X-1' 'X-7'.
Но, может можно и по-другому?

[Stilet]

Но, может можно и по-другому?

Ну дык вычисляемым полем...
Умеешь его создавать?
Какими средствами с БД общаешься?

[kate158]

query,sql server 2000

Сообщение от Stilet

Умеешь его создавать?

adoquery->new field->calculated
это понятно.
затем обработать событие oncalcfield. вот тока пока не догоняю что должно быть в месте

procedure TMainForm.sum_objectsCalcFields(DataSet: TDataSet);
begin
sum_objects.DataSource.DataSet.FieldByName('X-1').Value:=???
end;

[soleil@mmc]

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

select 
  t.*,
  lag(sum, 1) over(partition by name order by name, date) f_lag_x_1,
  lag(sum, 7) over(partition by name order by name, date) f_lag_x_7
from your_table t
where name = 'Отдел 1'

но она удобна именно для запроса многих данных

если конечно в 2000м скл сервере есть такая фишка
либо написать простенькую функу (все равно она быстрее отработает чем то же самое реализованное в коде)

[Stilet]

kate158

Знач смотри.
В той процедуре попробуй применить метод lookup чтоб без переходов по базе найти нужное name с нужной датой, и то что оно вернет вставляй в
.Value

Если не ясно прикрепи БД, попробую написать

[kate158]

Сообщение от soleil@mmc

lag в 2000 есть, но почему то в делфи
еррор 'lag is not a recognized function name'

Сообщение от Stilet

базу прикрепить не могу, но тема понятна.
пробую писать хп.

[soleil@mmc]

Сообщение от kate158

lag в 2000 есть, но почему то в делфи
еррор 'lag is not a recognized function name'

а что ты делаешь в дельфи
кусок кода ведь можешь привести

[kate158]

procedure TMainForm.sum_objectsCalcFields(DataSet: TDataSet);
begin
sum_objects.SQL.Clear;
sum_objects.SQL.Add('select date,name,sum,');
sum_objects.SQL.Add('(lag(sum, 1) over(partition by idobject order by name, date)) X-1,');
sum_objects.SQL.Add('(lag(sum, 7) over(partition by idobject order by name, date)) X-7');
sum_objects.SQL.Add('from mytable t');
sum_objects.SQL.Add('where name = ''Объект 1''');
sum_objects.Open;
end;

+ в adoquery добавлено два поля с именами X-1 и X-7'....

[soleil@mmc]

чота у меня подозрение, что это

X-1

и вызывает смущение при выполнении запроса (это же разность)
так что сделай лучше как у меня через подчеркивание
и эттаа... опять у тебя в условии задачи не все поля, по сравнению с тем что ты юзаешь в решении

[kate158]

кажется до меня дошло. нет в 2000 lag.