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