关于游标的应用实例

    在最近的开发过程中，底层数据库的逻辑稍微有些复杂，在这个过程中涉及到了游标的使用，结合项目的逻辑我简单描述一下游标的使用，如果能对您有一点点的帮助，我将非常高兴，有不合理之处，欢迎大神随时指出。

    首先，简述一下开发环境，我们的数据库是Oracle，IDE是PL/SQL
Developer，游标是在存储过程中使用的。

   我们总览一下代码：

create or replace procedure P_CRM_HGQD_MX(v_id varchar2,v_comp_code varchar2)

/*
v_id 供应商清单主表id 1111111111
v_comp_code 要进行统计的组织机构代码 21101
*/
as
CURSOR CUR_TABLE_LIST IS
SELECT id,corp_code,crm_minf_id FROM CRM_HGQD_MX WHERE main_id = v_id;
v_mxid varchar2(40);
v_corp_code varchar2(40);
-- v_yxq varchar2(1000);
v_syxmdm varchar2(2000);
v_syxmmc varchar2(2000);
v_zgyxq varchar2(2000);
v_zbjb varchar2(2000);
v_crm_minf_id varchar2(2000);

begin
--1如果存在主表对应的明细数据时，进行删除，程序界面应该进行提示用户
delete CRM_HGQD_MX WHERE main_id = v_id;

---2插入数据
insert into CRM_HGQD_MX (ID, MAIN_ID,corp_code,GYS_NAME,
gys_identity ,invoice_type ,tax_rate ,phone, server_area,
approve_time,describe,CRM_MINF_ID)
select v_id || rownum,v_id,a.corp_code,a.corp_name,
(case when a.taxpayeridentity='1' then '一般纳税人'
when a.taxpayeridentity='2' then '小规模纳税人'
else '' end ) as nsrsf,
(case when a.fplx ='1' then '增值税普通发票'
when a.fplx ='2' then '增值税专业发票'
when a.fplx ='3' then '通用发票'
else '' end ) as fplx,
(case when a.sl =1 then '2%'
when a.sl =2 then '3%'
when a.sl =3 then '5%'
when a.sl =4 then '6%'
when a.sl =5 then '11%'
when a.sl =6 then '13%'
when a.sl =7 then '17%'
else '' end ) as sl
,a.lxr||'/'||a.sj as lxfs,
a.business_scope,a.reg_date,a.remarks,b.id
from pub_cssc_inf a ,srm_crm_minf b where a.corp_type='供应商' and a.pub_cs_inf_id='GYS1_SCS'
and a.id = b.pub_cssc_inf_id;

--3循环
OPEN CUR_TABLE_LIST;

LOOP
--
FETCH CUR_TABLE_LIST INTO v_mxid,v_corp_code,v_crm_minf_id;
EXIT WHEN CUR_TABLE_LIST%NOTFOUND;
--4查询业务表相关数据。
---获取适用项目
select to_char(wm_concat(b.comp_code)),to_char(wm_concat(c.org_name))
into v_syxmdm,v_syxmmc
from srm_crm_minf b,auth_org_info c
where b.comp_code = c.org_code
and b.corp_code = v_corp_code;

--获取资格有效期
select wm_concat(to_char(b.yx_end_date,'yyyy-MM-dd')) into v_zgyxq from srm_crm_minf b
where b.corp_code = v_corp_code;

--获取质保级别

select to_char(wm_concat( (case when d.qa_class ='QA1' then '质保一级'
when d.qa_class ='QA2' then '质保二级'
when d.qa_class ='QA3' then '质保三级'
when d.qa_class ='QA4' then '质保四级'
else '' end ))) into v_zbjb from Srm_Review_Plan d
where d.corp_code = v_crm_minf_id;

--更新明细表相关字段
update CRM_HGQD_MX set fit_project = v_syxmmc,quality_level =v_zbjb,SYXMDM = v_syxmdm,validity_period = v_zgyxq
where id= v_mxid;

commit;

END LOOP;

end P_CRM_HGQD_MX;
    
    我们可以看出来，这个存储过程的逻辑还是比较清楚的，只是在有些地方我们不是很熟悉，在写这个存储过程时，我自己也是这种感觉，有些细节的东西只有在自己写的过程中才能有一个自己的体会。看这个整体的代码，只要有一个整体上的认识就可以了，如整个存储过程是干什么的等，具体的内容，我下面还会说。

   其实需求说简单点就是，我们需要从其他几张有数据的表中查出数据，更新到一张新的表。可是问题在哪呢？问题就在于整个新表中的字段，有些字段是可以从其他的表中查出开直接插入的，可是有些字段却不能字段却不能直接插入，需要逐条进行处理后再插入新表，这就用到了我们的游标，还有就是有些字段的一个位置，查出来可能会对应好几条数据，这时候我们就要用函数将一列中的几个值，放到一行中的一个位置。

    具体是如何实现的呢？我们再来看一张图片




    在这个存储过程中有两个参数；在创建游标处CUR_TABLE_LIST 是游标名，游标中保存的是id,corp_code,crm_minf_id，大家可以这样理解，我们把这三个字段找出来放到一张临时表中；接下来时begin，注意程序是从begin处开始资执行的；在2插入数据处insert---select这种写法是可以一次性插入查出的全部数据的，在查出的数据中还有一个转换，如果在旧表中查出的数据是3，则存入新表的数据是通用发票；打开游标开始循环，在创建游标时，可以这样理解我们把数据存入了一个有三个字段的临时表，现在我们要把这张临时表中的数据拿出来，利用循环一条条进行处理，我们把游标中的数据一条条赋值给变量，这样在第一次循环时，变量中就是游标中的第一天记录，第二次循环时，变量中就是游标中的第二条记录；下面是判断条件当游标中所有记录都经过遍历时退出循环；游标和循环结合在一起实现了逐条处理数据。最后不要忘记关闭游标。

    其实这种方式（循环）是非常影响效率的，但是有时为了实现功能，这种做法于是必须的，只要我们能找到一个平衡点就可以了，不要一味的追求效率，但在任何情况下，都不能影响用户的使用。感谢您花费宝贵的时间来看我的博客。