使用编程式事务实现粗粒度更细的事务管控，请给出一个例子

假设我们有一个银行的账户管理系统，其中有两个操作：转账和查询余额。为了实现粗粒度更细的事务管控，我们可以将这两个操作分别封装成两个事务。

具体实现方式如下：

1. 定义转账事务：

BEGIN TRANSACTION;
UPDATE account SET balance = balance - amount WHERE account_id = from_account_id;
UPDATE account SET balance = balance + amount WHERE account_id = to_account_id;
COMMIT;

2. 定义查询余额事务：

BEGIN TRANSACTION;
SELECT balance FROM account WHERE account_id = account_id;
COMMIT;

在上述实现中，每个操作都被封装在了一个独立的事务中。如果需要执行转账操作，就执行转账事务；如果需要查询余额，就执行查询余额事务。

这种实现方式可以更细粒度地控制事务的范围，保证每个操作的原子性、一致性和隔离性，并且可以更加灵活地处理不同的业务需求。