怎么屏蔽系统错误?(在线等候)(200分)

Q

qiuying

Unregistered / Unconfirmed
GUEST, unregistred user!
我在DBGRID中插入或修改记录时,当输入重复记录时,系统将会显示错误信息,
我想屏蔽掉系统错误,自己在DATASET的ONPOSTERROR中弹出错误对话框。请问如何
屏蔽错误。
 
你可以定义一个错误信息的捕捉过程:
procedure Tf_menu.AppException(Sender: TObject; E: Exception);
var p_cwdh:integer; //错误代号
p_cwxx:string; //错误信息
begin
p_cwdh:=Getlasterror;
p_cwxx:=e.Message ;
application.MessageBox(p_cwxx,'提示',mb_ok+mb_iconinformation);
end;
然后根据你的需要,具体运用吧
 
你可以在调用post的时候这样处理:
try
table.post;
except
if Excepition.message='post error' then
showmessage(asfdadsfasd')
else
raise;
end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1327780可能对你的问题有用。
 
谢谢各位!
 
顶部