--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