DECLARE
	
e_invalid_username	      EXCEPTION;  
v_param_list                   PARAMLIST;
  
------HOW CAN I SHOW USER_ID WHEN LOGIN CORRECT USERNAME AND HOW CAN I SEND PARAMETER P_USER_ID TOO.THANKYOU FOR YOUR HELP-------------


CURSOR cs_account IS
	       SELECT  USER_ID,USERNAME,PASSWORD
	       FROM USERNAME
	       WHERE USERNAME.USERNAME =:USERNAME.USERNAME      AND USERNAME.PASSWORD =:USERNAME.OLD_PASSWORD  
	  ORDER BY USER_ID;
	        
CS_ACCOUNT_ROW CS_ACCOUNT%ROWTYPE;


---------------

BEGIN

OPEN CS_ACCOUNT;
FETCH CS_ACCOUNT INTO CS_ACCOUNT_ROW ;
IF CS_ACCOUNT%FOUND THEN
	MESSAGE('YES!! CORRECT USERNAME AND PASSWORD');

--------------------------------------------------

 v_param_list:=GET_PARAMETER_LIST('login_list');
         IF NOT ID_NULL(v_param_list) THEN
	  DESTROY_PARAMETER_LIST(v_param_list);
          END IF;
          v_param_list:=CREATE_PARAMETER_LIST('login_list');
ADD_PARAMETER(v_param_list,'p_user_id',TEXT_PARAMETER,:username.user_id);
ADD_PARAMETER(v_param_list,'p_user_password',TEXT_PARAMETER,:username.old_password);
 ADD_PARAMETER(v_param_list,'p_username',TEXT_PARAMETER,:username.username);


	--------------------------------------------
	
CALL_FORM('C:\DevSuiteHome_1\forms\project\form\RESTURANT.FMX', NO_HIDE,NO_REPLACE, NO_QUERY_ONLY, v_param_list);
	
	
ELSE
	RAISE e_invalid_username;
END IF;

CLOSE CS_ACCOUNT;




-------------------------------------------
EXCEPTION

	   	 

	  WHEN e_invalid_username THEN
   		MESSAGE('INVALID USERNAME OR PASSWORD!!');
   		  MESSAGE('');
   		 GO_ITEM('USERNAME.USERNAME');
	   	 RAISE FORM_TRIGGER_FAILURE; 	  	 
	   	
	   	 
	 WHEN OTHERS THEN
       message('Error can''t be classified, Please contact Administrator.');
        MESSAGE('');
	      CLEAR_FORM(NO_VALIDATE, FULL_ROLLBACK);	   	 
   
END;
	

ADD_PARAMETER(v_param_list,'p_user_id',TEXT_PARAMETER,:username.user_id);

ADD_PARAMETER(v_param_list,'p_user_id',TEXT_PARAMETER,CS_ACCOUNT_ROW.user_id);

BEGIN

-------------USERNAME------------------
IF :USERNAME.USERNAME IS NULL THEN
BELL;
MESSAGE ('PLEASE ENTER USERNAME ');
MESSAGE(' ');
GO_ITEM('USERNAME.USERNAME');
RAISE FORM_TRIGGER_FAILURE;
END IF;

IF :USERNAME.NEW_USERNAME IS NULL THEN
BELL;
MESSAGE('PLEASE ENTER NEW USERNAME. ');
--MESSAGE(' ');
GO_ITEM('USERNAME.NEW_PASSWORD');
RAISE FORM_TRIGGER_FAILURE;
END IF;
----------------------------------

--------------PASSWORD---------------------
IF :USERNAME.OLD_PASSWORD IS NULL THEN
BELL;
MESSAGE ('PLEASE ENTER OLD PASSWORD ');
MESSAGE(' ');
GO_ITEM('USERNAME.OLD_PASSWORD');
RAISE FORM_TRIGGER_FAILURE;
END IF;

IF :USERNAME.NEW_PASSWORD IS NULL THEN
BELL;
MESSAGE('PLEASE ENTER NEW PASSWORD. ');
MESSAGE(' ');
GO_ITEM('USERNAME.NEW_PASSWORD');
RAISE FORM_TRIGGER_FAILURE;
ELSIF :USERNAME.RETYPE_NEW_PASSWORD IS NULL THEN
BELL;
MESSAGE('PLEASE ENTER NEW PASSWORD VERIFICATION. ');
MESSAGE(' ');
GO_ITEM('USERNAME.RETYPE_NEW_PASSWORD');
RAISE FORM_TRIGGER_FAILURE;
ELSIF :USERNAME.NEW_PASSWORD != :USERNAME.RETYPE_NEW_PASSWORD THEN
BELL;
MESSAGE('PLEASE RETYPE NEW PASSWORD. VERIFICATION FAILED. ');
MESSAGE(' ');
GO_ITEM('USERNAME.NEW_PASSWORD');
:USERNAME.NEW_PASSWORD := NULL;
:USERNAME.RETYPE_NEW_PASSWORD := NULL;
RAISE FORM_TRIGGER_FAILURE;
END IF;
-------------------------------------

	

-------UPDATE---------------
IF :USERNAME.USERNAME != :PARAMETER.P_USERNAME THEN
	MESSAGE('PLEASE TYPE CORRECT USERNAME.');
	GO_ITEM('USERNAME.USERNAME');
	
ELSIF

:USERNAME.OLD_PASSWORD != :PARAMETER.P_USER_PASSWORD THEN
	MESSAGE('PLEASE TYPE CORRECT PASSWORD.');
	GO_ITEM('USERNAME.OLD_PASSWORD');
	
	
ELSIF

 :USERNAME.NEW_PASSWORD = :USERNAME.RETYPE_NEW_PASSWORD THEN

UPDATE USERNAME 
SET USERNAME.PASSWORD = :USERNAME.NEW_PASSWORD,
 USERNAME.USERNAME  = :USERNAME.NEW_USERNAME
WHERE USERNAME.USERNAME = :PARAMETER.P_USERNAME; <---it's work when i try to update that check from parameter p_username 
--[color=red]WHERE USERNAME.USERNAME=:PARAMETER.P_USER_ID;[/color]<--- [color=red]This is my Objective that i want to update that check with parameter p_user_id ,but it doesn't send from login form ,so i confuse how can i code for send parameter p_user_id.thank you for your help....[/color]
COMMIT;          

--------I DON'T KNOW WHAT'S DIFF ABOUT COMMIT,COMMIT_FORM,FORMS_DDL('COMMIT')AND STANDARD.COMMIT----
--COMMIT_FORM;
--FORMS_DDL('COMMIT');



END IF;


END;

ADD_PARAMETER(v_param_list,'p_user_id',TEXT_PARAMETER,:username.user_id);

	  ADD_PARAMETER(v_param_list,'p_user_id',TEXT_PARAMETER,CS_ACCOUNT_ROW.user_id);

BEGIN
 
:RESTURANT.R_PICTUREPATH:= CLIENT_GET_FILE_NAME('C:\TEMP', NULL,'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', NULL,NULL,NULL);


END;

DECLARE

IMAGE_PATH VARCHAR2(300);


BEGIN

IMAGE_PATH := :RESTURANT.R_PICTUREPATH;
 client_image.read_image_file(IMAGE_PATH,  'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', 'RESTURANT.R_PICTURE');
client_image.write_image_file(IMAGE_PATH,  'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', 'RESTURANT.R_PICTURE');

COMMIT_FORM;

END;

BEGIN
 
:RESTURANT.R_PICTUREPATH:= CLIENT_GET_FILE_NAME('C:\TEMP', NULL,'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', NULL,NULL,NULL);
END;

DECLARE

IMAGE_PATH VARCHAR2(300);

BEGIN

IMAGE_PATH := :RESTURANT.R_PICTUREPATH;
 client_image.read_image_file(IMAGE_PATH,  'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', 'RESTURANT.R_PICTURE');

COMMIT_FORM;

END;

DECLARE
	  

V_FILE_NAME VARCHAR2(300) := CLIENT_GET_FILE_NAME('C:\', NULL,'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', 'Browse Restuarant Picture',OPEN_FILE,TRUE);

BEGIN


 :RESTURANT.R_PICTUREPATH:= V_FILE_NAME;
client_image.read_image_file(V_FILE_NAME, 'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|','RESTURANT.R_PICTURE');




END;

BEGIN

UPDATE RESTURANT 
SET
 RESTURANT.R_PICTUREPATH = :RESTURANT.R_PICTUREPATH
WHERE RESTURANT.R_ID = TO_NUMBER(:PARAMETER.P_USER_ID);

COMMIT_FORM;


END;

DECLARE
	  

V_FILE_NAME VARCHAR2(300) := CLIENT_GET_FILE_NAME('C:\', NULL,'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', 'Browse Restuarant Picture',OPEN_FILE,TRUE);

BEGIN


 :RESTURANT.R_PICTUREPATH:= V_FILE_NAME;
client_image.read_image_file(V_FILE_NAME, 'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|','RESTURANT.R_PICTURE');




END;

BEGIN

UPDATE RESTURANT 
SET
 RESTURANT.R_PICTUREPATH = :RESTURANT.R_PICTUREPATH
WHERE RESTURANT.R_ID = TO_NUMBER(:PARAMETER.P_USER_ID);

COMMIT_FORM;


END;

begin
	read_image_file('c:\1.gif', 'GIF', 'BLOCK_NAME.photo');
end;