主题：自定义用户和权限管理

Foxtable的用户信息保存在项目文件中。

在多用户环境下，增加、删除、更改用户后，需要更新各终端的项目文件，这对于大型的应用系统，是一件很麻烦的事情。

 

下面这个例子，完全抛开了foxtable自身的用户管理系统，取而代之的是自己设计的、用户信息保存在数据表中的用户管理系统。
示例项目示例完全采用SQL语言设计，如果对于SQL语言没有基本的了解，请不要尝试学习。
用户信息保存在外部数据源"用户.mdb"中。

 

示例项目设置了默认用户，这样将跳过foxtable本身的登录界面。

项目中有关用户管理和登录的按钮，其代码已经修改，以便打开自定义的用户管理和登录界面。
记住要回到系统菜单，按Ctrl + F12即可。

 

全局代码中定义了两个变量：

 

Public _UserName As String
Public _UserGroup As String

 

分别用于保存登录用户名及其分组，例如原来foxtable的代码：

 

If User.Group = "经理" Then
    DataTables("表A").AllowEdit = True
Else
    DataTables("表A").AllowEdit = False
End If

 

现在应该改为：

 

If _UserGroup = "经理" Then
    DataTables("表A").AllowEdit = True
Else
    DataTables("表A").AllowEdit = False
End If

 

可以看出，自定义的用户管理系统，在应用上和内置的不会有任何差别。

 

具体设计请参考附件:

 

 

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

点击浏览该文件:管理项目141.rar