CREATE OR REPLACE PACKAGE BODY QUN_STUDY IS ------------------------------ --插入新数据-- --author:xiaohe-- --date:2009-11-21-- PROCEDURE INSERT_T_QUN_STUDY(P_ID IN NUMBER, P_NAME IN VARCHAR2, P_PASSWORD IN VARCHAR2) IS BEGIN INSERT INTO T_QUN_STUDY (T_ID, T_NAME, T_PASSWORD) VALUES (P_ID, P_NAME, P_PASSWORD); END; ---------------------------- --删除信息-- --author:xiaohe-- --date:2009-11-21 -- PROCEDURE DEL_T_QUN_STUDY(P_ID IN NUMBER, X_OUT_RECORD OUT NUMBER) IS BEGIN DELETE T_QUN_STUDY TQS WHERE TQS.T_ID = P_ID; X_OUT_RECORD := 0; EXCEPTION WHEN OTHERS THEN X_OUT_RECORD := -1; END; ------------------------------- --查询表所有信息-- ---- ---- PROCEDURE QUERY_ALL_INFO(X_OUT_RECORD OUT NUMBER, X_OUT_CURSOR OUT SYS_REFCURSOR) IS BEGIN OPEN X_OUT_CURSOR FOR SELECT * FROM T_QUN_STUDY; X_OUT_RECORD := 0; EXCEPTION WHEN OTHERS THEN X_OUT_RECORD := -1; END;