FastReport - [19] :: Прикладное программирование

EvgenDM

Цитата:

У меня появился еще один вопрос. Как правильно работать с встроенными в FR 2.5 Query? А точнее как туда во время выполнения отчета передать параметр?
типа в 'select :str from dual' хочу изменить параметр :str

Хочешь изменить параметр или текст запроса?
Почему спрашиваю? Как мне кажется, параметр это когда 'select * from dual where str = :str'

А теперь мой вопрос:
Нужно при щелчке по объекту типа TfrxMemoView на сформированном отчете изменять текст этого объекта и сохранять это изменение в БД.
У объекта отчета TfrxMemoView на событие OnPreviewClick повешан следующий обработчик:

Код:

with Engine do begin
mNote.Lines.Text:=TfrxMemoView(Sender).Text; {Заносим текст в объект Memo на форме fm_NoteAssm}
fm_NoteAssm.ShowModal;
if fm_NoteAssm.ModalResult = mrYes then begin
TfrxMemoView(Sender).Text:=mNote.Lines.Text;
Modified:=True;
MyExecSQL('update xxx set xxx where xxx');
end;
end;

Если открываю отчет через дизайнер отчетов (FR3.DesignReport) и делаю просмотр то все Ок!
Если делаю просмотр через FR3.PreviewReport вылетает с ошибкой.
Похоже что в этом случае из скипта невозможно обратиться к контролу на скрытой форме fm_NoteAssm. Или както нужно проинициализировать движок FR3 чтобы работало так же как через дизайнер. Может подскажите?

Добавлено:
Получается монолог

Оказывается TfrxDialogPage похоже не предназначен для использования после формирования отчета. Поэтому обращение к диалоговой форме из сформированного отчета вызывает ошибку. Помог пример FastScript. Вот моя реализация, может кому пригодиться:

Код:

var
f:TForm;
mm:TMemo;
bYes:TButton;
bNo:TButton;

procedure mNoteAssmOnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
with Engine do begin
f:=TForm.Create(nil);
f.Position:=poScreenCenter;
f.BorderStyle:=bsDialog;
f.Caption:='Примечание Цеха';
f.Width:=270;
f.Height:=177;

mm:=TMemo.Create(f);
mm.Parent:=f;
mm.Name:='mm';
mm.Align:=alTop;
mm.Height:=121;
mm.Lines.Text:=TfrxMemoView(Sender).Text;

bYes:=TButton.Create(f);
bYes.Parent:=f;
bYes.Name:='bYes';
bYes.Caption:='Сохранить';
bYes.Height:=25;
bYes.Width:=75;
bYes.Left:=186;
bYes.Top:=124;
bYes.ModalResult:=mrYes;

bNo:=TButton.Create(f);
bNo.Parent:=f;
bNo.Name:='bNo';
bNo.Caption:='Отмена';
bNo.Height:=25;
bNo.Width:=75;
bNo.Left:=4;
bNo.Top:=124;
bNo.ModalResult:=mrNo;

try
f.ShowModal;
if f.ModalResult = mrYes then begin
TfrxMemoView(Sender).Text:=mm.Lines.Text;
Modified:=True;
MyExecSQL('update "vw_Requests" Rqst set Rqst."AssmNote" = '''+mm.Lines.Text+
''' where Rqst."ID_Request" ='+IntToStr(Sender.Tag));
end;
finally
f.Free;
end;
end;
end;

procedure mNoteAssmOnBeforePrint(Sender: TfrxComponent);
begin
with Engine do begin
Sender.Tag:=<fqr."IDRqst">;
end;
end;

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93