引用邹建的:
--以下代码生成的编号长度为12,前6位为日期信息,格式为YYMMDD,后6位为流水号。
--创建得到当前日期的视图
CREATE VIEW v_GetDate
AS
SELECT dt=CONVERT(CHAR(6),GETDATE(),12)
GO--得到新编号的函数
CREATE FUNCTION f_NextBH()
RETURNS char(12)
AS
BEGIN
DECLARE @dt CHAR(6)
SELECT @dt=dt FROM v_GetDate
RETURN(
SELECT @dt+RIGHT(1000001+ISNULL(RIGHT(MAX(BH),6),0),6)
FROM tb WITH(XLOCK,PAGLOCK)
WHERE BH like @dt+'%')
END
GO--在表中应用函数
CREATE TABLE tb(
BH char(12) PRIMARY KEY DEFAULT dbo.f_NextBH(),
col int)--插入资料
INSERT tb(col) VALUES(1)
INSERT tb(col) VALUES(2)
INSERT tb(col) VALUES(3)
DELETE tb WHERE col=3
INSERT tb(col) VALUES(4)
INSERT tb(BH,col) VALUES(dbo.f_NextBH(),14)--显示结果
SELECT * FROM tb
/*--结果
BH col
------------------- -----------
050405000001 1
050405000002 2
050405000003 4
050405000004 14
--*/
--以下代码生成的编号长度为12,前6位为日期信息,格式为YYMMDD,后6位为流水号。
--创建得到当前日期的视图
CREATE VIEW v_GetDate
AS
SELECT dt=CONVERT(CHAR(6),GETDATE(),12)
GO--得到新编号的函数
CREATE FUNCTION f_NextBH()
RETURNS char(12)
AS
BEGIN
DECLARE @dt CHAR(6)
SELECT @dt=dt FROM v_GetDate
RETURN(
SELECT @dt+RIGHT(1000001+ISNULL(RIGHT(MAX(BH),6),0),6)
FROM tb WITH(XLOCK,PAGLOCK)
WHERE BH like @dt+'%')
END
GO--在表中应用函数
CREATE TABLE tb(
BH char(12) PRIMARY KEY DEFAULT dbo.f_NextBH(),
col int)--插入资料
INSERT tb(col) VALUES(1)
INSERT tb(col) VALUES(2)
INSERT tb(col) VALUES(3)
DELETE tb WHERE col=3
INSERT tb(col) VALUES(4)
INSERT tb(BH,col) VALUES(dbo.f_NextBH(),14)--显示结果
SELECT * FROM tb
/*--结果
BH col
------------------- -----------
050405000001 1
050405000002 2
050405000003 4
050405000004 14
--*/
/**********************************************************************
存储过程: P_AutoGenerUserInfo
功能: 生成用户表(包括规则的用户代码和随机密码)
如果表不存在,随机生成表名
参数:
表名(@TableName),
业务规则编码(@RuleCode),
业务规则长度(@RuleCodeCount),
随机密码长度(@PassWordLength),
用户数(@Count)
返回: 用户表信息
调用方法:
如:生成"ZLP010"为前导码、8位后导码、12位随机密码、50条记录。表名:Test
调用:
P_AutoGenerUserInfo 'TEST','ZLP010',8,12,50
联系方式: [email protected]
最后更改日期: 2005-1-10
作用: 用户自动生成规则用户名和随机密码
**********************************************************************/
Create Proc P_AutoGenerUserInfo
@TableName varchar(20),
@RuleCode varchar(20),
@RuleCodeCount int,
@PassWordLength int,
@Count int
as
Begin
--如果用户表不存在,创建用户表
declare @s varchar(2000),@RuleCodeString varchar(20),@i int
declare @RandValue varchar(50),@ZeroString varchar(50)
select @i=1,@ZeroString='',@RuleCodeString=''
while @i<=@RuleCodeCount
begin
set @ZeroString=@ZeroString+'0'
set @i=@i+1
end
set @s=' if exists (select * from sysobjects where xtype=''u'' and status>=0 and name = '''+@TableName+''')'+char(13)
set @s=@s+' drop table '+@TableName+' '+char(13)
set @s=@s+' CREATE TABLE '+@TableName+'(用户名 varchar(20),密码 varchar(20))'
exec(@s)set @i=1
if @@Error=0
begin
while @i<=@Count
begin
select @RuleCodeString=@RuleCode+left(@ZeroString,@RuleCodeCount-len(@i))+cast(@i as varchar(10))
--生成@PassWordLength位随机密码
select @RandValue=right(convert(numeric(18,12),rand()),@PassWordLength)
--生成6位随机密码中,第一位不为0
--select @RandValue=right(convert(numeric(18,12),rand()),@PassWordLength)
-- where substring(right(convert(numeric(18,12),rand()),@PassWordLength),1,1)<>0
--如果需要所有用户密码不能相同,则需要锁表,判断密码是否存在效率不高.如下:
--IF EXISTS(SELECT * FROM @TableName WITH(XLOCK,PAGLOCK) WHERE 密码=@RandValue)
exec('insert '+@TableName+' values ('''+@RuleCodeString+''','''+@RandValue+''')')
set @i=@i+1
endendEndGO