-- 假设分了4个部门（存款部，ATM部，转出，转入）
--每个月定期最后1天自动生成4张表的数据
--（数据来源：deal_record）
-- 第一步：先把4张表建立起来
-- 存款表
create table r1(
id number primary key,
card_id varchar2(18),
money number
);
-- 取款表
create table r2(
id number primary key,
card_id varchar2(18),
money number
);
-- 转出表
create table r3(
id number primary key,
card_id varchar2(18),
money number
);
create table r4(
id number primary key,
card_id varchar2(18),
money number
);
------------------------------
-- 思路1，不使用存储过程
-- 问题：遍历了4次
insert into r1(
select id,card_id,money from deal_record where deal_type=1
)
commit
select * from r1
select * from r2
truncate table r1
-- 思路2，只遍历1次（游标）
-- 一边游，一边插入数据
-- 插入表，不固定（动态SQL）
-- 带参数的动态SQL （using）
---------------------------
create or replace procedure p_make_record
IS
mydeal deal_record%rowtype;
cursor mycursor is select * from deal_record;
insert_str varchar2(200);
begin
--打开游标
open mycursor;
loop
fetch mycursor into mydeal;
exit when mycursor%notfound;
insert_str:= ‘insert into r‘||mydeal.deal_type||‘ values(:1,:2,:3)‘;
--dbms_output.put_line(insert_str);
execute immediate insert_str using mydeal.id,mydeal.card_id,mydeal.money;
end loop;
commit;
end;