来得晚,总结一下。<br>我一般在操作数据库的时候都会加上TRY,并且还启动事务,这样才可以安全的操作数据库。<br>如:<br>//上面先对需要操作的数据做检查<br>//这里开始操作<br> try<br> Screen.Cursor := -11;<br> DM1.conMain.BeginTrans; //这个东东是ADOConnection<br> sSQL := 'Insert into ...';//省略SQL语句<br> ExecSQL(sSQL); //这是我自己写的执行SQL语句的小过程,大家按平时的去作就可以了,我只是想省几行代码,反正都要重复用的<br> DM1.conMain.CommitTrans;;<br> Screen.Cursor := 0;<br> MsgBox('添加记录完成!');<br> except<br> on e:Exception do<br> begin<br> Screen.Cursor := 0;<br> DM1.conMain.RollbackTrans;<br> MsgErrBox('添加记录失败!请稍后再试。'+#13+e.Message+#13+sSQL); //这里提示出错的原因和出错的SQL语句<br> //MsgErrBox 在网上公开的公共代码库里都有,大家可以自己DOWN下载看,就是一个固定的参数的MessageBox而已<br> end;<br> end;