Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

InterBase и Fast Report [D7, IB6.x]

Kent © (2003-04-09 13:45:00)
Всем привет !
Кто-нибудь работал с Fast Report в плане создания master-detail отчетов ??
Напишите, пожалуйста, как это сделать ?

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

Respect всем ! ;)

Kent (2003-04-09 16:09:00) [1]
Нашел !!!!! Ура !!!

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

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

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

alxx (2003-04-09 15:54:00) [2]
Возможно.

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 15:05:00) [3]
Если не в дизайнере FR делать, то в Delphi я себе небольшой мастер генерации отчетов сделал :)) (мне еще тогда master-detail не нужен был) , но хотца не править каждый раз код в Delphi, когда боссам очередной репорт подавай, а делать это все через дизайнер FR ... Вот это возможно ???

Kent (2003-04-09 15:00:00) [4]
alxx
Упс поста не видел пока свой набивал !! :)) Счас почитаю ...

Kent (2003-04-09 14:59:00) [5]
Просто пошагово опиши, если не ломает, как именно заставить FR выводить Master Detail по двум Interbase таблицам, желательно через IBX компоненты, причем прямо в дизайнере отчетов FR.

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

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

alxx (2003-04-09 14:50:00) [6]
Там очень просто.

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

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;

alxx (2003-04-09 14:46:00) [7]
В чем конкретно проблема то?
Именно с Интербейз не работает, а с остальными работает?

Kent (2003-04-09 14:45:00) [8]
Эх, жаль ... ну ладно .. буду искать, а мож кто чем еще поможет ! :))

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

AlexSerp (2003-04-09 14:42:00) [9]
Леша, пардон, у меня версия 2.3 до Делфей5.
Для 7-ых нету.

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

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

СПАСИБО.

AlexSerp (2003-04-09 14:13:00) [11]
Если хочешь, я тебе хэлпы по ФАСТ-репорту вышлю.

AlexSerp (2003-04-09 14:07:00) [12]
RTFM - read the fucking manual.
Извини, конечно, по-русски - "Читай гребаное руководство".
Не обижайся, но чтение документации к средствам производства
помогает лучше плавать в программировании, чем получение ответов
от дядь.
Твой вопрос как раз говорит о том, что ее вообще в глаза не видел.
Если у тебя ее нет, то скачай из инета.

Kent (2003-04-09 14:01:00) [13]
To AlexSerp<b/>

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

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

AlexSerp (2003-04-09 13:47:00) [14]
RTFM

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »