Foxtable(狐表)用户栏目专家坐堂 → 我给窗口的增加按钮设置了权限,为什么没有权限也增加,


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

主题:我给窗口的增加按钮设置了权限,为什么没有权限也增加,

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


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
我给窗口的增加按钮设置了权限,为什么没有权限也增加,  发帖心情 Post By:2021/8/19 15:24:00 [只看该作者]

我给窗口的增加按钮设置了权限,为什么没有权限也增加,

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


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


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


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

(这个是我设置-新加按钮的代码)
Tables(e.Form.TableName).AddNew()
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
End If

(删除按钮的代码)
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)
End If

(修改按钮的代码)

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
    If ps >= 0 Then
        Tables("版型库").Position = ps
    End If
    
    If aa.Opened = False Then
        aa.Open()
    End If
Else
    PopMessage("没权限修改",,,7)   
End If

(保存按钮的代码)

Dim dd As Row = CurrentTable.Current
If dd("样板") = Nothing OrElse dd("成衣图片") = Nothing Then
    PopMessage("添加文件后保存",,,7)
Else
e.Form.Close()
Functions.Execute("生成版型")
End If


我给按钮设置了权限,但是为什么,只有拥有权限的人才可以新增,删除,修改, 但是我在测试应用窗口的已拥有权限的身份去新增文件,页面不显示,也删除不了,   这是为什么呢?

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


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

新增按钮里哪里有权限控制的代码?

(这个是我设置-新加按钮的代码)
Tables(e.Form.TableName).AddNew()
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
End If

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


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

新增文件没有权限设置,删除和修改有权限设置,新增文件我的窗口不显内容,但是后台数据表里面有我新增的数据,删除和修改没反应,点击删除没反应,删除不了文件

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


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

图片点击可在新窗口打开查看

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


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

不知道您具体怎么做的,请上传实例说明

 回到顶部