Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нарастающий итог в столбце


SerGoP ©   (2006-11-09 17:49:00) 

Понимаю, что вопрос для мастеров несложный, но для меня это сложновато. Так вот: необходимо подсчитать столбец "Итого" в след. таблице
Неделя*****Кол-во_подключившихся_в_неделю*****Итого
      1 *****              10                                *****   10
      2 *****              12                                *****   22
      3 *****              15                                *****   37
Плиз выложите код


Anatoly Podgoretsky   (2006-11-10 13:38:00) [1]

> ЮЮ  (10.11.2006 10:25:14)  [14]

А ктото всерьез принял?


ЮЮ   (2006-11-10 10:25:00) [2]

осталось тольк понять сколько раз и когда вызывается метод fdstCalcFields, чтобы не принимать [13] всерьез :)


Megabyte   (2006-11-10 09:58:00) [3]

Т.е. тебе надо складывать все значения столбца "Кол-во_ подключившихся_в_неделю" до текущего(i-я строка)!
Грубо говоря: Итого[i] := kolvo[0]+...+kolvo[i] = Итого[i-1] + Kolvo[i].

var
 Form1: TForm1;
 old : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 fdb.Connected := true;
 ftr.Active := true;
 fdst.Active := true;
end;

procedure TForm1.fdstCalcFields(DataSet: TDataSet);
begin
 old := old + fdstRIGHT_GROUP_ID.Value;
 fdstsum.Value := old;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 old := 0;
end;

В глобальную для юнита переменную(old) запоминаешь значение(пред. значение old + значение поля kolvo), а потом присваиваешь его вычисляемому полю.


Ketmar   (2006-11-09 21:43:00) [4]

>[11] SerGoP(c) 9-Nov-2006, 21:06
>Query
значит, уже SQL. %-)

>Эта таблица есть отображение компонента DBGrid
с точностью до наоборот. %-)

>использую событие OnCalcFields, в котором и хочу расчитать 3-й столбец.
в Query? это, афаир, не совсем тот путь.


SerGoP   (2006-11-09 21:06:00) [5]

Ketmar, по-моему Вы все усложняете и все намного проще. Опишу проблему подробнее (что должен был сделать в самом начале и за что прошу извинить меня): у меня на форме след. компоненты DBGrid, DataSourse и Query, связанные между собой (не мне вам объяснять как). Эта таблица есть отображение компонента DBGrid. Первые два столбца взяты из таблицы (созданной и заполненной ранее), третий я хочу расчитать. Для компонента Query использую событие OnCalcFields, в котором и хочу расчитать 3-й столбец.
Возможно, все усложняю я и намного легче расчитать все через тот же SQL Builder, но, к сожалению я не знаю как, в чем и прошу вас помочь.


Ketmar   (2006-11-09 20:38:00) [6]

вот. это уже ближе к нормальной постановке. однако ещё не она. как минимум надо знать:
* какая СУБД
* как получаешь к ней доступ
* почему не используешь SQL %-)


SerGoP   (2006-11-09 20:27:00) [7]

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


Ketmar   (2006-11-09 20:11:00) [8]

>[7] SerGoP(c) 9-Nov-2006, 19:08
>Я ожидал реальной помощи.
тогда изволь сначала проштудировать вот это: http://ln.com.ua/~openxs/articles/smart-questions-ru.html


SerGoP   (2006-11-09 19:08:00) [9]

Я конечно понимаю, что некоторым из форумчан
(Ketmar ©   (09.11.06 17:58) [1]
Anatoly Podgoretsky ©   (09.11.06 18:43) [6])
легче измываться, чем помогать советом. Я ожидал реальной помощи.
>stone ©   (09.11.06 18:03) [3]
Поисковиком пользоваться я умею, но все равно спасибо. Мне нужно реализовать это не через SQL


Anatoly Podgoretsky   (2006-11-09 18:43:00) [10]

> iXT  (09.11.2006 18:07:04)  [4]

Только деньги его спасут.


SerGoP   (2006-11-09 18:21:00) [11]

Если бы Excel, то я бы слегкостью это сделал. Таблица создана в Database Desktop (Paradox7)


iXT   (2006-11-09 18:07:00) [12]

Excel тебе поможет


stone   (2006-11-09 18:03:00) [13]

MS SQL
http://www.sql.ru/faq/faq_topic.aspx?fid=125


RWolf   (2006-11-09 18:01:00) [14]

что хоть за таблица? Excel?


Ketmar   (2006-11-09 17:58:00) [15]

я лучше URL дам, там помогут: http://antigreen.org/bioreactor/


Наверх

Титульная страница Поиск, карта сайта Написать письмо