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

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

null@example.com (Новичок) — Mon, 21 Aug 2023 21:01:47 +0000

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

procedure DialogPage1OnActivate(Sender: TfrxComponent);
begin
  Edit1.text := ;
  Edit2.text := ;
  Edit3.text := ;      
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;

Владимир

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

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

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

null@example.com (pavlenko.vladimir.v) — Mon, 21 Aug 2023 19:47:37 +0000

Новичок wrote:

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

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

null@example.com (pavlenko.vladimir.v) — Mon, 21 Aug 2023 19:46:12 +0000

Новичок wrote:

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

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

procedure DialogPage1OnActivate(Sender: TfrxComponent);
begin
  Edit1.text := ;
  Edit2.text := ;
  Edit3.text := ;      
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;

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

null@example.com (Новичок) — Mon, 21 Aug 2023 17:54:16 +0000

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

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

null@example.com (Новичок) — Mon, 21 Aug 2023 14:17:36 +0000

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

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

null@example.com (Новичок) — Mon, 21 Aug 2023 14:16:08 +0000

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

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