frdbdataset1.dataset := qry_for_headpage;
frReport1.Clear;
frReport1.LoadFromFile(WPath+'住院病案.frf');
// frReport1.PrepareReport;
//frReport1.ShowPreparedReport;
frReport1.preview := frPreview1;
frReport1.Clear;
frReport1.LoadFromFile(WPath+'住院病案.frf');
// frReport1.PrepareReport;
//frReport1.ShowPreparedReport;
frReport1.preview := frPreview1;
frReport1.ShowReport;
本文转自鹅倌51CTO博客,原文链接: http://blog.51cto.com/kaixinbuliao/1150127,如需转载请自行联系原作者