窗口权限设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4545人关注过本帖树形打印复制链接主题：窗口权限设置

xgzcx

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

加好友

发短信

等级：婴狐帖子：46 积分：452 威望：0 精华：0 注册：2021/5/14 14:05:00

窗口权限设置 发帖心情

Post By：2021/6/2 16:28:00 [只看该作者]

老师：请教一个窗口权限设置问题。数据表中的行有内容时，怎么通过窗口权限来决定该行不能输入内容。说明书介绍了数据表设置权限的方式，窗口不可以。

Dim txtBox As WinForm.TextBox
txtBox = e.Form.Controls("txtSale")
If User.Group = "录入员" Then
txtBox.ReadOnly = BooleanEnum.True
Else
txtBox.ReadOnly = BooleanEnum.Default
End If

不是通过使用人员的权限来设置，而是通过该数据表的行有没有内容来设置。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110562 积分：562700 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/2 16:31:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=166142&replyID=139816&skin=1

If txtBox.text > "" Then

xgzcx

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

加好友

发短信

等级：婴狐帖子：46 积分：452 威望：0 精华：0 注册：2021/5/14 14:05:00

Post By：2021/6/3 9:17:00 [只看该作者]

老师：早上好！几种方法我都反复试过，结果是不可以。对于窗口中输入的权限管理，还是表格的权限管理，整个都是从用户的角度来进行的。但是对于数据已经记录的，不能在下一次输入数据时将原有数据覆盖的保护，这个是软件最基本的保障。

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "表A.第一列", "表A.第二列", "表A.第三列"
        If txtBox.text >"" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

显示错误：txtBox声明成什么？这个实在搞不明白，请老师明示，多谢！

有点蓝

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

加好友

发短信

等级：超级版主帖子：110562 积分：562700 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/3 9:21:00 [只看该作者]

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "表A.第一列", "表A.第二列", "表A.第三列"
        If ctl.text ="" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

[此贴子已经被作者于2021/6/3 9:21:51编辑过]