procedure TForm2.LoadPhoto;
var
S,FileName:String;
begin
S:= trim(form1.adoquery2.FieldByName('clientcode').AsString);
FileName:='photo\' + S +'.jpg';
if FileExists(FileName) then
begin
PV.Picture.LoadFromFile(FileName);
end
else
begin
application.messagebox(pansichar(s+'文件不存在!'),'警告',16);
//上处我想终止报表的生成
end;
end;procedure TForm2.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
loadphoto;
end;上面是本人编写的一段代码,希望如果这个图文件不存在的话就提示,然后终止报表生成,因为不终止的话,如果这个文件有N条不存在的话,那么这个弹出对话框就要跳出N次,我搜集了很多资料好像都不能解决,stopreport事件好像也不能使用,有没有哪位高手指点下,如何在没有这个图片文件的情况下终止报表的继续生成。
var
S,FileName:String;
begin
S:= trim(form1.adoquery2.FieldByName('clientcode').AsString);
FileName:='photo\' + S +'.jpg';
if FileExists(FileName) then
begin
PV.Picture.LoadFromFile(FileName);
end
else
begin
application.messagebox(pansichar(s+'文件不存在!'),'警告',16);
//上处我想终止报表的生成
end;
end;procedure TForm2.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
loadphoto;
end;上面是本人编写的一段代码,希望如果这个图文件不存在的话就提示,然后终止报表生成,因为不终止的话,如果这个文件有N条不存在的话,那么这个弹出对话框就要跳出N次,我搜集了很多资料好像都不能解决,stopreport事件好像也不能使用,有没有哪位高手指点下,如何在没有这个图片文件的情况下终止报表的继续生成。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货