Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
24 / 2 / 0
Регистрация: 25.01.2021
Сообщений: 134

Отчет в Excel c возможностью выбора периода дат

14.02.2023, 23:05. Показов 1713. Ответов 22
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно сделать отчет в Excel с возможностью выбора периода дат, за который были сделаны заказы и в конце с общая сумма всех заказов.
Код самого отчета у меня есть, непонятно только, как нужно усовершенствовать код.
Я пыталась найти способ как это сделать, но не вышло...Знаю что нужно использовать DateTimePicker, но как его настроить на работу с кодом не знаю
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.02.2023, 23:05
Ответы с готовыми решениями:

Отчет с указанием периода дат
Создал базу, настроил запрос все выдает как надо. Но в отчете надо что бы выдавало период запроса. В запросе все работает. Спрашивает с...

СУММЕСЛИМН для периода дат
Всем доброго времени суток... Помогите пожалуйста ещо в одной проблеме...Недавно мне на этом сайте очень помогли в одном решение. Работа...

Выборка дат из заданного периода
Здравствуйте, столкнулась с такой задачей в MS Access 2007: нужно сделать выборку дат за определенный период. Подскажите пожалуйста как...

22
127 / 107 / 21
Регистрация: 23.05.2015
Сообщений: 706
17.02.2023, 19:35
Студворк — интернет-сервис помощи студентам
Вот и сам код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
{---Вывод в Excel журнала заказов---}
procedure TForm4.Button28Click(Sender: TObject);
var
   ExcelApp,Sheet,Colum:Variant;
   index,i:Integer;
   ChDateAmount: Integer;//Переменная для накопления итоговой суммы по чекам из запроса
begin
    If DateTimePicker1.Date >DateTimePicker2.Date Then
 begin
 MessageDlg('Начальная дата '+Chr(13)+'не может быть больше конечной!', mtInformation, [mbOk], 0);
 DateTimePicker1.SetFocus;
 exit;
 end;
   ChDateAmount:=0;
. . . 
 
 Sheet.Cells[index,5]:=DataModule1.ADOQuery7.Fields.Fields[8].AsString;
   Sheet.Cells[index,6]:=DataModule1.ADOQuery7.Fields.Fields[9].AsString;
   ChDateAmount:=ChDateAmount+StrToInt(DataModule1.ADOQuery7.Fields.Fields[9].AsString);
   Inc(index);
   DataModule1.ADOQuery7.Next;
end;
  //Выводим сумму по всем чекам
   Sheet.Cells[index+1,1]:='Общая сумма всех заказов за период';
   Sheet.Cells[index+1,6]:=IntToStr(ChDateAmount);
   Sheet.Cells[index+1,1].Font.Bold:=true;
   Sheet.Cells[index+1,1].Font.Size:=14;
    Sheet.Cells[index+1,6].Font.Bold:=true;
   Sheet.Cells[index+1,6].Font.Size:=14;
   ExcelApp.Columns.AutoFit;
   ExcelApp.Visible:=True;
   //Возвращаем запрос в исходное состояние
   DataModule1.ADOQuery7.Close;
   DataModule1.ADOQuery7.SQL.Clear;
   DataModule1.ADOQuery7.SQL.Text:='SELECT * FROM Журнал';
   DataModule1.ADOQuery7.Open;
 
end;
0
24 / 2 / 0
Регистрация: 25.01.2021
Сообщений: 134
18.02.2023, 12:53  [ТС]
Добрый день SeGun, может быть вы у вас есть пример по которому можно так сделать? Просто не совсем понимаю
0
127 / 107 / 21
Регистрация: 23.05.2015
Сообщений: 706
18.02.2023, 15:29
Лучший ответ Сообщение было отмечено heatingtea как решение

Решение

heatingtea, Да. Смотрите.
Вложения
Тип файла: rar Proga.rar (491.5 Кб, 5 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.02.2023, 15:29
Помогаю со студенческими работами здесь

Разбиение периода дат на составляющие
Всем привет. Не могу понять, как можно растянуть диапазон дат на составляющие... Есть, например, данные в ячейке "2000-2005"....

Расчет периода разности дат
Здравствуйте! Кто может помочь? Не могу понять где ошибаюсь. Есть на форме четыре поля: ДатаНачала, ДатаОкончания, ТекущаяДата, СтажРаботы....

Передать параметры Периода в Отчет
Всем привет, сорри за простой вопрос, но что то никак не могу понять: Как передать параметры периода с формы ... Создал форму...

Как вывести отчет за два периода сразу?
Доброго времени суток, уважаемые форумчане! Помогите пожалуйста решить такое: Есть одна таблица с кучей числовых полей. Есть запрос,...

ищу DatePicker с временем, списком выбора месяца и возможностью смены месяца после выбора числа
Привет. Ищу хороший DatePicker с указанными функциям. Немного расшифрую, что от него нужно: 1) Возможность выбора времени (чч:мм) ...


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

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Новые блоги и статьи
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru