FastReport
Добавлено: 14 ноя 2006, 13:04
Скажите можно ли формы отчетов хранить в базе. Если можно то как. Спасибо.
можноS.H.S писал(а):Скажите можно ли формы отчетов хранить в базе. Если можно то как. Спасибо.
Код: Выделить всё
if qReportForm.Locate('ID', номер отчета, []) then
begin
frReport.LoadFromBlobField(TBlobField(qReportForm.FieldByName('FORM').Value));
frReport.Title := 'можно хранить в базе';
if dbBase1.ConnectParams.RoleName = 'ADMIN' then
begin
//открывается дизайнер, для создания новых форм из клиента
frReport.Preview := nil;
frReport.DesignReport;
end
else
begin
//если ты не в группе ADMIN то тебе отчет сразу на привью
if frReport.PrepareReport then
frReport.ShowPreparedReport;
end
end
else
begin
frReport.Clear;
frReport.Title := 'новый отчет';'';
if dbBase1.ConnectParams.RoleName = 'ADMIN' then
frReport.DesignReport;
else
ShowMessage('Отчет НЕ существует');
end;