Oracle 编程，请给出完整代码，用ORACLE

有三个关系表：card(cno卡号，name姓名，class班级）books（bno书号，bname书名，price单价）borrow表（cno借书卡号，bno书号）1.写一个PL/SQL程序块，循环调用500次，循环insert到图书books表中使书号递增，书号规则z00001开始一直到z00500,其他栏自定义）循环递增的书号为z0050时，update 编号为z0040的书号价格为02.写一函数，导出字符串，此字符串是按分号分隔姓名，且班级是“计算机1班”的信息。（要求此函数中必须有游标）

2026年09月22日 02:52

有1个网友回答

网友（1）：

BEGIN
FOR i IN 1..500 LOOP
IF (i<10) THEN
insert into books(bno,bname,price) values('z0000'||i,'XXXX','XXXX');
commit;
elsif(i>=10 and i<100) THEN
insert into books(bno,bname,price) values('z000'||i,'xxxx','xxxx');
commit;
IF(i=50) THEN
update books set price = '0' where bno = 'z0040';
commit;
END IF;
elsif(i>=100）THEN
insert into books(bno,bname,price) values('z00'||i,'xxxx','xxxx');
commit;
END IF;
commit;
END LOOP;
commit;
END;