Save to DB from Report Designer

Comments

• gpi

  February 2012 edited 9:28PM

  You can't to open designer on a web application
• mierlp Netherlands

  February 2012 edited 9:28PM

  Hi
  
  I store all my report in a database so all when i want to modify it, i also need to load it from database.
  The following code i use:
  
  Create new report...but first check if there's already a report available:
  

  Procedure TFormReport.CreateNew;
  var
      New : boolean;
  begin
    if not dmRemain.RemainReport.FieldByName('Report').IsNull then begin
       If Application.MessageBox('ATTENTION'+#10+'There's already a report available. '+#10+'Would you like to replace this report (Y/N) ?', 'Warning', MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2+MB_APPLMODAL) = ID_YES Then begin
          FormMain.frxReport.Clear;
          New := True;
          FormMain.frxReport.DesignReport;
       end;
    end;
    if dmRemain.RemainReport.FieldByName('Report').IsNull then begin
       FormMain.frxReport.Clear;
       New := True;
       FormMain.frxReport.DesignReport;
    end;
  end;
  

  
  Load/Modify report into reportdesigner:
  

  wrote:

  Procedure TFormReport.ModifyReport;
  var
  New : boolean;
  begin
  FormMain.frxReport.Clear;
  New := False;
  try
  Mstream := TMemoryStream.Create;
  Bstream := dmRemain.RemainReport.CreateBlobStream(dmRemain.RemainReport.FieldByName('report'), bmRead);
  Mstream.CopyFrom(Bstream,Bstream.Size);
  Mstream.Position := 0;
  if Mstream.Size > 0 then
  formMain.frxReport.LoadFromStream(Mstream)
  else
  New := True;
  finally
  Mstream.Free;
  end;
  FormMain.frxReport.DesignReport
  end;

  
  Now the saving part...i gave the user the option to store the report into the database or
  to save it to disk...reason is that he can use a local copy to create a new report.
  In the frxDesigner.OnSaveReport i use the following code:
  

  function TFormMain.frxDesignerSaveReport(Report: TfrxReport;
    SaveAs: Boolean): Boolean;
  begin
    //----------------------------------------------------------------------------
    // Rapport
    //----------------------------------------------------------------------------
    If Application.MessageBox('You can save the report to disk or into the database'+#10+'If you would like to save it to disk choose '''N'''+#10+
  otherwise choose '''Y''' +#10+'Save report into database Y/N) ?', 'Save report', MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON1+MB_APPLMODAL) = ID_YES Then
       Result:=True
    else
       Result:=false;
  
    if Result=true then begin
       // datamodule dmRemain en database RemainReport....put here you're own datamodule/database
       if dmRemain.RemainReport.State in [dsBrowse] then begin
          dmRemain.RemainReport.Edit;
       end;
       try
         Mstream := TMemoryStream.Create;
         Bstream := dmRemain.RemainReport.CreateBlobStream(dmRemain.RemainReport.FieldByName('Report'), bmReadWrite);
         frxReport.SaveToStream(Mstream);
         Mstream.Position := 0;
         Bstream.CopyFrom(Mstream, Mstream.Size);
         //if dmRemain.RemainReport.State in [dsInsert,dsEdit] then begin
         //   dmRemain.RemainReport.Post;
        // end;
       finally
         Mstream.Free;
         Bstream.Free;
       end;
       Result := True;
   end;
   if Result=false then begin
      FormMain.frxDesigner.SaveDir:=cMapRapport;
      FormMain.SaveDialog.InitialDir:=cMapRapport;
      if FormMain.SaveDialog.Execute then begin
         FormMain.frxReport.Report.SaveToFile(FormMain.SaveDialog.FileName);
      end;
   end;
   Result :=true;
  end;