sql server 创建自定义函数
--is中文字符串（判断是否为汉字）create function is中文字符串(@字符串 nchar(255)) returns nchar(1) as begin declare @I tinyint, @J tinyintset @I=len(@字符串)set @J=1while (@J<=@I)beginif (unicode(substring(@字符串,@J,1))<256) return '否' set @J=@J+1endreturn '是'endGOcreate function is学院信息表编号(@字符串 char(4))returns nchar(1) asbeginif exists(select *from 学院信息表 where 编号=left(@字符串,2))return '是'return '否'endgocreate function is系部信息表编号(@字符串 char(6))returns nchar(1) asbeginif exists(select *from 系部信息表 where 编号=left(@字符串,4))return '是'return '否'endgo下面部分适合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;endcreate 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;endcreate 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;endcreate 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;endcreate 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;endcreatefunction isChinese(@input varchar(8000)) returns nchar(1) asbegin declare @outnchar(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
页:
[1]