plsql-集合-关联数组(下标为数字、字符串)

--*******集合1--关联数组(下标为数字类型)
/*
plsql集合类型有三种:下面是第一种:关联数组
*/
declare
--定义一个数组类型
--mytable:自己定义的类型名字
--varchar2:类型mytable中元素的类型
--binary_integer:下标索引的数据类型
type mytable is table of varchar2(1000) index by binary_integer;
v_mytable mytable; --用刚创建的类型,定义一个变量
begin
v_mytable(-1) := '河南省汝州市';
v_mytable(0) := '的';
v_mytable(1) := 'S'; --设定下标为1的元素为“chen” 注意元素的下标无限制,可以为负数
v_mytable(2) := 'U';
v_mytable(3) := 'P';
v_mytable(4) := 'A';
v_mytable(5) := 'N';
dbms_output.put_line('数组元素的总数是:' || v_mytable.count);
--注意first,last只是取元素的下标值,并不是取元素的值,如下:
dbms_output.put_line('第一个元素下标是:' || v_mytable.first || '--第一个元素是:' || v_mytable(v_mytable.first));
dbms_output.put_line('最后一个元素下标是:' || v_mytable.last || '---最后一个元素是:' || v_mytable(v_mytable.last));

--for循环取数组中的值
for v_count in v_mytable.first..v_mytable.last loop
dbms_output.put_line(v_mytable(v_count));
end loop;
end;


输出:
数组元素的总数是:7
第一个元素下标是:-1--第一个元素是:河南省汝州市
最后一个元素下标是:5---最后一个元素是:N
河南省汝州市

S
U
P
A
N

PL/SQL 过程已成功完成。



--*******集合2--关联数组(下标为字符串类型)
/*
这种类型相当于java中的map 键-值对
*/
declare
type string_table is table of varchar2(30) index by varchar2(30);
v_mytable string_table;
v_record emp%rowtype;
cursor c is select ename,job from emp;
keyTemp varchar2(30); --集合中存放键的临时变量
begin
--读取emp表中的前三条记录,存储在集合v_mytable中,最后遍历该集合。
for c_temp in c loop
v_mytable(c_temp.ename) := c_temp.job;
end loop;
dbms_output.put_line(v_mytable.count); --集合中元素(键值对)总数
dbms_output.put_line(v_mytable.first); --集合中第一个元素的键
dbms_output.put_line(v_mytable.last); --集合中最后一个元素的键

--//遍历
keyTemp = v_mytable.first; --取集合中第一个键值对的键赋给临时变量
while (keyTemp is not null) loop --如果第一个元素的键不为空进行循环
dbms_output.put_line('键为: ' || keyTemp || ' 值为:' || v_mytable(keyTemp));
keyTemp := v_mytable.next(keyTemp);
end loop;
end;

输出为:
14
ADAMS
WARD
键为: ADAMS 值为:CLERK
键为: ALLEN 值为:SALESMAN
键为: BLAKE 值为:MANAGER
键为: CLARK 值为:MANAGER
键为: FORD 值为:ANALYST
键为: JAMES 值为:CLERK
键为: JONES 值为:MANAGER
键为: KING 值为:PRESIDENT
键为: MARTIN 值为:SALESMAN
键为: MILLER 值为:CLERK
键为: SCOTT 值为:ANALYST
键为: SMITH 值为:CLERK
键为: TURNER 值为:SALESMAN
键为: WARD 值为:SALESMAN

PL/SQL 过程已成功完成。
  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值