Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 13:26 26.04.24 
Компютри и Интернет
   >> Delphi
Всички теми Следваща тема *Кратък преглед

Тема Помощ за FreeReport  
Авторзaблyдeн (Нерегистриран)
Публикувано25.11.03 21:37



Свалих си FreeReport 2.32 но нещо не мога да се оправя :( и моля за малко помощ. Значи имам един масив с 20 елемента integer и искам да ги покажа като таблица в report-a. Какво трябва да направя за да ги 'вкарам', да им направя Print Preview и накрая да ги отпечатам? Сигурно е лесно, но за пръв път се сблъсквам с Report generator и ми е като в мъгла. Мерси предварително, дано не ви затруднявам.



Тема Re: Помощ за FreeReportнови [re: зaблyдeн]  
Автор andrew_nikoloff (новак)
Публикувано26.11.03 09:04



Ами за FreeReport-а можеш да ползваш frUserDataset. Той има евенти OnCheckEOF, OnFirst и OnNext. С тяхна помощ можеш да направиш така, че масивът ти да изглежда точно като обикновен DataSet
После вече идва реда на самия репорт - може би ще искаш да си направиш някаква бланка или пък обикновена табличка... Най-простият начин е в дизайнера на репорта да си поставиш MasterDataBand, да го свържеш с твоя frUserDataSet и в него да си сложиш Memo за "фийлда" на твоята "табличка"...

Кажи после дали има нещо (не)ясно



Тема Откъде го свали?нови [re: зaблyдeн]  
АвторУчeниka (Нерегистриран)
Публикувано26.11.03 09:37



Пиши откъде свали FreeReport-a?



Тема Re: Откъде го свали?нови [re: Учeниka]  
Автор andrew_nikoloff (новак)
Публикувано26.11.03 10:15



Що не опиташ да го свалиш от тука?





Тема Re: Помощ за FreeReportнови [re: andrew_nikoloff]  
Авторзaблyдeн (Нерегистриран)
Публикувано26.11.03 12:34



Мерси, но още не съм се оправил.

Значи първия елемент на масива ми е IntArr[0]. Как да го "кажа" това на frUserDataSet.OnFirst евента?

После, сложих си някакъв текст в MasterData лента и с един бутон викам
frReport1.PrepareReport;
frReport1.ShowReport;
и нищо не става. Къде бъркам?



Тема Re: Помощ за FreeReportнови [re: зaблyдeн]  
Автор andrew_nikoloff (минаващ)
Публикувано26.11.03 13:27



Можеш да го симулираш така:
В мемото си пишеш някаква променлива (в квадратни скоби) - например [IntVal].

procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'IntVal' then
ParValue := a[idx];
end;

procedure TForm1.frUserDataset1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := idx > 19;
end;

procedure TForm1.frUserDataset1First(Sender: TObject);
begin
idx := 0;
end;

procedure TForm1.frUserDataset1Next(Sender: TObject);
begin
Inc(idx);
end;

където a ти е Array[0..19], а idx ти е индекса (инициализирай го за всеки случай на 0 да кажен на OnCreate). Важно е също така на самия репорт да кажеш StoreInDFM := True;



Тема Re: Помощ за FreeReportнови [re: andrew_nikoloff]  
Автор3aблyдeн (Нерегистриран)
Публикувано27.11.03 10:54



10x :)

Така вече тръгна и почнах да го загрявам. Жалко, че free версията не може да печата диаграми, но за момента не е толкова фатално.




Всички темиСледваща тема*Кратък преглед
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.