其他人员无法查看表单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 其他人员无法查看表单

共有2228人关注过本帖树形打印复制链接主题：其他人员无法查看表单

雅痞123456

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

其他人员无法查看表单 发帖心情

Post By：2017/12/12 8:23:00 [只看该作者]

此主题相关图片如下：qq图片20171212080946.png

Select Case e.Col.name

Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"

If User.Group <> "车间工艺人员" Then

e.Cancel = True

End If

End Select

Select Case e.Col.name

Case "批准","批准日期" , "批准人"

If User.Group <> "经理" Then

e.Cancel = True

End If

End Select

Select Case e.Col.name

Case "客户名称","产品类型","产品型号","工序代码","发行时间","工艺图_图纸","工艺图_发行数","工艺图_接收人"

If User.Group <> "公司管理人员" Then

e.Cancel = True

End If

End Select

Select Case e.Col.Name

Case "审核人" ,"审核日期" ,"批准人" , "批准日期"

e.Cancel = True

Case Else

If e.Row.IsNull("审核人") = False Then

e.Cancel = True

End If

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

此主题相关图片如下：3.png

检具明细只有车间工艺工程师可以编辑，其他人员只能查看，可我编辑完以后转其他账户登录，结果点不开，看不了内容请问怎么回事

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/12 8:49:00 [只看该作者]

这段代码删除

Select Case e.Col.name

Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"

If User.Group <> "车间工艺人员" Then

e.Cancel = True

End If

End Select

这段代码写到datacolchanging事件去

Select Case e.DataCol.name

Case "程序代码","胎具明细","检具明细","刀具明细" ,"审核","审核日期" , "审核人"

If User.Group <> "车间工艺人员" Then

e.Cancel = True

End If

End Select

雅痞123456

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2017/12/12 9:07:00 [只看该作者]

修改完了其他用户也可以调阅但是他们也可以对文档进行更改这个这怎么破用什么功能可以解决

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/12 9:52:00 [只看该作者]

beforeOpenFile事件

If e.DataCol.Name = "检具明细" Then
    on error resume Next
    Dim app As New MSWord.Application
    Dim fileName = ProjectPath & "attachments\" & e.FileName
    Dim doc = app.Documents.Open(fileName)
    doc.Unprotect(Password:="123456")
    If User.Group <> "车间工艺人员" Then
        doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
        Doc.saved = True
    End If
    App.Visible = True
    e.Cancel = True
End If

[此贴子已经被作者于2017/12/12 10:52:17编辑过]