数据库代码

1、以下是一个过程get_a_character的部分代码，需要大家完善代码。该过程实现输入任意一个字符串(s)，该过程执行后从s字符串中任意抽取一个字符，并将此字符返回给变量w
delimiter $$
drop procedure if exists get_a_character;
create procedure  get_a_character(in s char(100),out w char(1))
begin
/*请大家在此增加其它代码*/
end  $$
delimiter ;
call get_word('刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡',@k);
select @k;
———————————————————————————————————————————
 

delimiter $$
drop procedure if exists get_a_character;
create procedure  get_a_character(in s char(100),out w char(1))
begin
declare len int;
declare pos int;
set len = char_length(s);
set pos = floor(rand() * len) + 1;
set w = substring(s, pos, 1);
end  $$
delimiter ;
call get_a_character('刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡', @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='澄德海超阳昌瀚亮锋涵煦杰俊诚毅峰衍浩广邈言博畅';
/*请补充其余代码
在这个过程中需要调用get_a_character()过程，
1、随机生成性别值，让xb为0或为1；
2、随机生成cd值，让cd为1或2
3、根据cd和xb来生成m的值，
如果cd为1，xb为1，m为从ms2里挑一个字；
如果cd为2，xb为1，m为从ms2里任意挑1个字，挑2次，将它们组合为m；
如果cd为1，xb为0，m为从ms1里挑一个字；
如果cd为2，xb为0，m为从ms1里任意挑1个字，挑2次，将它们组合为m；

*/
end $$
———————————————————————————————————————————

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 cd = 1 then
if xb = 1 then
call get_a_character(ms2, m);
else
call get_a_character(ms1, m);
end if;
else
if xb = 1 then
set m = '';
call get_a_character(ms2, m1);
call get_a_character(ms2, m2);
set m = concat(m1, m2);
else
set m = '';
call get_a_character(ms1, m1);
call get_a_character(ms1, m2);
set m = concat(m1, m2);
end if;
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);
 /*请补充其余代码
1、复制xs表学号、姓名、性别列到xs2表，删除内容，只要结构
2、给xh变量赋初值
3、写一个循环（循环20次），
每循环一次使
1)xh的值+1，
2)调用get_a_character()生成姓,赋值给xing变量；
3)调用get_name()生成名，赋值给ming变量；
call get_name(@name,@sex);
select @name,@sex;
可以通过以下语句测试main过程是否编写成功
call 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);
    drop table if exists xs2;
    create table xs2 select 学号,姓名,性别 from xs where 1 = 2;
    set xh = '190000';
    set n = 1;
    repeat 
        call get_a_character('刘王张赵李钱朱何孙曾陈吴黄刘邓周毛江胡', xing);
        call get_name(ming, sex);
        set xm = concat(xing, ming); 
        insert into xs2 values(xh, xm, sex); 
        set xh = xh + 1; 
        set n = n + 1; 
    until n > 20
    end repeat;
    select * from xs2;
end $$
delimiter ;