以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义用户和授权  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37910)
--  作者：CRM2013
--  发布时间：2013/7/15 10:37:00
--  自定义用户和授权

教材P1688上有一个自定义用户登陆与权限的案例，P1677还有一个目录树授权案例。请问如果采用自定用户登录设置的话，目录树授权案例中的代码需要做哪些修改？

 

 
--  作者：Bin
--  发布时间：2013/7/15 10:41:00
--  
只需要把原本使用内部用户的变量User.NAME  换成自定义登录设定的变量 _Username 即可  _password同理.
--  作者：CRM2013
--  发布时间：2013/7/15 14:33:00
--  

 

 

 

窗口的AfterLoad事件代码为:

每次打开授权窗口后报错，我还以为是下面这个窗口afterload代码中的user信息需要修改？

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()

--  作者：狐狸爸爸
--  发布时间：2013/7/15 14:37:00
--  

别用自定义了，现在内置的用户管理，用户信息也可以存储在外部表中了：

 

http://www.foxtable.com/help/topics/2723.htm

 

一点都不用伤脑细胞。
--  作者：Bin
--  发布时间：2013/7/15 14:38:00
--  
你没有看到我2楼的回复吗?
你这不是还是内部用户吗?
--  作者：CRM2013
--  发布时间：2013/7/15 14:59:00
--  

bin, 我看到了您2楼的指点，在此之前我也将自定用——户登录窗口中的所有user.name等调整为了_username 等 但对P1678这段代码不知道如何调整。所以贴了出来。
--  作者：Bin
--  发布时间：2013/7/15 15:03:00
--  
循环所有内部表用户改为循环 外部用户表所有行

for each dr as datarow in dt.datarows
      if dr("Type")=1 then
      end if
next
--  作者：wuxianzuoji41
--  发布时间：2013/7/15 15:12:00
--  
以下是引用狐狸爸爸在2013-7-15 14:37:00的发言：

别用自定义了，现在内置的用户管理，用户信息也可以存储在外部表中了：

 

http://www.foxtable.com/help/topics/2723.htm

 

一点都不用伤脑细胞。

狐狸爸爸如果自己新建立的外部表用这个，如果是和别的数据库中的用户表对接不是不能使用这个了，比如和用友的数据库用户是不是就不能用这个，因为表的关键字字段名不一致。
--  作者：Bin
--  发布时间：2013/7/15 15:28:00
--  
那就只能用查询用户表,然后循环行的方法了.