sql server 创建自定义函数
--is中文字符串（判断是否为汉字） create function is中文字符串(@字符串 nchar(255)) returns nchar(1) as begin declare @I tinyint, @J tinyint set @I=len(@字符串) set @J=1 while (@J<=@I) begin if (unicode(substring(@字符串,@J,1))<256) return '否' set @J=@J+1 end return '是' end GO create function is学院信息表编号(@字符串 char(4)) returns nchar(1) as begin if exists(select *from 学院信息表 where 编号=left(@字符串,2)) return '是' return '否' end go create function is系部信息表编号(@字符串 char(6)) returns nchar(1) as begin if exists(select *from 系部信息表 where 编号=left(@字符串,4)) return '是' return '否' end go
下面部分适合sqlserver 2008 之前版本会报错。
和前面的是一样的功能。
--规则:4位字符，前2位为所属学院编号
create function check系部编号(@inputID varchar(30)) returns nchar(1) as begin
declare @out nchar='否';
if substring(@inputID,1,2) in(select 编号 from dbo.学院信息表)
set @out='是';
return @out;
end
--规则:6位字符，前4位为所属系部编号
create function check教研室编号(@inputID varchar(30)) returns nchar(1) as begin
declare @out nchar='否';
if substring(@inputID,1,4) in(select 编号 from dbo.系部信息表)
set @out='是';
return @out;
end
create function check检查班级课程表编号(@inputID varchar(500)) returns nchar(1) as begin
--规则:班级编号+教师编号+课程编号 不能重复
declare @inputStr varchar(500)=@inputID;
declare @temp1 varchar(8)=substring(@inputStr,1,8);
declare @temp2 varchar(6)=substring(@inputStr,9,14);
declare @temp3 varchar(6)=substring(@inputStr,15,20);
declare @out nchar(1)='否';
if @temp1 in (select 编号 from 班级信息表) and @temp2 in(select 编号 from 教师信息表) and @temp3 in(select 编号 from 课程信息表)
set @out='是';
return @out;
end
create function check教学成绩编号(@inputID char(18)) returns nchar(1) as begin
--规则:学号(6)+教师编号(6)+课程编号(6),不能重复
declare @inputStr varchar(50)=@inputID;
declare @temp1 varchar(6)=substring(@inputStr,1,6);
declare @temp2 varchar(6)=substring(@inputStr,7,12);
declare @temp3 varchar(6)=substring(@inputStr,13,18);
declare @out nchar(1)='否';
if @temp1 in (select 学号 from 学生信息表) and @temp2 in(select 编号 from 教师信息表) and @temp3 in(select 编号 from 课程信息表)
set @out='是';
return @out;
end
--规则:4位字符，前2位为所属学院编号
create function check系部编号(@inputID varchar(30)) returns nchar(1) as begin
declare @out nchar='否';
if substring(@inputID,1,2) in(select 编号 from dbo.学院信息表)
set @out='是';
return @out;
end
--规则:6位字符，前4位为所属系部编号
create function check教研室编号(@inputID varchar(30)) returns nchar(1) as begin
declare @out nchar='否';
if substring(@inputID,1,4) in(select 编号 from dbo.系部信息表)
set @out='是';
return @out;
end
create function check检查班级课程表编号(@inputID varchar(500)) returns nchar(1) as begin
--规则:班级编号+教师编号+课程编号 不能重复
declare @inputStr varchar(500)=@inputID;
declare @temp1 varchar(8)=substring(@inputStr,1,8);
declare @temp2 varchar(6)=substring(@inputStr,9,14);
declare @temp3 varchar(6)=substring(@inputStr,15,20);
declare @out nchar(1)='否';
if @temp1 in (select 编号 from 班级信息表) and @temp2 in(select 编号 from 教师信息表) and @temp3 in(select 编号 from 课程信息表)
set @out='是';
return @out;
end
create function check教学成绩编号(@inputID char(18)) returns nchar(1) as begin
--规则:学号(6)+教师编号(6)+课程编号(6),不能重复
declare @inputStr varchar(50)=@inputID;
declare @temp1 varchar(6)=substring(@inputStr,1,6);
declare @temp2 varchar(6)=substring(@inputStr,7,12);
declare @temp3 varchar(6)=substring(@inputStr,13,18);
declare @out nchar(1)='否';
if @temp1 in (select 学号 from 学生信息表) and @temp2 in(select 编号 from 教师信息表) and @temp3 in(select 编号 from 课程信息表)
set @out='是';
return @out;
end
create function isChinese(@input varchar(8000)) returns nchar(1) as
begin
declare @out nchar(1)='是';
declare @index int=0;
declare @tempStr nchar(1);
while @index<=len(@input)
begin
set @tempStr=substring(@input,@index,@index+2);
if unicode(@tempStr)<19968 or unicode(@tempStr)>40869
begin
set @out='否';
break;
end
else
begin
set @index=@index+1;
end
end
return @out