Forms 10g : exécution d'une application
bonsoir, j ai une application et mon probleme est :
j ai une table users et leurs attributs compte_user , pwd_user , type_user.
Donc j ai des utilisateurs qui possèdent un compte, mot de passe et son type.
j arrive pas a acceder a des pages qui correspond a chaque type d'utilisateur, et l interface que j ai utiliser possède tois champs pour introduire ces donnée et le code que j ai utiliser pour le bouton "connexion" est :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| declare
compte users.compte_user%type;
pwd users.pwd_user%type;
type_u users.type_user%type;
n number;
t number := 0;
begin
select compte_user, pwd_user , type_user into compte, pwd, type_u
from users
where ((compte_user=:compte) and (pwd_user=:pwd) and (type_user=:type_u));
--************** appel **************************
declare
the_list PARAMLIST:= Get_Parameter_List('default');
begin
case type_u
when 'CHEF DE STATION' then
New_Form('D:\application NAFTGD\ACCUEIL CHEF STATION',FULL_ROLLBACK, NO_QUERY_ONLY ,SHARE_LIBRARY_DATA,'default');
when 'CADRE D"ETUDES' then
New_Form('D:\application NAFTGD\CADRE DETUDES',FULL_ROLLBACK, NO_QUERY_ONLY ,SHARE_LIBRARY_DATA,'default');
when 'ADMINISTRATEUUR' then
New_Form('D:\application NAFTGD\ADMINISTRATEUR',FULL_ROLLBACK, NO_QUERY_ONLY ,SHARE_LIBRARY_DATA,'default');
else
null;
-- appel_fonction;
end case ;
end;
exception
when no_data_found or too_many_rows then
begin
t:=t+1;
if t<4 and t>1 then
set_alert_property('message',alert_message_text,'compte utilisateur ou mot de passe incorrect !');
n:=show_alert('message');
go_item('pwd');
clear_item;
go_item('compte');
clear_item;
end if;
if t=4 then
set_alert_property('message1',alert_message_text,'Windows doit fermer l''application!');
n:=show_alert('message1');
exit_form;
end if;
end;
end; |
il se passe rien et aucun message d'erreur, et pourtant j ai crée les interfaces qui correspant a chaque type, pour koi l appel a ces pages ne ce fais pas, aider moi je suis coinsé pour mon projet de fin d'études
