SQL SERVER:
DECLARE MySP PROCEDURE FOR sp_create_projectcode
@year=:ls_year,//输入参数
@industrycode=:ls_industrycode,//输入参数
@No=:is_pk_value OUTPUT;//输出参数
EXECUTE MySP;
if sqlca.sqlcode =0 then
Fetch Mysp Into :is_pk_value;
Else
MessageBox("系统提示","项目编码生成不正确")
Return
end if
close mysp;