1 2 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