--可将字符串转换为全角或半角的
CREATE  FUNCTION [dbo].[f_Convert]
(@str NVARCHAR(4000)=N'' ,   --要转换的字符串   @flag BIT=0               --转换标志,0转换成半角,1转换成全角   )
RETURNS NVARCHAR(4000)
AS
BEGIN   DECLARE @pat NVARCHAR(8) ,@step INT ,@i INT ,@spc INT   IF @flag = 0 SELECT  @pat = N'%[！-～]%', @step = -65248,@str = REPLACE(@str, N'　', N'   ')   ELSE SELECT  @pat = N'%[!-~]%', @step = 65248,@str = REPLACE(@str, N'   ', N'　')   SET @i = PATINDEX(@pat   COLLATE LATIN1_GENERAL_BIN, @str)   WHILE @i > 0 SELECT  @str = REPLACE(@str, SUBSTRING(@str, @i, 1),NCHAR(UNICODE(SUBSTRING(@str, @i, 1)) + @step)),@i = PATINDEX(@pat   COLLATE LATIN1_GENERAL_BIN, @str)   RETURN(@str)
END
GO
--获取每个汉字首个拼音
CREATE FUNCTION [dbo].[f_GetPy] ( @str NVARCHAR(4000)=N'' )
RETURNS NVARCHAR(4000)
AS
BEGINDECLARE @strlen INT ,@re NVARCHAR(4000)DECLARE @t TABLE
(chr NCHAR(1) COLLATE Chinese_PRC_CI_AS ,letter NCHAR(1)
)INSERT INTO @t ( chr, letter )SELECT '吖', 'A'UNION ALLSELECT '八', 'B'UNION ALLSELECT '嚓', 'C'UNION ALLSELECT '咑', 'D'UNION ALLSELECT '妸', 'E'UNION ALLSELECT '发', 'F'UNION ALLSELECT '旮', 'G'UNION ALLSELECT '铪', 'H'UNION ALLSELECT '丌', 'J'UNION ALLSELECT '咔', 'K'UNION ALLSELECT '垃', 'L'UNION ALLSELECT '嘸', 'M'UNION ALLSELECT '拏', 'N'UNION ALLSELECT '噢', 'O'UNION ALLSELECT '妑', 'P'UNION ALLSELECT '七', 'Q'UNION ALLSELECT '呥', 'R'UNION ALLSELECT '仨', 'S'UNION ALLSELECT '他', 'T'UNION ALLSELECT '屲', 'W'UNION ALLSELECT '夕', 'X'UNION ALLSELECT '丫', 'Y'UNION ALLSELECT '帀', 'Z'SELECT  @strlen = LEN(@str), @re = ''WHILE @strlen > 0 BEGINSELECT TOP 1@re = letter + @re, @strlen = @strlen - 1FROM @t aWHERE chr <= SUBSTRING(@str, @strlen, 1)ORDER BY chr DESCIF @@rowcount = 0 SELECT  @re = SUBSTRING(@str, @strlen, 1) + @re,@strlen = @strlen - 1ENDRETURN(@re)
END
GO
--获取表所有字段
CREATE FUNCTION F_GetTbField
(@Tbname NVARCHAR(100) = '' ,@Flag BIT = 0   --0，默认取所有字段，1，除去增量字段
)
RETURNS VARCHAR(MAX)
AS
BEGINDECLARE @FieldName VARCHAR(MAX)SELECT @FieldName = ISNULL(@FieldName + ',', '') + NAMEFROM sys.columnsWHERE object_id = OBJECT_ID(@Tbname, 'U') AND is_identity = CASE @FlagWHEN 0THEN is_identityELSE 0END  --RETURN('insert into '+@Tbname+'('+@FieldName+')')RETURN(@FieldName)
END
GO