以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自定义用户和权限管理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=7208)

--  作者:狐狸爸爸
--  发布时间:2010/5/25 17:05:00
--  自定义用户和权限管理

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

[此贴子已经被作者于2010-5-25 17:06:26编辑过]

--  作者:狐狸爸爸
--  发布时间:2010/5/25 17:18:00
--  
以下是引用liuruihua在2010-5-25 17:15:00的发言:

沙发,顶。老六说对于SQL语言没有基本的了解,请不要尝试学习,我是不管的,就是不懂才要学,哈哈

 

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


--  作者:foxor
--  发布时间:2010/5/25 17:21:00
--  
好,顶!
--  作者:老有所乐
--  发布时间:2010/5/25 18:24:00
--  

--  作者:shixia
--  发布时间:2010/5/25 20:27:00
--  
今天还在学习这个东西,想睡觉枕头来了,顶!图片点击可在新窗口打开查看
--  作者:czy
--  发布时间:2010/5/25 20:33:00
--  
先顶后学。
--  作者:lkqing
--  发布时间:2010/5/25 20:41:00
--  
先下载了再说。
--  作者:ylm
--  发布时间:2010/5/25 21:02:00
--  
 顶了再学。。。
--  作者:chenganlu
--  发布时间:2010/5/25 21:26:00
--  
先下载学习。
--  作者:i52117
--  发布时间:2010/5/25 21:43:00
--  
拿来看看图片点击可在新窗口打开查看