期末考核快要来了，好紧张鸭

一、实验目的

• 掌握存储过程中的异常声明
• 当存储过程执行出现异常时，会处理异常

二、实验准备

上次实验17已经设计了一个main过程，它能实现以下功能

1. 创建表xs1
2. 调用get_name过程得到随机生成的姓名和性别
3. 通过循环语句将10000个学生的学号、姓名、性别插入到xs1表中
4. 查看xs1表的记录

三、实验内容

复制和修改main过程，另存为main2过程，在main2存储过程中需要增加这些内容

1. 声明异常
2. 用创建xs1表同样的方式创建表xs2
3. 给xs2表的姓名列添加唯一索引
4. 调用get_name过程得到随机生成的姓名和性别
5. 通过循环语句将1000个学生的学号、姓名、性别插入到xs2表中（由于姓名列增加了唯一索引，当插入的姓名与已有的姓名重复时会出现异常）
6. 当出现异常时，显示xh、xm和出错信息（出错信息为‘重名了’）
7. 循环结束后查看xs2表的记录

本存储过程核心流程图如图1所示。

get_word过程

delimiter $$
drop procedure if exists get_word;
create procedure get_word(in s char(100),out w char(1))
begin
declare len tinyint;
set len = char_length(s);
set @a = floor(rand()*(len+1)+1);
set w = substring(s,@a,1);
end $$
delimiter ;

no.1 以下是一个过程get_a_character的部分代码，需要大家完善代码。该过程实现输入任意一个字符串(s)，该过程执行后从s字符串中任意抽取一个字符，并将此字符返回给变量w.可以通过以下语句测试get_word过程是否编写成功.

delimiter $$
drop procedure if exists get_a_character;
create procedure  get_a_character(in s char(100),out w char(1))
begin
call get_word(s,w);
end  $$
delimiter ;
set @x = '刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡';

call get_a_character(@x,@k);
select @k;

no.2 编写存储过程get_name,该过程根据cd变量的值判断名字是1字还是2字，再根据xb的值判断m是取m2（男）的值还是取m1（女）的值

delimiter $$
drop procedure if exists get_name;
create procedure  get_name(out m varchar(2),out xb int)
begin
declare cd int;
declare ms1,ms2 varchar(50);
declare m1,m2,m3 varchar(2);
set ms1='依秋香巧紫萱莉玉碧丽念雅红燕艳莲荷蕾紫莹颖琪';
set ms2='澄德海超阳昌瀚亮锋涵煦杰俊诚毅峰衍浩广邈言博畅';
set xb = floor(rand()*2);
set cd = floor(rand()*2+1);
    if  xb = 0 then
          call get_word(ms1,m1); 
          call get_word(ms1,m2); 
          set m3 = concat(m1,m2);
    elseif xb = 1 then
          call get_word(ms2,m1); 
          call get_word(ms2,m2); 
          set m3 = concat(m1,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,@sex);
select @name,@sex;

no.3 main2 过程

delimiter $$
drop procedure if exists main2;
create procedure main2()
begin
declare x varchar(100);
declare xing,ming,xm varchar(3);
declare sex,n,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 = '191100';
while xh<='191999' do
 call get_a_character(@x,@k);
 set xing = @k;
 call get_name(@name,@sex);
 set ming = @name;
 set sex = @sex;
 set xm = concat(xing,ming);
 insert into xs2 values(xh,xm,sex);
 if f=2 then 
	select xh,xm,'重名了';
	set f=1;
elseif f=1 then
	set xh = xh+1;
 end if;
end while;
end $$
delimiter ;
call main2();
select * from xs2;

加油鸭，我们会到达梦想的彼岸的，对吧！