| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 
 | declare
 Al_id  ALERT;
 
 LN$But1 Number ;
 LN$But2 Number ;
 LN$But3 Number ;
 
 var1 admin.login_admin%type;
 var2 admin.password_admin%type; 
 
begin
	Al_id := Find_Alert('alert1') ;
	if( (:t1 IS NULL) or (:t2 = '') )then	
	  LN$But1 := Show_Alert('alert1');
	else
		select login_admin,password_admin into var1,var2 from admin where login_admin = :t1 AND password_admin = :t2;
  	if (var1 is null or  var2 is null) then
	  	LN$But2 := Show_Alert('bien');
  	else
		  LN$But3 := Show_Alert('message');	
  	end if;
  end if;
end; | 
Partager