用户定义的函数与存储过程代码,MSSQL代码库,德仔网

代码语言
代码分类
【MSSQL】用户定义的函数与存储过程
作者:Dezai.CN / 发布于2011/8/22/ 716
<div>
CREATE FUNCTION [dbo].[find_regular_expression]
(
@source varchar(5000), --需要匹配的源字符串
@regexp varchar(1000), --正则表达式
@ignorecase bit = 0 --是否区分大小写，默认为false
)
RETURNS bit --返回结果0-false，1-true
AS
BEGIN
--0（成功）或非零数字（失败），是由 OLE 自动化对象返回的 HRESULT 的整数值。
DECLARE @hr integer
---用于保存返回的对象令牌，以便之后对该对象进行操作
DECLARE @objRegExp integer DECLARE @objMatches integer
---保存结果
DECLARE @results bit

/**//*
创建 OLE 对象实例,只有 sysadmin 固定服务器角色的成员才能执行 sp_OACreate,并确定机器中有VBScript.RegExp类库
*/
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
/**//*
33以下三个分别是设置新建对象的三个属性。下面是'VBScript.RegExp'中常用的属性举例：
34 Dim regEx,Match,Matches '建立变量。
35 Set regEx = New RegExp '建立一般表达式。
36 regEx.Pattern= patrn '设置模式。
37 regEx.IgnoreCase = True '设置是否区分大小写。
38 regEx.Global=True '设置全局可用性。
39 set Matches=regEx.Execute(string) '重复匹配集合
40 RegExpTest = regEx.Execute(strng) '执行搜索。
41 for each match in matches '重复匹配集合
42 RetStr=RetStr &"Match found at position "
43 RetStr=RetStr&Match.FirstIndex&".Match Value is '"
44 RetStr=RetStr&Match.Value&"'."&vbCRLF Next
45 RegExpTest=RetStr
46
47*/
EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END 
--调用对象方法
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
--释放已创建的 OLE 对象
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
RETURN @results
END
--
CREATE FUNCTION [gc_split]
(
@splitstring NVARCHAR(4000),
@separator CHAR(1) = ','
)
RETURNS @splitstringstable TABLE
(
[item] NVARCHAR(200)
)
AS
BEGIN
DECLARE @currentindex INT
DECLARE @nextindex INT
DECLARE @returntext NVARCHAR(200)
SELECT @currentindex=1
WHILE(@currentindex<=datalength(@splitstring)/2)
BEGIN
SELECT @nextindex=charindex(@separator,@splitstring,@currentindex)
IF(@nextindex=0 OR @nextindex IS NULL)
SELECT @nextindex=datalength(@splitstring)/2+1

SELECT @returntext=substring(@splitstring,@currentindex,@nextindex-@currentindex)
INSERT INTO @splitstringstable([item])
VALUES(@returntext)

SELECT @currentindex=@nextindex+1
END
RETURN
END

-------
/* 
** Generate an ansi name that is unique in the dtproperties.value column 
*/ 
create procedure dbo.dt_generateansiname(@name varchar(255) output) 
as 
declare @prologue varchar(20) 
declare @indexstring varchar(20) 
declare @index integer 

set @prologue = 'MSDT-A-' 
set @index = 1 

while 1 = 1 
begin 
set @indexstring = cast(@index as varchar(20)) 
set @name = @prologue + @indexstring 
if not exists (select value from dtproperties where value = @name) 
break 

set @index = @index + 1 

if (@index = 10000) 
goto TooMany 
end 

Leave: 

return 

TooMany: 

set @name = 'DIAGRAM' 
goto Leave
GO
--


CREATE PROCEDURE [Pr_doExchange]
(
@username [nchar](20),
@num [int],
@wareid [int]
)
AS
begin
declare @begintime datetime
declare @endtime datetime
declare @remainder int
declare @waretype int
declare @integral int /*对应奖品的积分*/
declare @contribution int /*对应奖品的贡献*/
declare @userintegral int /*查询相应用户的积分*/
declare @usercontribution int /*查询相应用户的贡献*/
declare @cardid varchar(200)
declare _tempp cursor
for select top 3 CardID from gh_cardinf where status=0 and <a href="mailto:wareid=@wareid">wareid=@wareid</a>
select @remainder=remainder,@begintime=begintime,@endtime=endtime,
@waretype=sortid,@integral=integral,@contribution=contribution
from gh_exchangerule
where <a href="mailto:wareid=@wareid">wareid=@wareid</a>

if(datediff(d,@begintime,getdate())<0 or datediff(d,@endtime,getdate())>0)
/*兑换还没开始或已经结束*/
begin
return 1;
end
/******/
else/*判断剩余数量是否大于要求的数量*/

begin
if(@remainder>@num)/*剩余数量大于要求数量*/
begin
/*判断用户积分和贡献是否够*/
select @userintegral=credits,@usercontribution=contribution from gc_users where <a href="mailto:username=@username">username=@username</a>
/*不够*/ if(@userintegral<(@num*@integral) or @usercontribution<(@num*@contribution))
begin
return 4;
end
/*够*/else
begin
insert into [gh_user-exchangeware] values
(@wareid,@waretype,@num,@num*@integral,@num*@contribution,getdate(),0,@username);
open _tempp
fetch next from _tempp into @cardid
while @@FETCH_STATUS=0
begin
insert into gh_user_card values(@cardid,@username,getdate(),@wareid);
fetch next from _tempp into @cardid
end
close _tempp
/*扣除用户积分和贡献*/
update gc_users set <a href="mailto:credits=credits-@num*@integral,contribution=contribution-@num*@contribution">credits=credits-@num*@integral,contribution=contribution-@num*@contribution</a> where username = @username;
/*减去对应奖品的数量*/
update gh_exchangerule set remainder = <a href="mailto:remainder-@num">remainder-@num</a> where <a href="mailto:wareid=@wareid">wareid=@wareid</a>
return 2;
end
end
else if(@remainder<@num)
begin
/*剩余数量小于要求数量*/
return 3;
end

end

end
GO
</div>
试试其它关键字
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)