Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Как передать переменную в FastReport ?   Найти похожие ветки 

← →
Dimedrol ©   (2003-06-30 16:53) [0]

Коллеги, мне нужно в отчете писать цыфирьку,
введенную полоьзователем, скажем.
Так вот, как, например, из программы выставить значение
какого-нибудь TfrMemoView внутри отчета ?
Например сделать его = "1234567890" ?

---

← →
Dimedrol ©   (2003-06-30 17:52) [1]

Почему сюда переместили ?!
не понятно

---

← →
Anatoly Podgoretsky ©   (2003-06-30 17:55) [2]

Почему не удалили не понятно, чистый офтопик в базах.

---

← →
Витал ©   (2003-06-30 18:02) [3]

frReport.OnGetValue - вам поможет

---

← →
Dimedrol ©   (2003-06-30 18:25) [4]

2 Витал ©
Из вызывающей формы делаю -

RekF.frReport1.Dictionary.Variables["My_Var_Name"]:=989; или "989"


А уже в самой форме отчета даже так ее уже не видно -

procedure TRekF.FormShow(Sender: TObject);
begin
showmessage(RekF.frReport1.Dictionary.Variables["My_Var_Name"]);
end;

Пустоту показывает... 8-(

Понятно что я ее потом в отчете не вижу.
Там МЕМО, пытается отобразить [My_Var_Name]
Тоже пусто...

2 Anatoly Podgoretsky ©
Не знал что FastReport не относиться к базам...

---

← →
Dimedrol ©   (2003-06-30 18:37) [5]

Спасибо Витал © !
Разобрался так :

PUBLIC
xxx:STRING

procedure TRekF.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName="My_Var_Name" then ParValue:=xxx;
end;


---

← →
Dimedrol ©   (2003-06-30 18:46) [6]

А вот к стати еще вопрос:

Можно ли узнать, юзер НАПЕЧАТАЛ отчет, или
он в frReport1.PrintPreparedReportDlg нажал Cancel ?

---

← →
Hint ©   (2003-06-30 19:24) [7]

Для передачи переменных можно так:

...
frVariables["My_Var_Name"]:=xxx
...

По поводу второго вопроса... Вроде где-то на этом сайте мелькало что-то подобное, а может на http://www.fast-report.com/ru/forum.php
Некрасиво: можно отлавливать событие TfrReport.OnPrintReport...

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.012 c