Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отражение данных из формы в FR, Текущей формы 
:(
    Опции темы
Ateh
  Дата 22.12.2004, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 28.7.2004

Репутация: нет
Всего: нет
Т.е. мне нужно, чтобы данные (напр., из DBLookupComboBox) динамически изменяющиеся в форме отражались в FR. Это легко сделать в Access-е (=Forms!Students![Поле6]), а как это указывается в FR?
PM MAIL   Вверх
Alex
Дата 22.12.2004, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162
Код

 frDBDataSet1.RangeBegin:= rbCurrent;
 frDBDataSet1.RangeEnd:= reCurrent;



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Ateh
Дата 22.12.2004, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 28.7.2004

Репутация: нет
Всего: нет
Sorry, что-то я не понимаю... Где это пишется и нужны ли какие-нибудь дополнительные компоненты ( на форме-источнике или на форме, где находится отчет)? Можно ли передать данные Label ?
PM MAIL   Вверх
Alex
Дата 22.12.2004, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162
Вы определитесь, откуда вы хотите данные взять из базы данных или из переменных.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Ateh
Дата 22.12.2004, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 28.7.2004

Репутация: нет
Всего: нет
Хм, значение из формы. Условие именно это. Например, в Edit мы ввели, скажем, номер приказа в форме, ShowReport и в FR должен отражается этот номер (не будем хранить в базе). Вот такая задачка.
PM MAIL   Вверх
Dimich
Дата 11.1.2005, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7
В программе:
Код

Uses ...., frxVariables;

Var
 Variable : tfrxVariable;

begin
  .....
 Variable := frxReport1.Variables.Add;
 Variable.Name := 'MyNewVar';
 Variable.Value := '''' + Edit1.Text + '''';
  .....
 frxReport1.ShowReport;
  .....
end;
а в отчете как обычно обращаемся к этой переменной: [MYNEWVAR]

Стоит обратить внимание:
Variable.Value := '''' + Edit1.Text + '''';
кавычки нужны для строковых переменных!!!

Это сообщение отредактировал(а) Dimich - 11.1.2005, 16:47
--------------------
Не работает - исправь, работает - не трогай!!!
PM MAIL ICQ Jabber   Вверх
Nilek
Дата 19.9.2006, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.9.2006

Репутация: нет
Всего: нет
Цитата(Dimich @ 11.1.2005,  16:10)
В программе:
Код

Uses ...., frxVariables;

Var
  Variable : tfrxVariable;

begin
   .....
  Variable := frxReport1.Variables.Add;
  Variable.Name := 'MyNewVar';
  Variable.Value := '''' + Edit1.Text + '''';
   .....
  frxReport1.ShowReport;
   .....
end;
а в отчете как обычно обращаемся к этой переменной: [MYNEWVAR]

Стоит обратить внимание: 
Variable.Value := '''' + Edit1.Text + '''';
кавычки нужны для строковых переменных!!!

 smile  что то у меня не получется. Объявила переменную в FR (Report\Variable) с именем Title_period. Вывела ее в заголовке - [Title_period].
В Delphi прописала код 
Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, StdCtrls, DBCtrls, ExtCtrls, ComCtrls, frxDBSet, DB,
  CheckLst, ADODB, frxVariables;

var
  f_Balans: Tf_Balans;
  Variable: TfrxVariable;

procedure Tf_Balans.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass ;
     DBLookupComboboxEh1.KeyValue:=Trim(DM.v_N_month.FieldValues['period']);
     DM.v_period.Filter:='period='+
     DM.v_N_month.FieldByName('period').AsString
         +' and t_cwar='+ TRIM(Edit1.Text);
     DM.v_period.Filtered:=True;

   ......

     DM.p_BALANS.Open;

     Variable:=frxReport1.Variables.Add;
     Variable.Name:='Title_period';
     Variable.Value:='''' + DBLookupComboboxEh1.Text + '''';

     frxReport1.ShowReport;

  Screen.Cursor := crDefault ;
end;


.... но видимо где то обшиблась ...  smile  вылетает ошибка при нажатии кнопки запуска отчета из приложения.
 smile 
PM MAIL   Вверх
RideX
Дата 27.9.2006, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 1
Всего: 7
Вот пример:

Код в Delphi
Код

var
  frxDiscount: TfrxVariable;
begin
  frxDiscount := frxReport1.Variables.Add;
  frxDiscount.Name := 'nDiscount';
  frxDiscount.Value := nDiscount;
end;



В текстовых объектах FastReport
Код

// Сумма: memVsego(TfrxMemoView)
[SUM(<frxDBDataset."Цена">)]

// Сумма скидки: memDiscount(TfrxMemoView)
[round(memVsego.Value / 100 * <nDiscount>)]

// Итого: memItog(TfrxMemoView)
[memVsego.Value - memDiscount.Value]


Сразу не заметил, что:
Цитата

Объявила переменную в FR (Report\Variable)

В коде её ещё раз добавляешь, не нужно тогда объявлять её в отчёте.

Это сообщение отредактировал(а) RideX - 27.9.2006, 13:13
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0934 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.