声明
procedure flReportprint(cn:TADOConnectionQDY;ReportId:integer;MainTabid:String;RptPrint:boolean;Company:string;sa:integer;pwrcost,pwrprice:boolean;usecode:string);far;external 'flReport.dll';
procedure flLoadReportDemoprint(cn:TADOConnectionQDY;ReportId:integer;MainTabid:String;Company:string;sa:integer;pwrcost,pwrprice:boolean;usecode:string);far;external 'flReport.dll';
下面是调用:
procedure FLLoadReportprint(ReportId:integer;MainTabid:String;RptPrint:boolean);
begin
try
flReportprint(dm.cn,ReportId,MainTabid,RptPrint,dm.QDYCompany,dm.QDYSa,dm.q18pw_cost,dm.q18pw_price,dm.QDYUser_Code);
finally
//
end;
end;procedure FLLoadReportDemo(ReportId:integer;MainTabid:String);
begin
try
flLoadReportDemoprint(dm.cn,ReportId,MainTabid,dm.QDYCompany,dm.QDYSa,dm.q18pw_cost,dm.q18pw_price,dm.QDYUser_Code);
finally
//(请问这里写什么可以把上面的函数报错不提示)
end;
end;
因为DLL文件中有出错的控件,在退出程序是有个提示错误。但程序是能正常运行的。请问,怎么样把
错误提示去掉??/
procedure flReportprint(cn:TADOConnectionQDY;ReportId:integer;MainTabid:String;RptPrint:boolean;Company:string;sa:integer;pwrcost,pwrprice:boolean;usecode:string);far;external 'flReport.dll';
procedure flLoadReportDemoprint(cn:TADOConnectionQDY;ReportId:integer;MainTabid:String;Company:string;sa:integer;pwrcost,pwrprice:boolean;usecode:string);far;external 'flReport.dll';
下面是调用:
procedure FLLoadReportprint(ReportId:integer;MainTabid:String;RptPrint:boolean);
begin
try
flReportprint(dm.cn,ReportId,MainTabid,RptPrint,dm.QDYCompany,dm.QDYSa,dm.q18pw_cost,dm.q18pw_price,dm.QDYUser_Code);
finally
//
end;
end;procedure FLLoadReportDemo(ReportId:integer;MainTabid:String);
begin
try
flLoadReportDemoprint(dm.cn,ReportId,MainTabid,dm.QDYCompany,dm.QDYSa,dm.q18pw_cost,dm.q18pw_price,dm.QDYUser_Code);
finally
//(请问这里写什么可以把上面的函数报错不提示)
end;
end;
因为DLL文件中有出错的控件,在退出程序是有个提示错误。但程序是能正常运行的。请问,怎么样把
错误提示去掉??/
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货