CREATE OR REPLACE PACKAGE PK_ConsolManager_LoginCheck AS /**//****************************************************************************** NAME: PK_ConsolManager_LoginCheck PURPOSE:
REVISIONS: Ver Date Author Description --------- ---------- --------------- ------------------------------------ 1.0 2005-11-25 1. Created this package. ******************************************************************************/ TYPE T_CURSOR IS REF CURSOR; PROCEDURE MyProcedure(Param1 IN NUMBER, Param3 Out Number, Param2 OUT T_CURSOR); END PK_ConsolManager_LoginCheck ; /
包体定义:
CREATE OR REPLACE PACKAGE BODY PK_ConsolManager_LoginCheck AS
PROCEDURE MyProcedure(Param1 IN NUMBER,Param3 Out Number, Param2 OUT T_CURSOR) IS
BEGIN Open Param2 FOR SELECT LoginName, Password from ConsoleManager where SerialRights = Param1; Param3 := Param1; END;