Как правильно делать отчет в отдельн (своей) форме
Пытаюсь создать отчет в своей форме с кнопками.
Делаю так:
Раннее такой код работал.
Помогите как правильно делать!? Спасибо!
Делаю так:
procedure TfmMain.btnPrintRazreshenieClick(Sender: TObject);
begin
DM.RepDataset.DataSet := DM.DataSet1;
with DM.DataSet1 do
begin
Close;
CommandText := 'SELECT ...... т.д.';
end;
try
DM.DataSet1.Open;
except
ShowMsg('Ошибка ');
exit;
end;
with DM.Rep do
begin
DataSets.Add(DM.RepDataset);
if FileExists(ExtractFilePath(Application.ExeName) +
'Report\Raz.fr3') then
LoadFromFile(ExtractFilePath(Application.ExeName) +
'Report\Raz.fr3')
else
begin
ShowMsg('Внимание...', ' Ошибка ', 2, 'Файл не найден!', 0, 0);
exit;
end;
if PrepareReport then
//DM.Rep.ShowReport(True)
ShowPrint('Печать...')
else
ShowMsg('Внимание...', ' Ошибка ', 2, 'Отчёт не построен!', 0, 0);
end;
end;
-----------
procedure ShowPrint(fmCaption: string);
var
Frm: TfmPrint;
begin
Frm := TfmPrint.Create(Application);
try
with Frm do
begin
Caption := fmCaption;
DM.Rep.Preview := fmPrint.Preview1;
ShowModal;
end;
finally
Frm.Free;
end;
end;
----------
Раннее такой код работал.
Помогите как правильно делать!? Спасибо!
Комментарии
Обычный отчет работает без проблем (закоментированная строка в коде), но надо отдельную форму.
DM.Rep.Preview := Frm.Preview1;
или
DM.Rep.Preview := Preview1;