adoqueryposterror事件 case FrmDataModule.ADOConnection1.Errors.Item[0].NativeError of 2627: Application.MessageBox('有相同存在,请从新输入!', '提示', MB_OK + mb_IconInformation);
Try .... Except {获取错误信息} On E:Exception do begin MessageText:='错误信息:'+Format('%s:%s.',[E.ClassName,E.Message])+'"'; ShowMessage(MessageText); end; end;
inser的操作
except
异常的操作
end;
...
except
showmessage(',,,,');
case FrmDataModule.ADOConnection1.Errors.Item[0].NativeError of
2627: Application.MessageBox('有相同存在,请从新输入!', '提示', MB_OK
+
mb_IconInformation);
....
Except
{获取错误信息}
On E:Exception do
begin
MessageText:='错误信息:'+Format('%s:%s.',[E.ClassName,E.Message])+'"';
ShowMessage(MessageText);
end;
end;