SQL老报错,我要把系统的信息变成我的提示信息
解决方案 »
- delphi自己写的控件用free和freeAndNil释放效果为什么不一样呢
- 远程开机(internet) aspx源代码
- 急急急!公司做产品开发,想让试用版的试用期限(自安装之日算起)为两个月,之后产品不再可以使用,请问如何控制这个期限呢?
- INDY IDTCPSERVER的一点疑问!
- 散5分
- 是不是BUG??
- 如何在一个QuickRporter报表中的一行中显示两个结果集中的字段呢?谢谢!
- COM+导出后生成的*.MSI安装时出现这个错误是什么原因啊?
- DELPHI线程问题,请教大虾?
- ~关于两个modem的传送数据的问题!!!各位大侠,小弟急急急
- hook api的问题 急急急急急急急急急急急急急急急急急急急急急急急急急急
- 求一处理图片的三方控件!请帮个忙 谢了!!!
{数据库操作}
except
showmessage('我的提示信息')
end;
raise Excetion.create("提示信息");
Query1.Open;
把123.txt打看看,看有什么问题
statements.....
except
on E: Exception do Application.MessageBox(E.Message);
end;
statements.....
except
on E: EOleException do ///////////??????????????
SHowmessage(' ')
end;
if @@Error<>0
begin
select @lcmessage='我的信息'
return
end
数据库执行
except
application.massage('数据库连接失败','提示',mb_ok+mb_iconerror)
end;
message('您没有权限访问‘,’系统提示‘,mb_ok+mb_iconerror);
if @@Error=3 then
message('您没有select权限‘,’系统提示‘,mb_ok+mb_iconerror);
if @@Error=4 then
message('您没有update权限‘,’系统提示‘,mb_ok+mb_iconerror);
begin
........
end
else
begin
RAISERROR('该时间段成品已被结存,请查看历史结存中数据!',16,1)
end