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

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

 

掌握帮助中介绍的SQL语句就足矣

呵呵，如果是初学，还是别看这样的例子啦，以免影响信心

 

 

局域网速度快，关系不大，如果是远程的呢？

没有别的意思，只是希望一行代码不要过长。

我会把这个做到帮助中的，并提供两个版本的示例文件

这个开发版的：

 

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

点击浏览该文件:自定义用户管理.rar

1、从来不建议隐藏主界面

2、登录窗口是模式窗口，应该作为第一个打开的窗口，这样在关闭登录窗口之前，不会有别的窗口打开。