用事务控制:
开始事务:StartTransaction
提交事务:Commit;
返回事务;Rollback
开始事务:StartTransaction
提交事务:Commit;
返回事务;Rollback
解决方案 »
- 添加全局变量问题、
- 数据库面存的是 20040001 23:11:15 我只想取前面的日期来和我的变量比量,哪个在前哪个在后?怎么 做?
- 各位sql+delphi,可留下联系方法共同进步吗?QQ:165444932
- 找了很久,还是不会?
- 我有2个问题?
- 关于显示数据库内容的问题?
- delphi里如何自动注册ODBC数据源 sql server 找错,在线等
- 速达(科思ERP)原代码低价转出售
- 请教屏幕画笔--如何保留上一次的画笔痕迹
- 机器老“卡卡”响怎么办?刚装了系统也不好使?大家帮帮忙啊!
- 这段代码为什么不能产生要想的结果啊,怎么办啊?
- 怎样应用OLE或其他东西打开IEXPLORE浏览器???小菜鸟快急疯了???送上25分
CommitTrans :提交事务
RollbackTrans :取消事务
begin
with Qry do
begin
if not Database.InTransaction then
Database.StartTransaction ;
try
if Modified or UpdatesPending then
ApplyUpdates;
Database.Commit ;
except
on E:EDBEngineError do
begin
Database.Rollback ;
ShowError(E);
end;
else
raise;
end;
Database.StartTransaction ;
DisableConstraints;
Close;
Open;
EnableConstraints;
end;
end;procedure frmMain.CancelSave ;
begin
with dm.Qry do
begin
if not Database.InTransaction then
Database.StartTransaction ;
try
if Modified then
Cancel;
if UpdatesPending then
CancelUpdates;
Database.Rollback;
except
Database.Rollback;
raise;
end;
Database.StartTransaction;
Close;
Open;
end;
end;
只要在table表中设定cachedupdates:=true即可用rollback.
多谢各位!!