首先本组件是 delphi 5.0 编译的。
以下是简单的使用:
1、安装RActions.dpk后,组建面板上有TUserRights组件;
2、放置TUserRights到窗体上,假设命名为UR;
3、放置一个TActionList到窗体上;
4、在ActionList上增加标准Action,在标准Action中选择TRightAction;
5、假设命名这个TRightAction为RA;
6、设置RA的UserRights属性为UR;
7、设置RA的Right和RightDescription属性为功能名和功能描述,任意字符串;
8、对RA的其它操作同TAction一样;
9、填写UR的事件,分别为:
OnCheckRight:您需要:验证当前用户权限,当前用户由UR.CurrentUser属性得到
OnPromptUser:您需要:提示用户名和密码,验证用户登陆,由UR.Login得到
OnLogout:您需要:当用户退出时的操作(作为保留,目前没有实际意义)
OnSetupRights:您需要:枚举所有的TRightAction,取出TRightAction的Right和
RightDescription属性,自定义一个设置权限的界面,保存你的权限
配置,由UR.SetupRights调用
10、例子没时间写了,以后再说吧;
11、您对本组件的更新请通知作者,ssl@email.com.cn;
12、有任何好的建议或意见请发送到 ssl@email.com.cn;
13、如果这个组件顶用,哈哈,那时sslxml写的,如果不顶用,我也不知道是谁写的!
14、作者不负责对本组件的维护,您的问题可能得到答复,也可能得不到答复,但无论
如何,请在关于这个组件的问题的邮件标题中包含RightAction字串。
that all, thanks.
上传了:http://projectpage.myetang.com/rightaction.rar (3.34K,好小呀)