I store my reports in a BLOb. How to change the Open/Save dialogs in the designer?
作者: 来源:网络文章
时间:2005-12-17 1:05:28
Look at TfrDesigner component. It has necessary events: OnLoadReport and OnSaveReport. Here is a small example:
procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(...); ReportName := ...; end; end; end;
procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(...); ReportName := ...; end; end else Report.SaveToBlobField(...); end;
I store my reports in a BLOb. How to change the Open/Save dialogs in the designer? 相关文章:
I store my reports in a BLOb. How to change the Open/Save dialogs in the designer? 相关软件: