Помощь 2 с проектом для Новичка

Новичок · 2023-08-21 14:16:08

Новичок
Member
Offline

Registered: 2023-08-19
Posts: 66

Topic: Помощь 2 с проектом для Новичка

Пожалуйста помогите мне с проектом.

Как передать статические переменные в диалоговое окно отчета (исключая базу данных)
Изображение вместе с проектом.

Post's attachments

prj2.zip 457.01 kb, 62 downloads since 2023-08-21

Новичок · 2023-08-21 14:17:36

Новичок
Member
Offline

Registered: 2023-08-19
Posts: 66

Re: Помощь 2 с проектом для Новичка

Фото из проекта

Post's attachments

112.jpg 143.85 kb, 21 downloads since 2023-08-21

Новичок · 2023-08-21 17:54:16

Новичок
Member
Offline

Registered: 2023-08-19
Posts: 66

Re: Помощь 2 с проектом для Новичка

Кажется это не выполнимо

pavlenko.vladimir.v · 2023-08-21 19:46:12

pavlenko.vladimir.v
Member
Offline

From: Нефтеюганск
Registered: 2022-06-03
Posts: 461

Re: Помощь 2 с проектом для Новичка

Новичок wrote:

Кажется это не выполнимо

скрипт отчета
<переменная>

procedure DialogPage1OnActivate(Sender: TfrxComponent);
begin
  Edit1.text := <FIO>;
  Edit2.text := <SHOP>;
  Edit3.text := <SIGIN>;      
end;

создаем переменные для отчета

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
fio,shop,sigin:string;
begin
  test := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'set.pas');

  Form1.frxReport.Variables.Clear;
  Form1.frxReport.Variables[' ' + 'Components'] := Null;
  fio := test.ReadString('Form1', 'Edit1', '');
  Form1.frxReport.Variables['FIO'] := ''''+fio+'''';
  shop := test.ReadString('Form1', 'Edit2', '');
  Form1.frxReport.Variables['SHOP'] := ''''+shop+'''';
  sigin := application.user.username;
  Form1.frxReport.Variables['SIGIN'] := ''''+sigin+'''';
end;

Post's attachments

test.rar 127.51 kb, 73 downloads since 2023-08-21

pavlenko.vladimir.v · 2023-08-21 19:47:37

pavlenko.vladimir.v
Member
Offline

From: Нефтеюганск
Registered: 2022-06-03
Posts: 461

Re: Помощь 2 с проектом для Новичка

Новичок wrote:

Кажется это не выполнимо

Post's attachments

Без имени.png 181.32 kb, 17 downloads since 2023-08-21

Новичок · 2023-08-21 21:01:47

Новичок
Member
Offline

Registered: 2023-08-19
Posts: 66

Re: Помощь 2 с проектом для Новичка

скрипт отчета
<переменная>

procedure DialogPage1OnActivate(Sender: TfrxComponent);
begin
  Edit1.text := <FIO>;
  Edit2.text := <SHOP>;
  Edit3.text := <SIGIN>;      
end;

создаем переменные для отчета

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
fio,shop,sigin:string;
begin
  test := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'set.pas');

  Form1.frxReport.Variables.Clear;
  Form1.frxReport.Variables[' ' + 'Components'] := Null;
  fio := test.ReadString('Form1', 'Edit1', '');
  Form1.frxReport.Variables['FIO'] := ''''+fio+'''';
  shop := test.ReadString('Form1', 'Edit2', '');
  Form1.frxReport.Variables['SHOP'] := ''''+shop+'''';
  sigin := application.user.username;
  Form1.frxReport.Variables['SIGIN'] := ''''+sigin+'''';
end;

Владимир

Вы как всегда меня выручаете
Огромное спасибо ВАМ

У меня все работает, еще раз огромное спасибо.

Помощь 2 с проектом для Новичка

Posts: 6

1 Topic by Новичок 2023-08-21 14:16:08

Topic: Помощь 2 с проектом для Новичка

2 Reply by Новичок 2023-08-21 14:17:36 (edited by Новичок 2023-08-21 14:18:12)

Re: Помощь 2 с проектом для Новичка

3 Reply by Новичок 2023-08-21 17:54:16

Re: Помощь 2 с проектом для Новичка

4 Reply by pavlenko.vladimir.v 2023-08-21 19:46:12

Re: Помощь 2 с проектом для Новичка

5 Reply by pavlenko.vladimir.v 2023-08-21 19:47:37 (edited by pavlenko.vladimir.v 2023-08-21 19:47:54)

Re: Помощь 2 с проектом для Новичка

6 Reply by Новичок 2023-08-21 21:01:47 (edited by Новичок 2023-08-21 21:05:26)

Re: Помощь 2 с проектом для Новичка

Posts: 6