Looping through a table Help needed ....Forms 10g..... When Button Pressed

Question

Hye craig, hamid, christian and all ...........
i have a user access interface which i create where there are two fields username and password and a button,
i have also created a table USERS for users which have username and password fields ..... On useraccess interface i coded on WHEN BUTTON PRESSED like this
declare
go_block('users');
execute_query;
declare
begin
     if :useraccess.username=:users.username and
          :useraccess.password=:users.password then
          go_block('MAINPAGE');
          else
          go_block('USERACCESS');
          MESSAGE('SORRY WRONG PASSWORD OR NOT A REGISTERED USER');
          MESSAGE('SORRY WRONG PASSWORD OR NOT A REGISTERED USER');
          end if;
end;
This code works for a single user in USERS table but for multiple users there has to be some looping system
which matches the USERACCESS and USERS tables fields thoroughly ....

Answer 1

Hi Majid,
I can suggest you a workaround for this. raise a ON-LOGON trigger and you can use the LOGON_SCREEN builtin to flash the logon screen at runtime. And then try capturing the username and password.
DECLARE
  connected BOOLEAN := FALSE;
  tries     NUMBER  := 3;
  un        VARCHAR2(30);
  pw        VARCHAR2(30);
  cs        VARCHAR2(30);
BEGIN
  SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
  WHILE connected = FALSE and tries > 0
  LOOP
    LOGON_SCREEN;
    un := GET_APPLICATION_PROPERTY( USERNAME );
    pw := GET_APPLICATION_PROPERTY( PASSWORD );
    cs := GET_APPLICATION_PROPERTY( CONNECT_STRING );
    LOGON( un, pw || '@' || cs, FALSE );
    IF FORM_SUCCESS
    THEN
      connected := TRUE ;
    END IF;
    tries := tries - 1;
  END LOOP;
  IF NOT CONNECTED THEN
    MESSAGE('Too many tries!');
    RAISE FORM_TRIGGER_FAILURE ;
  END IF;
END ;   a sample piece of coding to help you out.
Regards,
Manoj Chakravarthy