这样的问题也要人帮你!自已反复思考一下、验证一下会好些.
解决方案 »
- 哪位有支持Delphi2009的AdvStringGird控件啊,谢谢
- 请教大家一个数据库驱动程序(bde,ado,dbexpress)选择的问题?
- 窗口融合,谢谢
- 菜鸟紧急求救:找不到常量的定义???
- 如何使用fastreport打印jpeg格式的图片,急ing....
- 高手请进,关于ado问题?
- 用delphi做组件是如何和asp进行交互的呢?(能给段简单的代码看看么?)
- 那里有Delphi5的补丁包?
- 有关API函数GetCurrentDirectory的疑惑,高手们救我!!!!
- 紧急求救?。。。。。。
- fastreport 不能连接数据库?
- Delphi中有像C++中的vector这种容器吗?
AS
SELECT dt=CONVERT(CHAR(6),GETDATE(),12)--函数
CREATE FUNCTION f_No(@s char(1),@Area char(6))
RETURNS char(15)
AS
BEGIN
DECLARE @dt CHAR(6)
SELECT @dt=dt FROM v_GetDate
RETURN(
SELECT @s+@Area+@dt+RIGHT(1000001+ISNULL(RIGHT(MAX(编号),6),0),6)
FROM 表 WITH(XLOCK,PAGLOCK)
WHERE 编号 like @s+@Area+@dt+'%')
END--存储过程
CREATE Procedure p_No(@s char(1),@Area char(6),@No char(25) OUTPUT)
AS
DECLARE @dt CHAR(6)
SELECT @dt=dt FROM v_GetDate
SELECT @NO=@s+@Area+@dt+RIGHT(1000001+ISNULL(RIGHT(MAX(编号),6),0),6)
FROM 表 WITH(XLOCK,PAGLOCK)
WHERE 编号 like @s+@Area+@dt+'%'