Foxtable(狐表)用戶欄目專家坐堂 → 可視化授權怎么增加某分組只能查看編輯自己添加的內容


  共有268人關注過本帖樹形打印復制鏈接

主題:可視化授權怎么增加某分組只能查看編輯自己添加的內容

帥哥喲,離線,有人找我嗎?
瀟雨
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:嬰狐 帖子:11 積分:142 威望:0 精華:0 注冊:2020/1/2 1:13:00
可視化授權怎么增加某分組只能查看編輯自己添加的內容  發帖心情 Post By:2020/2/9 6:01:00 [只看該作者]

參考了http://www.ezgnlh.tw/webhelp/topics/1600.htm
還需要增加一個,某用戶分組只看查看編輯本分組添加的內容,別的分組添加的內容完全看不到。

圖片點擊可在新窗口打開查看此主題相關圖片如下:qq截圖20200209055221.png
圖片點擊可在新窗口打開查看

下面代碼是按照開頭寫的鏈接弄的,然后需要加上截圖最后一項,也就是可以設置某表格,內容只能是添加數據的分組內用戶可見,要怎么寫代碼。
但是不明白要怎么做到這個可視化管理里面來。

多麻煩了,謝謝

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("權限設置").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("權限設置").Select("部門 = '" & User.Group & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可見")
            Tables(dr("表名")).AllowEdit = Not dr("不可編輯")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可見")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可編輯")
        End If
    Next
End If

 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  2樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:46767 積分:237277 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/2/9 22:09:00 [只看該作者]

這種不是在可視化里設置的,需要這樣:http://www.ezgnlh.tw/webhelp/topics/2256.htm

 回到頂部
帥哥喲,離線,有人找我嗎?
瀟雨
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:嬰狐 帖子:11 積分:142 威望:0 精華:0 注冊:2020/1/2 1:13:00
  發帖心情 Post By:2020/2/9 23:19:00 [只看該作者]

沒辦法實現可視化設置嗎?因為我這面這個分組和權限方面要經常修改。每次都編輯軟件的話比較麻煩。

 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  4樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:46767 積分:237277 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/2/9 23:22:00 [只看該作者]

分組在用戶里里設置就行了,不需要更改代碼呀

 回到頂部
帥哥喲,離線,有人找我嗎?
瀟雨
  5樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:嬰狐 帖子:11 積分:142 威望:0 精華:0 注冊:2020/1/2 1:13:00
  發帖心情 Post By:2020/2/11 1:47:00 [只看該作者]

比如某個分組,這個分組的權限需要經常修改成不同的,后面生成獨立軟件后,有什么辦法快速編輯嗎?
[此貼子已經被作者于2020/2/11 1:54:32編輯過]

 回到頂部
帥哥喲,離線,有人找我嗎?
瀟雨
  6樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:嬰狐 帖子:11 積分:142 威望:0 精華:0 注冊:2020/1/2 1:13:00
  發帖心情 Post By:2020/2/11 5:53:00 [只看該作者]

已解決
我這面是做家具電商的,除了自己工廠外,還有幾個給我們代工的工廠。做的這個是生產進度表,我們銷售部,倉庫,還有自己工廠可以看到所有數據,另外別的工廠只能查看自己添加的數據。

我剛想到的辦法是啟用了角色,定義一個為工廠的角色。
當工廠的角色登錄,只能查看對應用戶分組(工廠名字)的數據,別的用戶可以查看到所有數據。
表達能力差,不知道能不能看明白。
寫出來給萬一有跟我同樣需要的人。感謝@有點藍

If user.Roles = "工廠" Then
    DataTables("生產進度").LoadFilter = "[部門] = '" & User.Group & "'"
Else
    DataTables("生產進度").LoadFilter = ""
End If
DataTables("生產進度").Load()

 回到頂部
229期22选5开奖结果