标题：少量代码，实现简单用户管理和权限管理(2013.1.21小更新)

 
 今天上班比较有空，就用狐表做了个简单的用户授权管理，发觉还挺实用，就分享一下。

 喜欢的朋友，若不想重造轮子，可以拿来自由扩展！不涉及版权！

 用户名：admin   密码：admin

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理_小例.table

-------------------

注意，本小例于2013.1.21小更新，希望可以填补之前的缺陷。

 up，自己顶顶，留着以后快速构建系统。

顶，参观学习一下

顶一下。

个人认为：

1、同步表列的代码可以放在MainTableChanged事件中，点击表名“表列”，即可自动完成。

2、状态列就没意义了，不需要的删除就行。对于用户，可以删除，或给个最小的权限；对于角色，数量有限，随时可改，不启用自然没有对应角色的用户。

3、下列语句带X的行应该删除，和帮助文件的例子一样。否则，如果true就没法改false了。

4、下列语句前应该增加与帮助文件一样的全部表和列都可见和可编辑的语句。道理同上。

5、下列语句应该放在登录窗口中，否则，切换用户必须改为重新打开项目，但这显然是很浪费时间的。

6、权限表中角色名应为多值字段，这样可以减少很多行，于是in应该改为like，外套一个for循环，其它代码作相应的调整。

For Each dr As DataRow In drs
    If dr.IsNull("列名") Then
   X     If Tables(dr("表名")).Visible = False Then
            Tables(dr("表名")).Visible = dr("可见")
   X     End If
   X     If Tables(dr("表名")).AllowEdit = False Then
            Tables(dr("表名")).AllowEdit = dr("可编辑")
   X     End If
    Else
   X     If Tables(dr("表名")).Cols(dr("列名")).Visible = False Then
            Tables(dr("表名")).Cols(dr("列名")).Visible = dr("可见")
   X     End If
   X     If Tables(dr("表名")).Cols(dr("列名")).AllowEdit = False Then
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit  = dr("可编辑")
   X     End If
    End If
Next

 

 呵呵，谢谢楼上的指导。

第一个问题，这个建议不错。

第二个问题，状态列确实没有太大的用处……

第三个问题，之所以这样写，是为了权限的最大化，免得后面的false影响到前面的true，因为存在有多个权限的人，而权限的设置有可能不同。

第四个问题，全部表列可见可编辑，可以给用户添加所有的角色。显然你的做法更合理。

第五个问题，说得实在。

第六个问题，说得也对！这个建议很好。

 楼上高手，受教了……

楼主客气了，正是因为您的启发，再研究您和帮助文档的代码，让我极大地改进了我自己开发的项目，仅仅增加两张简单的表（角色表为字典表中的一列，新增的表列表一点也不用管理，新增的权限表简单明了），不仅减少了大量难以理清、修改费时、容易出错和遗漏的条件代码，还便于管理者以后简单、动态地管理用户的权限，理论上无需修改代码。现在，只需在长文本编辑（权限管理无法控制...按钮，这是狐表需要完善的地方）和密码管理等方面补充简单的权限管理代码。

老师您好，我下载的这个部分权限不起作用，不知道是不是您的代码有问题，还是其他原因，用普通用户user2登录，权限里明明设置的只可见，不可编辑，但是进入后仍然可以编辑，还不是很懂，特意向您请教一下

楼主不知更新了没？

谢谢下载学习

先收下學習，非常感謝