把事务处理，分离出来！

function BeginTrans: Integer;
begin
  if DM_Frm.AdoConn.InTransaction then
    DM_Frm.AdoConn.RollbackTrans;
  Result := DM_Frm.AdoConn.BeginTrans;
end;

procedure CommitTrans;
begin
  DM_Frm.AdoConn.CommitTrans;
end;

procedure RollbackTrans;
begin
  DM_Frm.AdoConn.RollbackTrans;
end;