interbase的存储过程转换为MSSQL的存储过程最后一个了...
下面那个就是. 问题点数：100、回复次数：6Top
1 楼redv（Shutra）回复于 2002-12-06 22:39:08 得分 0
CREATE PROCEDURE P_XK (
XH VARCHAR(10),
BH VARCHAR(10),
KZH INTEGER,
KCXH INTEGER,
IP VARCHAR(15)
) RETURNS (
FHZ VARCHAR(1)
) AS
DECLARE VARIABLE D1 VARCHAR(1);
DECLARE VARIABLE D2 INTEGER;
DECLARE VARIABLE D3 INTEGER;
DECLARE VARIABLE D4 INTEGER;
DECLARE VARIABLE D5 VARCHAR(50);
DECLARE VARIABLE D6 INTEGER;
DECLARE VARIABLE D7 INTEGER;
BEGIN
FHZ = 'Z';
SELECT X.XKZT,X.XXMS,D.KCMC || D.RKJS,D.YXRS,D.XXRS
FROM T_XZTJ X, T_DXKC D, T_KCZ Z
WHERE X.BH=:BH AND D.KZH=X.KZH AND D.KCXH=:KCXH AND D.KZH = Z.KZH AND Z.KZH = :KZH
INTO :D1,:D2,:D5,:D6,:D7;
IF(D1='' OR D1 IS NULL) THEN
BEGIN
FHZ='C';
SUSPEND;
END
IF(D1<>'1') THEN
BEGIN
FHZ='5';
SUSPEND;
END
IF(D6>=D7) THEN
BEGIN
FHZ='B';
SUSPEND;
END
SELECT COUNT(*)
FROM T_XKJG X
WHERE X.XH=:XH AND X.KZH=:kzh
INTO :D4;
IF(D4>=D2) THEN
BEGIN
FHZ='4';
SUSPEND;
END
IF(FHZ = 'Z') THEN
BEGIN
INSERT INTO T_XKJG (XH ,KCXH ,YXKC ,XKSJ ,XKIP ,KZH)
VALUES(:XH,:KCXH,:D5,'NOW',:IP,:KZH);
UPDATE T_DXKC SET YXRS=YXRS+1 WHERE KCXH=:KCXH AND YXRS<XXRS;
END
FHZ='A';
SUSPEND;
ENDTop
2 楼ben988211（???）回复于 2002-12-08 13:43:01 得分 80
CREATE PROCEDURE P_XK (
@XH VARCHAR(10),
...) RETURNS (
@FHZ VARCHAR(1)
) AS
DECLARE VARIABLE @D1 VARCHAR(1);
...
BEGIN
@FHZ = 'Z';
SELECT @D1=X.XKZT ...
FROM T_XZTJ X, T_DXKC D, T_KCZ Z
WHERE ...
IF(D1='' OR D1 IS NULL) select FHZ='C'
....
IF(@FHZ = 'Z')
INSERT INTO T_XKJG (XH ,KCXH ,YXKC ,XKSJ ,XKIP ,KZH)
VALUES(:XH,:KCXH,:D5,'NOW',:IP,:KZH);
...Top
3 楼ben988211（???）回复于 2002-12-08 13:44:03 得分 5
变量一定带 @Top
4 楼pengdali（）回复于 2002-12-08 13:56:33 得分 5
CREATE PROCEDURE P_XK (
@XH VARCHAR(10),
@BH VARCHAR(10),
@KZH INTEGER,
@KCXH INTEGER,
@IP VARCHAR(15),
@FHZ VARCHAR(1) OUTPUT
) AS
BEGIN
DECLARE @D1 VARCHAR(1);
DECLARE @D2 INTEGER;
DECLARE @D3 INTEGER;
DECLARE @D4 INTEGER;
DECLARE @D5 VARCHAR(50);
DECLARE @D6 INTEGER;
DECLARE @D7 INTEGER;
SET @FHZ='Z';
SELECT @D1=X.XKZT,@D2=X.XXMS,@D5=D..............Top
5 楼CoolAbu（阿卜-Never Stop（★★★★））回复于 2002-12-08 15:15:01 得分 5
混点分数，；）
Studying。。。Top
6 楼pengdali（）回复于 2002-12-08 15:18:30 得分 5
抢分有理！！
呵呵！Top
