frxReport1.Clear; frxReport1.DataSets.Clear; frxDBDataset1.DataSet := dm_day_list.ado_day_list; frxReport1.DataSet := f
1 添加frxcheckboxobject2.编辑代码procedure chk_shiOnAfterData(Sender: TfrxComponent);begin if <frxDBDataset2."skin_cirstatus_y"> = '0' then chk_shi.checked := true else chk_shi.checked := false;
frxReport1.Clear; frxDBDataset1.DataSet := dm_zyh_search.ado_temp_fylsz; frxReport1.DataSet := frxDBDataset1; frxReport1.LoadFromFile(wpath+'住院一日清单.fr3'); frxRep
1.[医院名称],将文本放在中括号中,即可构成变量。可以在ongetvalue方法中进行操作 if VarName = '医院名称' then Value := 'wwww'+Uyymc;2.利用findobject方法进行访问TfrxMemoView(frxReport1.FindObject('Memo_zyh
wpath := ExtractFilePath(Application.ExeName); dm_quality_check.set_print_data(apply_id); frxDBDataset1.DataSet := dm_quality_check.ado_print_pf; frxReport1.DataSets.Add(frxDB
frdbdataset1.dataset := qry_for_headpage; frReport1.Clear; frReport1.LoadFromFile(WPath+'住院病案.frf'); // frReport1.PrepareReport; //frReport1.ShowPreparedReport
var DataPage:TfrxDatapage; page:TfrxReportpage; band:TfrxBand; pageheader:TfrxHeader; groupheader:TfrxgroupHeader; DataBand:TfrxMasterData; Memo
WPath := ExtractFilePath(ParamStr(0)); frReport1.Clear; frReport1.dataset := nil; frReport1.LoadFromFile(WPath +'门诊发票.frf
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号