Посчитать итоги по одной странице

Тема в разделе "Delphi - Базы данных", создана пользователем maxshuv, 5 сен 2006.

Статус темы:
Закрыта.
  1. maxshuv

    maxshuv Гость

    Мне нужно ( для Word-отчёта) в SQL-процедуре посчитать итог по всем строкам
    ДЛЯ КАЖДОЙ СТРАНИЦЫ ОТДЕЛЬНО, и вообще интересно это возможно, ведь количество записей на всех страницах может и не совпадать, например если сработает какая-нибудь автовысота(т.е. ширина текста будет больше ячейки).
     
  2. Barmutik

    Barmutik Гость

    Вам прямая дорога в генератор отчётов .. они как правило имеют такую функциональность.. ну или ручками считать итоги при выводе на страницы...
     
  3. maxshuv

    maxshuv Гость

    Barmutik "или ручками считать итоги при выводе на страницы..."

    Я не могу посчитать ручками итог по отдельной странице, так как в SQL-процедуре я не знаю когда оборвётся страница.
    Мне нужно в SQL-процедуре считать итог по странице, а не на Delphi.
     
  4. maxshuv

    maxshuv Гость

    Даже если пользоваться генератором отчётов, то поконкретней можно каким и как.
    Заранее спасибо.
     
  5. Razoomnick

    Razoomnick Гость

    Код (Text):
    function worddocsheetscount(doc:olevariant):integer;
    begin
    result:=Doc.Application.ActiveDocument.ComputeStatistics($00000002, EmptyParam);
    end;


    procedure TForm1.Button1Click(Sender: TObject);
    var
    oWord:OleVariant;
    oDoc: oleVariant;

    PCount:integer;
    begin
    oword:=createoleobject('word.application');
    oword.visible:=true;
    odoc:=oword.documents.add;
    PCount:=worddocsheetscount(odoc);
    showmessage(inttostr(pcount));
    end;
    Нажатие на button1 запускает ворд и создает новый документ. Функция worddocsheetscount возвращает число страниц документа. А итоги по страницам можно создать во время заполнения страниц, только нужно следить за их количеством.

    ps Не прочитал вопрос до конца. Удалить бы эту мессагу.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей