Dronton2
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jvthegost
FastReport работает со своими переменными и имеет свой скриптовый язык, поэтому:
1. В FastReport'е в списке переменных создайте категорию и переменную (назвав её, например, v1): https://www.fast-report.com/documentation/ProgMan-ru/index.html?20.htm
2. В FastReport'е для обекта штрих-кода создайте событие OnBeforePrint:
Код: procedure Barcode2D1OnBeforePrint(Sender: TfrxComponent);
begin
Barcode2D1.Text := <v1>; // в текст штрихкода вносим значение переменной v1
end; |
3. В Delphi для кнопки создайте событие OnClick:
Код: procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.Variables['v1'] := '987'; // присваиваем переменной v1 значение '987'
frxReport1.ShowReport;
end; |
В принципе, можно обойтись без пункта 1, если пункт 3 заменить на:
Код: procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.Variables[' My Category 1'] := Null; // создаём категорию переменных ' My Category 1', если её нет
frxReport1.Variables['v1'] := '987'; // создаём переменную v1, если её нет и присваиваем переменной v1 значение '987'
frxReport1.ShowReport;
end; |
|
Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 17:58 25-11-2016 | Исправлено: Dronton2, 18:20 25-11-2016 |
|
