我新写的存储过程，请大家优化一下

[Chiff]

--我新写的存储过程，请大家帮我优化一下。
create proc 爱情 as

Begin tran 准备
---------------------------------
select sum(工资) as 存款
into 存折
from 工资

if 存款 < 300000
begin
rollback
raiserror 00001 '存款不够，没法启动'
return '心灰意冷'
end
-----------------------------------
set @status = '单身'
set @漂亮 = 101

While @status = '单身'
Begin --while

select top 1 @目标
from human
where sex = '女' and age >= 18 and age < 30 and 漂亮 < @漂亮
order by 漂亮 desc

if @目标 is null
begin
rollback
raiserror 00002 '请降低标准后重新执行此存储过程'
return '失望'
end

if 态度(@目标) = '接受'
set @status = '交往'
else
set @漂亮 = @漂亮 - 1
End --while
------------------------------------
update 存折 set 余额 = 余额 - @消费
if 余额 < 0
begin
rollback
raiserror 00003 '余额不够，执行失败'
return '遗憾'
end

update 日程安排 set 拍拖时间 = 上CSDN的时间,
睡眠时间 = 睡眠时间 - 2,
上CSDN的时间 = 2
if 拍拖时间 < 期望值(@目标)
begin
rollback
raiserror 00004 '时间不够，执行失败'
return '愤慨'
end

set @status = '恋爱'
commit
--------------------------------------
update 存折 set 余额 = 余额 - @房子
if 余额 < 0 update 存折 set 贷款 = -余额,余额 = 0

set @status = '结婚'
insert into 家庭成员('身份') values('儿子')

while 1 = 1
Begin
if 满意(婚姻) = 0
Print '对不起，认了吧。事务已提交，无法回滚。'
End
--------------------------------------

[我本来就叫顾影]

declare @爱情 char(10)
IF @爱情 is null begin
declare @当前现金 money
set @当前现金=select 现金 from money
where palce=当前口袋
if @当前现金>=300 begin
select 小姐编号 from 花名册 where 年龄>=18
and 年龄<=25 and
状态='处女'
end
else begin
raiseerror 0002,'没钱你还来快活，装大款啊！'
end
end

[Chiff]

select 小姐编号 from 花名册 where 年龄>=18
and 年龄<=25 and
状态='处女'
？？？
没记录吧！

[zqllyh]

hahahaha

[日总是我哥]

有意思:-)

学SQL Server以来看过的最有意思的一个存储过程!!

[日总是我哥]

有意思~~

[AWP365]

有意思,呵呵

[j9988]

to: Chiff (~o~)
你这存储过程能运行?

[leimin]

hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
有点新意........

[Chiff]

j9988(j9988) ：还不知道，不敢试运行...

[sunseawf]

哈哈，太有意思了！

[蓝天]

---------------

[hnsyf]

高手，学习。

[ToUpdate]

精典,收藏!

[sophyking]

看来都是男孩子呀！

[olvest4000]

sophyking(小酒窝) female？

[bzlj]

收藏

[武汉星云信软件]

to chiff

精典！

[Chiff]

要出差了，马上结帖。

[brotherfromaq]

up

[Chiff]

CSDN小Bug，我已经结帐了，还出现在未结技术区。不信大家点一下“管理”看看。