Отчёты в делфи7

[Квэнди]

Не все сразу, как руки дойдут, обязательно )

[Mitriy]

Сообщение от Квэнди

Не все сразу, как руки дойдут, обязательно )

Я думаю еще бы было актуальным написать + и - данных компонентов

[Квэнди]

Нелутшее место для обсуждения. Есть специальная тема.
http://www.programmersforum.ru/showthread.php?t=4852

[Pitbull]

Сообщение от Квэнди

http://delphi.pp.ru/index.php?showforum=14

Завтра обязательно посещу твой сайт

[Lexp1]

Сообщение от _SERGEYX_

Ох..., ту тогда так...
Иди сюда и скачивай Full Source у братьев-китайцев FastReport (надеюсь меня не забанят за распространение вареза).
Жми recompile.exe, выбирай русский язык.
Устнавливай следующие пакеты
dclfrxxx.dpk
dclfrxDBххх.dpk
... где ххх - твоя версия Дельфи.
(это обязательно, остальные по желанию).
Бросаем на форму компоненты frxReport и какие-то frxDBDataset, которые связываем с нужными ДатаСет. Кликаем 2 раза по frxReport, в меню Отчет-Данные-... подключаем наши ДатаСет-ы. Дальше все поймешь сам....

у меня седьмая делфи значит выбирать ...7.dpk или заменять ххх на 7 и устанавливать.

[_SERGEYX_]

После recompile.exe у тебя появится папка LibD7.
В ней выбирай ...7.dpk.

[Lexp1]

в данной папке появляется только 4 файла *.pas

[ЮХРИ]

Сообщение от Lexp1

Доброе время суток! Я начинабщий программер, у меня возникла проблемма с отчётами. Создал приложение без алиасов при помощи копирования файлов из BDE. Отчёты при помощи RaveDesiner5. Дистрибутив от Innosetup. Устанавливаю на другой ПК - прога работает, выполняются все запросы как надо, но вот отчёты отображаются в защифрованном виде... Как можно исправить эту проблему?

Сам долго мучился, а всё оказалось просто:
Когда создавал отчёт с помощью RAVE Designer ужно было устанавливать шрифт у компонентов не в левом окошке параметров(там глючит), а в верхней закладке с надписью "Fonts" и выбирать кириллические шрифты т.е. не Arial,8 ,а Arial Cyr,8

[mma]

ни кто не подскажет как вывести текст в MSWord не только из одной ячейки, а весь текст в столбце. Вот код, по которому он переносит в word текст из одной ячейки:

procedure TForm1.Button3Click(Sender: TObject);
begin
   CreateWord;
   OpenDoc(ExtractFileDir(application.ExeName)+'\pp.doc');
   
StartOfDoc; FindAndPasteTextDoc('###№ П.П.&',table1.Fields[1].Text);
   
   SaveDocAs(ExtractFileDir(application.ExeName)+'\Платежное поручение.doc');
   CloseDoc;
   shellexecute(handle,'open',pchar(ExtractFileDir(application.ExeName)+'\Платежное поручение.doc'),'','',1);
end;

[_SERGEYX_]

Циклом.

procedure TForm1.Button3Click(Sender: TObject);   
begin  
table1.first; 
   CreateWord;   
   OpenDoc(ExtractFileDir(application.ExeName)+'\pp.doc');   
 
while not table1.eof do
begin     
StartOfDoc; FindAndPasteTextDoc('###№ П.П.&',table1.Fields[1].Text);   
table1.next;
end;      
   SaveDocAs(ExtractFileDir(application.ExeName)+'\Платежное поручение.doc');   
   CloseDoc;   
   shellexecute(handle,'open',pchar(ExtractFileDir(application.ExeName)+'\Платежное поручение.doc'),'','',1);   
end;