Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

QReport 


saf   (2002-03-18 20:18) [0]

Подскажите пожалуйста!!! Есть база данных Paradox7, в ней поля
№задания, дата, кол-во суток, клиент, вид работы.
Надо отчет Чтобы рассортировал по клиентам подсчитывал только сумму суток, общее кол-во заданий, по видам робот.
Например:
Иванов
всего заданий - 23 всего суток - 43
покраска - 12 - 25
побелка - 9 - 15
погрузка - 2 - 3

Сидоров
....................
и т.д.
вообщем это примерно но чисел для подсчета порядка 15

Делаю так:
Query2.Close;
Query2.sql.Clear;
Query2.sql.Add("select sum(KOL_SUT) As sum_summa From datez Where datev>="+""""+"01.01.00"+"""");(условие конечно сложнее будет)
Query2.Open;
QRLabel1.Caption:=Query2.fieldbyname("sum_summa").AsString;
QuickRep2.Preview;

но это только один запрос
чтобы все необходимые QRLabel-ы заполнить нужно для каждого менять запрос , т.е. порядка 15 раз.
Может кто подскажет универсальный способ????
Заранее Спасибо.



saf   (2002-03-18 21:42) [1]

Неужели никто не поможет??



Sparky   (2002-03-19 05:11) [2]

Попробуй добавить к своему
select sum(KOL_SUT) As sum_summa From datez Where datev>="01.01.00" GROUP BY ТИП РАБОТЫ
тогда получишь сумму по каждому типу



Johnmen   (2002-03-19 10:53) [3]

SELECT <клиент>, <вид работы>,
COUNT(*) AS <всего заданий>,
SUM(<кол-во суток>) AS <всего суток>
FROM <table>
WHERE <...>
GROUP BY <клиент>, <вид работы>
ORDER BY <клиент>, <вид работы>

А отчет делаешь с группировкой по <клиент>. ( GroupBand, FooterBand и т.д.)



fishka   (2002-03-19 11:32) [4]

Запрос вида:
select familia,vid_rabot,count(vid_rabot),sum(KOL_SUT) As sum_summa From datez Where datev>="01.01.00"
and .....
group by familia,vid_rabot

А все суммы работ и дней по каждому работнику считайте в отчете.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-32688           kat                   2002-03-21 10:59  2002.04.11  
Excel


6-32917           eblade                2002-01-25 18:56  2002.04.11  
Как отправить через TClientSocket несколько запросов подряд?


6-32914           Merlot                2002-01-28 16:19  2002.04.11  
Подключение к инетнету


3-32634           AndrewK               2002-03-19 09:55  2002.04.11  
Как перевести программу с BDE на ADO


6-32911           Delphimun             2002-01-17 17:07  2002.04.11  
Как мне модофицировать файл, который находится на интернет сервере?