以文本方式查看主题

-  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=184316)

--  作者:jk36
--  发布时间:2022/12/2 20:23:00
--  [求助]授权问题
多文件管理器能不能授权?
可视化授权示例是不是对窗口无效?

录入窗口与权限管理

输入框的授权

前面所有有关编辑的权限设置,都是针对数据表的。
如果采用录入窗口编辑数据,那么这些权限设置是无效的,我们需要另外的方法。


我现在基本上是录入窗口编辑,发现录入窗口编辑没有


--  作者:有点蓝
--  发布时间:2022/12/3 9:31:00
--  
参考:http://www.foxtable.com/webhelp/topics/2342.htm

或者看看:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=41945&page=5

--  作者:jk36
--  发布时间:2022/12/3 11:23:00
--  
按上述设置,提示密码错误
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单元格密码16_202212031119.zip


第三例设置密码保护
[此贴子已经被作者于2022/12/3 11:25:25编辑过]

--  作者:有点蓝
--  发布时间:2022/12/3 11:54:00
--  
确定密码是【正确的密码】这5个字符?

If e.Col.Name = "第三列" Then \'如果编辑的是某列
    Dim psd As String
    InputValue(psd, "验证", "请输入密码") \'输入密码
    If psd = "正确的密码" Then \'如果密码正确
        e.Table.StartEditing \'强行进入编辑状态
    Else
        e.Cancel = True \'取消编辑
        Messagebox.Show("密码错误", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End If