Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85

Отчет за определенный промежуток времени

16.05.2013, 19:54. Показов 4610. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер!
Подскажите, пожалуйста, как сделать что бы при выборе периода в DataTimeTicker (например, с 01.01.2013 по 01.02.2013) создавался отчет со списком заказов за данный период. Как это реализовать и какой построитель отчетов лучше использовать{проще} -Rave или QReport???
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.05.2013, 19:54
Ответы с готовыми решениями:

Отчет QReport c запросом за определенный промежуток времени
Добрый вечер. Написала вот такой код к кнопке Сформировать отчет: var SDate, FDate: TDate; begin with DataModule1.DogovoraTable do...

Количество записей в БД за определенный промежуток времени
Мне нужно подсчитать количество записей с ДАТА1 по ДАТА2. Не подскажете, как реализовать? var p1,p2:String; begin ...

Формирование отчета за определенный промежуток времени
Добрый день! Делаю отчет за определенный промежуток времени. Выдает ошибку "Unterminated string" в 4 строке. Пожалуйста,...

11
 Аватар для teleprog
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,290
16.05.2013, 22:29
Лучше использовать FreeReport
Для выборки за период нужно использовать запрос с параметрами.
Допустим есть таблица Zakaz, и в ней есть поле с датой Date1
Тогда запрос будет выглядеть-
Pascal
1
2
3
4
AdoQuery1.SQL.Text := 'Select * from Zakaz where date1>:p_1 and date1<:p_2';
AdoQuery1.Parametrs.ParamByName('p_1').value := DataTimeTicker1.date; 
AdoQuery1.Parametrs.ParamByName('p_2').value := DataTimeTicker2.date;
AdoQuery1.Active:=true;
Писал по памяти, могут быть небольшие неточности
0
Админю немножко :)
126 / 115 / 25
Регистрация: 05.01.2009
Сообщений: 889
16.05.2013, 22:53
Цитата Сообщение от Elizium33 Посмотреть сообщение
DataTimeTicker
что за компонент такой?
я знаю только DataTimePicker

после запроса создаете отчет в ravereport например, использую данные из AdoQuery1 в котором был запрос
0
 Аватар для teleprog
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,290
16.05.2013, 23:11
Цитата Сообщение от Drongo Посмотреть сообщение
что за компонент такой?
я знаю только DataTimePicker
О великий, я восхищаюсь твоей памятью))))))
0
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85
17.05.2013, 07:54  [ТС]
сейчас у меня кнопке прописан следующий код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm14.BitBtn1Click(Sender: TObject);
var SDate, FDate: TDate;
begin
  with DataModule3.ADOQuery5 do begin
    SQL.Text := 'SELECT * FROM Zakaz WHERE Data_zakaza BETWEEN :SDate AND :FDate';
    Parameters.ParamByName('SDate').Value := DateTimePicker1.Date;
    Parameters.ParamByName('FDate').value := DateTimePicker2.Date;
  end;
  Form15.QuickRep1.Preview;
end;
end.
Отчет конечно открывает, но пустой лист
0
 Аватар для teleprog
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,290
17.05.2013, 13:08
Попробуй принудительно кверю открывать

+++ DataModule3.ADOQuery5.Active := true;
Form15.QuickRep1.Preview;
И проверь может в таблице данных нету, или диапазон дат неподходит

А может и отчет составлен как-нибудь не так, выложи исходник, быстрее разберемся.
1
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85
17.05.2013, 18:24  [ТС]
Я выложил свой проект в другой теме, посмотрите его там пожалуйстаDBGrid ошибка при работе

Добавлено через 42 минуты
Спасибо, заработало. Подскажите, пожалуйста, как визуально верно настроить отчет. Почему то не отобразилось название модели. и не знаю как сделать что бы не повторялись заглавия столбцов
0
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85
17.05.2013, 18:25  [ТС]
вот скрин
Миниатюры
Отчет за определенный промежуток времени  
0
 Аватар для teleprog
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,290
17.05.2013, 19:48
Названия столбцов перенеси в верхнюю часть, там еще title написано.

"названия модели", проверь базу, точно там они есть?
И проверь запрос, может он невытягивает названия
1
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85
17.05.2013, 21:07  [ТС]
Изменил объект, но теперь в наименовании постоянно пишет "компьютерный стол" хотя за период в заказах есть и другие изделия
0
 Аватар для teleprog
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,290
17.05.2013, 22:02
а в других столбцах данные тоже повторяются?
1
 Аватар для Elizium33
4 / 4 / 1
Регистрация: 16.04.2013
Сообщений: 85
17.05.2013, 22:16  [ТС]
да. в которых наименования, то есть где фио мастеров и название изделия повторяются
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.05.2013, 22:16
Помогаю со студенческими работами здесь

Отчёт в определенный промежуток времени из Access в Word
Доброго времени суток! Излазил весь форум (а может и нет) в поисках ответа на свой вопрос. Вкратце: есть форма с двумя таймпикерами...

Нужно вывести отчет за выбранный промежуток времени, но не работает
procedure TOtchetPoDate.SpeedButton1Click(Sender: TObject); begin if OtchetPoDate.DateTimePicker2.DateTime &lt; DateTimePicker1.DateTime ...

Запрос на промежуток времени
Всем привет! Имеется таблица БД , в которой находятся поля : &quot;Гора&quot;, &quot;Страна&quot;, &quot;Начало&quot; и &quot;Завершение&quot; (В полях Начало и...

Отчет за период времени
Здравствуйте! Ситуация такая: есть база Access, подключена к Delphi с помощью ADO. Требуется сформировать отчет за выбранный период...

Отчет за указанный период времени QuickReport
Помогите пожалуйста разобраться с ошибкой при нажатии Кнопки Отчет. Выскакивает такая ошибка.Вот код программыprocedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru