一段错误代码.

[My_first]

Function DBError(TData:Tdataset; E:EdatabaseError;Var Action :TdataAction); //在这里调试不通，哪位帮忙能改一下,谢谢
Var iDBIError :integer;
begin
On E: EDBEngineError do
begin
DM.ADOCon..Rollback;
for i := 0 to E.ErrorCount - 1 do
begin
case E.Errors[i].ErrorCode of
$2601:
ShowMessage('呵呵！不允许鍵值重复!');
$0021:
Showmessage('太糟糕了，系统发生故障！TMD');
$270b:
Showmessage('对不起，你的受到主外键约束！怎么样，很失望吧！');
$2b05:
Showmessage('太糟糕了，网络连接超时判负！TMD');
$0028:
Showmessage('锁定违例！');
$1200:
Showmessage('不能识别的SQL错误！呵呵，有事干了！');
$2501:
Showmessage('太糟糕了，你的内存不足！请使用N(N>=10000)兆内存');
$2605:
Showmessage('对不起，你所添加的数据违反外键约束！');
$2728:
Showmessage('你所操作的表不存在！');
$2801:
Showmessage('记录已经被其它用户琐定！');
$2a06:
Showmessage('数据引擎初始化错误！');
$2c01:
Showmessage('网络初始化失败！');
$2c07:
Showmessage('呜呜..呜呜！一个我不知道的网络错误，这不可能！');
$2c0d:
Showmessage('是谁干的！！服务器竟然没打开！');
$3e07:
Showmessage('初始化失败！');
$3303:
// ShowMessage('服务器端错误:一般的SQL错误！');
else
// //raise EDatabaseError.Create(E.Message);
end;//case
end;//for
END;

end


procedure Tareaedit1.MIBtnExitClick(Sender: TObject);
begin
inherited;
dm.ADOQdqzlb.Cancel;
// DM.ADOCon.RollbackTrans;
modalresult:=mrcancel;
end;

[AFIHA]

$3166:
ShowMessage('不是偶干的!');

[My_first]

上面这段程序是在bde下调试的。　有些问题，哪位能看一下是什么错误

begin
DM.ADOCon.RollbackTrans;//这里是我写错了

[Yang_]

??

[My_first]

procedure TDM.CustomerPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if (E is EDBEngineError) then
if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
begin
MessageDlg('Unable to post: Duplicate Customer ID.', mtWarning, [mbOK], 0);
Abort;
end;
end;
这段代码是在bde环境下用的，如何改成ado，下用,

谢谢

[My_first]

if (E is EDBEngineError) then
if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
begin
MessageDlg('Unable to post: Duplicate Customer ID.', mtWarning, [mbOK], 0);
Abort;
end;


是不是这段代码一定得写到adoqeury1.posterror里面，

写在自定义过程不行吗？ 我主要是想用这些代码控制多用户操作意外的情况发生。

[My_first]

up