看一下我的例程:
if dataunit.DataModule1.database1.InTransaction=true then//判断事务是否执行
begin
messagedlg('系统正在处理其他数据,请稍候再执行此操作',mterror,[mbok],0);
exit;
end;
dataunit.DataModule1.database1.StartTransaction;//执行自己的事务
if dataunit.DataModule1.database1.InTransaction=true then//判断事务是否执行
begin
messagedlg('系统正在处理其他数据,请稍候再执行此操作',mterror,[mbok],0);
exit;
end;
dataunit.DataModule1.database1.StartTransaction;//执行自己的事务
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货