//启用打印参数
sSql:='Select * from BillBHMaster Where MBHNo=' + QuotedStr(sBillNo) + ' and IsPrint=''Y''';
//这一行为自己写的函数,根据SQL获取数据集
cf_dbSelectSQL(qryExpressPrint,sSql);
if (not qryExpressPrint.IsEmpty) then
begin
qryExpressPrint.First;
//寄件信息
oFindfxView:= frxrprtExpress.FindObject('edtSCompany') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('SendCompany').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtSLinkMan') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('SendUser').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtSTel') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('SendTel').AsString;
//收件信息.
oFindfxView:= frxrprtExpress.FindObject('edtDCompany') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('Company').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtDLinkMan') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('LinkMan').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtDAddr') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('Addr').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtDTel') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('Tel').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtDCargos') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('SendCargos').AsString;
oFindfxView:= frxrprtExpress.FindObject('edtDCargNums') as TfrxMemoView;
oFindfxView.Text:=qryExpressPrint.FieldByName('SendQty').AsString;
//执行预览
frxrprtExpress.PrepareReport(false);
frxrprtExpress.ShowPreparedReport;
end;
FastReport 设置Report中控件值并打印
最新推荐文章于 2024-08-20 10:59:31 发布