myscripts: PLSQL CODE for creating a login page and validating the credentials

--
--#############################################################################
--# Name : pa_gl_login
--# Description : This procedure generates login page for authentication
--#
--#############################################################################
PROCEDURE pa_gl_login
AS
BEGIN
HTP.p ('<head>');
HTP.p ('<STYLE TYPE="text/css">');

HTP.P (
'TH{font-family: Arial; font-size: 9pt; background-color: lightblue;}');
HTP.p ('TD{font-family: Arial; font-size: 9pt;}');
--->
HTP.p ('</STYLE>');

HTP.p ('</head>');
HTP.p ('<BODY bgcolor="#FFFFFF">');
HTP.p ('<CENTER>');
HTP.p ('<TABLE BORDER=0>');
HTP.p (' <TR>');
HTP.p (
' <TD align="center"><IMG "PATH OF YOUR IMAGE".gif" border=0></TD>'); --width=250 height=110
HTP.p (' </TR>');
HTP.p (' <TR>');
HTP.p (
' <TD align="right" ><font size="5"><b>'
|| 'XXX PAGL REJECTIONS'
|| '<b></TD>');

HTP.p ('</TR>');
HTP.p ('<TR><TD> </TD></TR>');
HTP.formOpen ('XXX_FND_WEB_PKG.Rejection_validate_data',
'post',
NULL,
NULL);
-- Title bar
-- Parameter block
HTP.p (
'<TABLE width="fixed" align="center" border="0" cellpadding="0" cellspacing="0">');
-- p_context
HTP.p ('<TR><TD width="35%" align="left"><b>USERNAME:</b></TD>');

HTP.p (
' <TD align="left"><INPUT TYPE="text" NAME="p_username" style="height:25px;width: 170px;" value="" required autocomplete="off" ></TD>');
HTP.p ('</TR>');
HTP.P ('<Tr><TD>  </TD></Tr>');

HTP.p ('<TR><TD width="35%" align="left"><b>PASSWORD:</b></TD>');
HTP.p (
' <TD align="left"><INPUT TYPE="password" NAME="p_password" style="height:25px;width: 170px;" value="" required autocomplete="off"></TD>');
HTP.p ('</TR>');
HTP.p ('<TR><TD></TD></TR>');
HTP.p ('</TABLE>');
HTP.p ('<br>');
HTP.p (
' <INPUT TYPE="submit" VALUE="Login"><INPUT TYPE="reset" VALUE="Clear">');

HTP.formClose;
HTP.p ('<br>');
HTP.PRINT (
'
<font color="#ff0000"><sup>*</sup><i>Please login with your oracle credentials</i>');

HTP.p ('</BODY>');
EXCEPTION
WHEN OTHERS
THEN
HTP.PRINT (
'There are errors while processing the program. Please contact tecnical team'
|| SQLERRM);
END PA_gl_login;

--
--#############################################################################
--# Name : validate_login
--# Description : This procedure validates the login details

--#############################################################################
PROCEDURE Rejection_validate_data (p_username IN VARCHAR2,
p_password IN VARCHAR2)
IS
BEGIN
IF fnd_user_pkg.ValidateLogin (UPPER (p_username), p_password) = TRUE
THEN
XXX_FND_WEB_PKG.Rejection_details (UPPER (p_username));
ELSE
HTP.p ('<h1 align="center">Login failed!</h1>');
HTP.P (
'<p align="center"> Please enter a valid Username and Password.</p>');
HTP.p (
'<p align="center"><A HREF="XXX_fnd_web_pkg.pa_gl_login">Click here</A>');
HTP.p ('To Login Again.</p>');
END IF;
EXCEPTION
WHEN OTHERS
THEN
HTP.PRINT (
'Error occured while processing the program. Please contact technical team.'
|| SQLERRM);
END Rejection_validate_data;

myscripts

Saturday, 10 December 2016

PLSQL CODE for creating a login page and validating the credentials

No comments:

Post a Comment