我曾经做过一个这样的,或许有参考作用: 权限分类:打印,输入1,输入2,复核,权限管理。存储用户权限的表:userID,Rights 010 5 其中打印=1,输入1=2,输入2=4,复核=8,权限管理=16。 这里用户010的权限就具有打印输入2 如何验证用户是否有这个权限呢,actprint为打印按钮对应的taction。 那只要在这个actprint的ONupdate里写上(sender as taction).enabled:=(sender as taction).tag and 1=1 当然得在actprint的tag写上对应的权限值。
其中包括用户表,权限表
每个用户对应他所有的权限如user1 察看XXX数据
user1 修改XXX数据
user2 察看XXX数据我以前是这样的
权限分类:打印,输入1,输入2,复核,权限管理。存储用户权限的表:userID,Rights
010 5
其中打印=1,输入1=2,输入2=4,复核=8,权限管理=16。
这里用户010的权限就具有打印输入2
如何验证用户是否有这个权限呢,actprint为打印按钮对应的taction。
那只要在这个actprint的ONupdate里写上(sender as taction).enabled:=(sender as taction).tag and 1=1
当然得在actprint的tag写上对应的权限值。