Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Проблема с созданием отчёта

Автор: Fast 2.3.2007, 21:08

Используя ReportBuilder написал следующий код

Код


procedure TForm2.ppReport1BeforePrint(Sender: TObject);
begin
If Form1.ADOTable1.FieldByName('Постоянный').Value = 'True' then
begin
ppImage1.Picture.LoadFromFile('post.jpg');
if FileExists(Form1.ADOTable1.FieldValues['Фотография']) then
ppImage2.Picture.LoadFromFile(Form1.ADOTable1.FieldValues['Фотография']);
end else
Begin
ppImage1.Picture.LoadFromFile('vrem.jpg');
if FileExists(Form1.ADOTable1.FieldValues['Фотография']) then
ppImage2.Picture.LoadFromFile(Form1.ADOTable1.FieldValues['Фотография']);
ppLabel2.Caption := FormatDateTime('dd.mm', Form1.ADOTable1.FieldValues['Дата']);
end;
end;

В поле фотография хранится путь к фотографиям.
В отчёте все картинки одни и теже а должны быть разные!!!

Автор: DimW 5.3.2007, 11:55

Цитата(Fast @ 2.3.2007, 21:08

)

В отчёте все картинки одни и теже

вот эти - vrem.jpg?...

Автор: SergeBS 5.3.2007, 12:18

Fast,

Цитата

В отчёте все картинки одни и теже а должны быть разные!!!

Кому они должны?

Цитата

procedure TForm2.ppReport1BeforePrint(Sender: TObject);

Возникает перед печатью отчета, а не бэнда. Все бэнды получают одну картинку. Все правильно. bandBeforePrint - немного другое.

Автор: Fast 5.3.2007, 17:24

Цитата

вот эти - vrem.jpg?...

И эти и Form1.ADOTable1.FieldValues['Фотография']

А в какой тогда процедуре писать ???

Автор: SergeBS 6.3.2007, 08:48

Fast,
Совсем плохой? Ну так повторяю: bandBeforePrint

Автор: Fast 6.3.2007, 16:40

SergeBS
Там нету такой!!!

Автор: SergeBS 9.3.2007, 10:55

Fast,
Смотри в Events. Все там есть.

Автор: SergeBS 9.3.2007, 11:14

Fast,
Тему закрыть не забудь.