设置 Delphi 组的权限

用户组权限设置，代码简单，控制权限方便，可扩展性好。 通过系统管理员进入 权限设置，设置权限组及该组的功能。 然后通过用户设置，设置用户并指定用户是哪个组，改用户就赋予该组的权限。 使用actionlist 集中设置权限。所有程序功能代码都放在这里，菜单和空间的action设置相应的Action 把actions的序号和名称预置到数据库表—功能模块中即可。这样程序以后增加功能只需在数据库表中增加模块id和模块名称就行了，不需要修改权限代码。 在FormActivate执行权限设置代码 程序其他代码删除 程序缺点：没实现树形结构，Actions循序不能随便更改，改了以后需要更改数据库表。 欢迎高手指点。