我使用FastReport创建了一个报告,但我只知道从数据库获取数据到该报告的方法,我想从TEdit
获取数据,而且我不想存储任何东西,只需在TEdit
中输入并单击按钮(fastreport.preview)+ 打印 + 完成。
我该如何做?
请说明,我是Delphi和FastReport的新手。
我使用FastReport创建了一个报告,但我只知道从数据库获取数据到该报告的方法,我想从TEdit
获取数据,而且我不想存储任何东西,只需在TEdit
中输入并单击按钮(fastreport.preview)+ 打印 + 完成。
我该如何做?
请说明,我是Delphi和FastReport的新手。
TfrxReport
和TfrxMemoView
组件。请注意,当您没有数据集时,Master Data
带不会被打印,因此您应该使用另一个带。TfrxReport
组件上放置一个TfrxReportTitle
带(命名为'ReportTitle1'
)和一个TfrxMemoView
文本对象(命名为'Memo1'
)。
procedure TfrmMain.btnReportClick(Sender: TObject);
var
memo: TfrxMemoView;
band: TfrxReportTitle;
begin
// Get the band
band := (rptDemo.Report.FindObject('ReportTitle1') as TfrxReportTitle);
// Create a memo
memo := TfrxMemoView.Create(band);
memo.CreateUniqueName;
memo.ParentFont := True;
memo.Text := edtReport.Text;
memo.SetBounds(100, 1, 100, 16);
memo.HAlign := haLeft;
memo.AutoWidth := False;
// Use existing memo
memo := (rptDemo.Report.FindObject('Memo1') as TfrxMemoView);
memo.Text := edtReport.Text;
// Preview report
rptDemo.ShowReport(False);
end;
注意:这是一个可用的示例,已经在FastReport 4.7中测试过。