interbase的存储过程转换为MSSQL的存储过程最后一个了...

[redv]

下面那个就是.

[redv]

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;
END

[ben988211]

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);

...

[ben988211]

变量一定带 @

[pengdali]

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..............

[CoolAbu]

混点分数，；）

Studying。。。

[pengdali]

抢分有理！！

呵呵！