InterBase и Fast Report

← →
Kent (2003-04-09 13:45) [0]

Всем привет !
Кто-нибудь работал с Fast Report в плане создания master-detail отчетов ??
Напишите, пожалуйста, как это сделать ?

А то у меня ничего не выходит ... наверное совсем крыша съехала ..

Respect всем ! ;)

← →
AlexSerp (2003-04-09 13:47) [1]

RTFM

← →
Kent (2003-04-09 14:01) [2]

To AlexSerp<b/>

Если можно - чуть подробнее!!
RTFM - сайт имеешь в виду ??
Если да, то у них поиск не работает - 500-я ошибка .. :(

Вот такие делищи !!!

← →
AlexSerp (2003-04-09 14:07) [3]

RTFM - read the fucking manual.
Извини, конечно, по-русски - "Читай гребаное руководство".
Не обижайся, но чтение документации к средствам производства
помогает лучше плавать в программировании, чем получение ответов
от дядь.
Твой вопрос как раз говорит о том, что ее вообще в глаза не видел.
Если у тебя ее нет, то скачай из инета.

← →
AlexSerp (2003-04-09 14:13) [4]

Если хочешь, я тебе хэлпы по ФАСТ-репорту вышлю.

← →
Kent (2003-04-09 14:31) [5]

Если ты про руководство, которое на сайте FastReport"а, то уже надо изъежжены вдоль и поперек ... вот уж действительно Fucking manual ....
Про конкретно InterBase там ничего нету, как и про использование IBX компонентов ...
А хелпы вышли если не сложно aspgroup@newmail.ru (если до 1,5 МБ размером). Может чо полезное наковыряю..

А по поводу RTFM я честно говоря правда думал, что это сайт.. :))

СПАСИБО.

← →
AlexSerp (2003-04-09 14:42) [6]

Леша, пардон, у меня версия 2.3 до Делфей5.
Для 7-ых нету.

← →
Kent (2003-04-09 14:45) [7]

Эх, жаль ... ну ладно .. буду искать, а мож кто чем еще поможет ! :))

Все равно, СПАСИБО !!!

← →
alxx (2003-04-09 14:46) [8]

В чем конкретно проблема то?
Именно с Интербейз не работает, а с остальными работает?

← →
alxx (2003-04-09 14:50) [9]

Там очень просто.

Примерно так нужно:

Detail3 и Master3 - frUserDataSet.

procedure TFSvod.Detail3CheckEOF(Sender: TObject; var Eof: Boolean);
begin
EOF:=EOF or
(ClaGrup<>(ADOStoredProc1.FieldByName("NameCs").AsString)) or
ADOStoredProc1.Eof;
end;

procedure TFSvod.Detail3First(Sender: TObject);
begin

end;

procedure TFSvod.Detail3Next(Sender: TObject);
begin
ADOStoredProc1.Next;
end;

procedure TFSvod.Master3Next(Sender: TObject);
begin
ClaGrup:=ADOStoredProc1.FieldByName("NameCs").AsString;
end;

procedure TFSvod.Master2CheckEOF(Sender: TObject; var Eof: Boolean);
begin
EOF:=EOF or ADOStoredProc1.EOF;
end;

procedure TFSvod.Master2First(Sender: TObject);
begin
ADOStoredProc1.First;
ClaGrup:=ADOStoredProc1.FieldByName("NameCs").AsString;
end;

← →
Kent (2003-04-09 14:59) [10]

Просто пошагово опиши, если не ломает, как именно заставить FR выводить Master Detail по двум Interbase таблицам, желательно через IBX компоненты, причем прямо в дизайнере отчетов FR.

Сейчас в дизайнере имеем Database (соединение работает), два Query к таблицам PROJECTS и STDOCUMENTS (в STDOCUMENTS есть foreing key по полю project_id на поле id таблицы PROJECTS). Вот простой список проектов из PROJECTS он делает отлично, но мне нужен список проектов с принадлежащими им документами. Вот и хочу узнать как заставить как из STDOCUMENTS выводить документы для каждого из отчетов ...

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

← →
Kent (2003-04-09 15:00) [11]

alxx
Упс поста не видел пока свой набивал !! :)) Счас почитаю ...

← →
Kent (2003-04-09 15:05) [12]

Если не в дизайнере FR делать, то в Delphi я себе небольшой мастер генерации отчетов сделал :)) (мне еще тогда master-detail не нужен был) , но хотца не править каждый раз код в Delphi, когда боссам очередной репорт подавай, а делать это все через дизайнер FR ... Вот это возможно ???

← →
alxx (2003-04-09 15:54) [13]

Возможно.

1. Делаешь два юзердатасета. Один - детайл, другой мастер.
2. Обработчики событий задаешь так, как я написал. Если используются два разных датасета, то еще проще:

procedure TForm.DetailCheckEOF(Sender: TObject; var Eof: Boolean);
begin
EOF:=EOF or IBQuery.Eof;
end;

procedure TForm.DetailFirst(Sender: TObject; var Eof: Boolean);
begin
IBQuery.First;
end;

procedure TForm.DetailNext(Sender: TObject; var Eof: Boolean);
begin
IBQuery.Next;
end;

Мастер точно также.

Ставишь бэнды в дизайнере MasterData и DetailData - ставишь им источники данных соответственно мастер и дата. Ну и поля на них втюхиваешь. Поэкспериментируй с OnCheckEof на детайл дата - если оно еоф - то берется следующая запись детайла - в зависимости от того, что тебе надо.

← →
Kent (2003-04-09 16:09) [14]

Нашел !!!!! Ура !!!

Короче, сообщаю на всякий пожарный - взял с сайта Fast Report пакет для кроссплатформенной разработки - 3-й версии !!

Вот там то у меня все и заработало !!! Прямо из дизайнера !

САЛЮТ и RESPECT всем, кто мне ответил !

InterBase и Fast Report Найти похожие ветки