Delphi +access 事务处理

常用，在此记录一下

  con1.begintrans; //开始事务
  try
    with qry1 do        //中奖出库
    begin
      Close;
      SQL.Clear;
      SQL.Add('update jiangpin set 奖品数量=奖品数量-1 where 奖品数量>0 and 奖品名称=:1 ');
      parameters.ParamByName('1').Value := jp[sjs];
      execsql;
    end;
    with qry2 do      //中奖入库
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into choujiang (奖品名称,中奖时间) values(:1,now()) ');
      parameters.ParamByName('1').Value := jp[sjs];
      execsql;
      if (jp[sjs]='随机红包') then
      begin
       img2.Visible:=true;
        btn3Click(Sender);
      end
      else
      begin
        img2.Visible:=False;
      end;

    end;

    con1.CommitTrans; //提交事务
  except
    con1.rollbacktrans; //事务回滚
    //mmo2.Lines.add('操作失败');
  end;