gpi
gpi
Подробная информация
- Имя пользователя
- gpi
- Электронная почта
- Присоединился
- Посещений
- 178
- Был на сайте
- Группы
- FR Team
Комментарии
-
uses frxRich; --- procedure TForm1.Button1Click(Sender: TObject); var AStream: TMemoryStream; begin AStream:=TMemoryStream.Create; RxRichEdit1.Lines.SaveToStream(AStream); AStream.Position:=0; TfrxRichView(frxReport1.FindObject('…
-
написал: но уменя без DataSet используется frxUserDataSet? тогда у него должны быть обработчики OnFirst, OnNext, OnCheckEOF
-
У frReport1 свойство StoreInDFM установлено в True? (Если оно есть во FreeReport. Совет даю на основе опыта с FastReport)
-
Вот пример построения отчёта из кода procedure TForm1.Button1Click(Sender: TObject); var Table1: TTable; frxReport1: TfrxReport; frxDBDataSet1: TfrxDBDataSet; Page: TfrxReportPage; Band: TfrxBand; DataBand: TfrxMasterData; Memo: TfrxMemoView;…
-
Используйте обработчик TfrxDesigner.OnSaveReport
-
Попробуйте запрос с JOIN
-
Должно работать. А записи в таблице уникальны?
-
Можно к одному frxDBDataSet подключать требуемый DataSet и формировать отчёт.
-
Попробуйте выполнить такой запрос, без AND (operation.operday = '30-MAR-2006') SELECT to_char (operation.paydate, 'DD.MM.YYYY HH:MI:SS')paydate, operation.paysum, card.name, terminal.terminalid, operation.traceno, operation.authresponse, operation…
-
написал: procedure MasterData1OnBeforePrint где это писать В скрипте отчёта. Нужно выделить MasterData1, в инспекторе перейти на вкладку События, двойной клик на OnBeforePrint. В созданном обработчике написать case mod 3 of 0: Mem…
-
А так? DM.Rep.Preview := Frm.Preview1; или DM.Rep.Preview := Preview1;
-
Положите на MasterData1 Memo1. Memo1.Align=baClient. Сверху на Memo1 можно положить другие Memo с Color=clNone procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin case mod 3 of 0: Memo1.Color:=clRed; 1: Memo1.Color:…
-
В обработчике MasterData анализируйте состояние заказа, при выполнении условия накапливайте сумму в переменной. Значение переменной выводите в подвале отчёта
-
run-time designer не включается в Basic-версию, но есть в триальной http://www.fast-report.com/ru/products/variants.php
-
procedure ShowPrint(fmCaption: string); var Frm: TfmPrint; begin Frm := TfmPrint.Create(Application); try with Frm do begin Caption := fmCaption; DM.Rep.Preview := fmPrint.Preview1; DM.Rep.ShowPreparedReport; //попробуйте доб…
-
ID записей параллельно добавляйте в динамический массив либо в StringList
-
chlbxUsers.Items.Add('string')
-
Первый вариант-использовать кросс-таб для вывода массива (см. пример PrintStringGrid) и управлять шириной каждого столбца в событии кросса OnCalcWidth Второй вариант-самому создавать требуемые мемо на бэнде Masterdata перед печатью отчёта
-
Вот пример unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, frxClass; type TForm1 = class(TForm) frxReport1: TfrxReport; Button1: TButton; procedure Button1…
-
Используйте в отчёте скриптовую переменную и обращайтесь к ней после закрытия отчёта Rep_Kassa.Script.Variables
-
procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin if Memo1.Lines.Count>20 then Memo1.Font.Size:=10 else Memo1.Font.Size:=20; end;
-
Если нужно, чтобы текст, повернутый на 90 гр печатался в одну строку, то у мемо нужно выставлять свойство StretchMode=smActualHeight, у бэнда, на котором расположено мемо Stretched=True
-
Если нужно проверить число строк, разделённых символами перевода строки, то Memo.Lines.Count
-
Length(Trim(Memo.Text)) Trim убирает перевод строки
-
Memo.SuppressRepeated=True
-
Для вывода a1-a15,b1-b15 используй вложенный отчёт
-
Для вычисления TotalPages отчёт должен быть двухпроходным
-
Проверил на запросе с JOIN. Тоже работает. Тестовый проект сможете сделать на основе DBDEMOS?
-
Это как? Если отображается результат запроса, то разницы быть не должно
-
Нужно использовать три уровня группировки: ID клиента, Месяц доставки, статус оплаты. Данные тоже должны быть отсортированы по этим полям