wpath := ExtractFilePath(Application.ExeName);
dm_quality_check.set_print_data(apply_id);
frxDBDataset1.DataSet := dm_quality_check.ado_print_pf;
frxReport1.DataSets.Add(frxDBDataSet1);
frxReport1.LoadFromFile(wpath+'质量评价表.fr3') ;
TfrxMemoView(frxReport1.FindObject('Memoxm')).Text:= edt_name.Text;
TfrxMemoView(frxReport1.FindObject('Memopingjian')).Text := edt_checker.Text;
TfrxMemoView(frxReport1.FindObject('Memoup')).Text := edt_consult_physician.Text;
TfrxMemoView(frxReport1.FindObject('Memowrite')).Text := edt_refer_physician.Text;
TfrxMemoView(frxReport1.FindObject('Memozyh')).Text := edt_zyh.Text;
TfrxMemoView(frxReport1.FindObject('Memoscore')).Text := edt_degree.Text;
TfrxMemoView(frxReport1.FindObject('Memodate')).Text := edt_jianping_date.Text;
TfrxMemoView(frxReport1.FindObject('Memoks')).Text := gv_dept_name;
frxReport1.PrepareReport;
frxReport1.PrintOptions.ShowDialog := false;
//预览
// frxReport1.ShowPreparedReport;
//打印
frxReport1.print;
fastreport查找相关组件
原创鹅倌 博主文章分类:Fastreport ©著作权
文章标签 fastreport print sho 文章分类 后端开发
上一篇:sqlsever 判断表是否存在
-
FastReport VCL组件编辑器写作教程
FastReport VCL是用于 Delphi、C++ Builder、RAD Studio
报表 vcl 上下文菜单 sed ide -
深入-FastReport TfrxReport组件使用
FastReport
加载 数据 主键 数据源 字段