登录口令加密函数、用户登录主Form实现方法和具体代码

function StorePage() { d=document; t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():''); void(keyit=window.open('http://www.365key.com/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes')); keyit.focus(); }

create函数PWD：
createFUNCTIONPWD(sdpasswordvarchar2)RETURNvarchar2IS
lennumber;
szpwdvarchar2(20);
BEGIN

len:=length(sdpassword);
foriin1..lenloop
szpwd:=szpwd||
chr(ascii(substr(sdpassword,i,1))+(len-i)*i*i+len);
endloop;
return(szpwd);

END;
/

具体使用：
1.在Block中加一Trriggers：Key-Others，代码：null;防止用户用Shift+F7非法进入。
2.在OK确定Button加一When-Button-Pressed，代码：
DECLARE
szpwdVARCHAR2(20);--密码
szjmpwdVARCHAR2(20);--加密码
szjsVARCHAR2(10):='4';--角色
BEGIN
SELECTPASSWORD,js
INTOszpwd,szjs
FROMprid01--权限管理中的用户登记表
WHEREuserid=:login.userid;

szjmpwd:=pwd(NVL(:login.PASSWORD,'@'));

IFszpwd=szjmpwdTHEN
:GLOBAL.userid:=:login.userid;
:GLOBAL.username:=:login.username;
:GLOBAL.js:=szjs;
:GLOBAL.PASSWORD:=:login.PASSWORD;
:GLOBAL.nls_lang:=:login.nls_language;
--init_menu;--初始化菜单权限
--init_nav;--初始化工具条上的ERP流程图权限
--init_nav_hr;--初始化工具条上的人力资源模块流程图权限
GO_BLOCK('MAIN');
--SET_ITEM_PROPERTY('NO_DISPLAY_NEXT_TIME',VISIBLE,PROPERTY_TRUE);
--SET_ITEM_PROPERTY('NO_DISPLAY_NEXT_TIME',ENABLED,PROPERTY_TRUE);
--EXECUTE_TRIGGER('HINT');--执行每日一帖小程序
ELSE
messagebox.messagebox(nls_error(nls_lang,'00004'));
--这是我自做的多语言messagebox，你们可用你们的
GO_ITEM('LOGIN.password');
ENDIF;
EXCEPTION
WHENNO_DATA_FOUNDTHEN
messagebox.messagebox(nls_error(nls_lang,'00007'));
--这是我自做的多语言messagebox，你们可用你们的
GO_ITEM('LOGIN.userid');
WHENOTHERSTHEN
messagebox.messagebox(SQLERRM);
END;