Печать данных из label + edit в виде таблицы (как в excel)

@mirina313 · Регистрация: 04.11.2013

Студворк — интернет-сервис помощи студентам

Есть некий код, допустим, для подсчета стоимости бензина:
1 поле: пустые лейблы с названиями вида топлива (к примеру, А95)
2 поле: едиты в которых прописывается кол-во литров
3 поле: лейблы которые умножают кол-во литров на цену одного литра бензина и выводят общую стоимость (200.00р.)
Ну и конечно, лейблы для общего подсчета расходов..
Не знаю как реализовать печать значений 1,2,3 полей и общей суммы на все виды топлива + слева дата и справа подпись в виде таблицы.
То есть название колонки, три колонки в которые заносятся данные и ниже общая стоимость.
Слева Дата - справа подпись
Как создать шаблон конечного вида таблицы и вытащить в нее эти данные + дописать вывод даты и поле подписи?

@Massaraksh7 · 18.01.2018, 16:05

Нет, сейчас уже не помню, давно дело было. Помню, сама таблица отчета рисуется в desingtime в QuickReport, а потом заполняются поля.

Добавлено через 3 минуты
К тому же, если не изменяет память, уже в D7 его нет.

@D1973 · 18.01.2018, 16:49

Сообщение от Massaraksh7

если не изменяет память, уже в D7 его нет

Изменяет. Есть. Не включен по умолчанию - но есть.

@Massaraksh7 · 18.01.2018, 16:51

Ну, может. Я им ещё в D4 пользовался.

@D1973 · 18.01.2018, 16:54

Ну да, в Д7 активно пропагандировался Rave Report...

@mirina313 · 18.01.2018, 16:58 **[ТС]**

Rave reports или quick reports Без Разницы, главное достичь желаемого..
Чему пока мешает перенос значений form1 edit1 в form2 reports

@Massaraksh7 · 18.01.2018, 17:00

Сообщение от D1973

Ну да, в Д7 активно пропагандировался Rave Report...

Не по теме:

Это я уже не стал трогать. Намучившись с QuickReport, сделал свою систему отчетов ~~с блекджеком и шлюхами~~ со своим языком на основе Excel, и забыл проблему отчетов.

@mirina313 · 19.01.2018, 08:40 **[ТС]**

Ребят, если кто работал с встроенными репортами делфи7, помогите)

@Massaraksh7 · 19.01.2018, 09:27

О! Как же я забыл - можно html сформировать!

Добавлено через 41 минуту
С этим я мог бы помочь.

@mirina313 · 19.01.2018, 11:44 **[ТС]**

Да ладно, уже как нибудь разберусь, просто первый скрипт после 5 летнего перерыва, на первом-втором курсе последний раз писали, уже все забыто и много непонятного.
Если будут вопросы по конкретнее, задам, может поможете)

Добавлено через 2 минуты
Хочется завершить начатое, хотя оно и не особо нужно, так.. чисто для себя)

@Massaraksh7 · 19.01.2018, 13:11

Ну, дело хозяйское, но так, если вдруг захочешь себя проверить...

Кликните здесь для просмотра всего текста

HTML5
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
39
40
41
42
43
44
45
46
47
48
49
<html><head>
<meta charset="win-1251">
</head><body>
<table border="0" cellspacing="0" cellpadding="0" width="100%" style="text-align:center;font-size:10px">
<tr><td><h1>ПРОГРАММА</h1></td></tr></table>
<table border="1" cellspacing="0" cellpadding="0" width="100%" style="text-align:center;font-size:10px">
<tr style="text-align:center"></tr>
<tr><td width="45%"><h2>Автомобиль X</h2></td><td>&nbsp;</td><td width="45%"><h2>Автомобиль Y</h2></td></tr>
<tr>
 
<td valign="top"><table border="1" cellspacing="0" cellpadding="0" width="100%" style="text-align:center;font-size:10px">
<tr><th width="30%">&nbsp;</th><th width="30%">&nbsp;</th><th>&nbsp;</th></tr>
<tr><td>98</td><td>0</td><td>0,00р.</td></tr>
<tr><td>95</td><td>0</td><td>0,00р.</td></tr>
<tr><td>92</td><td>0</td><td>0,00р.</td></tr>
<tr><td>80</td><td>0</td><td>0,00р.</td></tr>
<tr><td>ДТ</td><td>0</td><td>0,00р.</td></tr>
<tr><td>ДТ экстра</td><td>0</td><td>0,00р.</td></tr>
<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>ИТОГО:</td><td>0</td><td>0,00</td></tr>
</table></td>
 
<td>&nbsp;</td>
 
<td><table border="1" cellspacing="0" cellpadding="0" width="100%" style="text-align:center;font-size:10px">
<tr><th width="30%">&nbsp;</th><th width="30%">&nbsp;</th><th>&nbsp;</th></tr>
<tr><td>98</td><td>0</td><td>0,00р.</td></tr>
<tr><td>95</td><td>0</td><td>0,00р.</td></tr>
<tr><td>92</td><td>0</td><td>0,00р.</td></tr>
<tr><td>80</td><td>0</td><td>0,00р.</td></tr>
<tr><td>ДТ</td><td>0</td><td>0,00р.</td></tr>
<tr><td>ДТ экстра</td><td>0</td><td>0,00р.</td></tr>
<tr><td>Соляра</td><td>0</td><td>0,00р.</td></tr>
<tr><td>Вода</td><td>0</td><td>0,00р.</td></tr>
<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>ИТОГО:</td><td>0</td><td>0,00</td></tr>
</table></td>
 
</table></td>
</tr>
 
<table border="1" cellspacing="0" cellpadding="0" width="100%" style="text-align:center;font-size:10px"><tr><td width="50%">Всего</td><td>0,00</td></tr></table>
</table>
<p>&nbsp;</p>
<table width="50%" style="text-align:center;font-size:10px">
<tr><td>Дата 15.01.2018</td><td>Подпись____________</td></tr>
</table>
</body>
</html>

@krapotkin · 19.01.2018, 13:59

у фастрепорта есть юзердатасет
у него нужно создать поля
завести переменную что-то типа номера записи
в событии OnFirst - OnNext двигать эту переменную
в событии GetEof по переменной или еще как-то определять EOF или нет
в OnGetValue в зависимости от значения переменной и требуемого имени поля выдавать полям значение
вот и весь ваш датасет для FR

@mirina313 · 19.01.2018, 14:24 **[ТС]**

Не по теме:

Спасибо Massaraksh7, думаю как закончу с этим, то попробую написать что нибудь связанное с html :)

В общем уже перехотелось юзать fastreport.
По всей видимости, можно то же самое реализовать с помощью quickreport, который идет в комплекте с делфи7...
Остается понять какому компоненту quickreport можно передать значения edit1, label1.

Добавлено через 13 минут
Что, если юзать qrlabel?

Delphi
1
2
3
4
5
6
var
a:double;
begin
a:=StrToFloat(Form1.Label1.Caption);
QRLabel1.Caption:=FloatToStr(a);
end;

@D1973 · 19.01.2018, 15:10

var
a:double;
begin
a:=StrToFloat(Form1.Label1.Caption);
QRLabel1.Caption:=FloatToStr(a);
end;

Как все сложно... А почему не так?

Delphi
1
QRLabel1.Caption := Form1.Label1.Caption;

@mirina313 · 19.01.2018, 15:49 **[ТС]**

Потому что я неумейка =(
Спасибо за "красивый код"

.
Только как инициализировать передачу текста на qrlabel?
Ибо если прописать в лейбле1

Delphi
1
Form2.QRLabel1.Caption := Label1.Caption;

Выскакивает ошибка

@Matan! · 19.01.2018, 16:04

Смотря как Вы пишете. Попробуйте прописать Form1 перед Label1.:

Delphi
1
Form2.QRLabel1.Caption := Form1.Label1.Caption;

@mirina313 · 19.01.2018, 17:11 **[ТС]**

Пишу в Unit1, QR в Unit2. Нет, это не помогло.
Видимо QRLabel Так не работает, нужно прописывать вызов именно в нем и, по идее, он должен вызывать текст лейбла1 первой формы при печати если юзать так:

Delphi
1
2
QRLabel1.Caption := Form1.Label1.Caption;
QuickRep.Print;

Но в предварительном просмотре ничего не меняется :X
Тупик..

Добавлено через 27 минут
Короче, так работает

Delphi
1
2
Form2.QRLabel1.Caption:=Label1.Caption;
Form2.QuickRep1.Print;

Но без предварительного просмотра, только при печати формируется

Добавлено через 21 минуту
Причем, даже если дописать вместо принта

Delphi
1
Form2.QuickRep1.Preview;

Пустой лист!
Только при печати записывает данные...

Добавлено через 12 минут
Все норм, просто нужно было добавить поля title и т.д. :<
Ждите новых вопросов

@Matan! · 19.01.2018, 20:42

Не по теме:

Сообщение от mirina313

Ждите новых вопросов

Уже страшно:)

@mirina313 · 22.01.2018, 10:31 **[ТС]**

Здравствуйте, форумчане.
Подскажите, почему не суммируется текст из label таким вот способом?

Delphi
1
z:=StrToInt(LabeledEdit1.Text+LabeledEdit2.Text);

Добавлено через 2 минуты
Например, если лейбл1=5 и лейбл2=7, такая функция не суммурует два числа, а записывает их по очередности.
Выходит не 12, а 57

@Massaraksh7 · 22.01.2018, 10:35

Потому что текст надо преобразовать в число перед сложением, а не наоборот.

Delphi
1
z:=StrToInt(LabeledEdit1.Text)+StrToInt(LabeledEdit2.Text);

@mirina313 · 22.01.2018, 11:04 **[ТС]**

Спасибо!)
Оказывается, StrToInt работает до знака +, прям как дорожный знак до перекрестка

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67

	Печать данных из label + edit в виде таблицы (как в excel) 17.01.2018, 10:29. Показов 6488. Ответов 60 Метки нет (Все метки) Есть некий код, допустим, для подсчета стоимости бензина: 1 поле: пустые лейблы с названиями вида топлива (к примеру, А95) 2 поле: едиты в которых прописывается кол-во литров 3 поле: лейблы которые умножают кол-во литров на цену одного литра бензина и выводят общую стоимость (200.00р.) Ну и конечно, лейблы для общего подсчета расходов.. Не знаю как реализовать печать значений 1,2,3 полей и общей суммы на все виды топлива + слева дата и справа подпись в виде таблицы. То есть название колонки, три колонки в которые заносятся данные и ниже общая стоимость. Слева Дата - справа подпись Как создать шаблон конечного вида таблицы и вытащить в нее эти данные + дописать вывод даты и поле подписи? 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,750 Записей в блоге: 7
	18.01.2018, 16:05
	Нет, сейчас уже не помню, давно дело было. Помню, сама таблица отчета рисуется в desingtime в QuickReport, а потом заполняются поля. Добавлено через 3 минуты К тому же, если не изменяет память, уже в D7 его нет. 1

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,750 Записей в блоге: 7
	18.01.2018, 16:51
	Ну, может. Я им ещё в D4 пользовался. 1

@D1973 Модератор 9955 / 6491 / 2461 Регистрация: 21.01.2014 Сообщений: 27,500 Записей в блоге: 3
	18.01.2018, 16:54
	Ну да, в Д7 активно пропагандировался Rave Report... 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	18.01.2018, 16:58 [ТС]
	Rave reports или quick reports Без Разницы, главное достичь желаемого.. Чему пока мешает перенос значений form1 edit1 в form2 reports 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	19.01.2018, 08:40 [ТС]
	Ребят, если кто работал с встроенными репортами делфи7, помогите) 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,750 Записей в блоге: 7
	19.01.2018, 09:27
	О! Как же я забыл - можно html сформировать! Добавлено через 41 минуту С этим я мог бы помочь. 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	19.01.2018, 11:44 [ТС]
	Да ладно, уже как нибудь разберусь, просто первый скрипт после 5 летнего перерыва, на первом-втором курсе последний раз писали, уже все забыто и много непонятного. Если будут вопросы по конкретнее, задам, может поможете) Добавлено через 2 минуты Хочется завершить начатое, хотя оно и не особо нужно, так.. чисто для себя) 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	19.01.2018, 13:59
	у фастрепорта есть юзердатасет у него нужно создать поля завести переменную что-то типа номера записи в событии OnFirst - OnNext двигать эту переменную в событии GetEof по переменной или еще как-то определять EOF или нет в OnGetValue в зависимости от значения переменной и требуемого имени поля выдавать полям значение вот и весь ваш датасет для FR 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.01.2018, 11:04 [ТС]
	Спасибо!) Оказывается, StrToInt работает до знака +, прям как дорожный знак до перекрестка 0