Oracle PLSQL Demo - 09.Open、Fetch遍历游标[Open, Fetch, Close Record CURSOR]

declare
    r_emp scott.emp%rowtype;
    cursor cur_emp is
        select t.* from scott.emp t;

begin

    open cur_emp;

    loop
        fetch cur_emp
            into r_emp;
    
        exit when cur_emp%notfound;
    
        dbms_output.put_line(r_emp.empno || '   ' || r_emp.sal);
    
    end loop;

    close cur_emp;

end;

 

转载于:https://www.cnblogs.com/nick-huang/p/4609072.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
银行管理系统是一个非常复杂的系统,由于篇幅有限,我只能提供一个简单的实现,基于Oracle-PLSQL语言。我们将实现以下功能: 1. 用户账户管理:包括开户、销户、查询、存款、取款等操作。 2. 账户转账:允许用户在不同账户之间进行转账操作。 3. 查询交易记录:用户可以查询历史交易记录。 下面是实现步骤: 1. 创建表格: 我们需要创建以下表格: - 用户信息表(包括账户信息) - 交易记录表 2. 编写存储过程: 我们需要编写一系列存储过程来实现用户账户管理、账户转账和查询交易记录。以下是一些基本存储过程的示例: - 开户: ``` CREATE PROCEDURE create_account( p_name VARCHAR2, p_balance NUMBER, p_branch VARCHAR2 ) AS BEGIN INSERT INTO account_info(name, balance, branch) VALUES(p_name, p_balance, p_branch); END; ``` - 销户: ``` CREATE PROCEDURE delete_account( p_account_no VARCHAR2 ) AS BEGIN DELETE FROM account_info WHERE account_no = p_account_no; DELETE FROM transaction_history WHERE account_no = p_account_no; END; ``` - 查询余额: ``` CREATE PROCEDURE check_balance( p_account_no VARCHAR2, p_balance OUT NUMBER ) AS BEGIN SELECT balance INTO p_balance FROM account_info WHERE account_no = p_account_no; END; ``` - 存款: ``` CREATE PROCEDURE deposit( p_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance + p_amount WHERE account_no = p_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_account_no, 'DEPOSIT', p_amount); END; ``` - 取款: ``` CREATE PROCEDURE withdraw( p_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance - p_amount WHERE account_no = p_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_account_no, 'WITHDRAW', p_amount); END; ``` - 转账: ``` CREATE PROCEDURE transfer( p_sender_account_no VARCHAR2, p_receiver_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance - p_amount WHERE account_no = p_sender_account_no; UPDATE account_info SET balance = balance + p_amount WHERE account_no = p_receiver_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_sender_account_no, 'TRANSFER', -p_amount); INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_receiver_account_no, 'TRANSFER', p_amount); END; ``` - 查询交易记录: ``` CREATE PROCEDURE check_transaction_history( p_account_no VARCHAR2 ) AS BEGIN SELECT * FROM transaction_history WHERE account_no = p_account_no; END; ``` 3. 测试: 我们可以使用以下代码来测试我们的系统: ``` DECLARE v_balance NUMBER; BEGIN -- 创建账户 create_account('Alice', 1000, 'Beijing'); create_account('Bob', 2000, 'Shanghai'); -- 查询余额 check_balance('1001', v_balance); DBMS_OUTPUT.PUT_LINE('Alice balance: ' || v_balance); check_balance('1002', v_balance); DBMS_OUTPUT.PUT_LINE('Bob balance: ' || v_balance); -- 存款 deposit('1001', 500); -- 取款 withdraw('1002', 1000); -- 转账 transfer('1001', '1002', 300); -- 查询交易记录 check_transaction_history('1001'); check_transaction_history('1002'); -- 销户 delete_account('1001'); delete_account('1002'); END; ``` 这只是一个简单的实现,真正的银行管理系统要比这个复杂得多。但这个例子应该可以帮助你了解如何使用Oracle-PLSQL来实现银行管理系统。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值