type REFCURSOR is ref cursor;
FUNCTION GET_HEART_RATE_NEXT_ID RETURN REFCURSOR;
PROCEDURE PRO_Login(
User_Name IN varchar2,
Psw IN varchar2,
Val OUT varchar2,
Message OUT varchar2
);
FUNCTION GET_HEART_RATE_NEXT_ID
RETURN REFCURSOR
IS
SYS_REFCURSOR REFCURSOR;
BEGIN
OPEN SYS_REFCURSOR FOR select APP002.SEQ_ON_HEART_RATE_DATA.nextval from dual;
return SYS_REFCURSOR;
END;
PROCEDURE PRO_Register_User(
User_Name IN varchar2,
Psw IN varchar2,
Sex_v IN varchar2,
Phone_v IN varchar2,
Email_v IN varchar2,
BirthDay_v IN varchar2,
Val OUT varchar2,
Message OUT varchar2
)
IS
I_Count INT;
USERS_TABLE APP002.USERS%ROWTYPE;
BEGIN
Val:='ERROR';
Message:='注册失败';
SELECT COUNT(*) INTO I_Count
FROM APP002.USERS
WHERE UserName=User_Name;
IF(I_Count>0)
THEN