大
大大懒虫
Unregistered / Unconfirmed
GUEST, unregistred user!
执行语句如下,在数据库为ACCESS 时没问题,换为SQLSERVER7之后。 DataM.DBConnect.BeginTrans; if Str_status = 'esInsert' then Savedata('esInsert') else Savedata('esModify'); setstatus(esCommiting); Str_status := 'esNormal'; setenable('ALL',False); tmchange := False; DataM.DBConnect.CommitTrans; except Msg('出现错误!!'); DataM.DBConnect.RollbackTrans; end;