ModuleID : string; //模块ID
ModuleName : string; //模块名称
FuncID : string; //功能ID(对应模块内的如新增,编辑,删除,打印等功能) end;
LoginInfoRecord=record ID : string; //登陆账户
name : string; //登陆用户名称
DeptID : string; //所在部门ID
RoleID : string; //角色ID
RoleName : string; //角色名称
RightList : TArray
end;
登陆过程中,读取角色信息,并把 RightList读入,在各个模块中进行判断是否有进入该模块的权限,和执行模块内某个功能权限。 该思路也可在VC中移植过去。