Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口按钮权限设置


  共有5758人关注过本帖树形打印复制链接

主题：窗口按钮权限设置
帅哥哟，离线，有人找我吗？
charity
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/27 17:17:00 [显示全部帖子]

多谢   我怎么设置谁自己增加的谁可以删除自己的这样的权限呢?   

 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/29 9:11:00 [显示全部帖子]

为什么我以版师的身份删除文件删除不了呢？
[此贴子已经被作者于2021/9/7 15:35:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/30 8:49:00 [显示全部帖子]

麻烦老师帮我看一下这段代码有问题吗?  为什么我以版师的角色删除不了 , 还有新增项目的时候不能显示出来,麻烦老师帮忙解答一下

删除按钮代码:
Dim aa As WinForm.Form = Forms("版型信息")

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行

If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
    Return
End If
Dim jk As Integer
Integer.TryParse(vr("_Identify"),jk)
Dim dr As DataRow = Tables("版型库").DataTable.Find("_Identify = '" & jk & "'")
Dim ps As Integer = Tables("版型库").FindRow(dr)
If dr IsNot Nothing AndAlso dr("设计师") = user.Name AndAlso dr("审核") = False Then
    dr.Delete '从DataTable删除行
    vr.Delete '从ListView删
Else
    PopMessage("没权限删除",,,7)
    Return
End If

增加按钮代码:

If User.IsRole("版师") OrElse User.IsRole("设计师") Then
    Tables(e.Form.TableName).AddNew()
Else
    PopMessage("没权限增加",,,7)
    Return
End If
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/30 9:17:00 [显示全部帖子]

以版师的身份增加看不见新增的行?  

这个项目就是16楼发布的那个项目
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/30 9:49:00 [显示全部帖子]

我想要版师添加样板文件后才可保存成功,同样设计师也必须上传了成衣图片后才可保存 
[此贴子已经被作者于2021/8/30 10:51:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/31 9:53:00 [显示全部帖子]

以下是引用有点蓝在2021/8/30 9:40:00的发言：
项目一系列的处理逻辑都有问题

1、版型信息窗口，权限控制有问题，导致窗口打开后图片浏览器看不到新增按钮，无法添加图片
2、保存判断的逻辑有问题，下面代码不知道在判断什么，总之无法通过，一直保存不了
If dd("样板") = Nothing  AndAlso dd("版师") = user.Name = False Then
    If dd("成衣图片") = Nothing  AndAlso dd("设计师") = user.Name = False Then


这段代码 判断的是    当样板为空并且用户角色不是版师的话就增加不了,提示"请添加文件后保存" ,当成衣图片为空并且用户角色不是设计师的话也增加不了,提示"请添加文件后保存",版师只能增加样板 ,设计师只能增加成衣图片,
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/31 10:16:00 [显示全部帖子]

以下是引用有点蓝在2021/8/31 10:00:00的发言：
意思就是这个登录的用户必须既是版师又是设计师，同时拥有2个角色，否则根本就不可能保存的
另外代码里判断的是用户名user.name，也不是判断的角色



不是这样的, 
登陆用户的角色如果是版师的话只能上传并保存样板文件,删除权限只能是版师自己上传的文件,   
登陆用户的角色如果是设计师的话只能上传并保存成衣图片文件,只能删除设计师自己上传的文件,版师和设计师都有增加的权限, 但这两个角色各自增加的文件是不同的
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/31 10:28:00 [显示全部帖子]

以下是引用有点蓝在2021/8/31 10:19:00的发言：
那么保存的时候就没有必要做这个判断了，去掉上面的这些判断代码。

去掉的话我怎么实现的个权限呢
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/8/31 10:32:00 [显示全部帖子]

以下是引用charity在2021/8/27 15:17:00的发言：
 下载信息  [文件大小：400.0 KB  下载次数：7]
图片点击可在新窗口打开查看点击浏览该文件:版型库.table




就是这个项目   版师角色在增加文件和删除文件的时候有问题,增加的时候分页窗口不显示,删除版师自己上传的文件也删除不了,麻烦老师帮我修改一下  谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
charity
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：426 威望：0 精华：0 注册：2021/8/5 10:15:00 		  发帖心情 Post By：2021/9/1 9:58:00 [显示全部帖子]

以下是引用charity在2021/8/27 15:17:00的发言：
 下载信息  [文件大小：400.0 KB  下载次数：8]





老师 这个分页窗口里面的删除按钮  我怎么设置权限让设计师和版师只能删除自己上传的文件呢?  还有就是版师增加文件的时候点击保存不能弹出新增页面的问题   求解答

[此贴子已经被作者于2021/9/7 15:36:26编辑过]
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询