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;