实验18 存储过程异常处理

在上一节的代码的基础上对代码进行复制和修改main过程，另存为main2过程，在main2存储过程中需要增加这些内容
1、声明异常
2、用创建xs1表同样的方式创建表xs2
3、给xs2表的姓名列添加唯一索引
4、调用get_name过程得到随机生成的姓名和性别
5、通过循环语句将1000个学生的学号、姓名、性别插入到xs2表中（由于姓名列增加了唯一索引，当插入的姓名与已有的姓名重复时会出现异常）
6、当出现异常时，显示xh、xm和出错信息（出错信息为‘重名了’）
Xh xm 出错信息
876 张三 重名了
Select * from xs2;
7、循环结束后查看xs2表的记录

对以上的流程进行参照。

delimiter $$
drop procedure if exists get_a_character;
create procedure get_a_character(in s char(100),out w char(1))
begin
set @len1=char_length(s);
set @a=floor(rand()*@len1+1);
set @xing=substring(s,@a,1);
set w=@xing;
end $$
delimiter ;
call get_a_character('刘王张赵李钱朱何孙曾陈吴黄郑邓周毛江胡',@k);
select @k;
delimiter $$
drop procedure if exists get_name;
create procedure  get_name(out m varchar(2),out xb varchar(45))
begin
declare cd int;
declare ms1,ms2 varchar(50);
declare m1,m2,m3 varchar(2);
set ms1='依秋香巧紫萱莉玉碧丽念雅红燕艳莲荷蕾紫莹颖琪';
set ms2='澄德海超阳昌瀚亮锋涵煦杰俊诚毅峰衍浩广邈言博畅';
set cd=floor(rand()*2+1);
set xb=floor(rand()*2);
if xb=1 then 
call get_a_character(ms1,m1);
call get_a_character(ms1,m2);
set m3=concat((select m1),(select m2));
elseif xb=0 then 
call get_a_character(ms2,m1);
call get_a_character(ms2,m2);
set m3=concat((select m1),(select m2));
end if;
if cd=1 then 
set m=m1;
elseif cd=2 then 
set m=m3;
end if;
end $$
delimiter ;
call get_name(@name,@xb);
select @name,@xb;
delimiter $$
drop procedure if exists main2;
create procedure  main2()
begin
declare x varchar(100);
declare xing,ming,xm varchar(3);
declare sex,f int;
declare xh varchar(8);
declare continue handler for sqlexception set f=2;
drop table if exists xs2;
create table xs2 as select 学号,姓名,性别 from xs limit 0;
create unique index index_name on xs2(姓名);
set xh='19000';
set x='刘王张赵李钱朱何孙曾陈吴黄郑邓周毛江胡';
while xh<'20000' do
call get_a_character(x,xing);
call get_name(ming,sex);
set xm=concat(xing,ming); 
insert into xs2 values (xh,xm,sex);
if f=2 then 
select xh,xm,'重名了';
set f=1;
else
set xh=xh+1;
end if;
end while;
end $$
delimiter ;
call main2();
select * from xs2;

得到的表中没有重复的名字。