举一个最简单的例子: 用户登陆----->主界面------>修改密码,
transaction: admin_id /varchar(40) , admin_psw/varchar(40)
workpanel: Wlogin , Wmain , WUpdPsw
procedure: PUpdPsw
Wlogin中调用Wmain,函数如下:call(WWmain,&admin_id) ,传递参数&admin_id到Wmain中,这时,我们要在Wmain的rules中添加规则parm(&admin_id),出现主界面和菜单栏MenuBar.
在MenuBar中下拉菜单点击'修改密码'菜单调用WUpdPsw,函数如下:call(WWUpdPsw,&admin_id),并添加规则parm(&admin_id);
procedure是在修改密码WUpdPsw中event里面调用的,代码如下:
call(PPrcUpdPsw,&admin_id,&newpsw);
procedure中添加规则:parm(&admin_id,&password),最后密码被保存在&password中,然后可以通过赋值操作修改密码:admin_psw=&password;
通过&admin_id的参数传递才能真正修改掉原始密码.