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


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

主题:窗口按钮权限设置

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/27 17:25:00 [只看该作者]

到BeforeDeleteDataRow事件处理。


If e.DataRow("录入人") <> user.name Then
    MessageBox.Show(
"只有
录入人才能删除,别乱来!""提示")
    e.Cancel = 
True
End
 
If

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/29 20:08:00 [只看该作者]

用户的权限判断有问题,或者是分组、角色等没有设置好

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥,在线噢!
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 9:00:00 [只看该作者]

学会调试,看看提示框都弹出什么呢

删除
……
Dim ps As Integer = Tables("版型库").FindRow(dr)
msgbox(dr IsNot Nothing)
msgbox(dr("设计师") )
msgbox(user.Name)
msgbox(dr("审核") = False)
If dr IsNot Nothing AndAlso dr("设计师") = user.Name AndAlso dr("审核") = False Then
……

增加
msgbox(user.roles) 
If User.IsRole("版师") OrElse User.IsRole("设计师") Then
……
不能显示是指新增的行看不到,还是没有权限新增?

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

这个项目就是16楼发布的那个项目

 回到顶部
帅哥,在线噢!
有点蓝
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 10:10:00 [只看该作者]

去掉权限控制,功能做好后再考虑增加权限控制

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


这段代码 判断的是    当样板为空并且用户角色不是版师的话就增加不了,提示"请添加文件后保存" ,当成衣图片为空并且用户角色不是设计师的话也增加不了,提示"请添加文件后保存",版师只能增加样板 ,设计师只能增加成衣图片,


 回到顶部
总数 44 上一页 1 2 3 4 5 下一页