＋设为首页 ＋添加到收藏夹
如題!
来自: http://community.csdn.net/Expert/topic/4258/4258986.xml?temp=.2603113
可参考:
CREATE procedure P_GetLSH
@lsh varchar(6) output
as
declare @i int,@len int
update sys_lsh
set lsh=lsh+1
select @lsh=cast(lsh as varchar(6))
from sys_lsh
set @len=6-len(@lsh)
set @i=0
while @i<@lsh
begin
set @lsh=0+@lsh
set @i=@i+1
end
GO
Edit1.text := ADOStorcedProc.parameters.parambyname(@lsh ).value;
CREATE procedure P_GetLSH
@lsh varchar(6) output
as
declare @i int,@len int
update sys_lsh
set lsh=lsh+1
select @lsh=cast(lsh as varchar(6))
from sys_lsh
或
set @len=6-len(@lsh)
set @i=0
while @i<@lsh
begin
set @lsh=0+@lsh
set @i=@i+1
end
select @lsh as yourField
GO
Edit1.text := ADOStorcedProc.parameters.parambyname(yourField ).Asstring;
