Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывод в отчет текущей записи, FastReport 
:(
    Опции темы
VanHelsing
Дата 11.3.2010, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Использую систему отчета FastReport. В отчет необходимо выводить в отчет только текущую запись. Не знаю как это сделать. Подскажите пожалуйста!


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 11.3.2010, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Сделай запрос на эту запись, и из запроса уже выводи. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
VanHelsing
Дата 11.3.2010, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Интересно, а проще никак нельзя?


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 11.3.2010, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Вообще, действительно, можно и проще. Просто кинь на отчёт текстовые поля, их значения бери из фастовых переменных. А значения этих переменных, соответственно, вставляй из полей датасета по 
Код

procedure TForm1.frxReport1GetValue(const VarName: String;
  var Value: Variant);

 smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
VanHelsing
Дата 11.3.2010, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Цитата

Вообще, действительно, можно и проще. Просто кинь на отчёт текстовые поля, их значения бери из фастовых переменных. А значения этих переменных, соответственно, вставляй из полей датасета  

Пожалуйста приведи пример как это сделать, не могу разобраться.


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 11.3.2010, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
VanHelsing, вот смотри ссылки снизу, там я даже мануал в картинках ваял. smile 

Впрочем, картинки уже не грузятся, но, надеюсь, по описанию поймёшь.

Это сообщение отредактировал(а) Данкинг - 11.3.2010, 19:23


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Deniz
Дата 12.3.2010, 07:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44
VanHelsing, есть еще несколько вариантов.
1. Клонировать запись в ClientDataSet
2. Временно поставить фильтр на DataSet, чтобы была только эта запись. Фаст только ее и покажет.
3. Передавать переменные в отчет по 
Код
frxReport1.Variables['VarName']:=NeedValue;



--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
pseud
Дата 12.3.2010, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Цитата(Данкинг @  11.3.2010,  19:07 Найти цитируемый пост)
 Просто кинь на отчёт текстовые поля, их значения бери из фастовых переменных. А значения этих переменных, соответственно, вставляй из полей датасета по 

сложновато.
да, просто кинь на отчет текстовые поля, а перед выводом отчета присвой им нужные тексты.


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Данкинг
Дата 12.3.2010, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(pseud @  12.3.2010,  10:11 Найти цитируемый пост)
сложновато.
да, просто кинь на отчет текстовые поля, а перед выводом отчета присвой им нужные тексты. 

Ну так а я как сказал? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
pseud
Дата 12.3.2010, 11:04 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Цитата(Данкинг @  12.3.2010,  10:39 Найти цитируемый пост)
Ну так а я как сказал?

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  with frxReport1 do
  begin
    TfrxMemoView(FindObject('Memo1')).Text := 'VanHelsing';
    TfrxMemoView(FindObject('Memo2')).Text := 'не используй';
    TfrxMemoView(FindObject('Memo3')).Text := 'переменные';
    ShowReport;
  end;
end;



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Данкинг
Дата 12.3.2010, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(pseud @  12.3.2010,  11:04 Найти цитируемый пост)
а вот, что я имею ввиду:

Ну, может быть, так и проще, просто я привык с переменными. Как меня научили - так и делаю с тех пор. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 12.3.2010, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Цитата(VanHelsing @  11.3.2010,  18:35 Найти цитируемый пост)
В отчет необходимо выводить в отчет только текущую запись. 

А можно по русски рассказать, что такое текущая запись? А мои телепатические возможности в пятницу не хотят работать.
PM MAIL   Вверх
Alexeis
Дата 12.3.2010, 17:48 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Цитата(Akella @  12.3.2010,  16:39 Найти цитируемый пост)
А можно по русски рассказать, что такое текущая запись? А мои телепатические возможности в пятницу не хотят работать. 

Скорее всего последнюю добавленную.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
VanHelsing
Дата 12.3.2010, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Цитата

А можно по русски рассказать, что такое текущая запись? А мои телепатические возможности в пятницу не хотят работать. 

Это та запись на которой находится курсор(объясняю я плохо, т.к. с БД только знакомлюсь заранее извиняюсь).


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 12.3.2010, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Akella @  12.3.2010,  17:39 Найти цитируемый пост)
А можно по русски рассказать, что такое текущая запись? 

Видимо, на которой стоишь в датасете - ту и выводить. Я так понял. smile

Добавлено через 20 секунд
Цитата(VanHelsing @  12.3.2010,  18:08 Найти цитируемый пост)
Это та запись на которой находится курсор

Я угадал! smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
pseud
Дата 12.3.2010, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Цитата(VanHelsing @  12.3.2010,  18:08 Найти цитируемый пост)
Это та запись на которой находится курсор(объясняю я плохо, т.к. с БД только знакомлюсь заранее извиняюсь).

а по существу? мои содрагания возымели пользу?


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
VanHelsing
Дата 12.3.2010, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Цитата

а по существу? мои содрагания возымели пользу?

Да, спасибо большое - получилось. 
Как я понял по для вывода текущей записи существует два способа:
1. Это создание дополнительных переменных(или например объектов типа dbtext) и передавать предлагаемыми способами в отчет.
2. Использовать компонент Query и из получившейся таблицы генерировать отчет.


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 12.3.2010, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
VanHelsing, по-моему, ты не совсем верно понял; посмотри ещё раз код, который pseud написал.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 13.3.2010, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Я бы использовал ещё один набор данных, в который передавал условие:
where id = ....
PM MAIL   Вверх
VanHelsing
Дата 13.3.2010, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



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

Репутация: нет
Всего: 6
Цитата

Я бы использовал ещё один набор данных, в который передавал условие:
where id = ....

Как я понимаю одну и ту же БД используют несколько компонентов доступа. Например, TTable и TQuery?


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
Данкинг
Дата 13.3.2010, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Akella @  13.3.2010,  15:27 Найти цитируемый пост)
Я бы использовал ещё один набор данных, в который передавал условие:
where id = ....

Я примерно то же и написал в первом своём посте. smile 

Цитата(VanHelsing @  13.3.2010,  15:33 Найти цитируемый пост)
Как я понимаю одну и ту же БД используют несколько компонентов доступа. Например, TTable и TQuery? 

Да, а к чему такой вопрос?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Deniz
Дата 15.3.2010, 06:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44
Цитата(Akella @  13.3.2010,  17:27 Найти цитируемый пост)
Я бы использовал ещё один набор данных, в который передавал условие:
where id = .... 
не есть гуд, запрос может быть слишком сложный, и на его выполнение может потребоваться доп. время, так же может повлиять уровень изоляции транзакции, т.е. если это не SnapShot то кто-то мог уже изменить эту запись, и при повторном запросе данные в отчете и на экране будут разными.
Чем не нравятся мои варианты:
1. Клонировать запись в ClientDataSet
2. Временно поставить фильтр на DataSet, чтобы была только эта запись. Фаст только ее и покажет.
Второй вариант, на мой взгляд, более подходящий, потому как не требует дополнительного кодинга.
Код
i:=DataSet.FieldByName('id').asInteger;
DataSet.Filter:='id = ' + inttostr(i);
DataSet.Filtered:=True;
frxReport1.ShowReport;
DataSet.Filtered:=False;
DataSet.Locate('id', i, []);



--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
former
Дата 17.3.2010, 15:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17
Как много вариантов, а правильного нет. smile 
Устанавливаем следующие значения в frxDBDataset:
user posted image
и все. smile 


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


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

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

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


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

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

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

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


 




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


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

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