荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: gxdx (爱情当入樽), 信区: Program
标 题: Re: 请列举一段你最欣赏的程序
发信站: 荔园晨风BBS站 (Wed Jul 23 14:22:32 2003), 站内信件
declare @RecID int,@ServiceName varchar(50),@SqlStr varchar(5000);
declare service_cursor cursor for Select RecID,ServiceName from
HDService where IsImportant=1;
set @SqlStr='';
open service_Cursor;
fetch from service_cursor into @RecID,@ServiceName;
while @@FETCH_STATUS=0
begin
--set @SqlStr=@SqlStr+str(@RecID)+' '+rtrim(@ServiceName)+',';
set @SqlStr=@SqlStr+',(SELECT SUM(Price / workerCount) '+
' FROM HDBService '+
' WHERE BusinessID IN '+
' (SELECT RecID '+
' FROM HDBusiness '+
' WHERE fromtime BETWEEN ''2003-1-1'' AND
DATEADD(dd, 1,''2003-8-1'') AND Branch =1) AND ServiceID =
'+str(@RecID)+' AND '+
' WorkerID LIKE ''%,'' + rtrim(ltrim(str(a.
RecID))) + '',%'') AS '+rtrim(@ServiceName) ;
fetch from service_cursor into @RecID,@ServiceName;
end ;
close service_Cursor;
deallocate service_Cursor;
print @SqlStr;
【 在 fancy (AL718) 的大作中提到: 】
: 什么语言的源程序都可以,最好不超过100行,并简要说明
: 程序的来源和功能。还有你最喜欢哪个开发工具及原因
: 谢谢
--
儿时的我, 捉迷藏,跳绳,钓鱼,爬龙眼树,偷糖蔗,掏蜂窝,解剖鼠崽子,捡破
烂换汽水,粘知了,六一演出大判逃,窑番薯,采山竹,种木瓜,竹林炒菜,放风筝,削红
樱枪,抓草蜢,养麻雀,设计平板车,尿冲蚂蚁窝,坐在仓库瓦面看风景, 单车滚轴砸了
行人脑袋......
※ 修改:·gxdx 於 Jul 23 14:23:29 修改本文·[FROM: 192.168.0.188]
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.188]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店