Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ОТЧЁТЫ !!! Скоро будут гореть


ali_tash ©   (2005-02-26 22:15:00) 

Здравсвуйте
в скором времени мне придётся писать часть программы которая
отвечает за формирование отчётов.
так как отчётов более 100 ,то хотелось бы узнать как оптимальнее начать работу над этой задачей, чтоб на пол пути не пришлось всё переделовать.
Отчёты нужно выводить только в Word или Excel(не исползовать Rave и прочие) ,база InterBase

Подскажите какой нибуть генератор отчётов
либо ссылки по этой теме.
Буду благодарен за любую информацию


Alex--   (2005-02-28 02:54:00) [1]

И в строну FastReport можно посмотреть. Быстрота создания, генерации отчетов. Возможность правки пользователем форм. Любая сложность, внутренний (паскале подобный) скрипт.
Экспорт в Excel(XML), Excel(OLE) и др. И не дорого.


Sergey_Masloff   (2005-02-27 22:19:00) [2]

vertal ©   (26.02.05 22:46) [2]
>Если эти самые Word или Excel доступны
...
>Хотя по оптимальности это решение не котируется - ни по >используемой памяти, ни по скорости.
Ну если данные в Excel вставлять обращаясь к Cells(x,y) то конечно... Если же работать ренджами засовывая заранее сформированные массивы - никаких проблем со скоростью. Принтер гораздо медленнее печатает.


YurikGL   (2005-02-27 20:21:00) [3]


> GanibalLector ©   (27.02.05 16:28) [16]

Сохраняешь из ворда нужный файл в формате xml, а потом смотришь из блокнота, например, как он внутри устроен.


GanibalLector   (2005-02-27 16:28:00) [4]

2 YurikGL ©   (27.02.05 08:21) [4]
Я конечно все понимаю,но не на английском :(
З.Ы. И когда ж я заставлю себя его выучить?


Набережных С.   (2005-02-27 15:00:00) [5]

Ну я ж говорю: справка - дело вкуса:) А критиковать по делу - это ж надо читать вдумчиво, а лень куда девать?:)


YurikGL   (2005-02-27 13:44:00) [6]


> YurikGL ©   (27.02.05 13:44) [13]

YurikGL(#-#)newmail.ru


YurikGL   (2005-02-27 13:44:00) [7]


> Набережных С. ©   (27.02.05 12:21) [10]

Если можно - скинь наиболее критичные вещи. Я давно собирался эту статью переписывать.

А по поводу справки VB, за все это время не использовал ее ни разу. Записи макроса, обычно, хватает...


atruhin   (2005-02-27 12:52:00) [8]

Простой пример:

procedure TfrmDateReport.FindReport;
var
 sr: TSearchRec;
 FileAttrs: Integer;
 i : word;
begin
 FileAttrs := 0;
 if FindFirst('*.xls', FileAttrs, sr) = 0 then begin
    repeat
      for i:=1 to length(sr.Name) do
        if sr.Name[i]='.' then break;
      if sr.Name[i]='.' then dec(i);
      edReportName.Items.Add(Copy(sr.Name,1,i));
    until FindNext(sr) <> 0;
    FindClose(sr);
 end;
end;

procedure TfrmDateReport.xlRepBeforeBuild(Report: TxlReportG2);
var
 S : string;
 i : word;
 IWorksheet : IxlWorksheet;
begin
 with xlRep do begin
   IWorksheet := IWorkbook.Worksheets.Item['Лист2'] as IxlWorksheet;
   IWorksheet.Range['SQLDTBegin', EmptyParam].Value :=
 DateTime2SQL(DateOf(edDateBegin.Date)+TimeOf(edTimeBegin.Time));
   IWorksheet.Range['SQLDTEnd', EmptyParam].Value :=
 DateTime2SQL(DateOf(edDateEnd.Date)+TimeOf(edTimeEnd.Time));
   i:=1;
   repeat
     S := IWorksheet.Range['B'+inttostr(i), EmptyParam].Value;
     if S <> '' then begin
       try
  Form1.unSQLCon.ExecSQL(S);
except
  IWorksheet.Range['SQLError', EmptyParam].Value := 'error in SQL - '+s;
  break;
end;
     end;
     inc(i);
   until S = '';
   tbLog.Close;
   tbLog.Open;
 end;
end;

А в листе Excel примерно так(простейший отчет):
create temp table reptbl (i1 varchar ,i2 float, i3 varchar)
insert into reptbl select compip, sum(summa), sum(trafic) from log where DATETIME>'SQLDTBegin' and DATETIME<'SQLDTEnd'  group by compip
но это сделано для SQLite где есть поддержка временных таблиц, для Firebird нужно немного поменять алгоритм, а вообще в XlReport более 100 страниц документации на русском языке.


Fin   (2005-02-27 12:24:00) [9]


> ali_tash   (27.02.05 12:16) [9]

http://www.afalinasoft.com/


Набережных С.   (2005-02-27 12:21:00) [10]


> YurikGL ©   (27.02.05 11:45) [7]

Ты меня тоже извини, погорячился:( Надо было письмом, а не сюда...Извини.


ali_tash   (2005-02-27 12:16:00) [11]

atruhin

можеш пример привести
и откуда можно скачать xlReport ?


atruhin   (2005-02-27 11:56:00) [12]

xlReport - очень много возможностей. Я делал вариант хранения SQL запросов на свободной странице Excel, получается одна процедура выбора отчета (все они хранятся в заданной директории), и одна процедура загрузки любого отчета, все отчеты делаются непосредственно в Excel (т.е. создаешь SQL выражения для получения данных, xlReport автоматически помещает эти данные в нужные ячейки).


YurikGL   (2005-02-27 11:45:00) [13]


> Набережных С. ©   (27.02.05 09:53) [5]

Там еще косяки есть... исправить то, конечно, надо...


Anatoly Podgoretsky   (2005-02-27 11:13:00) [14]

А на что они еще пригодны, это же не рукописи, если у тебя нет печки, то отдай в отдаленные районы, у них с теплом проблемы.


Набережных С.   (2005-02-27 09:53:00) [15]


> YurikGL ©   (27.02.05 08:21) [4]
> http://www.delphimaster.ru/articles/dbtoword/index.html

"Во Word-e", между прочим, есть еще и функция проверки правописания, ага. Глаз режет. И к двум способам "добывать информацию об интерфейсе ворда" недурно было-бы упомянуть и третий, самый логичный - встроенная справка по VBA, но это уже дело вкуса.


YurikGL   (2005-02-27 08:21:00) [16]


> Некоторые советуют XML.Я пока не догнал,что это..

http://www.microsoft.com/office/xml/default.mspx
http://www.microsoft.com/downloads/details.aspx?FamilyId=FE118952-3547-420A-A412-00A2662442D9&displaylang=en
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexcl2k2/html/odc_xmlss.asp

Суть в том, что генерируешь файл *.xml а потом его открываешь вордом или екселем.

А еще http://www.delphimaster.ru/articles/dbtoword/index.html


GanibalLector   (2005-02-27 01:47:00) [17]

я использую позднее связывание(OLE).НравиЦа ;)
З.Ы. Некоторые советуют XML.Я пока не догнал,что это...Но понял,что это лучший вариант из всех существующий.


vertal   (2005-02-26 22:46:00) [18]

> Отчёты нужно выводить только в Word или Excel
Если эти самые Word или Excel доступны, то можно их и использовать через OLE-автоматизацию. Гарантировано получение файла с правильным их родным форматом. Хотя по оптимальности это решение не котируется - ни по используемой памяти, ни по скорости.


Fin   (2005-02-26 22:21:00) [19]

Я пользуюсь xlReport для Excel, быстро, удобно, мне нравиться.


Наверх

Титульная страница Поиск, карта сайта Написать письмо