[凡鸽鸽]《课内学习15》MYSQL 实验17

课内学习15 — MYSQL17

实验17 源码如下：

三、	实验内容
1、 以下是一个过程get_a_character的部分代码，需要大家完善代码。该过程实现输入任意一个字符串(s)，该过程执行后从s字符串中任意抽取一个字符，并将此字符返回给变量

delimiter $$
drop procedure if exists get_a_character;
create procedure  get_a_character(in s char(100),out w char(1))
begin

set @l=char_length(s);
set @a=floor(rand()*@l+1);
set w=substring(s,@a,1);

end  $$
delimiter ;
call get_word('刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡',@k);
select @k;


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_a_character(ms1,m1); 
call get_a_character(ms1,m2); 
set m3=concat(m1,m2);
elseif xb=1 then
call get_a_character(ms2,m1); 
call get_a_character(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;


3、 定义一个过程main

delimiter $$
drop procedure if exists main;
create procedure  main()
begin
declare x varchar(100);
declare xing,ming,xm varchar(3);
declare sex,n int;
declare xh varchar(8);

create  table xs2 as select 学号,姓名,性别 from xs where 1<>1;
set xh='201408';
set n=1;
while n<=20 do
call get_a_character('刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡',@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);
set n=n+1;
set xh=xh +1;
end while;

end $$
delimiter ;
call main();
select * from xs2;