2020年11月24日 星期二

FreeBookmark扔掉了！ - 红鱼儿

红鱼儿| 博客园_红鱼儿 |09:06:00

群友青春贴的图，一看就明白了，再使用TDataSet的Bookmark时，再不用去释放取得的Bookmark。原来的版本一般这样写： procedure TForm4.FormCreate(Sender: TObject); var bm:TBookmark; begin bm:=kbmMemTab

kbmMW RunInTransaction - 红鱼儿

红鱼儿| 博客园_红鱼儿 |08:50:00

同事写了一个存储过程，用来计算库存表，数据库是sql server，然后利用kbmMWClientStoreProc来调用。因为在存储过程中使用了事务，当库存不足时，Rollback事务并提升级异常，这时候，产生个错误，大意是事务不配对。 跟踪代码，发现当客户端kbmMWClientStorePro