Re: A simple non-working UPDATE problem in Forms 4.5

Instead of all the extra processing and tables, if all you want to do is get the old password and make it seem like a Microsoft change password, try using OLD_PWD := GET_APPLICATION_PROPERTY('password'); and comparing the user's entry to it.

Kenny Gump
cyberj_at_nde.vsnl.net.in wrote in message <77enkq$44t$1_at_nnrp1.dejanews.com>...
>Hi all,
>
>There's a simple program to change the password of a user that I've made as
>part of a sample application. The database is in Personal Oracle7 Release
>7.2.2.3.1. The program is written in Developer 2000/Forms 4.5 (Designer)
>Version 4.5.6.5.5 (Production). (OS is Win 98 4.10.1998 on a Pentium 150,
32
>MB RAM).
>
>In the database there's a table by the name of 'Password' having the
structure
>as following:
>
>SQL> desc password;
> Name Null? Type
> ------------------------------- -------- ----
> USER_NAME VARCHAR2(20)
> PASSWORD VARCHAR2(30)
>
>The contents are as following:
>
>SQL> select * from password;
>
>USER_NAME PASSWORD
>-------------------- ------------------------------
>supervisor supervisor
>
>In the Forms program, I've create a block 'old_password' to accept the
>username and old password, the structure of which is:
>
>USER_NAME (to accept username)
>PASSWORD (to accept old password)
>OK1 (OK button)
>
>A trigger on OK1 is 'WHEN-BUTTON-PRESSED' with the following code:
>
>declare
> v_name varchar2(20);
> V_password varchar2(30);
>begin
> :global.v_password := lower(:old_password.user_name);
> :global.v_name := lower(:old_password.password);
> select lower(user_name),lower(password) into v_name,v_password from
password
> where lower(user_name) = :global.v_password and lower(password) =
>:global.v_name;
>
> If SQL%NOTFOUND THEN
> MESSAGE('INCORRECT NAME OR PASSWORD.CHANGE OFPASSWORD NOT ALLOWED');
> EXIT_FORM;
> ELSE
> HIDE_VIEW('OLD_PASSWORD');
> GO_BLOCK('NEW_PASSWORD');
> SHOW_VIEW('NEW_PASSWORD');
> END IF;
> clear_block(no_validate);
>EXCEPTION
> WHEN TOO_MANY_ROWS THEN
> RAISE FORM_TRIGGER_FAILURE;
>END;
>
>This code puts control in another block 'new-password' which have two text
>boxes, one to accept new password, another to confirm
>it. The 'OK2' item in this block has a trigger 'WHEN-BUTTON-PRESSED' with
the
>following code:
>
>declare
> v_pass varchar2(20);
>begin
> if lower(:NEW_PASSWORD.PASSWORD) = lower(:NEW_PASSWORD.PASSWORD1) THEN
> :SYSTEM.MESSAGE_LEVEL:='20';
> v_pass:=lower(:NEW_PASSWORD.PASSWORD1);
> UPDATE PASSWORD SET PASSWORD = v_pass
> WHERE USER_NAME = :global.v_name and
> PASSWORD = :global.v_password;
> clear_message;
> MESSAGE('PASSWORD CHANGED.');
> EXIT_FORM(DO_COMMIT);
> ELSE
> clear_message;
> MESSAGE('PASSWORDS DO NOT MATCH. ENTER ONCE AGAIN!');
> :NEW_PASSWORD.PASSWORD := '';
> :NEW_PASSWORD.PASSWORD1 := '';
> go_item('NEW_PASSWORD.PASSWORD');
> END IF;
>end;
>
>When I execute this forms application and give a new password, say 'abc',
>instead of updating the password in the table, the result I
>get is as following:
>
>SQL> select * from password;
>
>USER_NAME PASSWORD
>-------------------- ------------------------------
>supervisor supervisor
> abc
>supervisor abc
>
>Now where am I going wrong, can someone help me out !!
>
>(I've also tried using an ON-UPDATE trigger on the 'new-password' block
>without any result)
>
>Very thanks in advance to anyone who can help me.
>
>Sincerely
>
>Manish Chowdhury
>
>(PS: I would appreciate an individual reply)
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
Received on Tue Jan 12 1999 - 14:00:51 CET