Как сделать лотерейные билеты с помощью FastReport .NET

23.08.2017

Допустим, вы решили провести лотерею в офисе и у вас есть только FastReport.Net под рукой. Нужно создать два набора билетов с уникальными номерами. Первый набор для пользователей, второй – для лототрона.

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

Запускаем дизайнер отчета. Сейчас у нас еще нет данных для отчета. Переходим на вкладку Код (Code).

Я сделал список номеров глобальным:

1
private List<int> num = new List<int>();

Создаем метод генерации уникальных чисел:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
private void RandomShaffle()
 {
 const int n = 20; //Серия 20 билетов
 Random r = new Random(10); 
 int curnumber = 0;
 for(int i = 0; i < n ; i ++)
 {
 curnumber = r.Next(100000, 999999); //Генерируем число в указанном диапазоне 
 if (!num.Contains(curnumber)) //Проверяем список номеров на совпадение с текущим
 num.Add(curnumber); //Добавляем в список
 else
 i--; //Откатываемся на итерацию назад
 }
 }
 

Мы указываем количество билетов n в партии. А также диапазон, в котором генерировать число. Я хочу шестизначные числа, поэтому указал диапазон от 100000 до 999999.

Теперь, выберите в инспекторе свойств объект Report:

 

Для него создаем событие ReportStart:

 

В обработчике события мы генерируем список чисел и регистрируем его в отчете как источник данных.

1
2
3
4
5
 private void _StartReport(object sender, EventArgs e)
 {
 RandomShaffle();
 Report.RegisterData(num, "Numbers");
 }

Пришло время создать шаблон отчета. Сейчас отчет еще ничего не знает об источнике данных, который мы ему готовим. Давайте запустим отчет на выполнение как есть. Конечно, мы получим пустую страницу. Возвращаемся к редактированию страницы. Теперь мы можем выбрать источник данных:

 

Создаем простой шаблон с двумя билетами на бэнде данные:

Запускаем отчет:

И видим список билетов. Осталось распечатать их и нарезать. 

.NET FastReport Десктоп .NET FastReport Десктоп
26 октября 2026

TfrImageComboBox: выпадающий список с изображениями и текстовыми подписями в FastReport VCL

TfrImageComboBox из FastEditors VCL: выпадающий список с иконками и подписями для FastReport VCL. Свойства, события и примеры использования в Delphi.
26 октября 2026

Прогресс-бар в Delphi: компоненты TfrProgressBar и TfrxProgressBar из FastReport VCL

Разбираем компоненты TfrProgressBar и TfrxProgressBar из FastReport VCL: настройка шкалы прогресса, пороги и маркеры, привязка к данным и пример на Delphi.
23 октября 2026

FastGrid изнутри: объект View, колонки и события компонента сетки Delphi

Внутреннее устройство FastGrid: объект View, свойство Appearance, колонки, события и режимы работы с данными DB и Unbound в Delphi. Разбор на примере демо-проекта GridDemo.dpr.

Не является публичной офертой
© 1998-2026 ООО «Быстрые отчеты»