KEY-NEXT-ITEM

Declare
  P varchar2(25);
Begin
  Select  UserPassword into :Global.P   from Duser
  where  username='NZ';
  If  (:password=:Global.P ) then
       :Global.A:=2;
		    
     Call_form( 'E:\STORE\DEMAND_TYPE.fmx',Hide);
     Clear_form;
     :Global.A:=2;
	   
    Else
    Message('Please Enter the Correct Password');
    Message('Please Enter the Correct Password');
    Clear_form;
		
   End if;
End;