//启用打印参数
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;