Delphi中如何同时实现增加和删除功能

来源：百度知道 编辑：UC知道 时间：2024/05/14 19:24:26
比如说一本书我放在该数据库中，后来因为分类把它移到别外一个数据库当中，就得把先前那条记录删除掉，而又把它增加到另外一个数据库里。
通俗地讲就是如果我要转帐，自己卡上的钱减少而对方的钱增加相应的数额，这个功能怎么实现啊，唉急啦，明天早上就要喽，谁有没有这一方面Delphi代码啊

这个没有捷径，只能是把要转移的数据读出来，然后插入到另一个当中

使用两个不同的query，一个用来读入，一个用来写入。

query1.sql.text := 'select * from.....';///读入数据
query1.open;

///将数据写入另一个表
query2.sql.text := 'insert into xxx(...) Values(:a,:b,:c,:d...)';
query2.parameters[0].value := query1.fields[0].value;
query2.parameters[1].value := query1.fields[1].value;
......
query2.execsql;

///写完以后删除原表
query1.sql.text := 'delete from ...';
query1.execsql