以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  我给窗口的增加按钮设置了权限,为什么没有权限也增加,  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171143)

--  作者:charity
--  发布时间:2021/8/19 15:24:00
--  我给窗口的增加按钮设置了权限,为什么没有权限也增加,
我给窗口的增加按钮设置了权限,为什么没有权限也增加,
--  作者:有点蓝
--  发布时间:2021/8/19 15:49:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:charity
--  发布时间: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


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

--  作者:有点蓝
--  发布时间: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
--  发布时间:2021/8/20 12:48:00
--  
新增文件没有权限设置,删除和修改有权限设置,新增文件我的窗口不显内容,但是后台数据表里面有我新增的数据,删除和修改没反应,点击删除没反应,删除不了文件
--  作者:charity
--  发布时间:2021/8/20 12:50:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2021/8/20 13:36:00
--  
不知道您具体怎么做的,请上传实例说明