delphi 通过事务插入数据

   orsn1.StartTransaction;

   try

       qry1.Sql.Clear;

       qry1.Sql.Text:=' select * from log ';

       qry1.Open;

       qry1.Insert;

       qry1.FieldByName('Rq').AsDateTime:=StrToDate(FormatDateTime('yyyy-mm-dd',Czrq));

       qry1.FieldByName('User').AsString:=Czy;

       qry1.Post;

       qry1.ApplyUpdates;

       orsn1.Commit;

       qry1.CommitUpdates;

   except

       orsn1.Rollback;

   end;