Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2013, 16:18   #1
VitalyaVentel
 
Регистрация: 23.11.2012
Сообщений: 7
Восклицание Fast Report в Delphi

Добрый день! Есть такой вопрос!
У меня FR 4.1.8.
Я в Delphi, добавил на форму TfrxRerort (несколько штук) там создал нужные отчеты и сохранил их на диске с расширение fr3.

Нужно сделать так, чтобы программа брала один из шаблонов и загружала его на просмотр. При этом требуется помещать в созданные в отчете Varibles значения из полей Delphi.

Ко всему этому пользователь должен легко вызывать шаблон в программу и редактировать его (если нужно).

Код программы в стадии разработки. Но уже возникают вопросы..

unit uFrtest;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, frxClass, frxDesgnCtrls, frxDesgn, ExtCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
frxScrollBox1: TfrxScrollBox;
OpenDialog1: TOpenDialog;
Button2: TButton;
frxDesigner1: TfrxDesigner;
RadioGroup1: TRadioGroup;
frxRep1: TfrxReport;
frxRep2: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
r: TfrxReport;
p: TfrxReportPage;
m: TfrxMemoView;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var Str: String;
begin
// Выбираем отчет
Try
r := TfrxReport.Create(nil);
r.Clear;
If RadioGroup1.ItemIndex = 0 Then r.LoadFromFile('frxRep1.fr3')
Else r.LoadFromFile('frxRep2.fr3');
r.ShowReport;
Except
on e: exception do
begin
Application.MessageBox(Pchar('При составлении шаблона произошла ошибка: '+e.message),'Ошибка',48);
end;
end;
End;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Вызываем его в редактор
r.DesignReport(True,False);
end;

end.

Вопросы следующие:

1. При вызове отчета на печать "ругается" что в отчете не связаны Footer и Header. Почему и как связать ?

2. Как засунуть значения в переменные (Varibles) отчета ?

Заранее спасибо..
VitalyaVentel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
fast report reihtmonbern БД в Delphi 2 17.06.2012 16:07
Работа с Fast Report отчётом из Delphi. Leximus Общие вопросы Delphi 1 17.03.2012 00:25
Fast Report Равиль2303 Компоненты Delphi 2 31.01.2011 16:21
Delphi 7 и Fast Report многостраничный отчет tarakan1983 БД в Delphi 3 09.04.2010 14:58
Fast Report SERG1980 Компоненты Delphi 0 15.12.2008 09:08