Help: Exit the FORM when user makes failed attempt to logon

Question

Hi,
In this application, I added a on-logon trigger with a line:
logon(' ','@DB-CONN');
DB-CONN is the default database connection string.
What I really want to add is every failed logon attempt will be given and the 3rd failed attempt will kick the user out.
Right now, I have the problem that even user clicks CANCEL button, the form will be started without DB connection. Any suggestions will be greatly appreciated.
Thanks.
Jimmy

Answer 1

hi
Login button code.
when-button-pressed trigger.
if :LOGIN_BLOCK.USERNAME is null then
message('User must be entered !');
go_item('LOGIN_BLOCK.USERNAME');
return;
end if;
if :LOGIN_BLOCK.PASS_WORD is null then
MESSAGE('Password must be entered !');
go_item('LOGIN_BLOCK.PASS_WORD');
return;
end if;
set_application_property(CURSOR_STYLE,'normal');
:global.bad  := 0;
if :LOGIN_BLOCK.CONNECT_STRING is null then
logon(:LOGIN_BLOCK.USERNAME,:LOGIN_BLOCK.PASS_WORD, FALSE);
else
logon(:LOGIN_BLOCK.USERNAME,:LOGIN_BLOCK.PASS_WORD||'@'||:LOGIN_BLOCK.CONNECT_STRING, FALSE);
end if;
if :global.bad = 0 and form_success then
set_application_property(CURSOR_STYLE,'normal');
open_form('TREE',no_hide,no_replace);
exit_form;
ELSE
:global.v_attempt  := :global.v_attempt  + 3;
set_application_property(CURSOR_STYLE,'normal');
if :global.v_attempt  < 2 then
   MESSAGE('Username/Password was invalid. Please re-enter !');
   go_item('LOGIN_BLOCK.USERNAME');
else
   MESSAGE('Invalid Login Attempts.Please contact Admin');
   exit_form(no_validate);
end if;
end if;On-Logon trigger.(Form Level)
logon(get_application_property(USERNAME),
     get_application_property(PASSWORD)||'@'||get_application_property(CONNECT_STRING), FALSE);
if not form_success then
:global.bad := 1;
raise form_trigger_failure;
end if;create a Procedure.
PROCEDURE Log_on IS
BEGIN
:global.quit := 'TRUE';
exit_form(no_validate);
END;the following code for Pre-Form trigger(Form Level).
BEGIN
:global.quit := 'FALSE';
:global.v_attempt := 0;
END;I hope it will help u.
Sarah