Поиск:

Ответ в темуСоздание новой темы Создание опроса
> EhLib - сумма за день и за месяц, возможно ли такое 
:(
    Опции темы
MacTep
Дата 17.12.2007, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



У меня в таблице содержатся данные о количестве товара на складе на определенную дату. Есть ли возможность прямо в гриде (использую EhLib) отобразить строки в конце каждого дняс суммой за определенный день и строки в конце каждого месяца с суммой за месяц? Очень нужно реализовать такое.


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Savek
Дата 18.12.2007, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7



Врядли это можно сделать методами Ehlib-a, насколько я знаю ни один грид не может добавлять строки в исходный Dataset. Отсюда вывод тебе сюда:  Имитация внутренних группировок
здесь не совсем то, что тебе нужен, но смысл думаю будет понятен
PM MAIL   Вверх
MacTep
Дата 18.12.2007, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Спасибо, буду думать... Интересно, получится что-нибудь или нет... Вообще, идейка не простая...


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
MacTep
Дата 18.12.2007, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Блин, подстава. Так и не смог реализовать примерчик... WriteText не знаю, откуда процедура... :(


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Savek
Дата 18.12.2007, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7



Из модуля DBGrids.pas?
Гдето встречалась, отрою покажу




Это сообщение отредактировал(а) Savek - 18.12.2007, 17:05
PM MAIL   Вверх
Savek
Дата 18.12.2007, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7



Да, там немного сложновато, вот ссылка на ту же статью с исходниками
Необычный BGrid
PM MAIL   Вверх
MacTep
Дата 18.12.2007, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Вроде как то, что надо smile но... :( не получается пока сделать на EhLib.


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Rodman
Дата 18.12.2007, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



я не пойму - почему запросом не сделать ту форму что нужно?!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
MacTep
Дата 18.12.2007, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Можно тогда пример запроса такого? smile Не важна тематика базы, важен сам запрос.


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Savek
Дата 19.12.2007, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7



А в чем проблема? 

Select *
union
Select сумма за день
union
select сумма за месяц

примерно такая структура ...
PM MAIL   Вверх
MacTep
Дата 19.12.2007, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Так не покатит... smile


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Savek
Дата 19.12.2007, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7



Цитата(MacTep @  19.12.2007,  16:09 Найти цитируемый пост)
Так не покатит... 

Почему не покатит? Нужно  просто нужно добавить служебное поле для правильной сортировки. Ща набросаю на аксессе образчик запроса
Код

SELECT "1 элемент списка" as work,Дата,Количество FROM MyTable

union
select "2 сумма за день" as work,дата,Sum(Количество) 
from MyTable group by Дата

UNION 
select "3 сумма за месяц" as work,Max(Дата),Sum(Количество)  
from (select  Дата,Month(Дата) as M, Количество from MyTable) group by (M)

ORDER BY дата, work;

Вот... по-моему то что нужно (работает в Access). А уж выделить цветом строки, где work=2  или 3 сам знаешь..
PM MAIL   Вверх
Exai1e
Дата 19.12.2007, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30



примерно так
Код

Select Sum(Field) as Sum1 from MyTable where beetwen '01/12/2007' and '31/12/2007'

не прокатывает ?)


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
MacTep
Дата 20.12.2007, 08:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Exai1e, запросы я писать могу. При чем тут это? Мне в гриде отобразить надо.


Savek, благодарю... ;)


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Akella
Дата 20.12.2007, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



я рекомендую настроить тебе сумирующую компоненту из этого же набора и присваивай значение результата подвалу

TDBSumList привяжи к TQuery

Добавлено через 1 минуту и 25 секунд
Код

Procedure TfmMain.Footer(Active:Bool);
begin
  if (Active=True) then begin
   DBGridZay.Columns[5].Footer.Value:=
   FloatToStrF(DBSumList1.SumCollection.Items[0].SumValue,ffFixed, 18, 2);
  end;
end;



Добавлено через 2 минуты и 57 секунд
Или смотри в сторону DevExpress, где всё уже реализовано, но DevExpress не так проста в освоении, как EhLib
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.1198 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.